mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 01:11:48 +03:00
Initial commit
Estex DSS
This commit is contained in:
Anatoliy Belyanskiy
commit
91774c8b23
3
.gitmodules
vendored
Normal file
3
.gitmodules
vendored
Normal file
@ -0,0 +1,3 @@
|
||||
[submodule "Shared_Includes"]
|
||||
path = Shared_Includes
|
||||
url = https://github.com/Tolik-Trek/Shared_Includes.git
|
||||
706
BOOT/BOOT.ASM
Normal file
706
BOOT/BOOT.ASM
Normal file
@ -0,0 +1,706 @@
|
||||
; <20>®á«¥¤ïï । ªæ¨ï: 25.04.2006
|
||||
|
||||
; <20>à®£à ¬¬ § ¯¨á¨ FDD/HDD boot-§ £àã§ç¨ª ¨ ä ©«®¢ á¨á⥬ë.
|
||||
;
|
||||
; ‡ £à㦠¥â á¨áâ. ä ©«ë ¨§ ª®àï ¤¨áª , á ª®â®à®£® ¡ë«
|
||||
; § £à㦥 á¨á⥬ .
|
||||
;
|
||||
|
||||
|
||||
; ”¨âç¨ ¯à®£à ¬¬ë:
|
||||
; ‚ ®â«¨ç¨¥ ®â ®à¨£¨ «ì®£® boot-¨áâ ««ïâ®à , íâ ¬®¦¥â
|
||||
; ¯¥à¥¯¨áë¢ âì 㦥 ãáâ ®¢«¥ë© boot-§ £àã§ç¨ª.
|
||||
; ” ©«ë á¨á⥬ë (system.dos, system.exe) ¬®£ãâ ¨¬¥âì
|
||||
; «î¡ë¥ à §¬¥àë.
|
||||
; <20>ਠ§ £à㧪¥ ª®¬¯ìîâ¥à á ¤¨áª¥âë, § ¯à 訢 ¥âáï ®¢ ï
|
||||
; ¤¨áª¥â ¤«ï ᮧ¤ ¨ï ¨§ ¥¥ § £à㧮箩.
|
||||
;
|
||||
;
|
||||
include 'shared_includes/constants/sp2000.inc'
|
||||
include 'shared_includes/constants/bios_equ.inc'
|
||||
include 'shared_includes/constants/dss_equ.inc'
|
||||
include 'shared_includes/macroses/accelerator.z80'
|
||||
include 'shared_includes/macroses/macros.z80'
|
||||
include 'shared_includes/structures/FileSystem.inc'
|
||||
|
||||
DEFINE EXEinfoMACRO 1
|
||||
MACRO _mEXEinfo
|
||||
BLOCK 10,' ' ; ‚ëà ¢¨¢ ¨¥ ¤«ï ªà ᨢ®£® ®â®¡à ¦¥¨ï ¢ HEX
|
||||
BYTE ' Bootloader '
|
||||
BYTE ' installer '
|
||||
BYTE ' for DSS. '
|
||||
BYTE ' Vasil Ivanov, '
|
||||
BYTE ' Anatoliy '
|
||||
BYTE ' Belyanskiy. '
|
||||
BYTE ' Sprinter Team, '
|
||||
BYTE ' 2023 '
|
||||
ENDM
|
||||
|
||||
|
||||
; ¢¥àá¨ï ¯à®£à ¬¬ë
|
||||
major_version equ 1 ; áâ. ®¬¥à ¢¥àᨨ
|
||||
minor_version equ 5 ; ¬«. ®¬¥à
|
||||
;;
|
||||
|
||||
org_addr EQU #8000 + CLP_Buffer
|
||||
code_addr EQU BEGIN
|
||||
program_start EQU BEGIN
|
||||
stack_point EQU #C000
|
||||
Loader_length EQU 0
|
||||
|
||||
;
|
||||
page_buffer equ 0C000h ; ¡ãä¥à ä ©«®¢
|
||||
;;
|
||||
|
||||
include 'Shared_Includes/constants/EXE_Header.z80'
|
||||
|
||||
ORG org_addr
|
||||
BEGIN: in a,(SLOT3)
|
||||
ld (port+1),a ; á®åà. ¯®àâ
|
||||
push ix
|
||||
call save_path ; á®åà. ⥪. ¤¨áª ¨ ¯ãâì
|
||||
ld c,0 ; 㧠âì ¢¥àá¨î „Ž‘
|
||||
rst 10h
|
||||
ex de,hl ; hl=⥪. ¢¥àá¨ï
|
||||
ld de,013Ch ; 1.60 d=¢¥àá¨ï, e=¬®¤¨ä¨ª æ¨ï, bc - ®¬¥à ᡮન. de = #013E, bc = #0064 dos ver 1.62.100
|
||||
and a
|
||||
sbc hl,de
|
||||
jr nc,version_ok
|
||||
pop hl
|
||||
ld a,9 ; ¨¤¥ªá áâப¨ "Error: Need DSS version 1.60..."
|
||||
call print_string
|
||||
ld a,-1
|
||||
jp exit
|
||||
|
||||
version_ok: xor a ; ¨¤¥ªá áâப¨ â¨â«
|
||||
call print_string
|
||||
pop hl ; ª®¬-áâப
|
||||
; ¢ë¤¥«¨âì ¯ à ¬¥âà ª®¬-áâப¨
|
||||
call get_drive_letter
|
||||
jp c,help ; ¥â ¯ à ¬¥â஢
|
||||
ld (disk),a ; § ¤ ë© ®¬¥à ¤¨áª
|
||||
; 㧠âì ®¬¥à boot-¤¨áª á¨á⥬ë
|
||||
ld bc,0009h
|
||||
rst 10h
|
||||
ld (boot_disk),a ; ¤¨áª (A=0,B=1,..)
|
||||
; ¯à®¢¥à¨âì ᮢ¯ ¤¥¨¥ ¤¨áª®¢
|
||||
ld hl,disk
|
||||
cp (hl)
|
||||
jr nz,.next
|
||||
ld hl,confirm_flag
|
||||
ld (hl),1 ; ãáâ. ä« £
|
||||
;
|
||||
; —⥨¥ ¢ ¡ ª¨ ä ©«®¢ á¨á⥬ë
|
||||
;
|
||||
.next: ld a,(boot_disk) ; ¤¨áª § £à㧪¨ Ž‘
|
||||
ld hl,root_path ; "X:\" ª®à¥ì ¤¨áª
|
||||
add a,'A'
|
||||
ld (hl),a
|
||||
ld c,1Dh ; ᬥ ª â «®£
|
||||
rst 10h
|
||||
;--------------------------------------------
|
||||
; —⥨¥ ä ©« system.exe
|
||||
;--------------------------------------------
|
||||
ld hl,name2 ; ¨¬ï ä ©«
|
||||
call read_file ; ¢áï à ¡®â ¯® § £à㧪¥ ä ©« ¢ áâà ¨æë
|
||||
jr nc,read_file1_ok
|
||||
; ®á¢®¡. ¡«®ª ¯ ¬ïâ¨
|
||||
read_file_err: ld a,(id_blck) ; ¨¤¥â¨ä. ¡«®ª ¯ ¬ïâ¨
|
||||
ld c,3Eh
|
||||
rst 10h
|
||||
ld a,-1 ; ª®¤ ®è¨¡ª¨
|
||||
jp exit
|
||||
|
||||
; á®åà. à ¡. ï祩ª¨ ä ©« system.exe
|
||||
read_file1_ok: ld hl,file_handle ; ®âªã¤
|
||||
ld de,hFile1 ; ªã¤
|
||||
ld bc,6
|
||||
ldir
|
||||
;--------------------------------------------
|
||||
; —⥨¥ ä ©« system.dos
|
||||
;--------------------------------------------
|
||||
ld hl,name1 ; ¨¬ï ä ©«
|
||||
call read_file ; ¢áï à ¡®â ¯® § £à㧪¥ ä ©« ¢ áâà ¨æë
|
||||
jr nc,read_file2_ok
|
||||
; ®á¢®¡. ¡«®ª ¯ ¬ï⨠system.exe
|
||||
file_err1: ld a,(id_mem) ; ¨¤¥â¨ä. ¡«®ª ¯ ¬ïâ¨
|
||||
ld c,3Eh
|
||||
rst 10h
|
||||
jr read_file_err ; ®á¢®¡. ¡«®ª ¯ ¬ï⨠system.dos
|
||||
|
||||
read_file2_ok:
|
||||
confirm_flag+*: ld a,0
|
||||
or a
|
||||
jr z,no_confirm
|
||||
ld a,(boot_disk) ; á¨áâ. ¤¨áª
|
||||
cp 2
|
||||
jr nc,no_confirm ; ¥ ¤¨áª®¢®¤ë
|
||||
; § ¯à®á¨âì 楫¥¢®© ¤¨áª
|
||||
ld a,(disk) ; § ¤ ë© ®¬¥à ¤¨áª
|
||||
add a,'A'
|
||||
ld (lett2),a
|
||||
ld a,5 ; ¨¤¥ªá áâப¨ "Insert destination disk..."
|
||||
call print_string
|
||||
ld bc,3035h ; ¦¤¥¬ ¦ â¨ï ª« ¢¨è¨
|
||||
rst 10h
|
||||
no_confirm: ld a,2 ; ¨¤¥ªá áâப¨ "Installing boot loader..."
|
||||
call print_string
|
||||
; “áâ. 楫¥¢®© ¤¨áª/¯ãâì
|
||||
ld a,(disk) ; 楫¥¢®© ¤¨áª
|
||||
ld hl,root_path ; "X:\" áâப ¯ãâ¨
|
||||
add a,'A'
|
||||
ld (hl),a
|
||||
ld c,1Dh ; ᬥ ⥪. ª â «®£
|
||||
rst 10h
|
||||
;--------------------------------------------
|
||||
; ‡ ¯¨á âì boot-§ £àã§ç¨ª
|
||||
call write_boot_loader
|
||||
jr c,write_error ; ®è¨¡ª à ¡®âë á ¤¥¢ ©á®¬
|
||||
;
|
||||
ld a,3 ; ¨¤¥ªá áâப¨ "Writing system files..."
|
||||
call print_string
|
||||
; ‡ ¯¨áì ä ©« system.dos
|
||||
ld hl,name1 ; ¨¬ï ä ©«
|
||||
call write_file
|
||||
jr nc,ok_write1
|
||||
jr file_err1
|
||||
;
|
||||
ok_write1: ; ®á¢®¡®¤¨âì ¯ ¬ïâì
|
||||
ld a,(id_blck) ; ¡«®ª system.dos
|
||||
ld c,3Eh
|
||||
rst 10h
|
||||
;
|
||||
; § £à. à ¡. ï祩ª¨
|
||||
ld hl,hFile1 ; ®âªã¤
|
||||
ld de,file_handle ; ªã¤
|
||||
ld bc,6
|
||||
ldir
|
||||
; ‡ ¯¨áì ä ©« system.exe
|
||||
ld hl,name2 ; ¨¬ï ä ©«
|
||||
call write_file
|
||||
; ®á¢®¡®¤¨âì ¯ ¬ïâì
|
||||
push af
|
||||
ld a,(id_blck) ; ¡«®ª system.exe
|
||||
ld c,3Eh
|
||||
rst 10h
|
||||
pop af
|
||||
jr c,exit ; ®è¨¡ª
|
||||
;
|
||||
ld a,(disk) ; § ¤ ë© ®¬¥à ¤¨áª
|
||||
add a,'A'
|
||||
ld (lett1),a
|
||||
ld a,1 ; ¨¤¥ªá áâப¨ "System installed on disk "
|
||||
call print_string
|
||||
ld a,(confirm_flag)
|
||||
or a
|
||||
jr z,exit
|
||||
; § ¯à®á¨âì á¨áâ¥¬ë© ¤¨áª
|
||||
ld a,(boot_disk) ; á¨áâ. ¤¨áª
|
||||
cp 2
|
||||
jr nc,exit-1 ; ¥ ¤¨áª®¢®¤ë
|
||||
add a,'A'
|
||||
ld (lett3),a
|
||||
ld a,6 ; ¨¤¥ªá áâப¨ "Insert system disk..."
|
||||
call print_string
|
||||
ld bc,3035h ; ¦¤¥¬ ¦ â¨ï ª« ¢¨è¨
|
||||
rst 10h
|
||||
xor a ; ª®¤ "Ok"
|
||||
exit: push af
|
||||
call restore_path ; ¢®ááâ. ⥪. ¤¨áª ¨ ¯ãâì
|
||||
port: ld a,-1 ; á®åà. ¯®àâ
|
||||
out (SLOT3),a
|
||||
pop af
|
||||
ld c,41h ; ¢ë室 ¢ „Ž‘
|
||||
ld b,a
|
||||
rst 10h
|
||||
jr $
|
||||
|
||||
|
||||
help: ld a,8 ; ¨¤¥ªá áâப¨ "Invalid drive specification"
|
||||
call print_string
|
||||
ld a,4 ; ¨¤¥ªá áâப¨ åí«¯
|
||||
err_mes: call print_string
|
||||
ld a,1 ; ª®¤ ®è¨¡ª¨
|
||||
jr exit
|
||||
|
||||
write_error: ld a,7 ; ¨¤¥ªá áâப¨ "Can't install boot on this disk"
|
||||
jr err_mes
|
||||
|
||||
|
||||
|
||||
|
||||
root_path: db 'X:\',0 ; ¯ãâì
|
||||
|
||||
name1: db "SYSTEM.DOS",0
|
||||
name2: db "SYSTEM.EXE",0
|
||||
|
||||
|
||||
|
||||
;-------------------------------------------------
|
||||
; ‡ ¯¨á âì boot-§ £àã§ç¨ª FDD/HDD
|
||||
; ¢å®¤: ¥â
|
||||
; ¢ë室: CF - ®è¨¡ª à ¡®âë á ¤¥¢ ©á®¬
|
||||
;-------------------------------------------------
|
||||
write_boot_loader:
|
||||
ld a,(disk) ; § ¤ ë© ®¬¥à ¤¨áª
|
||||
ld c,1 ; open device
|
||||
rst 18h
|
||||
ret c
|
||||
ld hl,close_device ; â®çª ¢ë室
|
||||
push hl
|
||||
ld a,(disk) ; § ¤ ë© ®¬¥à ¤¨áª
|
||||
ld hl,0 ; áâ. à §àï¤ «®£. ᥪâ®à
|
||||
ld ix,0 ; ¬«. à §àï¤
|
||||
ld de,buffer ; ªã¤
|
||||
ld bc,0105h ; ¯à®ç¨â âì 1 ᥪâ®à (boot)
|
||||
rst 18h
|
||||
ret c ; ®è¨¡ª ç⥨ï
|
||||
ld a,(buffer+21) ; ¡ ©â ä®à¬ â
|
||||
cp 0F0h ; 1.44Mb
|
||||
ret c ; ¥§ ª®¬ë© ä®à¬ â
|
||||
jr z,write_to_floppy
|
||||
cp 0F9h ; 720kB
|
||||
jr z,write_to_floppy
|
||||
cp 0FAh ; RAM disk
|
||||
jr z,write_to_ram_disk
|
||||
; pop hl ; ¢®ááâ. ¡ « á á⥪
|
||||
; call close_device
|
||||
cp 0F8h ; ¢¨â
|
||||
jr z,write_to_hard_disk
|
||||
scf ; ¥§ ª®¬ë© ä®à¬ â
|
||||
ret
|
||||
|
||||
; § ªàëâì ¤¥¢ ©á
|
||||
close_device: push af ; á®åà. ä« £
|
||||
ld a,(disk) ; § ¤ ë© ®¬¥à ¤¨áª
|
||||
ld c,2 ; close device
|
||||
rst 18h
|
||||
pop af
|
||||
ret
|
||||
|
||||
|
||||
;-------------------------------------------------
|
||||
; ‡ ¯¨áì boot-§ £àã§ç¨ª ¤¨áª¥âã
|
||||
;
|
||||
; ¢å®¤: ¤ ë¥ ¨§ buffer
|
||||
; ¢ë室: CF - ¯à¨ ®è¨¡ª¥ § ¯¨á¨
|
||||
;-------------------------------------------------
|
||||
write_to_floppy:
|
||||
ld a,(buffer+16) ; ç¨á«® ª®¯¨© FAT-®¢
|
||||
or a
|
||||
scf
|
||||
ret z ; ®è¨¡ª
|
||||
dec a ; --ç¨á«® ª®¯¨©
|
||||
jr z,overwrite_floppy ; § £àã§ç¨ª 㦥 § ¯¨á , ¯¥à¥§ ¯¨á âì ¥£®
|
||||
; áâநâì ï祩ª¨ boot-ᥪâ®à
|
||||
ld (buffer+16),a ; ç¨á«® ª®¯¨© FAT-®¢
|
||||
ld hl,(buffer+14) ; § १¥à¢. ᥪâ®à®¢
|
||||
ld bc,(buffer+22) ; ᥪâ®à®¢ FAT
|
||||
ld a,b
|
||||
or c
|
||||
scf
|
||||
ret z ; 0 ᥪâ®à®¢ FAT
|
||||
add hl,bc
|
||||
ld (buffer+14),hl ; § १¥à¢. ᥪâ®à®¢
|
||||
overwrite_floppy:
|
||||
; § ¯¨á âì boot-ᥪâ®à § ¤
|
||||
ld a,(disk) ; § ¤ ë© ®¬¥à ¤¨áª
|
||||
ld hl,0 ; áâ. à §àï¤ «®£. ᥪâ®à
|
||||
ld ix,0 ; ¬«. à §àï¤
|
||||
ld de,buffer ; ®âªã¤
|
||||
ld bc,0106h ; § ¯¨á âì 1 ᥪâ®à
|
||||
rst 18h
|
||||
ret c ; ®è¨¡ª § ¯¨á¨
|
||||
; § ¯¨á âì § £àã§ç¨ª
|
||||
ld a,(disk) ; § ¤ ë© ®¬¥à ¤¨áª
|
||||
ld hl,0 ; áâ. à §àï¤ «®£. ᥪâ®à
|
||||
ld ix,1 ; ¬«. à §àï¤
|
||||
ld de,code_loader ; ®âªã¤ (ª®¤ § £àã§ç¨ª )
|
||||
ld bc,0306h ; § ¯¨á âì 3 ᥪâ®à (à §¬¥à § £à.)
|
||||
rst 18h
|
||||
ret
|
||||
|
||||
|
||||
;-------------------------------------------------
|
||||
; ‡ ¯¨áì boot-§ £àã§ç¨ª ¤à ©¢
|
||||
;
|
||||
; ¢å®¤: ¥â
|
||||
; ¢ë室: CF-®è¨¡ª § ¯¨á¨
|
||||
;-------------------------------------------------
|
||||
|
||||
write_to_ram_disk:
|
||||
write_to_hard_disk:
|
||||
ld a,(disk) ; ®¬¥à § ¤ ®£® ¤¨áª
|
||||
ld de,#55AA
|
||||
ld bc,0 * 256 + 8
|
||||
rst #18
|
||||
ex af,af'
|
||||
|
||||
ld hl,0 ; áâ. à §àï¤ «®£. ᥪâ®à
|
||||
ld ix,1 ; ¬«. à §àï¤
|
||||
ld de,code_loader ; ®âªã¤ (ª®¤ § £àã§ç¨ª )
|
||||
ld bc,3*256 + BIOS.DRV_WRITE ; § ¯¨á âì 3 ᥪâ®à (à §¬¥à § £à.)
|
||||
rst 08h
|
||||
ret
|
||||
|
||||
;-------------------------------------------------
|
||||
; ‚뤥«¨âì § ¤ ë© ¤¨áª ¨§ ª®¬-áâப¨
|
||||
;
|
||||
; ¢å®¤: hl=¡ãä¥à áâப¨
|
||||
; ¢ë室: a=®¬¥à ¤¨áª
|
||||
; CF-¯à¨ ®è¨¡ª¥
|
||||
;-------------------------------------------------
|
||||
get_drive_letter:
|
||||
inc hl ; ¡ãä¥à áâப¨
|
||||
ld de,buffer ; ¡ãä¥à ¤«ï ¢ë¤¥«. ¯ à ¬¥âà
|
||||
ld c,43h ; ¢ë¤¥«¨âì ¯ à ¬¥âà ª®¬. áâப¨
|
||||
rst 10h
|
||||
ld de,buffer
|
||||
ld a,(de)
|
||||
inc de
|
||||
ld c,a ; á®åà. 'a'
|
||||
ld a,(de)
|
||||
inc de
|
||||
cp ':'
|
||||
jr nz,get_drive_err ; ¤¨áª ¥ § ¤
|
||||
ld a,(de)
|
||||
inc de
|
||||
or a
|
||||
jr nz,get_drive_err ; > 1 ¯ à ¬¥âà
|
||||
ld a,c ; ¢®ááâ. 'a'
|
||||
cp 'A'
|
||||
jr c,get_drive_err
|
||||
cp 'z'+1
|
||||
jr nc,get_drive_err
|
||||
res 5,a
|
||||
sub 'A'
|
||||
or a
|
||||
ret
|
||||
;
|
||||
get_drive_err: scf ; ®è¨¡ª
|
||||
ret
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
;----------------------------------------------------
|
||||
; á®åà. ⥪. á¨áâ¥¬ë© ¤¨áª ¨ ¯ãâì
|
||||
;----------------------------------------------------
|
||||
save_path: ld c,2 ; 㧠âì ¤¨áª
|
||||
rst 10h
|
||||
ld (sys_disk),a
|
||||
ld hl,sys_path
|
||||
ld c,1Eh ; 㧠âì ¯ãâì
|
||||
rst 10h
|
||||
ret
|
||||
|
||||
|
||||
;----------------------------------------------------
|
||||
; ¢®ááâ. ⥪. á¨áâ¥¬ë© ¤¨áª ¨ ¯ãâì
|
||||
;----------------------------------------------------
|
||||
restore_path: ld a,(sys_disk)
|
||||
ld c,1 ; ᬥ ¤¨áª
|
||||
rst 10h
|
||||
ld hl,sys_path
|
||||
ld c,1Dh ; ᬥ ¯ãâ¨
|
||||
rst 10h
|
||||
ret
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
disk: db 0 ; ®¬¥à § ¤ ®£® ¤¨áª
|
||||
boot_disk: db 0 ; ®¬¥à boot-¤¨áª á¨á⥬ë
|
||||
|
||||
|
||||
|
||||
; à ¡. ï祩ª¨ ⥪. ä ©«
|
||||
;
|
||||
; ç⥨¥: system.exe, ¤ «¥¥ system.dos
|
||||
; § ¯¨áì: system.dos, ¤ «¥¥ system.exe
|
||||
file_handle: db -1 ; ¤¥áªà¨¯â®à ä ©«
|
||||
id_blck: db -1 ; ¨¤¥â¨ä. ¢ë¤¥«. ¡«®ª ¯ ¬ïâ¨
|
||||
;
|
||||
lsize: dw 0 ; ¬«.à §àï¤ à §¬¥à ä ©«
|
||||
hsize: dw 0 ; áâ.à §àï¤
|
||||
|
||||
; á®åà. ¤ ë¥ system.exe
|
||||
hFile1: db -1 ; ¤¥áªà. ä ©«
|
||||
id_mem: db -1 ; ¨¤¥â¨ä. ¡«®ª
|
||||
;
|
||||
dw 0 ; ¬«.à §àï¤
|
||||
dw 0 ; áâ.à §àï¤
|
||||
;
|
||||
;
|
||||
;
|
||||
;
|
||||
;
|
||||
; á®®¡é¥¨ï
|
||||
messages: db 0
|
||||
db 0Dh,0Ah,"Boot and System files Installer v" ;0
|
||||
db major_version + '0','.'
|
||||
db (minor_version / 10) + '0',(minor_version % 10) + '0','.'
|
||||
db 0Dh,0Ah,0Ah
|
||||
db "Copyright (c) 2006-2022 Vasil Ivanov."
|
||||
db 0Dh,0Ah,0Ah
|
||||
db "Copyright (c) 2023 Sprinter Team."
|
||||
db 0Dh,0Ah,0Ah,0
|
||||
;
|
||||
db "System successfully installed on disk " ;1
|
||||
lett1: db "X:",0Dh,0Ah,0Ah,0
|
||||
;
|
||||
db "Installing boot loader...",0Dh,0Ah,0Ah,0 ;2
|
||||
db "Writing system files...",0Dh,0Ah,0Ah,0 ;3
|
||||
;
|
||||
db "Syntax: SYS X:",0Dh,0Ah ;4
|
||||
db " where X: - drive letter (A..Z)",0Dh,0Ah,0Ah,0
|
||||
;
|
||||
db "Insert destination disk in drive " ;5
|
||||
lett2: db "X:",0Dh,0Ah
|
||||
db "and strike any key when ready ...",0Dh,0Ah,0Ah,0
|
||||
;
|
||||
db "Insert system disk in drive " ;6
|
||||
lett3: db "X:",0Dh,0Ah
|
||||
db "and strike any key when ready ...",0Dh,0Ah,0Ah,0
|
||||
;
|
||||
db "Can't install boot on this disk",0Dh,0Ah,0Ah,0 ;7
|
||||
db "Invalid drive specification",0Dh,0Ah,0Ah,0 ;8
|
||||
db " Error: Can't open file",0Dh,0Ah,0Ah,0 ;9
|
||||
db " Error: Can't allocate memory",0Dh,0Ah,0Ah,0 ;10
|
||||
db " Error: Need DOS version 1.60 or higher",0Dh,0Ah,0Ah,0;11
|
||||
db " Error: Reading error",0Dh,0Ah,0Ah,0 ;12
|
||||
db " Error: Can't create file",0Dh,0Ah,0Ah,0 ;13
|
||||
db " Error: Writing error",0Dh,0Ah,0Ah,0 ;14
|
||||
endmess: db 0
|
||||
|
||||
|
||||
|
||||
; ‚뢥á⨠áâப㠯® ¨¤¥ªáã
|
||||
; ¢å®¤: a=¨¤¥ªá áâப¨
|
||||
print_string: call get_string ; ¯®¨áª áâப¨ ¯® ¥¥ ¨¤¥ªáã ¢ 'a'
|
||||
ld c,5Ch ; ¢ë¢®¤ áâப¨
|
||||
rst 10h
|
||||
ret
|
||||
|
||||
|
||||
; ¯®¨áª áâப¨ ¯® ¥¥ ¨¤¥ªáã ¢ 'a'
|
||||
get_string: ld hl,messages ; ᯨ᮪ ¬¥áá £ ¤«ï ¨¤¥ªá. ¤®áâã¯
|
||||
ld bc,endmess-messages ; à §¬¥à ᯨáª
|
||||
inc a
|
||||
ex af,af'
|
||||
xor a
|
||||
ex af,af'
|
||||
get_loop: ex af,af'
|
||||
cpir
|
||||
ret po
|
||||
ret nz
|
||||
ex af,af'
|
||||
dec a
|
||||
jr nz,get_loop
|
||||
ret
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
;====================================================
|
||||
; ‚áï à ¡®â ¯® § £à㧪¥ ä ©« ¢ áâà ¨æë
|
||||
; ¢å®¤: hl=¨¬ï ä ©«
|
||||
; ¢ë室: CF-¯à¨ ®è¨¡ª¥
|
||||
;====================================================
|
||||
read_file: ld a,1 ; ç⥨¥
|
||||
ld c,11h ; ®âªàëâì ä ©«
|
||||
rst 10h
|
||||
jr nc,ok ; ¡¥§ ®è¨¡®ª
|
||||
ld a,9 ; ¨¤¥ªá "Can't open file"
|
||||
call print_string
|
||||
scf
|
||||
ret
|
||||
ok: ld (file_handle),a ; ¤¥áªà. ä ©«
|
||||
ld hl,0
|
||||
ld ix,0
|
||||
ld bc,0215h ; 㪠§ â¥«ì ª®¥æ ä ©«
|
||||
rst 10h
|
||||
ld (hsize),hl ; áâ.à §àï¤ à §¬¥à ä ©«
|
||||
ld (lsize),ix ; ¬«.à §àï¤
|
||||
call get_memory ; à áç. ¨ ¢ë¤¥«. áâà ¨æë ¯®¤ ä ©«
|
||||
jr c,not_enough ; ¥ å¢ â ¥â ¯ ¬ïâ¨
|
||||
call file_to_bank ; § £à. ä ©« ¢ áâà ¨æë
|
||||
close_file: ld a,(file_handle) ; ¤¥áªà. ä ©«
|
||||
ld c,12h ; § ªàëâì ä ©«
|
||||
rst 10h
|
||||
ret
|
||||
;
|
||||
not_enough: call close_file
|
||||
ld a,10 ; ¨¤¥ªá "Can't allocate memory"
|
||||
call print_string
|
||||
scf
|
||||
ret
|
||||
|
||||
|
||||
|
||||
;----------------------------------------------------
|
||||
; <20>® à §¬¥àã ä ©« à ááç¨â âì ¥®¡å®¤¨¬®¥
|
||||
; ç¨á«® áâà ¨æ ¨ ¢ë¤¥«¨âì ¨å.
|
||||
; ‚ë室: CF - ¯à¨ ¥å¢ ⪥ ¯ ¬ïâ¨
|
||||
;----------------------------------------------------
|
||||
get_memory: ld hl,(hsize) ; áâ.à §àï¤ à §¬¥à ä ©«
|
||||
ld bc,(lsize) ; ¬«.à §àï¤
|
||||
ld de,4000h ; ¤¥«¨â¥«ì (à §¬¥à áâà ¨æë)
|
||||
xor a
|
||||
scf
|
||||
malloc1: rr d
|
||||
rr e
|
||||
jr c,malloc2
|
||||
rr h
|
||||
rr l
|
||||
rr b
|
||||
rr c
|
||||
jr nc,malloc1
|
||||
ld a,1
|
||||
jr malloc1
|
||||
;
|
||||
malloc2: or a
|
||||
jr z,$+3
|
||||
inc bc
|
||||
xor a
|
||||
cp b
|
||||
scf
|
||||
ret nz
|
||||
; ¢ë¤¥«¨âì ¡«®ª ¯ ¬ïâ¨
|
||||
ld b,c ; b=ç¨á«® áâà ¨æ
|
||||
ld c,3Dh
|
||||
rst 10h
|
||||
ld (id_blck),a ; ¨¤¥â¨ä. ¡«®ª
|
||||
ret
|
||||
|
||||
|
||||
;----------------------------------------------------
|
||||
; ‡ £à㧨âì ä ©« ¢ áâà ¨æë
|
||||
;----------------------------------------------------
|
||||
file_to_bank: ld hl,0
|
||||
ld ix,0
|
||||
ld a,(file_handle) ; ¤¥áªà. ä ©«
|
||||
ld bc,0015h ; 㪠§ ⥫ì ç «® ä ©«
|
||||
rst 10h
|
||||
ld a,(id_blck) ; ¨¤¥â¨ä. ¡«®ª ¯ ¬ïâ¨
|
||||
ld b,0 ; «®£. ®¬¥à áâà ¨æë ¢ ¡«®ª¥
|
||||
ld c,0C4h ; ¯®«ãç¨âì 䨧. ®¬¥à áâà ¨æë ¢ ¡«®ª¥
|
||||
rst 08h
|
||||
ret c
|
||||
loop_to_bank: push af
|
||||
out (SLOT3),a
|
||||
ld hl,page_buffer ; #C000 ªã¤
|
||||
ld de,4000h ; ᪮«ìª®
|
||||
ld a,(file_handle) ; ¤¥áªà. ä ©«
|
||||
ld c,13h ; ç¨â âì ä ©«
|
||||
rst 10h
|
||||
pop bc
|
||||
jr nc,ok_to_bank
|
||||
ld a,12 ; ¨¤¥ªá "Reading error"
|
||||
call print_string
|
||||
scf
|
||||
ret
|
||||
;
|
||||
ok_to_bank: cp -1 ; ¯à®ç¨â ® ¬¥ì襥 ç¨á«® ¡ ©â ?
|
||||
ret z ; ¤
|
||||
ld a,b ; a=䨧¨ç. áâà ¨æ
|
||||
ld c,0C7h ; ¯®«ãç¨âì ®¬¥à á«¥¤. 䨧. áâà ¨æë ¡«®ª
|
||||
rst 08h
|
||||
ret c
|
||||
cp 255
|
||||
jr nz,loop_to_bank ; ¥ ¯®á«¥¤ïï áâà ¨æ
|
||||
ret
|
||||
|
||||
|
||||
|
||||
|
||||
;====================================================
|
||||
; ‡ ¯¨áì ä ©« ¤¨áª
|
||||
; ¢å®¤: hl=¨¬ï ä ©«
|
||||
; ¢ë室: CF-¯à¨ ®è¨¡ª¥
|
||||
;====================================================
|
||||
write_file: ld a,20h ; âਡãâ " à娢ë©"
|
||||
ld c,0Ah ; ᮧ¤ âì ä ©«
|
||||
rst 10h
|
||||
jr nc,create_ok ; ¡¥§ ®è¨¡®ª
|
||||
ld a,13 ; ¨¤¥ªá "Can't create file"
|
||||
call print_string
|
||||
scf
|
||||
ret
|
||||
;
|
||||
create_ok: ld (file_handle),a ; ¤¥áªà. ä ©«
|
||||
ld hl,close_file ; § ªà. ä ©«
|
||||
push hl ; â®çª ¢ë室
|
||||
;
|
||||
; ç⥨¥ ä ©« ¨§ ¡ ®ª ¨ § ¯¨áì ¤¨áª
|
||||
ld a,(id_blck) ; ¨¤¥â¨ä. ¡«®ª ¯ ¬ïâ¨
|
||||
ld b,0 ; «®£. ®¬¥à áâà ¨æë ¢ ¡«®ª¥
|
||||
ld c,0C4h ; ¯®«ãç¨âì 䨧. ®¬¥à áâà ¨æë ¢ ¡«®ª¥
|
||||
rst 08h
|
||||
ret c
|
||||
write_loop: push af
|
||||
out (SLOT3),a
|
||||
ld hl,(lsize) ; ¬«.à §àï¤ à §¬¥à ä ©«
|
||||
ld de,(hsize) ; áâ.à §àï¤
|
||||
ld bc,4000h
|
||||
xor a
|
||||
sbc hl,bc
|
||||
ld b,a
|
||||
ex de,hl
|
||||
sbc hl,bc
|
||||
ex de,hl
|
||||
jr c,write_end ; § ¯¨á âì ®áâ ⮪
|
||||
ld (lsize),hl
|
||||
ld (hsize),de
|
||||
;
|
||||
ld hl,page_buffer ; #C000 ®âªã¤
|
||||
ld de,4000h ; ᪮«ìª®
|
||||
ld a,(file_handle) ; ¤¥áªà. ä ©«
|
||||
ld c,14h ; § ¯¨áì ä ©«
|
||||
rst 10h
|
||||
pop bc
|
||||
jr nc,write_ok
|
||||
ld a,14 ; ¨¤¥ªá "Writing error"
|
||||
call print_string
|
||||
scf
|
||||
ret
|
||||
;
|
||||
write_ok: cp -1 ; § ¯¨á ® ¬¥ì襥 ç¨á«® ¡ ©â ?
|
||||
scf
|
||||
ret z ; ¤ , ¤¨áª¥ ¥â ¬¥áâ
|
||||
ld a,b ; a=䨧¨ç. áâà ¨æ
|
||||
ld c,0C7h ; ¯®«ãç¨âì ®¬¥à á«¥¤. 䨧. áâà ¨æë ¡«®ª
|
||||
rst 08h
|
||||
ret c
|
||||
cp 255
|
||||
jr nz,write_loop ; ¥ ¯®á«¥¤ïï áâà ¨æ
|
||||
ret
|
||||
;
|
||||
write_end: pop af ; ¡ « á á⥪
|
||||
ld de,(lsize) ; ᪮«ìª®
|
||||
ld a,e
|
||||
or d
|
||||
ret z ; 0 ¡ ©â®¢
|
||||
ld hl,page_buffer ; #C000 ®âªã¤
|
||||
ld a,(file_handle) ; ¤¥áªà. ä ©«
|
||||
ld c,14h ; § ¯¨áì ä ©«
|
||||
rst 10h
|
||||
ret
|
||||
|
||||
|
||||
|
||||
; „Ž‘-§ £àã§ç¨ª
|
||||
code_loader: include 'dssboot.asm' ; 㨢¥àá «ìë© § £àã§ç¨ª ¤«ï áâ ண® ¨ ®¢®£® ¤®á
|
||||
code_loader.size EQU $-code_loader
|
||||
|
||||
DISPLAY " dssboot size: ", /D,code_loader.size, " bytes. Sectors: ",code_loader.size/512
|
||||
|
||||
|
||||
; 512 ¡ ©â, ¡ãä¥à boot-ᥪâ®à
|
||||
buffer equ $
|
||||
sys_disk equ buffer+513 ; ¤¨áª á¨á⥬ë
|
||||
sys_path equ sys_disk+1 ; ¯ãâì á¨á⥬ë
|
||||
|
||||
155
BOOT/BOOTNAME.ASM
Normal file
155
BOOT/BOOTNAME.ASM
Normal file
@ -0,0 +1,155 @@
|
||||
;[BEGIN]
|
||||
;
|
||||
; BOOTNAME.EXE
|
||||
;
|
||||
MODULE BOOTname
|
||||
|
||||
ORG #8100-512
|
||||
INCLUDE "dss.inc"
|
||||
DB "EXE" ;EXE ID
|
||||
DB #00 ;EXE VERSION
|
||||
DW #0200 ;CODE OFFSET LOW
|
||||
DW #0000 ;CODE OFFSET HIGH
|
||||
DW #0000 ;END-BEG ;PRIMARY LOADER
|
||||
DW #0000 ;
|
||||
DW #0000 ;RESERVED
|
||||
DW #0000 ;
|
||||
DW #8100 ;LOAD ADDRESS
|
||||
DW #8100 ;START ADDRESS
|
||||
DW #BFFF ;STACK ADDRESS
|
||||
DS 490
|
||||
|
||||
START
|
||||
LD BC,0*256+DSS_BOOTDSK
|
||||
LD C,2 ;curdisk
|
||||
RST #10
|
||||
JR C,NERR
|
||||
ADD A,"A" ;correct to the human format
|
||||
LD (BOOTDRIVE),A
|
||||
LD HL,BOOTSTRING
|
||||
LD BC,2*256+DSS_ENVIRON
|
||||
RST #10
|
||||
NERR CALL C,ERROR
|
||||
LD C,DSS_EXIT
|
||||
RST #10
|
||||
RET
|
||||
|
||||
BOOTSTRING DB "BOOTDISK="
|
||||
BOOTDRIVE DB "C:",0
|
||||
|
||||
CRLF LD A,#0D
|
||||
LD C,DSS_PUTCHAR
|
||||
RST #10
|
||||
LD A,#0A
|
||||
LD C,DSS_PUTCHAR
|
||||
RST #10
|
||||
RET
|
||||
|
||||
ERROR LD E,A
|
||||
LD D,0
|
||||
JP ERR_MSG
|
||||
|
||||
ERR_MSG CALL FMESAGE
|
||||
CALL PRINTZ
|
||||
CALL CRLF
|
||||
CALL CRLF
|
||||
RET
|
||||
|
||||
FMESAGE INC DE
|
||||
LD HL,ERR0
|
||||
LD BC,ERR1-ERR0
|
||||
LCPIR XOR A
|
||||
CPIR
|
||||
RET PO
|
||||
RET NZ
|
||||
DEC DE
|
||||
LD A,D
|
||||
OR E
|
||||
JP NZ,LCPIR
|
||||
RET
|
||||
|
||||
PUTPRM LD BC,15
|
||||
PUTPRMA LD A,(HL)
|
||||
LDI
|
||||
RET PO
|
||||
OR A
|
||||
JR NZ,PUTPRMA
|
||||
RET
|
||||
|
||||
PRINTZ LD A,(HL)
|
||||
INC HL
|
||||
OR A
|
||||
RET Z
|
||||
CP "%"
|
||||
JR NZ,PRINTZ2
|
||||
LD A,(HL)
|
||||
INC HL
|
||||
SUB "1"
|
||||
PUSH HL
|
||||
LD L,A
|
||||
LD H,0
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
LD BC,PRM1
|
||||
ADD HL,BC
|
||||
LD C,DSS_PCHARS
|
||||
RST #10
|
||||
POP HL
|
||||
JR PRINTZ
|
||||
PRINTZ2 LD C,DSS_PUTCHAR
|
||||
RST #10
|
||||
JP PRINTZ
|
||||
|
||||
PRM1 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
PRM2 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
PRM3 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
PRM4 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
PRM5 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
PRM6 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
PRM7 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
PRM8 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
PRM9 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
|
||||
ERR0 DB #00
|
||||
DB "Bad command or file name",0
|
||||
DB "Invalid function",0
|
||||
DB "Invalid drive number",0
|
||||
DB "File not found",0
|
||||
DB "Path not found",0
|
||||
DB "Invalid handle",0
|
||||
DB "Extended error 6",0
|
||||
DB "File exist",0
|
||||
DB "File read only",0
|
||||
DB "Root overflow",0
|
||||
DB "No free space",0
|
||||
DB "Directory not empty",0
|
||||
DB "Can't delete current directory",0
|
||||
DB "Invalid media",0
|
||||
DB "Unknown operation",0
|
||||
DB "Directory exist",0
|
||||
DB "Invalid filename",0
|
||||
DB "Invalid EXE-file",0
|
||||
DB "Not supported EXE-file",0
|
||||
DB "Access denied",0
|
||||
DB "Not ready",0
|
||||
DB "Seek error",0
|
||||
DB "Sector not found",0
|
||||
DB "CRC error",0
|
||||
DB "Write protect",0
|
||||
DB "Read error",0
|
||||
DB "Write error",0
|
||||
DB "Drive failure",0
|
||||
DB "Extended error 28",0
|
||||
DB "Extended error 29",0
|
||||
DB "No free memory",0
|
||||
DB "Invalid memory block",0
|
||||
DB "Extended error 32",0
|
||||
DB "Extended error 33",0
|
||||
DB "Extended error 34",0
|
||||
DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
ERR1
|
||||
;
|
||||
ENDMODULE
|
||||
;
|
||||
756
BOOT/DSSBOOT.ASM
Normal file
756
BOOT/DSSBOOT.ASM
Normal file
@ -0,0 +1,756 @@
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Decription
|
||||
;---------------------------------------------------------------
|
||||
;R04 25-03-2023 BAO ; !FIXIT
|
||||
;R03 23-01-2000 DNS OPTIMIZE NEW BOOTING PROCEDURE
|
||||
;R02 08-01-2000 DNS NEW BOOTING PROCEDURE
|
||||
;R01 25-05-1998 DNS Console printing
|
||||
;R00 09-11-1998 DNS Color printing start message
|
||||
; Install CGA palette
|
||||
; +------------------------------+
|
||||
; + System Bootstrap +
|
||||
; + Initial revision 09 Nov 1998 +
|
||||
; +------------------------------+
|
||||
|
||||
DEFINE ORIGINAL_DSS 0
|
||||
DEFINE UNIVERSAL_BOOT 1
|
||||
|
||||
DISP #8000
|
||||
|
||||
OUTPUT 'build/DSSloader.bin'
|
||||
|
||||
ADRIVE EQU #00
|
||||
CDRIVE EQU #02
|
||||
|
||||
|
||||
|
||||
DRIVE:
|
||||
_mSYSID
|
||||
|
||||
DI
|
||||
LD (DRIVE),A
|
||||
LD C,BIOS.EXT_VERSION
|
||||
RST #18
|
||||
LD A,INCORR
|
||||
JR C,FAIL
|
||||
LD A,(DRIVE)
|
||||
BIT 7,A
|
||||
JR Z,GOOD_DRIVE
|
||||
EX DE,HL
|
||||
LD DE,#0215 ; ¥á«¨ ¢¥àá¨ï ¨¦¥ 2.21, â® ®è¨¡ª
|
||||
SBC HL,DE
|
||||
LD A,INCORR
|
||||
JR C,FAIL
|
||||
GOOD_DRIVE:
|
||||
LD DE,#8200
|
||||
LD HL,0
|
||||
LD IX,2
|
||||
LD BC,2*256+BIOS.DRV_READ
|
||||
LD A,(DRIVE)
|
||||
RST #18
|
||||
JR C,NULL
|
||||
JP CONTINU
|
||||
|
||||
FAIL CALL MESSAGE
|
||||
NULL LD A,FAILURE
|
||||
CALL MESSAGE
|
||||
DI
|
||||
HALT
|
||||
JR $
|
||||
|
||||
FMESAGE LD HL,MSG0
|
||||
LD BC,MSGE-MSG0
|
||||
INC A
|
||||
EX AF,AF'
|
||||
XOR A
|
||||
EX AF,AF'
|
||||
NEXTMSG EX AF,AF'
|
||||
CPIR
|
||||
RET PO
|
||||
RET NZ
|
||||
EX AF,AF'
|
||||
DEC A
|
||||
JR NZ,NEXTMSG
|
||||
RET
|
||||
|
||||
MESSAGE CALL FMESAGE
|
||||
JR PRINTZ
|
||||
|
||||
;R01 Start
|
||||
PRINTZ LD A,(HL) ;R01
|
||||
INC HL
|
||||
OR A
|
||||
RET Z
|
||||
CALL PRINTX
|
||||
JR PRINTZ
|
||||
|
||||
PRINTX CP #0D
|
||||
JR Z,CR_
|
||||
CP #0A
|
||||
JR Z,LF_
|
||||
LD BC,#0182
|
||||
RST #18
|
||||
RET
|
||||
CR_ LD C,#8E
|
||||
RST #18
|
||||
LD E,0
|
||||
LD C,#84
|
||||
RST #18
|
||||
RET
|
||||
LF_ LD C,#8E
|
||||
RST #18
|
||||
LD A,#1F
|
||||
CP D
|
||||
JR NZ,LF2
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
LD DE,#0020
|
||||
LD BC,#018A
|
||||
RST #18
|
||||
LD DE,#1F00
|
||||
LD C,#84
|
||||
RST #18
|
||||
LD A," "
|
||||
LD BC,#5082
|
||||
RST #18
|
||||
POP HL
|
||||
POP DE
|
||||
DEC D
|
||||
LF2 INC D
|
||||
LD C,#84
|
||||
RST #18
|
||||
RET ;R01
|
||||
;R01 End
|
||||
|
||||
FAILURE EQU 0
|
||||
INCORR EQU 1
|
||||
ERRPART EQU 2
|
||||
ERRIBPB EQU 3
|
||||
NO_SYS EQU 4
|
||||
NOSHELL EQU 5
|
||||
STARTDO EQU 6
|
||||
;a BIOS version that is incompatible with this version of DOS
|
||||
; 0 10 20 30 40 50 60 70 80
|
||||
MSG0 DB 0
|
||||
DB 13,10,"The system has been halted. Press RESET to restart your computer.",13,10
|
||||
DB 0
|
||||
DB 13,10
|
||||
DB "You started your computer with a BIOS version that is incompatible with this",13,10
|
||||
DB "version of DSS. Please update BIOS to run this version of DSS.",13,10
|
||||
DB 0
|
||||
DB "Invalid partition table.",13,10
|
||||
DB 0
|
||||
DB "Invalid BOOT sector.",13,10
|
||||
DB 0
|
||||
DB "Can't open file SYSTEM.DOS ...",13,10
|
||||
DB 0
|
||||
DB "Can't open file SYSTEM.EXE ...",13,10
|
||||
DB 0
|
||||
DB 13,10,"Starting DSS... ",13,10,13,10
|
||||
DB 0
|
||||
MSGE DB 0
|
||||
|
||||
CONTINU
|
||||
LD HL,0
|
||||
LD (DISKL),HL
|
||||
LD (DISKH),HL
|
||||
|
||||
LD BC,1*256+BIOS.GetMem
|
||||
RST #18 ;GET PAGE FOR DOS
|
||||
LD (BANKDOS),A
|
||||
CALL GET_BPB ;READ BPB
|
||||
LD A,ERRIBPB
|
||||
JP C,FAIL
|
||||
CALL GETROOT
|
||||
LD A,NO_SYS
|
||||
JP C,FAIL
|
||||
|
||||
LD HL,(FCLUSTR)
|
||||
LD DE,#C000
|
||||
CALL FLOAD
|
||||
DI
|
||||
XOR A
|
||||
OUT (SYS_PORT.OFF),A
|
||||
|
||||
LD A,#10
|
||||
LD BC,#7FFD
|
||||
OUT (C),A
|
||||
|
||||
LD A,1
|
||||
LD B,#1F ;1FFD
|
||||
OUT (C),A
|
||||
|
||||
LD A,(BANKDOS)
|
||||
OUT (SLOT0),A
|
||||
|
||||
;DOS LOADED
|
||||
IF UNIVERSAL_BOOT
|
||||
|
||||
LD A,(DRIVE)
|
||||
LD C,#00
|
||||
RST #10
|
||||
jp c,XFAIL
|
||||
|
||||
LD A,STARTDO
|
||||
CALL DOSMESS
|
||||
|
||||
LD A,(DRIVE)
|
||||
LD B,1
|
||||
LD C,Dss.BootDSK
|
||||
RST #10
|
||||
|
||||
LD B,0
|
||||
ELSE
|
||||
|
||||
IF ORIGINAL_DSS
|
||||
LD C,#00
|
||||
RST #10
|
||||
ELSE
|
||||
LD A,(DRIVE)
|
||||
LD C,#00
|
||||
RST #10
|
||||
jp c,XFAIL
|
||||
ENDIF
|
||||
|
||||
LD A,STARTDO
|
||||
CALL DOSMESS
|
||||
|
||||
IF ORIGINAL_DSS
|
||||
LD A,(DRIVE)
|
||||
LD B,1
|
||||
LD C,Dss.BootDSK
|
||||
RST #10
|
||||
|
||||
LD B,0
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
LD C,Dss.BootDSK
|
||||
RST #10
|
||||
|
||||
LD B,"A"
|
||||
ADD A,B
|
||||
|
||||
LD HL,ROOT
|
||||
LD (HL),A
|
||||
LD C,Dss.ChDir
|
||||
RST #10
|
||||
|
||||
LD HL,PSHELL
|
||||
LD BC,Dss.Exec
|
||||
RST #10
|
||||
LD A,NOSHELL
|
||||
JP XFAIL
|
||||
|
||||
PSHELL: DB '\SYSTEM.EXE /P',0
|
||||
ROOT: DB 'X:\',0
|
||||
|
||||
DOSMESS CALL FMESAGE
|
||||
LD C,Dss.PChars
|
||||
RST #10
|
||||
RET
|
||||
|
||||
XFAIL CALL DOSMESS
|
||||
LD A,FAILURE
|
||||
CALL DOSMESS
|
||||
DI
|
||||
HALT
|
||||
.halt JR .halt
|
||||
|
||||
PART_TB PUSH BC
|
||||
LD HL,(BOOT+510)
|
||||
LD DE,#AA55
|
||||
AND A
|
||||
SBC HL,DE
|
||||
JR NZ,ERRP
|
||||
LD IX,BOOT+#01BE
|
||||
LD B,4
|
||||
DOSAGA LD A,(IX+4)
|
||||
CP #0E
|
||||
JR Z,YEPDOS
|
||||
CP 6
|
||||
JR Z,YEPDOS
|
||||
CP 4
|
||||
JR Z,YEPDOS
|
||||
CP 1
|
||||
JR Z,YEPDOS
|
||||
LD DE,#10
|
||||
; ®è¨¡ª ¢ ®à¨£¨ «¥
|
||||
; ADD IY,DE
|
||||
ADD IX,DE
|
||||
DJNZ DOSAGA
|
||||
ERRP LD A,ERRPART
|
||||
JP FAIL
|
||||
|
||||
YEPDOS LD E,(IX+08)
|
||||
LD D,(IX+09)
|
||||
LD L,(IX+10)
|
||||
LD H,(IX+11)
|
||||
LD XH,D
|
||||
LD XL,E
|
||||
LD (DISKL),IX
|
||||
LD (DISKH),HL
|
||||
LD DE,BOOT
|
||||
LD BC,1*256+BIOS.DRV_READ
|
||||
LD A,(DRIVE)
|
||||
RST #18
|
||||
POP BC
|
||||
LD A,C
|
||||
RET
|
||||
|
||||
SET_PRM PUSH BC
|
||||
LD A,B
|
||||
LD C,BIOS.DRV_GET_PAR
|
||||
RST #18
|
||||
LD A,(BOOT.S_P_T)
|
||||
LD L,A
|
||||
POP AF
|
||||
PUSH AF
|
||||
LD C,BIOS.DRV_SET_PAR
|
||||
RST #18
|
||||
POP BC
|
||||
LD A,C
|
||||
RET
|
||||
|
||||
GET_BPB LD IX,#0000
|
||||
LD HL,#0000
|
||||
LD DE,BOOT
|
||||
LD BC,1*256+BIOS.DRV_READ
|
||||
LD A,(DRIVE)
|
||||
RST #18
|
||||
RET C
|
||||
LD A,(DRIVE)
|
||||
LD B,A
|
||||
AND #F0
|
||||
LD C,A
|
||||
CP #80
|
||||
JR NZ,NX1
|
||||
CALL PART_TB ;HDD
|
||||
RET C
|
||||
NX1 CP #00
|
||||
JR NZ,NX2
|
||||
CALL SET_PRM ;FDD
|
||||
NX2: LD HL,(BOOT+510)
|
||||
LD DE,#AA55
|
||||
AND A
|
||||
SBC HL,DE
|
||||
SCF
|
||||
RET NZ
|
||||
LD IY,BOOT ;Analysing Block Parametr BIOS
|
||||
LD A,(IY+_sBOOT_SEC.ID_FORM)
|
||||
CP #F0
|
||||
RET C
|
||||
LD HL,0 ;calc. first sector FAT
|
||||
LD (DIR_FRH),HL
|
||||
|
||||
LD E,(IY+_sBOOT_SEC.RESERVE) ;Reserve sec
|
||||
LD D,(IY+_sBOOT_SEC.RESERVE+1)
|
||||
ADD HL,DE
|
||||
LD (FAT_FRM),HL ;first sector FAT
|
||||
LD E,(IY+_sBOOT_SEC.S_P_F) ;sectors in FAT
|
||||
LD D,(IY+_sBOOT_SEC.S_P_F+1)
|
||||
LD A,(BOOT.FAT_NUM) ;amount FATs
|
||||
C_DATA1 ADD HL,DE
|
||||
DEC A
|
||||
JR NZ,C_DATA1
|
||||
LD (DIR_FRM),HL ;first sector DIR
|
||||
EX DE,HL
|
||||
LD L,(IY+_sBOOT_SEC.F_P_DIR) ;Number file handel
|
||||
LD H,(IY+_sBOOT_SEC.F_P_DIR+1)
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
LD A,H
|
||||
SRL A
|
||||
LD (DIR_S_S),A ;Sectors per dir
|
||||
LD L,A
|
||||
LD H,0
|
||||
ADD HL,DE
|
||||
LD (DAT_FRM),HL ;First sector data
|
||||
|
||||
LD C,(IY+_sBOOT_SEC.B_P_S) ;Size sector
|
||||
LD B,(IY+_sBOOT_SEC.B_P_S+1)
|
||||
LD HL,0
|
||||
LD A,(BOOT.S_P_C)
|
||||
NEXTAD3
|
||||
ADD HL,BC ;calc. cluster size
|
||||
DEC A
|
||||
JR NZ,NEXTAD3
|
||||
LD (CLU_LEN),HL
|
||||
|
||||
LD HL,BOOT.ID_FAT
|
||||
LD DE,FATMSG
|
||||
LD B,3
|
||||
R_BPBL1
|
||||
LD A,(DE)
|
||||
CP (HL)
|
||||
JP NZ,IBMDOS_
|
||||
INC HL
|
||||
INC DE
|
||||
DJNZ R_BPBL1
|
||||
FID LD A,(HL)
|
||||
INC HL
|
||||
CP #20
|
||||
JR Z,FID
|
||||
CP "1"
|
||||
SCF
|
||||
RET NZ
|
||||
LD A,(HL)
|
||||
CP "6" ; FAT16
|
||||
LD HL,#FFFF
|
||||
JR Z,BPB_FAT
|
||||
CP "2" ; FAT12
|
||||
SCF
|
||||
RET NZ
|
||||
LD HL,#0FFF
|
||||
BPB_FAT
|
||||
LD (FAT_TYP),A
|
||||
LD (ENDCLUS),HL
|
||||
|
||||
LD IX,(DISKL)
|
||||
LD HL,(DISKH)
|
||||
LD DE,(FAT_FRM)
|
||||
LD BC,#0000
|
||||
ADD IX,DE
|
||||
ADC HL,BC
|
||||
;HL:IX
|
||||
LD DE,FAT
|
||||
LD BC,3*256+BIOS.DRV_READ
|
||||
LD A,(DRIVE)
|
||||
RST #18
|
||||
RET C
|
||||
LD HL,0
|
||||
LD (FATCASH),HL
|
||||
XOR A
|
||||
RET
|
||||
|
||||
IBMDOS_ LD A,(IY+_sBOOT_SEC.ID_FORM)
|
||||
CP #F0
|
||||
RET C
|
||||
CP #F8
|
||||
LD A,"6"
|
||||
LD HL,#FFFF
|
||||
JR Z,BPB_FAT
|
||||
LD A,"2"
|
||||
LD HL,#0FFF
|
||||
JR BPB_FAT
|
||||
|
||||
GETROOT LD HL,(DIR_FRH)
|
||||
LD IX,(DIR_FRL)
|
||||
LD BC,(DISKL)
|
||||
LD DE,(DISKH)
|
||||
LD A,(DIR_S_S)
|
||||
NEXTSEC PUSH AF
|
||||
ADD IX,BC
|
||||
ADC HL,DE
|
||||
;HL:IX
|
||||
PUSH IX
|
||||
PUSH HL
|
||||
LD BC,1*256+BIOS.DRV_READ
|
||||
LD DE,DIR
|
||||
LD A,(DRIVE)
|
||||
RST #18
|
||||
CALL SEARCH
|
||||
POP HL
|
||||
POP IX
|
||||
POP BC
|
||||
RET C
|
||||
RET NZ
|
||||
LD A,B
|
||||
LD DE,0
|
||||
LD BC,1
|
||||
DEC A
|
||||
JR NZ,NEXTSEC
|
||||
SCF
|
||||
RET
|
||||
|
||||
SEARCH LD C,17 ;HANDELS PER SECTOR 512/32 + 1
|
||||
LD IX,DIR-#0020
|
||||
SKIPNAM LD DE,#0020
|
||||
ADD IX,DE
|
||||
DEC C
|
||||
RET Z
|
||||
LD A,(IX+00)
|
||||
OR A
|
||||
SCF
|
||||
RET Z
|
||||
CP #E5
|
||||
JR Z,SKIPNAM
|
||||
LD A,(IX+11)
|
||||
AND #10
|
||||
JR NZ,SKIPNAM
|
||||
LD HL,MASKARE
|
||||
LD D,XH
|
||||
LD E,XL
|
||||
LD B,11
|
||||
SEARCH2 LD A,(DE)
|
||||
CP (HL)
|
||||
JR NZ,SKIPNAM
|
||||
INC HL
|
||||
INC DE
|
||||
DJNZ SEARCH2
|
||||
LD D,XH
|
||||
LD E,XL
|
||||
LD HL,HANDBUF
|
||||
EX DE,HL
|
||||
LD BC,#0020
|
||||
LDIR
|
||||
XOR A
|
||||
INC A
|
||||
RET
|
||||
|
||||
; HL - CLUSTER
|
||||
; DE - ADDRESS
|
||||
|
||||
FLOAD LD (READMEM),DE
|
||||
LD_FILE PUSH HL
|
||||
CALL NSECTOR
|
||||
LD DE,(READMEM)
|
||||
LD A,(BOOT.S_P_C)
|
||||
CP #20
|
||||
JR C,SMCLUS
|
||||
LD BC,#2052
|
||||
LD A,(BANKDOS)
|
||||
EX AF,AF'
|
||||
LD A,(DRIVE)
|
||||
RST #18
|
||||
POP HL
|
||||
AND A
|
||||
RET
|
||||
|
||||
SMCLUS LD B,A
|
||||
LD C,#52
|
||||
LD A,(BANKDOS)
|
||||
EX AF,AF'
|
||||
LD A,(DRIVE)
|
||||
RST #18
|
||||
LD HL,(READMEM)
|
||||
LD DE,(CLU_LEN)
|
||||
ADD HL,DE
|
||||
LD (READMEM),HL
|
||||
POP HL
|
||||
RET C
|
||||
CALL R_F_FAT
|
||||
RET C
|
||||
EX DE,HL
|
||||
JP LD_FILE
|
||||
|
||||
; HL - CLUSTER
|
||||
; HL:IX - SECTOR
|
||||
|
||||
NSECTOR DEC HL
|
||||
DEC HL
|
||||
EX DE,HL
|
||||
LD A,(BOOT.S_P_C)
|
||||
LD B,A
|
||||
LD HL,0
|
||||
LD IX,0
|
||||
ADD_DE1 ADD IX,DE
|
||||
JP NC,ADD_DE2
|
||||
INC HL
|
||||
ADD_DE2 DJNZ ADD_DE1
|
||||
LD DE,(DAT_FRM)
|
||||
ADD IX,DE
|
||||
LD DE,#0000
|
||||
ADC HL,DE
|
||||
LD DE,(DISKL)
|
||||
ADD IX,DE
|
||||
LD DE,(DISKH)
|
||||
ADC HL,DE
|
||||
RET
|
||||
|
||||
;-----------------
|
||||
|
||||
; HL - CLUSTER
|
||||
|
||||
; DE - (CLUSTER)
|
||||
|
||||
R_F_FAT PUSH HL
|
||||
LD A,(FAT_TYP)
|
||||
CP "2"
|
||||
JP Z,R_F_F12
|
||||
R_F_F16 LD DE,768 ; DE - CLUSTERS IN CASH
|
||||
XOR A
|
||||
R_F_00H INC A ; HL - CLUSTER
|
||||
SBC HL,DE
|
||||
JP NC,R_F_00H
|
||||
ADD HL,DE
|
||||
ADD HL,HL ; HL - FAT OFFSET (FROM CASH)
|
||||
DEC A
|
||||
LD BC,(FATCASH) ; A - ELEMENT OF CASH
|
||||
CP C
|
||||
CALL NZ,RE_FAT
|
||||
LD DE,FAT
|
||||
ADD HL,DE
|
||||
LD E,(HL)
|
||||
INC HL
|
||||
LD D,(HL)
|
||||
LD HL,#FFEF
|
||||
XOR A
|
||||
SBC HL,DE
|
||||
POP HL
|
||||
RET
|
||||
|
||||
R_F_F12 LD D,H
|
||||
LD E,L
|
||||
ADD HL,HL
|
||||
ADD HL,DE
|
||||
RR H
|
||||
RR L
|
||||
PUSH AF
|
||||
EX DE,HL
|
||||
LD HL,(BOOT.B_P_S)
|
||||
LD B,H
|
||||
LD C,L
|
||||
ADD HL,HL
|
||||
ADD HL,BC
|
||||
EX DE,HL
|
||||
XOR A ; DE - SIZE SECTOR * 3
|
||||
R_F_00 INC A ; HL - FAT OFFSET
|
||||
SBC HL,DE
|
||||
JP NC,R_F_00
|
||||
ADD HL,DE
|
||||
DEC A
|
||||
LD BC,(FATCASH)
|
||||
CP C
|
||||
CALL NZ,RE_FAT
|
||||
LD DE,FAT
|
||||
ADD HL,DE
|
||||
POP AF
|
||||
LD E,(HL)
|
||||
INC HL
|
||||
LD D,(HL)
|
||||
JP C,R_F_F01
|
||||
LD A,D
|
||||
AND #0F
|
||||
LD D,A
|
||||
JP R_F_F02
|
||||
|
||||
R_F_F01 LD A,E
|
||||
AND #F0
|
||||
LD E,A
|
||||
RR D
|
||||
RR E
|
||||
RR D
|
||||
RR E
|
||||
RR D
|
||||
RR E
|
||||
RR D
|
||||
RR E
|
||||
R_F_F02 LD HL,#0FEF
|
||||
XOR A
|
||||
SBC HL,DE
|
||||
POP HL
|
||||
RET
|
||||
|
||||
RE_FAT PUSH HL
|
||||
LD L,A
|
||||
LD H,0
|
||||
LD (FATCASH),HL
|
||||
LD E,L
|
||||
LD D,H
|
||||
ADD HL,HL
|
||||
ADD HL,DE
|
||||
LD IX,0
|
||||
LD DE,(FAT_FRM)
|
||||
ADD HL,DE
|
||||
EX DE,HL
|
||||
JR NC,NOINX
|
||||
INC IX
|
||||
NOINX LD HL,(DISKL)
|
||||
ADD HL,DE
|
||||
EX DE,HL
|
||||
LD BC,(DISKH)
|
||||
JR NC,NOINX2
|
||||
INC IX
|
||||
NOINX2 ADD IX,BC
|
||||
PUSH IX
|
||||
PUSH DE
|
||||
POP IX
|
||||
POP HL
|
||||
LD DE,FAT
|
||||
LD BC,#0355
|
||||
LD A,(DRIVE)
|
||||
RST #18
|
||||
POP HL
|
||||
RET
|
||||
|
||||
MASKARE DB "SYSTEM DOS"
|
||||
|
||||
FATMSG DB "FAT"
|
||||
|
||||
; Area for boot sector [512Bytes]
|
||||
BOOT _sBOOT_SEC = $
|
||||
|
||||
; BOOT EQU $
|
||||
; ID_NAME EQU BOOT+#03 ; +03 DOS NAME
|
||||
; ; Block Parameters BIOS
|
||||
; B_P_S EQU BOOT+#0B ; +0B BYTE PER SECTOR
|
||||
; S_P_C EQU BOOT+#0D ; +0D SECTORS PER CLUSTER
|
||||
; RESERVE EQU BOOT+#0E ; +0E RESERVE SECTORS
|
||||
; FAT_NUM EQU BOOT+#10 ; +10 AMOUNT FATS
|
||||
; F_P_DIR EQU BOOT+#11 ; +11 FILES IN DIRECTORY
|
||||
; S_P_D EQU BOOT+#13 ; +13 ALL SECTORS ON DISK
|
||||
; ID_FORM EQU BOOT+#15 ; +15 ID FORMAT
|
||||
; S_P_F EQU BOOT+#16 ; +16 SIZE FAT IN SECTORS
|
||||
; S_P_T EQU BOOT+#18 ; +18 SECTOR PER TRACK
|
||||
; HEADS EQU BOOT+#1A ; +1A AMOUNT SIDES
|
||||
; HIDDEN EQU BOOT+#1C ; +1C HIDDEN SECTORS
|
||||
; ID_FAT EQU BOOT+#36 ; +36 FAT ID
|
||||
; ; end boot sector
|
||||
|
||||
|
||||
DIR EQU BOOT+512
|
||||
FAT EQU DIR+512
|
||||
|
||||
VALUE EQU 3*512+FAT
|
||||
FATCASH EQU VALUE+0
|
||||
FAT_FRM EQU VALUE+2 ; MSD_FAT_SEC first sector FAT
|
||||
DIR_FRH EQU VALUE+4 ; MSD_CAT_SEC first sector DIR
|
||||
DIR_FRL EQU VALUE+6 ; MSD_CAT_SEC first sector DIR
|
||||
DIR_FRM EQU VALUE+6
|
||||
DIR_S_S EQU VALUE+8 ; DIR_SEC_SIZE
|
||||
DAT_FRM EQU VALUE+9 ; MSD_DAT_SEC
|
||||
FAT_TYP EQU VALUE+11; TYPE FAT (#32 - 12bit, #36 - 16bit)
|
||||
CLU_LEN EQU VALUE+12; CLASTER_LEN
|
||||
ENDCLUS EQU VALUE+14
|
||||
|
||||
HANDBUF EQU VALUE+16
|
||||
FTIME EQU VALUE+16+22
|
||||
FDATE EQU VALUE+16+24
|
||||
FCLUSTR EQU VALUE+16+26
|
||||
FSIZE0 EQU VALUE+16+28
|
||||
FSIZE1 EQU VALUE+16+30
|
||||
|
||||
DISKH EQU VALUE+48
|
||||
DISKL EQU VALUE+50
|
||||
READMEM EQU VALUE+52
|
||||
SHEL_FM EQU VALUE+54
|
||||
BANKDOS EQU VALUE+55
|
||||
; EQU VALUE+56
|
||||
|
||||
;-----------------
|
||||
BLOCK #8600-$-3,0
|
||||
DB 'SPT'
|
||||
; BIGA EQU (($/256)+1)*256
|
||||
; BIGA2 EQU BIGA-$-2
|
||||
; DS BIGA2
|
||||
; DB "dp"
|
||||
; E______
|
||||
|
||||
;STACK EQU (($/256)+2)*256
|
||||
|
||||
ENT
|
||||
;START DI
|
||||
; LD (SPZ+1),SP
|
||||
; LD SP,#BFFF
|
||||
; LD C,#FE
|
||||
; CALL #3D13
|
||||
;SPZ LD SP,#0000
|
||||
; EI
|
||||
; RET
|
||||
|
||||
OUTEND
|
||||
;[]-----------------------------------------------------------[]
|
||||
9
BOOT/README.TXT
Normal file
9
BOOT/README.TXT
Normal file
@ -0,0 +1,9 @@
|
||||
<EFBFBD>à®£à ¬¬ § ¯¨á¨ FDD/HDD boot-§ £àã§ç¨ª ¨ ä ©«®¢ á¨á⥬ë.
|
||||
|
||||
”¨âç¨ ¯à®£à ¬¬ë:
|
||||
- ‚ ®â«¨ç¨¥ ®â ®à¨£¨ «ì®£® boot-¨áâ ««ïâ®à , íâ ¬®¦¥â
|
||||
¯¥à¥¯¨áë¢ âì 㦥 ãáâ ®¢«¥ë© boot-§ £àã§ç¨ª.
|
||||
- ” ©«ë á¨á⥬ë (system.dos, system.exe) ¬®£ãâ ¨¬¥âì
|
||||
«î¡ë¥ à §¬¥àë.
|
||||
- <20>ਠ§ £à㧪¥ ª®¬¯ìîâ¥à á ¤¨áª¥âë, § ¯à 訢 ¥âáï ®¢ ï
|
||||
¤¨áª¥â ¤«ï ᮧ¤ ¨ï ¨§ ¥¥ § £à㧮箩.
|
||||
2276
Console/CONSOLE.ASM
Normal file
2276
Console/CONSOLE.ASM
Normal file
File diff suppressed because it is too large
Load Diff
71
Console/DOS_EQU.ASM
Normal file
71
Console/DOS_EQU.ASM
Normal file
@ -0,0 +1,71 @@
|
||||
/*
|
||||
VERSION EQU #00
|
||||
CHDISK EQU #01
|
||||
CURDISK EQU #02
|
||||
DSKINFO EQU #03
|
||||
G_ENTRY EQU #04
|
||||
|
||||
BOOTDSK EQU #09
|
||||
CREATE EQU #0A
|
||||
CREAT_N EQU #0B
|
||||
ERASE EQU #0D
|
||||
DELETE EQU #0E
|
||||
MOVE EQU #0F
|
||||
RENAME EQU #10
|
||||
OPEN EQU #11
|
||||
CLOSE EQU #12
|
||||
READ EQU #13
|
||||
WRITE EQU #14
|
||||
MOVE_FP EQU #15
|
||||
ATTRIB EQU #16
|
||||
GET_D_T EQU #17
|
||||
PUT_D_T EQU #18
|
||||
F_FIRST EQU #19
|
||||
F_NEXT EQU #1A
|
||||
MKDIR EQU #1B
|
||||
RMDIR EQU #1C
|
||||
CHDIR EQU #1D
|
||||
CURDIR EQU #1E
|
||||
SYSTIME EQU #21
|
||||
SETTIME EQU #22
|
||||
|
||||
WAITKEY EQU #30
|
||||
SCANKEY EQU #31
|
||||
ECHOKEY EQU #32
|
||||
CTRLKEY EQU #33
|
||||
EDIT EQU #34
|
||||
K_CLEAR EQU #35
|
||||
|
||||
SETWIN EQU #38
|
||||
SETWIN1 EQU #39
|
||||
SETWIN2 EQU #3A
|
||||
SETWIN3 EQU #3B
|
||||
FREEMEM EQU #3C
|
||||
GETMEM EQU #3D
|
||||
RETMEM EQU #3E
|
||||
SETMEM EQU #3F
|
||||
|
||||
EXEC EQU #40
|
||||
EXIT EQU #41
|
||||
WAIT EQU #42
|
||||
|
||||
GSWITCH EQU #43
|
||||
DOSNAME EQU #44
|
||||
|
||||
SETVMOD EQU #50
|
||||
GETVMOD EQU #51
|
||||
LOCATE EQU #52
|
||||
CURSOR EQU #53
|
||||
SELPAGE EQU #54
|
||||
SCROLL EQU #55
|
||||
CLEAR EQU #56
|
||||
RDCHAR EQU #57
|
||||
WRCHAR EQU #58
|
||||
WINCOPY EQU #59
|
||||
WINREST EQU #5A
|
||||
PUTCHAR EQU #5B
|
||||
PCHARS EQU #5C
|
||||
RES_PRN EQU #5D
|
||||
CTRLPRN EQU #5E
|
||||
PRINT EQU #5F
|
||||
*/
|
||||
104
Console/DSS.INC
Normal file
104
Console/DSS.INC
Normal file
@ -0,0 +1,104 @@
|
||||
|
||||
DSS_VERSION EQU #00
|
||||
DSS_CHDISK EQU #01
|
||||
DSS_CURDISK EQU #02
|
||||
DSS_DSKINFO EQU #03
|
||||
;DSS_G_ENTRY EQU #04
|
||||
; EQU #05
|
||||
; EQU #06
|
||||
; EQU #07
|
||||
; EQU #08
|
||||
DSS_BOOTDSK EQU #09
|
||||
;File io
|
||||
DSS_CREATE EQU #0A
|
||||
DSS_CREAT_N EQU #0B
|
||||
; EQU #0C
|
||||
;DSS_ERASE EQU #0D
|
||||
DSS_DELETE EQU #0E
|
||||
;DSS_MOVE EQU #0F
|
||||
DSS_RENAME EQU #10
|
||||
DSS_OPEN EQU #11
|
||||
DSS_CLOSE EQU #12
|
||||
DSS_READ EQU #13
|
||||
DSS_WRITE EQU #14
|
||||
DSS_MOVE_FP EQU #15
|
||||
DSS_ATTRIB EQU #16
|
||||
DSS_GET_D_T EQU #17
|
||||
DSS_PUT_D_T EQU #18
|
||||
DSS_F_FIRST EQU #19
|
||||
DSS_F_NEXT EQU #1A
|
||||
DSS_MKDIR EQU #1B
|
||||
DSS_RMDIR EQU #1C
|
||||
DSS_CHDIR EQU #1D
|
||||
DSS_CURDIR EQU #1E
|
||||
; EQU #1F
|
||||
; EQU #20
|
||||
DSS_SYSTIME EQU #21
|
||||
DSS_SETTIME EQU #22
|
||||
; EQU #23
|
||||
; EQU #24
|
||||
; EQU #25
|
||||
; EQU #26
|
||||
; EQU #27
|
||||
; EQU #28
|
||||
; EQU #29
|
||||
; EQU #2A
|
||||
; EQU #2B
|
||||
; EQU #2C
|
||||
; EQU #2D
|
||||
; EQU #2E
|
||||
; EQU #2F
|
||||
;Keyboard
|
||||
DSS_WAITKEY EQU #30
|
||||
DSS_SCANKEY EQU #31
|
||||
DSS_ECHOKEY EQU #32
|
||||
DSS_CTRLKEY EQU #33
|
||||
;DSS_EDIT EQU #34
|
||||
DSS_K_CLEAR EQU #35
|
||||
DSS_K_SETUP EQU #36
|
||||
DSS_TESTKEY EQU #37
|
||||
;Memory
|
||||
DSS_SETWIN EQU #38
|
||||
DSS_SETWIN1 EQU #39
|
||||
DSS_SETWIN2 EQU #3A
|
||||
DSS_SETWIN3 EQU #3B
|
||||
DSS_INFOMEM EQU #3C
|
||||
DSS_GETMEM EQU #3D
|
||||
DSS_FREEMEM EQU #3E
|
||||
DSS_SETMEM EQU #3F
|
||||
;Execution
|
||||
DSS_EXEC EQU #40
|
||||
DSS_EXIT EQU #41
|
||||
DSS_WAIT EQU #42
|
||||
|
||||
DSS_GSWITCH EQU #43
|
||||
DSS_DOSNAME EQU #44
|
||||
DSS_EX_PATH EQU #45
|
||||
DSS_ENVIRON EQU #46
|
||||
DSS_APPINFO EQU #47
|
||||
; EQU #48
|
||||
; EQU #49
|
||||
; EQU #4A
|
||||
; EQU #4B
|
||||
; EQU #4C
|
||||
; EQU #4D
|
||||
; EQU #4E
|
||||
; EQU #4F
|
||||
|
||||
DSS_SETVMOD EQU #50
|
||||
DSS_GETVMOD EQU #51
|
||||
DSS_LOCATE EQU #52
|
||||
DSS_CURSOR EQU #53
|
||||
DSS_SELPAGE EQU #54
|
||||
DSS_SCROLL EQU #55
|
||||
DSS_CLEAR EQU #56
|
||||
DSS_RDCHAR EQU #57
|
||||
DSS_WRCHAR EQU #58
|
||||
DSS_WINCOPY EQU #59
|
||||
DSS_WINREST EQU #5A
|
||||
DSS_PUTCHAR EQU #5B
|
||||
DSS_PCHARS EQU #5C
|
||||
;DSS_RES_PRN EQU #5D
|
||||
;DSS_CTRLPRN EQU #5E
|
||||
DSS_PRINT EQU #5F
|
||||
;
|
||||
66
Console/Errors.TXT
Normal file
66
Console/Errors.TXT
Normal file
@ -0,0 +1,66 @@
|
||||
No free file handles
|
||||
Bad Command or file name
|
||||
Access denied
|
||||
Memory allocation error
|
||||
Cannot load COMMAND, system halted
|
||||
Cannot start COMMAND, exiting
|
||||
Top level process aborted, cannot continue
|
||||
Write protect error
|
||||
Invalid unit
|
||||
Not ready
|
||||
Invalid device request
|
||||
Data error
|
||||
Invalid device request parameters
|
||||
Seek error
|
||||
Invalid media type
|
||||
Sector not found
|
||||
Printer out of paper error
|
||||
Write fault error
|
||||
Read fault error
|
||||
General failure
|
||||
Sharing violation
|
||||
Lock violation
|
||||
Invalid disk change
|
||||
FCB unavailable
|
||||
System resource exhausted
|
||||
Code page mismatch
|
||||
Out of input
|
||||
Insufficient disk space
|
||||
Too many parameters
|
||||
Required parameter missing
|
||||
Invalid switch
|
||||
Invalid keyword
|
||||
Parameter value not inallowed range
|
||||
Parameter value not allowed
|
||||
Parameter value not allowed
|
||||
Parameter format not correct
|
||||
Invalid parameter
|
||||
Invalid parameter combination
|
||||
Invalid function
|
||||
File not found
|
||||
Path not found
|
||||
Too many open files
|
||||
Access denied
|
||||
Invalid handle
|
||||
Memory control blocks destroyed
|
||||
Insufficient memory
|
||||
Invalid memory block address
|
||||
Invalid Environment
|
||||
Invalid format
|
||||
Invalid function parameter
|
||||
Invalid data
|
||||
Invalid drive specification
|
||||
Attempt to remove current directory
|
||||
Not same device
|
||||
No more files
|
||||
File exists
|
||||
Cannot make directory entry
|
||||
Fail on INT 24
|
||||
Too many redirections
|
||||
Duplicate redirection
|
||||
Invalid password
|
||||
Invalid parameter
|
||||
Network data fault
|
||||
Function not supported by network
|
||||
Required system component not installed
|
||||
|
||||
4
Console/HISTORY.TXT
Normal file
4
Console/HISTORY.TXT
Normal file
@ -0,0 +1,4 @@
|
||||
21-02-2003 FIX BUG WITH LINE MERGE IN BAT-FILE
|
||||
14-12-2002 ADD BAT-PARAMETERS %1 %2
|
||||
11-12-2002 ADD BAT-VARIABLES %VAR%
|
||||
03-10-2002 FIX BUG WITH OUTPUT AT THE SCREEN IN BAT-MODE
|
||||
2074
Console/SYS.old
Normal file
2074
Console/SYS.old
Normal file
File diff suppressed because it is too large
Load Diff
32
DSS/CHANGES.LOG
Normal file
32
DSS/CHANGES.LOG
Normal file
@ -0,0 +1,32 @@
|
||||
;ˆ§¬¥¥¨ï ¯®á«¥ ¢¥àᨨ 1.70
|
||||
‚ ¦®¥:
|
||||
|
||||
‘।¥¥:
|
||||
|
||||
‚®®¡é¥ ¥ ¢ ¦®¥:
|
||||
¨á¯à ¢¨âì ¢ë室 ¨§ äãªæ¨¨ #41 ¯à¨ ¢®§¬®¦®¬ 㢥«¨ç¥¨¨ ®¬¥à â ᪨ 1 ¯à¨ 255
|
||||
|
||||
; TEST
|
||||
|
||||
;ˆ§¬¥¥¨ï ¯®á«¥ ¢¥àᨨ 1.60
|
||||
10.02.2003 - „®¡ ¢«¥ ¢¨§ã «¨§ æ¨ï ªãàá®à ¢ äãªæ¨¨ ECHOKEY.
|
||||
06.02.2003 - ˆá¯à ¢«¥ ®è¨¡ª ¢ à §¡®à¥ ¨¬¥¨ ä ©« ç¨ î饣®áï á â®çª¨.
|
||||
29.01.2003 - ˆá¯à ¢«¥ ®è¨¡ª ¢ PUT_D_T, ¥ ®¡®¢«ï« áì ¤ â ¢ ä ©« å, ¢ ª®â®àë¥ ¥ ¯à®¨§¢®¤¨« áì § ¯¨áì.
|
||||
;ˆ§¬¥¥¨ï ¯®á«¥ ¢¥àᨨ 1.60RC
|
||||
05.12.2002 - <20>¥ «¨§®¢ fn. APPINFO 47h, ¨ä®à¬ æ¨ï ® ¯à¨«®¦¥¨¨.
|
||||
26.11.2002 - ˆá¯à ¢«¥ ®è¨¡ª ¢ CHDIR, ¥ ¢ë¯®«ï«áï § ¯à®á "." ¨§ ROOT
|
||||
19.11.2002 - „®¡ ¢«¥ ª®à४â¨à®¢ª âਡãâ ä ©« ¯à¨ ¥£® ᮧ¤ ¨¨.
|
||||
19.11.2002 - „®¡ ¢«¥® ¬ ᪨஢ ¨¥ ââਡãâ VOLUME LABEL.
|
||||
19.11.2002 - ˆá¯à ¢«¥ ®è¨¡ª á âਡã⮬ system.
|
||||
17.11.2002 - <20>¥ «¨§®¢ ® system environment, fn. 46h
|
||||
07.11.2002 - „®¡ ¢«¥ § ¯à¥â/à §à¥è¥¨¥ ¯à¥àë¢ ¨© ¢ äãªæ¨¨ WINCOPY ¨ WINREST
|
||||
07.11.2002 - ˆá¯à ¢«¥ ®è¨¡ª ¢ äãªæ¨¨ SCROLL (A=0)
|
||||
;ˆ§¬¥¥¨ï ¯®á«¥ ¢¥àᨨ 1.55
|
||||
06.08.2001 - „®¡ ¢«¥ ¯®¤¤¥à¦ª Secondary IDE
|
||||
06.08.2001 - ˆá¯à ¢«¥ ®è¨¡ª á ¯®¤à §¤¥« ¬¨ ¢â®à®£® ¢¨ç¥áâ¥à
|
||||
11.07.2001 - <20>®¤¤¥à¦ª ¯à¨â¥à ¤«ï Sp2000
|
||||
30.07.2001 - ˆá¯à ¢«¥® ®¯¨á ¨¥ ¢å®¤ëå ¯ à ¬¥â஢ äãªæ¨¨ 㤠«¥¨ï ä ©« (0Eh);
|
||||
;ˆ§¬¥¥¨ï ¯®á«¥ ¢¥àᨨ 1.54
|
||||
18.07.2001 - „®¡ ¢«¥® ®¯¨á ¨¥ à ¡®âë á £à ä¨ç¥áª¨¬ íªà ®¬;
|
||||
18.07.2001 - „®¡ ¢«¥® ®¯¨á ¨¥ ¯ à ¬¥âà äãªæ¨¨ ¯®«ã票ï ०¨¬ íªà (51h);
|
||||
15.03.2001 - „®¡ ¢«¥® ®¯¨á ¨¥ äãªæ¨¨ à ¡®âë á ª®¬ ¤®© áâப®©(45h);
|
||||
249
DSS/DISK_X.ASM
Normal file
249
DSS/DISK_X.ASM
Normal file
@ -0,0 +1,249 @@
|
||||
|
||||
; DISK DRIVER SPECIFICATION
|
||||
;---------------------------------------------
|
||||
; COMMAND 00h (INITIALIZATION)
|
||||
;
|
||||
; INPUT: A - DRIVE LETTER
|
||||
; IX - ENVIRONMENT
|
||||
; RETURN: A - AMOUNT DRIVE SUPPORT
|
||||
; HL - LENGTH DRIVER
|
||||
;---------------------------------------------
|
||||
; COMMAND 01h (OPEN)
|
||||
;
|
||||
; INPUT: A - DRIVE
|
||||
;
|
||||
;---------------------------------------------
|
||||
; COMMAND 02h (CLOSE)
|
||||
;
|
||||
; INPUT: A - DRIVE
|
||||
; RETURN: A -
|
||||
;---------------------------------------------
|
||||
; COMMAND 03h (MEDIA CHECK)
|
||||
;
|
||||
; INPUT: A - DRIVE
|
||||
; RETURN: A - 00h - OLD DISK, 0FFh - NEW DISK
|
||||
;---------------------------------------------
|
||||
; COMMAND 04h (GET BPB)
|
||||
;
|
||||
; INPUT: HL - ADDRESS
|
||||
; A - DRIVE
|
||||
;---------------------------------------------
|
||||
; COMMAND 05h (INPUT)
|
||||
;
|
||||
; INPUT: IX:DE - ABSOLUTE SECTOR
|
||||
; HL - MEMORY ADDRESS
|
||||
; B - SECTORS COUNT
|
||||
; A - DRIVE
|
||||
;---------------------------------------------
|
||||
; COMMAND 06h (OUTPUT)
|
||||
;
|
||||
; INPUT: IX:DE - ABSOLUTE SECTOR
|
||||
; HL - MEMORY ADDRESS
|
||||
; B - SECTORS COUNT
|
||||
; A - DRIVE
|
||||
;---------------------------------------------
|
||||
; COMMAND 07h (REMOVABLE)
|
||||
;
|
||||
; INPUT: A - DRIVE
|
||||
; RETURN: A = 0 - REMOVABLE
|
||||
; A = 1 - NONREMOVABLE
|
||||
;---------------------------------------------
|
||||
; COMMAND 08h (GENERIC IOCTL)
|
||||
;
|
||||
; INPUT: A - DRIVE
|
||||
; B - SUBCOMMAND
|
||||
; DE - MAGIC NUMBER (55AAh)
|
||||
; SUBCOMMAND
|
||||
;----------------------
|
||||
; 00 - GET DEVICE PARAMETERS
|
||||
; 01 - READ TRACK
|
||||
; 02 - TEST TRACK
|
||||
; 80 - SET DEVICE PARAMETERS
|
||||
; 81 - WRITE TRACK
|
||||
; 82 - FORMAT TRACK
|
||||
;---------------------------------------------
|
||||
;
|
||||
; ERRORS:
|
||||
; 0 - NO ERRORS
|
||||
; 1 - BAD COMMAND
|
||||
; 2 - BAD DRIVE NUMBER
|
||||
; 3 - UNKNOW FORMAT
|
||||
; 4 - NOT READY
|
||||
; 5 - SEEK ERROR
|
||||
; 6 - SECTOR NOT FOUND
|
||||
; 7 - CRC ERROR
|
||||
; 8 - WRITE PROTECT
|
||||
; 9 - READ ERROR
|
||||
; 10 - WRITE ERROR
|
||||
; 11 - FAILURE
|
||||
; 12 - BUSY (DEVICE OPENED)
|
||||
; 13 - RESERVED
|
||||
|
||||
;INTDISK PUSH HL
|
||||
; PUSH BC
|
||||
; LD HL,DEVICE
|
||||
; INC A
|
||||
;INTD001 DEC A
|
||||
; JP Z,YEP
|
||||
; LD C,(HL)
|
||||
; INC C
|
||||
; INC HL
|
||||
; INC HL
|
||||
; INC HL
|
||||
; JP NZ,INTD001
|
||||
; POP BC
|
||||
; POP HL
|
||||
; LD A,2
|
||||
; SCF
|
||||
; RET
|
||||
|
||||
;YEP LD A,(HL)
|
||||
; INC HL
|
||||
; LD C,(HL)
|
||||
; INC HL
|
||||
; LD H,(HL)
|
||||
; LD L,C
|
||||
; POP BC
|
||||
; EX (SP),HL
|
||||
; RET
|
||||
|
||||
DSS_MAX_DRIVES_AMOUNT EQU 26
|
||||
|
||||
INTDISK:
|
||||
CP #FF
|
||||
JR NZ,.noNeedRescan
|
||||
CP C
|
||||
JR Z,INITDVC_RET_DRIVE
|
||||
|
||||
.noNeedRescan:
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
LD C,A
|
||||
ADD A,A
|
||||
ADD A,C
|
||||
LD C,A
|
||||
LD B,0
|
||||
LD HL,DEVICE
|
||||
ADD HL,BC
|
||||
LD A,(HL)
|
||||
INC A
|
||||
JR Z,NODEV
|
||||
DEC A
|
||||
INC HL
|
||||
LD C,(HL)
|
||||
INC HL
|
||||
LD H,(HL)
|
||||
LD L,C
|
||||
POP BC
|
||||
EX (SP),HL
|
||||
RET
|
||||
|
||||
NODEV POP BC
|
||||
POP HL
|
||||
LD A,DSS_Error.drv.INVALID_DRIVE
|
||||
SCF
|
||||
RET
|
||||
|
||||
PDEVICE DW DEVICE
|
||||
DEVICE: BLOCK DSS_MAX_DRIVES_AMOUNT*3,#FF
|
||||
.End: DB #FF
|
||||
|
||||
FLOPPY EQU #0001
|
||||
FIXED EQU #0002
|
||||
CDROM EQU #0004
|
||||
NETWORK EQU #0008
|
||||
|
||||
;DISKS: DB 27 ;LENGTH DISK INFO
|
||||
; DW FLOPPY ;DISK TYPE
|
||||
; DB 2,"A:" ;DISK NAME
|
||||
; DB 11,"NO NAME "
|
||||
; DB 8,"FAT12 "
|
||||
; DB #00 ;PHISICAL DRIVE NUMBER
|
||||
;
|
||||
; DB 27 ;LENGTH DISK INFO
|
||||
; DW FLOPPY ;DISK TYPE
|
||||
; DB 2,"B:" ;DISK NAME
|
||||
; DB 11,"NO NAME "
|
||||
; DB 8,"FAT12 "
|
||||
; DB #01 ;PHISICAL DRIVE NUMBER
|
||||
;
|
||||
; DB 27 ;LENGTH DISK INFO
|
||||
; DW FIXED ;DISK TYPE
|
||||
; DB 2,"C:" ;DISK NAME
|
||||
; DB 11,"NO NAME "
|
||||
; DB 8,"FAT16 "
|
||||
; DB #80 ;PHISICAL DRIVE NUMBER
|
||||
;
|
||||
; DB #00 ;END OF TABLE
|
||||
INITDVC_RET_DRIVE:
|
||||
CALL INITDVC
|
||||
LD A,(LDRIVE)
|
||||
AND A
|
||||
RET
|
||||
|
||||
INITDVC XOR A
|
||||
LD (LDRIVE),A
|
||||
LD HL,DEVICE
|
||||
LD (PDEVICE),HL
|
||||
LD C,A
|
||||
CALL FDDRIVE
|
||||
LD DE,FDDRIVE
|
||||
CALL MAKEDVC
|
||||
// XOR A
|
||||
LD C,0
|
||||
CALL HDDRIVE
|
||||
LD DE,HDDRIVE
|
||||
CALL MAKEDVC
|
||||
// XOR A
|
||||
LD C,0
|
||||
CALL RMDRIVE
|
||||
LD DE,RMDRIVE
|
||||
CALL MAKEDVC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MAKEDVC LD C,A
|
||||
LD HL,LDRIVE
|
||||
ADD A,(HL)
|
||||
LD (HL),A
|
||||
LD A,C
|
||||
LD C,0
|
||||
OR A
|
||||
RET Z
|
||||
LD HL,(PDEVICE)
|
||||
.loop: LD (HL),C
|
||||
INC HL
|
||||
LD (HL),E
|
||||
INC HL
|
||||
LD (HL),D
|
||||
INC HL
|
||||
INC C
|
||||
DEC A
|
||||
JR NZ,.loop
|
||||
LD (PDEVICE),HL
|
||||
DEC A
|
||||
LD (HL),A
|
||||
RET
|
||||
|
||||
;DEVICE DB #00
|
||||
; DW FDDRIVE ; FDD A
|
||||
; DB #01
|
||||
; DW FDDRIVE ; FDD B
|
||||
; DB #00
|
||||
; DW HDDRIVE ; HDD C
|
||||
; DB #01
|
||||
; DW HDDRIVE ; HDD D
|
||||
; DB #02
|
||||
; DW HDDRIVE ; HDD E
|
||||
; DB #03
|
||||
; DW HDDRIVE ; HDD F
|
||||
; DB #04
|
||||
; DW HDDRIVE ; HDD G
|
||||
; DB #05
|
||||
; DW HDDRIVE ; HDD H
|
||||
; DB #06
|
||||
; DW HDDRIVE ; HDD I
|
||||
; DB #07
|
||||
; DW HDDRIVE ; HDD J
|
||||
; DB #FF
|
||||
|
||||
572
DSS/DOS-MAIN.ASM
Normal file
572
DSS/DOS-MAIN.ASM
Normal file
@ -0,0 +1,572 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: DOS-MAIN AUTHOR: Denis Parinov
|
||||
;//CREATE: A LONG TIME AGO :)
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;[ ] ¯ãâì ⥪ã饣® ª â «®£ ¢ DIR ¢ë¢®¤¨âáï á £«îª®¬ ¥á«¨ ® ¤«¨¥¥ 256 ¡ ©â®¢
|
||||
;[ ] ¯ãâì ¢ ¯à¨£« 襨¨ ª®á®«¨ ¢ë¢®¤¨âáï á £«îª®¬ ¥á«¨ ¯ãâì ¤«¨¥¥ 256 ¡ ©â®¢
|
||||
;[ ] ;!FIXIT ª ª®©-â® ¡ £ ¯à¨ ª®â®à®¬ ¥á«¨ ¥â ¤¨áª ¨ ¥£® ¯®«¥§âì, â® ¢áñ «®¬ ¥âáï
|
||||
;R11 17-04-2023 BAO OPTIMIZED BUFFERS, FREED UP 768 BYTES FOR CODE
|
||||
;R10 14-04-2023 BAO €¢ à¨©ë© § ¢¨á® á ¢ë¢®¤®¬ á®®¡é¥¨ï ¯à¨ áâ à⥠á¨á⥬ë, ¥á«¨ ¥â ᢮¡®¤®© ¯ ¬ïâ¨
|
||||
;R09 08-04-2023 BAO ‘®ªà 饨¥ à §¬¥à â ¡«¨æë API ¤® 96 äãªæ¨© (0 - #5F). (Ž¯æ¨® «ì® ¯à¨ ª®¬¯¨«ï樨)
|
||||
;R08 15-04-2003 DNS RENAMED FN. OPEN AND CLOSE
|
||||
;R07 31-03-2003 DNS NEW DEPLOYING ROUTINE
|
||||
;R06 31-03-2003 DNS RELAYOUTING MEMORY
|
||||
;R05 27-03-2003 DNS CHANGE DRV. INIT. METHOD
|
||||
;R04 27-03-2003 DNS DRIVERS MOVE TO SPECIAL PAGE
|
||||
;R03 14-03-2003 DNS CODE OPTIMIZATION
|
||||
;R02 19-11-2002 DNS ADD ENVIRONMENT INITIALIZATION
|
||||
;R01 14-11-2002 DNS CUT AND MOVE BPB-STRUCT
|
||||
;---------------------------------------------------------------
|
||||
; OUTPUT './Build/system.dos'
|
||||
|
||||
; MODULE MAIN
|
||||
//SPRINTER EQU 2000
|
||||
|
||||
includelua 'Shared_includes/lua/Functions.lua'
|
||||
INCLUDE 'defines.inc'
|
||||
include 'shared_includes/constants/sp2000.inc'
|
||||
include 'shared_includes/constants/bios_equ.inc'
|
||||
include 'shared_includes/constants/dss_equ.inc'
|
||||
include 'shared_includes/structures/FileSystem.inc'
|
||||
include 'shared_includes/macroses/accelerator.z80'
|
||||
include 'shared_includes/macroses/macros.z80'
|
||||
include 'Structures.inc'
|
||||
INCLUDE 'VERSION.INC'
|
||||
INCLUDE 'DSS_MACROSES.Z80'
|
||||
|
||||
;PAGEDRV EQU #00
|
||||
|
||||
; DIRPAGE EQU 0
|
||||
; FATPAGE EQU 1
|
||||
; TXTPAGE EQU 2
|
||||
; ENVPAGE EQU 2
|
||||
; DRVPAGE EQU 3
|
||||
; ENVPAGE EQU 3
|
||||
; DRVPAGE EQU 4
|
||||
|
||||
; TXTADDR EQU #C000
|
||||
; ENVADDR EQU #E400
|
||||
|
||||
; DIR EQU #C000
|
||||
; FAT EQU #C000
|
||||
|
||||
|
||||
;
|
||||
; = -- = -- = -- = -- = = -- = -- = = -- = -- = = -- = -- = -- = -- = --;
|
||||
ORG 0
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[CLOSE TASK]> ;
|
||||
RST_0x00: JP LEAVE ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[BIOS API]> ;
|
||||
_mInfoBLOCK 8-$,#FF ;
|
||||
RST_0x08: PUSH AF ;
|
||||
LD A,SYS_PORT.PAGE8;
|
||||
OUT (SYS_PORT.ON),A ;
|
||||
POP AF ;
|
||||
RET ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[DSS API]> ;
|
||||
_mInfoBLOCK #10-$,#FF ;
|
||||
RST_0x10: JP RST_10 ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[DRIVE API]> ;
|
||||
_mInfoBLOCK #18-$,#FF ;
|
||||
;A0018 JP INTDISK ;
|
||||
RST_0x18: PUSH AF ;
|
||||
PUSH BC ;
|
||||
DRV_PG_NUMBER+2: ;
|
||||
LD BC,0*256+SLOT0 ;
|
||||
JP PORTAL.outMAIN ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[NOT USED]> ;
|
||||
_mInfoBLOCK #20-$,#FF ;
|
||||
RST_0x20: JP RST_20 ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
RST_20:
|
||||
RST_28:
|
||||
NOPS: LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
SCF
|
||||
RET
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[NOT USED]> ;
|
||||
_mInfoBLOCK #28-$,#FF ;
|
||||
RST_0x28: JP RST_28 ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[MOUSE API]> ;
|
||||
_mInfoBLOCK #30-$,#FF ;
|
||||
RST_0x30: JP INTMOUS ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[MAIN INT]> ;
|
||||
_mInfoBLOCK #38-$,#FF ;
|
||||
RST_38: ;
|
||||
JP RST_0x38 ; <20>â®â ¤¦ ¬¯ 㦥, ç⮡ á®äâë ¬®£«¨ «¥£ª® ¬¥ïâì ®¡à ¡®â稪 ᢮©. Š®áâë«ì®.
|
||||
RST_0x38: ;
|
||||
INT_: PUSH AF ;
|
||||
EX AF,AF' ;
|
||||
PUSH AF ;
|
||||
PUSH BC ;
|
||||
PUSH DE ;
|
||||
PUSH HL ;
|
||||
EXX ;
|
||||
PUSH BC ;
|
||||
PUSH DE ;
|
||||
PUSH HL ;
|
||||
PUSH IX ;
|
||||
PUSH IY ;
|
||||
CALL KEYSCAN ;
|
||||
LD C,#80 ;
|
||||
RST #30 ;
|
||||
IFN CLASSIC_CURSOR ;
|
||||
CALL cursor_interrupt; ¢¥ªâ®à ®¡á«ã¦. ªãàá®à ;!!!!! VASIL
|
||||
ENDIF ;
|
||||
POP IY ;
|
||||
POP IX ;
|
||||
POP HL ;
|
||||
POP DE ;
|
||||
POP BC ;
|
||||
EXX ;
|
||||
POP HL ;
|
||||
POP DE ;
|
||||
POP BC ;
|
||||
POP AF ;
|
||||
EX AF,AF' ;
|
||||
POP AF ;
|
||||
EI ;
|
||||
RETI ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
NMI: RETN
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[ NMI ]> ;
|
||||
_mInfoBLOCK #66-$,#FF ;
|
||||
NMI_0x66: JP NMI ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
RST_10: PUSH HL
|
||||
LD L,C
|
||||
|
||||
IF SHORT_RSTx10_TABLE
|
||||
;[ ] R09
|
||||
LD H,A
|
||||
LD A,#5F
|
||||
SUB C
|
||||
JR C,.error
|
||||
LD A,H
|
||||
;[ ] R09
|
||||
ENDIF
|
||||
|
||||
LD H,high ADRST10
|
||||
LD C,(HL)
|
||||
INC H
|
||||
LD H,(HL)
|
||||
LD L,C
|
||||
EX (SP),HL
|
||||
RET
|
||||
|
||||
IF SHORT_RSTx10_TABLE
|
||||
;[ ] R09
|
||||
.error: POP HL
|
||||
JR NOPS
|
||||
;[ ] R09
|
||||
ENDIF
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[DRIVE PAGE SWITCH]> ;
|
||||
_mInfoBLOCK #80-$,0 ;
|
||||
;ENTER: ;
|
||||
PORTAL.outMAIN: ;
|
||||
IN A,(C) ;
|
||||
OUT (C),B ;
|
||||
ASSERT $!=84,'-> Portal error!';
|
||||
POP BC ;
|
||||
RET ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
; = -- = -- = -- = -- = = -- = -- = = -- = -- = = -- = -- = -- = -- = --;
|
||||
;
|
||||
|
||||
/*
|
||||
STRUCT _sBOOT_SEC
|
||||
.JMP: BLOCK 3,0 ; +#00 "JMP"
|
||||
.ID_NAME: TEXT 8,{"DSS_1.7","0"} ; +#03 DOS NAME - DB "DSS_1.70"
|
||||
; Block Parameters BIOS
|
||||
.B_P_S: WORD #200 ; +#0B BYTE PER SECTOR
|
||||
.S_P_C: BYTE 2 ; +#0D SECTORS PER CLUSTER
|
||||
.RESERVE: WORD 1 ; +#0E RESERVE SECTORS
|
||||
.FAT_NUM: BYTE 2 ; +#10 AMOUNT FATS
|
||||
.F_P_DIR: WORD 112 ; +#11 FILES IN DIRECTORY
|
||||
.S_P_D: WORD 1440 ; +#13 ALL SECTORS ON DISK
|
||||
.ID_FORM: BYTE #F0 ; +#15 ID FORMAT
|
||||
.S_P_F: WORD 2 ; +#16 SIZE FAT IN SECTORS
|
||||
.S_P_T: WORD 9 ; +#18 SECTOR PER TRACK
|
||||
.HEADS: WORD 2 ; +#1A AMOUNT SIDES
|
||||
.HIDDEN: DWORD 0 ; +#1C HIDDEN SECTORS
|
||||
.BPB_BIG_TOTAL_SECTORS: DWORD 0 ; +#20 BIG TOTAL SECTOR
|
||||
.BPB_PHISICAL_DRIVE_NUMBER: WORD #80 ; +#24 PHISICAL DRIVE NUMBER
|
||||
.BPB_EXT_BOOT_RECORD_SIGNATURE: BYTE #29 ; +#26 EXTENDED BOOT RECORD SIGNATURE
|
||||
.BPB_SERIAL_NUMBER: DWORD 0 ; +#27 VOLUME SERIAL NUMBER
|
||||
.BPB_LABEL: TEXT 8,{"NO NAME"," "} ; +#2B DISK LABEL
|
||||
.ID_FAT: TEXT 8,{"FAT16"," "} ; +#36 FILE SYSTEM ID ( BPB_FS_ID )
|
||||
ENDS
|
||||
*/
|
||||
;R01
|
||||
; Area for boot sector BootSector.
|
||||
;BootSector _sBOOT_SEC ,{ "DSS_","0"+VERS,".",MODF/10+"0",MODF-(MODF/10)*10+"0" }
|
||||
; end boot sector
|
||||
;R01
|
||||
|
||||
; <20>¥à¢ë© áâ àâ á¨á⥬ë, ¯®á«¥ ¨¨æ¨ «¨§ 樨 ¤à¥á ¢ â ¡«¨æ¥ ¬¥ï¥âáï VERSION
|
||||
F_START:
|
||||
DI
|
||||
CALL DEPLOY ;R07 ;íâ ¯à®æ¥¤ãà § âàñâáï ¯®á«¥ ¨á¯®«¥¨ï
|
||||
RET C ;R10
|
||||
CALL KINIT
|
||||
CALL PRINT_INIT
|
||||
LD C,0
|
||||
RST #30
|
||||
LD A,(VMODE)
|
||||
LD C,#81
|
||||
RST #30
|
||||
;CALL INITDVC ;R05
|
||||
;R05
|
||||
LD C,#00
|
||||
RST #18
|
||||
LD (LDRIVE),A
|
||||
;R05
|
||||
EI
|
||||
;Set new address fn. VERSION
|
||||
LD HL,ADRST10
|
||||
LD (HL),low VERSION ;R03
|
||||
INC H
|
||||
LD (HL),high VERSION ;R03
|
||||
|
||||
;------[CLEAR BUFFERS]------;
|
||||
;R07 ;R11
|
||||
LD HL,CLEAR_ZONE.start
|
||||
LD DE,CLEAR_ZONE.start+1
|
||||
LD BC,CLEAR_ZONE.size-1
|
||||
LD (HL),0
|
||||
LDIR
|
||||
;R07 ;R11
|
||||
;R11
|
||||
LD HL,FM_BUF
|
||||
LD (HL),'.'
|
||||
;R11
|
||||
;---------------------------;
|
||||
|
||||
;R02
|
||||
;LD B,#FF ;INIT ENVIRONMENT
|
||||
CALL INITENV
|
||||
IFN CLASSIC_CURSOR
|
||||
CALL SETUP_CURSORS
|
||||
ENDIF
|
||||
;R02
|
||||
JP VERSION
|
||||
;R03
|
||||
;R07Allocate memory
|
||||
; LD BC,#03C2
|
||||
; RST ToBIOS
|
||||
; LD HL,BANKTBL
|
||||
; LD C,A
|
||||
; LD B,#FF
|
||||
;VERINIT INC B
|
||||
; PUSH BC
|
||||
; PUSH HL
|
||||
; LD A,C
|
||||
; LD C,#C4
|
||||
; RST ToBIOS
|
||||
; POP HL
|
||||
; POP BC
|
||||
; LD (HL),A
|
||||
; INC HL
|
||||
; JR NC,VERINIT
|
||||
;R07;R03
|
||||
;R07 JP INIT2 ;R03
|
||||
; DS $/256+1*256-$,0 c:\bin\menu
|
||||
|
||||
|
||||
MEMTAB BLOCK 256,0
|
||||
_mInfoALIGN 256,0
|
||||
;------------------------------------------------------------------------------------------------------------------------;
|
||||
GO_ZERO EQU #0000
|
||||
;FUNCTION ADDRESS ARRAY
|
||||
ADRST10: ;DS 512 ;,0
|
||||
;...............................................[LOW ADDRESS ]:
|
||||
; 0 1 2 3 4 5 6 7 8 9 DEC HEX
|
||||
DB low F_START, low CHNDISK, low CURRDSK, low DISKINF, low NOPS, low NOPS, low NOPS, low NOPS, low SCANDRV, low BOOTDSK ; 0 00..09
|
||||
DB low CREATE, low CREAT_N, low NOPS, low NOPS, low DELETE, low NOPS, low RENAME, low OPEN_FN, low CLOSE_FN, low READ ; 1 A0..13
|
||||
DB low WRITE, low MOVE_FP, low ATTRIB, low GET_D_T, low PUT_D_T, low F_FIRST, low F_NEXT, low MKDIR, low RMDIR, low CHDIR ; 2 14..1D
|
||||
DB low CURRDIR, low NOPS, low NOPS, low SYSTIME, low SETTIME, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS ; 3 1E..27
|
||||
DB low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low WAITKEY, low SCANKEY ; 4 28..31
|
||||
DB low ECHOKEY, low CTRLKEY, low NOPS, low K_CLEAR, low K_SETUP, low TESTKEY, low SETWIN, low SETWIN1, low SETWIN2, low SETWIN3 ; 5 32..3B
|
||||
DB low FREEMEM, low GETMEM, low RETMEM, low SETMEM, low EXEC, low LEAVE, low WAIT, low GSWITCH, low DOSNAME, low EX_PATH ; 6 3C..45
|
||||
DB low ENVIRON, low APPINFO, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS ; 7 46..4F
|
||||
DB low SETVMOD, low GETVMOD, low LOCATE, low CURSOR, low SELPAGE, low SCROLL, low CLEAR, low RDCHAR, low WRCHAR, low WINCOPY ; 8 50..59
|
||||
DB low WINREST, low PUTCHAR, low PCHARS, low NOPS, low NOPS, low PRINT ; 9 5A..5F
|
||||
|
||||
IFN SHORT_RSTx10_TABLE
|
||||
;[ ] R09
|
||||
DB low NOPS, low NOPS, low NOPS, low NOPS ; 9 60..63
|
||||
DB low NOPS, low NOPS, low NOPS, low NOPS, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO ; 10 64..6D
|
||||
DUP 13
|
||||
DB low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO, low GO_ZERO; 110-239 6E-EF
|
||||
EDUP
|
||||
DB low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS ; 24 F0..F9
|
||||
DB low NOPS, low NOPS, low NOPS, low NOPS, low NOPS, low NOPS ; END ; 25 FA..FF
|
||||
|
||||
ELSE ;!TODO free space
|
||||
|
||||
_mInfoBLOCK ADRST10+#100 - $,0
|
||||
;[ ] R09
|
||||
ENDIF
|
||||
;...............................................[HIGH ADDRESS]:
|
||||
DB high F_START,high CHNDISK,high CURRDSK,high DISKINF,high NOPS, high NOPS, high NOPS, high NOPS, high SCANDRV, high BOOTDSK
|
||||
DB high CREATE, high CREAT_N,high NOPS, high NOPS, high DELETE, high NOPS, high RENAME, high OPEN_FN,high CLOSE_FN,high READ
|
||||
DB high WRITE, high MOVE_FP,high ATTRIB, high GET_D_T,high PUT_D_T,high F_FIRST,high F_NEXT, high MKDIR, high RMDIR, high CHDIR
|
||||
DB high CURRDIR,high NOPS, high NOPS, high SYSTIME,high SETTIME,high NOPS, high NOPS, high NOPS, high NOPS, high NOPS
|
||||
DB high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high WAITKEY, high SCANKEY
|
||||
DB high ECHOKEY,high CTRLKEY,high NOPS, high K_CLEAR,high K_SETUP,high TESTKEY,high SETWIN, high SETWIN1,high SETWIN2, high SETWIN3
|
||||
DB high FREEMEM,high GETMEM, high RETMEM, high SETMEM, high EXEC, high LEAVE, high WAIT, high GSWITCH,high DOSNAME, high EX_PATH
|
||||
DB high ENVIRON,high APPINFO,high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS
|
||||
DB high SETVMOD,high GETVMOD,high LOCATE, high CURSOR, high SELPAGE,high SCROLL, high CLEAR, high RDCHAR, high WRCHAR, high WINCOPY
|
||||
DB high WINREST,high PUTCHAR,high PCHARS, high NOPS, high NOPS, high PRINT
|
||||
|
||||
IFN SHORT_RSTx10_TABLE
|
||||
;[ ] R09
|
||||
DB high NOPS, high NOPS, high NOPS, high NOPS
|
||||
DB high NOPS, high NOPS, high NOPS, high NOPS, high GO_ZERO,high GO_ZERO,high GO_ZERO,high GO_ZERO,high GO_ZERO, high GO_ZERO
|
||||
DUP 13
|
||||
DB high GO_ZERO,high GO_ZERO,high GO_ZERO,high GO_ZERO,high GO_ZERO,high GO_ZERO,high GO_ZERO,high GO_ZERO,high GO_ZERO, high GO_ZERO
|
||||
EDUP
|
||||
DB high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS
|
||||
DB high NOPS, high NOPS, high NOPS, high NOPS, high NOPS, high NOPS ; END
|
||||
|
||||
ELSE
|
||||
;!TODO free space
|
||||
;_mInfoBLOCK ADRST10+#200 - $,0
|
||||
;[ ] R09
|
||||
ENDIF
|
||||
; DB low WINREST, low PUTCHAR, low PCHARS, low NOPS, low NOPS, low PRINT, low NOPS, low NOPS, low NOPS, low NOPS ; 9 5A..63
|
||||
; DB high WINREST,high PUTCHAR,high PCHARS, high NOPS, high NOPS, high PRINT, high NOPS, high NOPS, high NOPS, high NOPS
|
||||
;---------------------------------------------------------------------------------------------------------------------------------------------------------------;
|
||||
;[INCLUDE]
|
||||
;!TODO § ¬¥¨âì ¯®-¬ ªá¨¬®¬ã ¢áñ ¢ KEYINTER.ASM ¢ë§®¢ë ¡¨®á
|
||||
INCLUDE "KEYINTER.ASM" ;!FIXIT ¨§-§ ¡ãä¥à á ¢ëà ¢¨¢ ¨¥¬ align 256 ¢ ç «¥ ¯à¨å®¤¨âáï ADRST10 ¤®¡¨¢ âì ã«ï¬¨ ¢ ª®æ¥
|
||||
INCLUDE "VIDEO.ASM"
|
||||
INCLUDE "FAT_X.ASM"
|
||||
INCLUDE "DOS_X.ASM"
|
||||
INCLUDE "DOS_FM.ASM"
|
||||
INCLUDE "DOS5.ASM"
|
||||
INCLUDE "EXECUTE.ASM"
|
||||
INCLUDE "ENVIRON.ASM"
|
||||
INCLUDE "INTMOUSE.ASM"
|
||||
;
|
||||
DISPLAY "DOS-MAIN end address: ",/H,$-1
|
||||
;
|
||||
|
||||
|
||||
|
||||
;
|
||||
;> > > > > > > > > > > > > > > > BUFFERS < < < < < < < < < < < < < < < <
|
||||
;
|
||||
;
|
||||
CLEAR_ZONE.start EQU $
|
||||
|
||||
BUFFERSplace _sBuffers=$
|
||||
FM_BUF _sFM = BUFFERSplace.FileManipulator
|
||||
.Size EQU _sFM
|
||||
.FullSize EQU FMCOUNT*FM_BUF.Size
|
||||
BootSector _sBOOT_SEC = BUFFERSplace.BootSector
|
||||
EXEBUFF _sEXE_HEADER = BUFFERSplace.EXE_Header
|
||||
XSTACK EQU BUFFERSplace.Stack.SPoint
|
||||
BUFFER EQU BUFFERSplace.Buffer
|
||||
SECBUF EQU BUFFER
|
||||
|
||||
CLEAR_ZONE.size EQU _sBuffers
|
||||
/*
|
||||
;R11 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
|
||||
;!TEST
|
||||
FM_BUF _sFM=$
|
||||
.Size EQU _sFM
|
||||
.FullSize EQU FMCOUNT*FM_BUF.Size
|
||||
|
||||
;????? ¥ £à㧨âáï «¨ ¯®«®áâìî ᥪâ®à ¢ 512 ¡ ©â®¢ ¯à¨ § £à㧪¥ åí¤¥à ?
|
||||
EXEBUFF _sEXE_HEADER=$+FM_BUF.FullSize
|
||||
; EXEBUFF:
|
||||
; DB "EXE"
|
||||
; DB #00
|
||||
; OFFCOD1 DW #0000
|
||||
; OFFCOD2 DW #0000
|
||||
; LOADER DW #0000
|
||||
; DW #0000
|
||||
; DW #0000
|
||||
; DW #0000
|
||||
; LD_ADDR DW #0000
|
||||
; PC_REG DW #0000
|
||||
; SP_REG DW #0000
|
||||
; BLOCK 512-($-EXEBUFF),0
|
||||
|
||||
;(!!!HERE STACK FOR EXEC!!!)
|
||||
; BLOCK 255,0
|
||||
;XSTACK DB #00
|
||||
XSTACK EQU EXEBUFF+_sEXE_HEADER+255
|
||||
|
||||
BUFFER EQU XSTACK+1
|
||||
SECBUF EQU BUFFER
|
||||
;R11 ////////////////////////////////
|
||||
*/
|
||||
DISPLAY "FM_BUF addr: ",/H,FM_BUF
|
||||
DISPLAY "FM_BUF.Size: ",/H,FM_BUF.Size
|
||||
DISPLAY "FM_BUF.FullSize: ",/H,FM_BUF.FullSize
|
||||
DISPLAY "EXEBUFF: ",/H,EXEBUFF
|
||||
DISPLAY "XSTACK: ",/H,XSTACK
|
||||
DISPLAY "BUFFER: ",/H,BUFFER
|
||||
;
|
||||
;
|
||||
;> > > > > > > > > > > > > > > > BUFFERS < < < < < < < < < < < < < < < <
|
||||
;
|
||||
|
||||
|
||||
|
||||
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||;
|
||||
; !!!!! íâ ¯à®æ¥¤ãà § âàñâáï ¯®á«¥ ¨á¯®«¥¨ï
|
||||
DEPLOY:
|
||||
;Allocate memory
|
||||
LD BC,USING_MEMPAGES*256+#C2
|
||||
RST ToBIOS ;GET DSS PAGES HANDLE
|
||||
RET C ;R10
|
||||
LD HL,BANKTBL
|
||||
LD C,A
|
||||
LD B,#FF
|
||||
.loop: INC B
|
||||
PUSH BC
|
||||
PUSH HL
|
||||
LD A,C
|
||||
LD C,#C4 ; !FIXIT .GetMemBlkPages - ¯¨å âì íâã áâà ¨æã ¢ á«®â 1 (® ¡ã¤¥â ¨ ¢ 0 ᫮⥠¨ ¢ 1) ¨ ¢ë§ë¢ âì ¡¨®á
|
||||
RST ToBIOS
|
||||
|
||||
POP HL
|
||||
POP BC
|
||||
LD (HL),A
|
||||
INC HL
|
||||
JR NC,.loop
|
||||
;
|
||||
IN A,(SLOT0)
|
||||
LD (DRV.MAIN_PG_NUMBER),A
|
||||
LD A,DRVPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
LD HL,DRV_CONTENT
|
||||
LD DE,#C000
|
||||
LD BC,DRV_CONTENT.SIZE
|
||||
LDIR
|
||||
IN A,(SLOT3)
|
||||
LD (DRV_PG_NUMBER),A
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
AND A ;R10
|
||||
RET
|
||||
; .halt: POP HL ;ᨬ ¥¬ «¨è¥¥ á® á⥪
|
||||
; ; LD A,DSS_Error.sys.NOT_ENOUGH_MEMORY
|
||||
; ; SCF
|
||||
; RET
|
||||
|
||||
; defb 0
|
||||
|
||||
IF ENVVALUE != BUFFER
|
||||
ASSERT "Warning! ENVVALUE != BUFFER"
|
||||
//BLOCK 1000,0
|
||||
ENDIF
|
||||
|
||||
;--- --- --- --- [Build version] --- --- --- ---;
|
||||
; C_OSTYPE
|
||||
;--- --- --- --- --- --- --- --- --- --- --- ---;
|
||||
|
||||
DISPLAY "DEPLOY end address: ",/H,$
|
||||
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||;
|
||||
DISPLAY "Space for DRV-MAIN: ",/A,#4000-$," bytes."
|
||||
DRV_CONTENT:
|
||||
; ENDMODULE
|
||||
DISP 0
|
||||
INCLUDE 'DRV-MAIN.ASM'
|
||||
ENT
|
||||
DRV_CONTENT.SIZE EQU $-DRV_CONTENT
|
||||
|
||||
DISPLAY " END ADDRESS: ",/H,$
|
||||
// ASSERT $<#4001,'-> Memory leack!!!';
|
||||
;[END]
|
||||
|
||||
;
|
||||
|
||||
|
||||
; DTA DB " "
|
||||
; DB " "
|
||||
; DB #20
|
||||
; DW 0,0,0,0,0
|
||||
; DW 0
|
||||
; DW 0
|
||||
; CLUSTER DW 0
|
||||
; SIZE DW 0,0
|
||||
; ASCIIZ DB "FILENAME.EXT",#00
|
||||
|
||||
|
||||
;R06
|
||||
;R06 BUFFER
|
||||
;R06 SECBUF DB ". ",#10
|
||||
;R06 DW 0,0,0,0,0
|
||||
;R06 DW #0000
|
||||
;R06 DW #0000
|
||||
;R06 DW #0000
|
||||
;R06 DW #0000,0000
|
||||
;R06 DB ".. ",#10
|
||||
;R06 DW 0,0,0,0,0
|
||||
;R06 DW #0000
|
||||
;R06 DW #0000
|
||||
;R06 DW #0000
|
||||
;R06 DW #0000,0000
|
||||
;R06 DS 512-64 ;,0
|
||||
1748
DSS/DOS5.ASM
Normal file
1748
DSS/DOS5.ASM
Normal file
File diff suppressed because it is too large
Load Diff
831
DSS/DOS_FM.ASM
Normal file
831
DSS/DOS_FM.ASM
Normal file
@ -0,0 +1,831 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: DOS_FM
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R01 16-11-1999 DNS ERROR READING FAT CHAIN
|
||||
;---------------------------------------------------------------
|
||||
|
||||
;FMS DB FMCOUNT
|
||||
|
||||
;ACCESS MODE:
|
||||
; 00 - READ/WRITE
|
||||
; 01 - READ
|
||||
; 02 - WRITE
|
||||
;FM_BUF:
|
||||
;File Manipulator (FM)
|
||||
; BYTE '. ' ;+00 NAME
|
||||
; BYTE ' ' ;+08 EXT
|
||||
; BYTE #10 ;+11 ATTRIBUT
|
||||
; BYTE 0 ;+12 RESERVED; !TODO á«¥¤ãî騩 ª« áâ¥à ¤«ï ç⥨ï
|
||||
; BYTE 0 ;+13 RESERVED; !TODO á«¥¤ãî騩 ª« áâ¥à ¤«ï § ¯¨á¨
|
||||
; BLOCK 8,0 ;+14 RESERVED
|
||||
; WORD #0000 ;+22 TIME
|
||||
; WORD #0000 ;+24 DATE
|
||||
; WORD #0000 ;+26 START CLUSTER
|
||||
; DWORD #0000 ;+28 SIZE FILE
|
||||
; DWORD #0000 ;+32 FILE POSITION (FP)
|
||||
; WORD #0000 ;+36 DIRECTORY CLUSTER
|
||||
; WORD #0000 ;+38 HANDLE NUMBER
|
||||
; BYTE #00 ;+40 DRIVE OR CURRENT
|
||||
; BYTE #00 ;+41 ACCESS MODE
|
||||
; BYTE #00 ;+42 TASK
|
||||
; BYTE #00 ;+43 EMPTY
|
||||
/*
|
||||
;!TEST
|
||||
FM_BUF: _sFM
|
||||
.Size EQU _sFM
|
||||
BLOCK (FMCOUNT-1)*FM_BUF.Size, 0
|
||||
*/
|
||||
|
||||
MACRO _mFM_FIND
|
||||
CP FMCOUNT+1
|
||||
JR NC,ABS_FM
|
||||
PUSH DE
|
||||
|
||||
LD IY,FM_BUF
|
||||
LD DE,FM_BUF.Size
|
||||
AND A
|
||||
JR Z,.endLoop
|
||||
.loop: ADD IY,DE
|
||||
DEC A
|
||||
JR NZ,.loop
|
||||
.endLoop:
|
||||
POP DE
|
||||
; A=0
|
||||
OR (IY) ;+00 NAME
|
||||
ENDM
|
||||
|
||||
SET_FM:
|
||||
_mFM_FIND
|
||||
|
||||
LD A,0 ;!FIXIT ®¬¥à ®è¨¡ª¨
|
||||
RET NZ
|
||||
ABS_FM LD A,DSS_Error.sys.INVALID_HANDLE
|
||||
SCF
|
||||
RET
|
||||
|
||||
RES_FM:
|
||||
_mFM_FIND
|
||||
|
||||
LD A,5
|
||||
EXX
|
||||
SCF
|
||||
RET Z
|
||||
XOR A
|
||||
LD (IY+0),A
|
||||
RET
|
||||
|
||||
GET_FM: LD B,FMCOUNT
|
||||
LD C,#FF
|
||||
LD IY,FM_BUF-FM_BUF.Size
|
||||
LD DE,FM_BUF.Size
|
||||
.loop: ADD IY,DE
|
||||
INC C
|
||||
LD A,(IY+0)
|
||||
OR A
|
||||
RET Z
|
||||
DJNZ .loop
|
||||
LD A,DSS_Error.sys.NO_HANDLES
|
||||
SCF
|
||||
RET
|
||||
|
||||
; HL:IX - OFFSET POINTER
|
||||
; A - FILE MANIPULATOR
|
||||
MOVE_FP CALL SET_FM
|
||||
RET C
|
||||
INC B
|
||||
DEC B
|
||||
JR Z,.F_start
|
||||
DEC B
|
||||
JR Z,.F_current
|
||||
DEC B
|
||||
JR Z,.B_end
|
||||
LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
SCF
|
||||
RET
|
||||
|
||||
;from Start File
|
||||
.F_start:
|
||||
; B=0
|
||||
LD C,B
|
||||
LD D,B
|
||||
LD E,B
|
||||
JR MOVE_F1
|
||||
|
||||
;from End File
|
||||
.B_end: LD C,(IY+28)
|
||||
LD B,(IY+29)
|
||||
LD E,(IY+30)
|
||||
LD D,(IY+31)
|
||||
JR MOVE_F1
|
||||
|
||||
;from Current Position
|
||||
.F_current:
|
||||
LD C,(IY+32)
|
||||
LD B,(IY+33)
|
||||
LD E,(IY+34)
|
||||
LD D,(IY+35)
|
||||
MOVE_F1 ADD IX,BC
|
||||
ADC HL,DE
|
||||
LD D,XH
|
||||
LD E,XL
|
||||
LD (IY+32),E
|
||||
LD (IY+33),D
|
||||
LD (IY+34),L
|
||||
LD (IY+35),H
|
||||
XOR A
|
||||
RET
|
||||
|
||||
;FP COMPARE
|
||||
; CY - FILE POINTER > SIZE
|
||||
; NC - FILE POINTER < SIZE
|
||||
|
||||
MOVE_CP LD L,(IY+28)
|
||||
LD H,(IY+29)
|
||||
LD E,(IY+32)
|
||||
LD D,(IY+33)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
LD L,(IY+30)
|
||||
LD H,(IY+31)
|
||||
LD E,(IY+34)
|
||||
LD D,(IY+35)
|
||||
SBC HL,DE
|
||||
RET
|
||||
|
||||
;--------------------
|
||||
|
||||
ECL2 POP BC
|
||||
POP DE
|
||||
AND A
|
||||
RET
|
||||
|
||||
BLOKRD0 POP BC
|
||||
POP DE
|
||||
SCF
|
||||
RET
|
||||
|
||||
;READ SECTORS OF FILE
|
||||
;HL:DE - FP (in sectors)
|
||||
; B - Amount sectors
|
||||
BLOK_RD PUSH BC
|
||||
LD (READMEM),IX
|
||||
LD A,(BootSector.S_P_C) ;SECTORS PER CLUSTER
|
||||
LD C,A
|
||||
LD B,0
|
||||
CALL DIV32
|
||||
LD B,XH
|
||||
LD C,XL
|
||||
PUSH HL ;RESIDUE
|
||||
LD L,(IY+26) ;START CLUSTER
|
||||
LD H,(IY+27)
|
||||
LD A,H
|
||||
OR L
|
||||
JR NZ,BLOKRD2
|
||||
JR ECL2 ;R01 JR BLOKRD0
|
||||
BLOKRD1 PUSH BC
|
||||
CALL R_F_FAT
|
||||
POP BC
|
||||
JR C,ECL2 ;R01
|
||||
EX DE,HL
|
||||
DEC BC
|
||||
BLOKRD2 LD A,B
|
||||
OR C
|
||||
JR NZ,BLOKRD1
|
||||
POP DE
|
||||
POP BC
|
||||
LD A,(BootSector.S_P_C)
|
||||
SUB E
|
||||
LD C,A ;\
|
||||
CP B ; \
|
||||
JR C,BLOKRD3 ;SIZE > RESIDUE CLUSTER ; \
|
||||
LD C,B ;SIZE < CLUSTER ;->-|--> ; !TODO à §®¡à âìáï
|
||||
BLOKRD3 LD A,B ; /
|
||||
SUB C ; /
|
||||
LD B,A ;/
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
CALL NSECTOR
|
||||
POP DE
|
||||
ADD IX,DE
|
||||
JR NC,BLOKRD4
|
||||
INC HL
|
||||
BLOKRD4 LD DE,(READMEM)
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
LD B,C
|
||||
LD C,5
|
||||
RST #18
|
||||
JP C,BLOKRD0
|
||||
POP BC
|
||||
LD HL,(READMEM)
|
||||
LD DE,(BootSector.B_P_S)
|
||||
BLOKRD5 ADD HL,DE
|
||||
DEC C
|
||||
JR NZ,BLOKRD5
|
||||
LD (READMEM),HL
|
||||
POP DE
|
||||
LD A,B
|
||||
OR A
|
||||
RET Z
|
||||
BLOKRD6 LD HL,BootSector.S_P_C
|
||||
LD A,B
|
||||
SUB (HL)
|
||||
LD B,A
|
||||
LD C,(HL)
|
||||
JR NC,BLOKRD7
|
||||
LD B,0
|
||||
ADD A,(HL) ;0 AND CF
|
||||
LD C,A
|
||||
OR A ;CLEAR CF
|
||||
RET Z
|
||||
BLOKRD7 EX DE,HL
|
||||
PUSH BC
|
||||
CALL R_F_FAT
|
||||
POP BC
|
||||
JP C,ECL1 ;R01?
|
||||
EX DE,HL
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
CALL NSECTOR
|
||||
LD DE,(READMEM)
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
LD B,C
|
||||
LD C,5
|
||||
RST #18
|
||||
JP C,BLOKRD0
|
||||
POP BC
|
||||
LD HL,(READMEM)
|
||||
LD DE,(BootSector.B_P_S)
|
||||
BLOKRD8 ADD HL,DE
|
||||
DEC C
|
||||
JR NZ,BLOKRD8
|
||||
LD (READMEM),HL
|
||||
POP DE
|
||||
JR BLOKRD6
|
||||
|
||||
ECL1 AND A
|
||||
RET
|
||||
|
||||
;--------------------
|
||||
|
||||
BLOKWRC POP BC
|
||||
BLOKWR0 POP BC
|
||||
POP DE
|
||||
SCF
|
||||
RET
|
||||
|
||||
;WRITE SECTORS OF FILE
|
||||
;HL:DE - FP (in sectors)
|
||||
; B - Amount sectors
|
||||
|
||||
BLOK_WR PUSH BC
|
||||
LD (READMEM),IX
|
||||
LD A,(BootSector.S_P_C) ;SECTORS PER CLUSTER
|
||||
LD C,A
|
||||
LD B,0
|
||||
CALL DIV32
|
||||
LD B,XH
|
||||
LD C,XL
|
||||
PUSH HL ;RESIDUE
|
||||
LD L,(IY+26) ;START CLUSTER
|
||||
LD H,(IY+27)
|
||||
LD A,H
|
||||
OR L
|
||||
JR NZ,BLOKWR2
|
||||
PUSH BC
|
||||
CALL G_CLUST
|
||||
JR C,BLOKWRC
|
||||
LD (IY+26),L
|
||||
LD (IY+27),H
|
||||
LD DE,(FatBuffer.ENDCLUS)
|
||||
CALL W_T_FAT
|
||||
PUSH HL
|
||||
CALL WR_FAT
|
||||
POP HL
|
||||
POP BC
|
||||
JR BLOKWR2
|
||||
BLOKWR1 PUSH BC
|
||||
CALL R_F_FAT
|
||||
JR NC,BLOKWRB
|
||||
PUSH HL
|
||||
CALL INC_FAT
|
||||
POP HL
|
||||
JR C,BLOKWRC
|
||||
CALL R_F_FAT
|
||||
BLOKWRB POP BC
|
||||
EX DE,HL
|
||||
DEC BC
|
||||
BLOKWR2 LD A,B
|
||||
OR C
|
||||
JR NZ,BLOKWR1
|
||||
POP DE
|
||||
POP BC
|
||||
LD A,(BootSector.S_P_C)
|
||||
SUB E
|
||||
LD C,A
|
||||
CP B
|
||||
JR C,BLOKWR3 ;SIZE > RESIDUE CLUSTER
|
||||
LD C,B ;SIZE < CLUSTER
|
||||
BLOKWR3 LD A,B
|
||||
SUB C
|
||||
LD B,A
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
CALL NSECTOR
|
||||
POP DE
|
||||
ADD IX,DE
|
||||
JR NC,BLOKWR4
|
||||
INC HL
|
||||
BLOKWR4 LD DE,(READMEM)
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
LD B,C
|
||||
LD C,6
|
||||
RST #18
|
||||
JP C,BLOKWR0
|
||||
POP BC
|
||||
LD HL,(READMEM)
|
||||
LD DE,(BootSector.B_P_S)
|
||||
BLOKWR5 ADD HL,DE
|
||||
DEC C
|
||||
JR NZ,BLOKWR5
|
||||
LD (READMEM),HL
|
||||
POP DE
|
||||
LD A,B
|
||||
OR A
|
||||
RET Z
|
||||
BLOKWR6 LD HL,BootSector.S_P_C
|
||||
LD A,B
|
||||
SUB (HL)
|
||||
LD B,A
|
||||
LD C,(HL)
|
||||
JR NC,BLOKWR7
|
||||
LD B,0
|
||||
ADD A,(HL) ;0 AND CF
|
||||
LD C,A
|
||||
OR A ;CLEAR CF
|
||||
RET Z
|
||||
BLOKWR7 EX DE,HL
|
||||
PUSH BC
|
||||
CALL R_F_FAT
|
||||
JR NC,BLOKWR9
|
||||
PUSH HL
|
||||
CALL INC_FAT
|
||||
POP HL
|
||||
JR C,BLOKWRA
|
||||
CALL R_F_FAT
|
||||
BLOKWR9 POP BC
|
||||
EX DE,HL
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
CALL NSECTOR
|
||||
LD DE,(READMEM)
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
LD B,C
|
||||
LD C,6
|
||||
RST #18
|
||||
JP C,BLOKWR0
|
||||
POP BC
|
||||
LD HL,(READMEM)
|
||||
LD DE,(BootSector.B_P_S)
|
||||
BLOKWR8 ADD HL,DE
|
||||
DEC C
|
||||
JR NZ,BLOKWR8
|
||||
LD (READMEM),HL
|
||||
POP DE
|
||||
JR BLOKWR6
|
||||
|
||||
BLOKWRA POP BC
|
||||
LD A,DSS_Error.sys.DISK_FULL
|
||||
SCF
|
||||
RET
|
||||
|
||||
TSTSIZE XOR A
|
||||
LD (READCOD),A
|
||||
LD L,(IY+32) ;FP LOW
|
||||
LD H,(IY+33)
|
||||
ADD HL,DE
|
||||
EXX
|
||||
LD DE,0
|
||||
LD L,(IY+34) ;FP HIGH
|
||||
LD H,(IY+35)
|
||||
ADC HL,DE
|
||||
EXX ;HL':HL - NEW FP
|
||||
LD C,(IY+28)
|
||||
LD B,(IY+29) ;SIZE LOW
|
||||
AND A
|
||||
SBC HL,BC
|
||||
EXX
|
||||
LD C,(IY+30) ;SIZE HIGH
|
||||
LD B,(IY+31)
|
||||
SBC HL,BC
|
||||
EXX
|
||||
RET C ;OK READ ALL
|
||||
EX DE,HL
|
||||
SBC HL,DE ;VERY BIG
|
||||
EX DE,HL
|
||||
LD A,#FF
|
||||
LD (READCOD),A
|
||||
RET
|
||||
|
||||
; HL - ADDRESS
|
||||
; DE - SIZE
|
||||
; A - FM
|
||||
|
||||
READ LD (R_POINT),HL
|
||||
LD (S_POINT),HL
|
||||
CALL SET_FM
|
||||
RET C
|
||||
CALL TSTSIZE
|
||||
LD A,D
|
||||
OR E
|
||||
JP Z,NOREAD
|
||||
PUSH DE
|
||||
LD A,(IY+_sFM.DRIVE)
|
||||
CALL OPENDSK
|
||||
JP C,RPERR1
|
||||
LD C,(IY+_sFM.F_POSITION)
|
||||
LD E,(IY+_sFM.F_POSITION+1)
|
||||
LD A,E
|
||||
AND #01
|
||||
LD B,A
|
||||
LD D,(IY+_sFM.F_POSITION+2)
|
||||
LD L,(IY+_sFM.F_POSITION+3)
|
||||
LD H,0
|
||||
OR A
|
||||
RR L
|
||||
RR D
|
||||
RR E ;HL:DE FP (in sectors)
|
||||
; BC FP residue (in bytes)
|
||||
LD A,B
|
||||
OR C
|
||||
JP NZ,ROV1
|
||||
ROV4 POP BC
|
||||
PUSH BC
|
||||
SRL B
|
||||
JR Z,ROV2
|
||||
LD (SECTORH),HL
|
||||
LD (SECTORL),DE
|
||||
LD IX,(R_POINT)
|
||||
CALL BLOK_RD
|
||||
JP C,RPERR1
|
||||
LD DE,(R_POINT)
|
||||
READMEM+1: LD HL,0 // LD HL,(READMEM)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
LD C,H
|
||||
LD B,0
|
||||
ADD HL,DE
|
||||
LD (R_POINT),HL
|
||||
SRL C
|
||||
SECTORL+1: LD HL,0 // LD HL,(SECTORL)
|
||||
ADD HL,BC
|
||||
EX DE,HL
|
||||
SECTORH+1: LD HL,0 // LD HL,(SECTORH)
|
||||
LD C,B
|
||||
ADC HL,BC
|
||||
ROV2 POP BC
|
||||
LD A,B
|
||||
AND #01
|
||||
LD B,A
|
||||
OR C
|
||||
JP Z,ROV6
|
||||
PUSH BC
|
||||
LD IX,BUFFER+#C000
|
||||
LD B,1
|
||||
IN A,(SLOT3)
|
||||
PUSH AF
|
||||
IN A,(SLOT0)
|
||||
OUT (SLOT3),A
|
||||
CALL BLOK_RD
|
||||
POP BC
|
||||
LD C,SLOT3
|
||||
OUT (C),B
|
||||
JP C,RPERR1
|
||||
LD HL,BUFFER
|
||||
LD DE,(R_POINT)
|
||||
POP BC
|
||||
LDIR
|
||||
LD (R_POINT),DE
|
||||
|
||||
ROV6:
|
||||
S_POINT+1: LD HL,0 // LD HL,(S_POINT)
|
||||
LD DE,(R_POINT)
|
||||
EX DE,HL
|
||||
AND A
|
||||
SBC HL,DE
|
||||
PUSH HL
|
||||
EX DE,HL
|
||||
LD XH,D
|
||||
LD XL,E
|
||||
LD HL,0
|
||||
CALL MOVE_FP.F_current
|
||||
POP DE
|
||||
NOREAD:
|
||||
READCOD+1: LD A,0 // LD A,(READCOD)
|
||||
OR A
|
||||
RET
|
||||
|
||||
ROV1 PUSH BC
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
LD IX,BUFFER+#C000
|
||||
LD B,1
|
||||
IN A,(SLOT3)
|
||||
PUSH AF
|
||||
IN A,(SLOT0)
|
||||
OUT (SLOT3),A
|
||||
CALL BLOK_RD
|
||||
POP BC
|
||||
LD C,SLOT3
|
||||
OUT (C),B
|
||||
POP HL
|
||||
JP C,RPERR3
|
||||
LD BC,1
|
||||
ADD HL,BC
|
||||
EX DE,HL
|
||||
POP HL
|
||||
LD C,B
|
||||
ADC HL,BC
|
||||
EXX
|
||||
POP DE
|
||||
LD HL,512
|
||||
AND A
|
||||
SBC HL,DE
|
||||
LD B,H
|
||||
LD C,L
|
||||
POP HL
|
||||
AND A
|
||||
SBC HL,BC
|
||||
JR NC,ROV3
|
||||
ADD HL,BC
|
||||
LD B,H
|
||||
LD C,L
|
||||
LD HL,0
|
||||
ROV3 PUSH HL
|
||||
LD HL,BUFFER
|
||||
ADD HL,DE
|
||||
LD DE,(R_POINT)
|
||||
LDIR
|
||||
LD (R_POINT),DE
|
||||
EXX
|
||||
JP ROV4
|
||||
|
||||
RPERR3 POP HL
|
||||
RPERR2 POP HL
|
||||
RPERR1 POP BC
|
||||
SCF
|
||||
RET
|
||||
|
||||
PWERR3 POP HL
|
||||
PWERR2 POP HL
|
||||
PWERR1 POP BC
|
||||
SCF
|
||||
RET
|
||||
|
||||
RD_ONLY POP DE
|
||||
LD A,DSS_Error.sys.READONLY
|
||||
SCF
|
||||
RET
|
||||
|
||||
; HL - ADDRESS
|
||||
; DE - SIZE
|
||||
; A - FM
|
||||
|
||||
WRITE LD (R_POINT),HL
|
||||
LD (S_POINT),HL
|
||||
PUSH DE
|
||||
CALL SET_FM
|
||||
JP C,PWERR1
|
||||
LD A,(IY+_sFM.ACCESS_MODE)
|
||||
AND #01
|
||||
JR NZ,RD_ONLY
|
||||
SET 7,(IY+_sFM.ACCESS_MODE)
|
||||
SET 5,(IY+_sFM.ATTRIBUT)
|
||||
LD A,(IY+_sFM.DRIVE)
|
||||
CALL OPENDSK
|
||||
JP C,PWERR1
|
||||
LD C,(IY+32)
|
||||
LD A,(IY+33)
|
||||
LD E,A
|
||||
AND #01
|
||||
LD B,A
|
||||
LD D,(IY+34)
|
||||
LD L,(IY+35)
|
||||
LD H,0
|
||||
OR A
|
||||
RR L
|
||||
RR D
|
||||
RR E ;HL:DE FP (in sectors)
|
||||
; BC FP residue (in bytes)
|
||||
LD A,B
|
||||
OR C
|
||||
JP NZ,WOV1
|
||||
WOV4 POP BC
|
||||
PUSH BC
|
||||
SRL B
|
||||
JR Z,WOV2
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
R_POINT+2: LD IX,0 // LD IX,(R_POINT)
|
||||
|
||||
CALL BLOK_WR
|
||||
POP BC
|
||||
JP C,PWERR3
|
||||
LD C,B
|
||||
LD HL,(R_POINT)
|
||||
LD DE,#0200
|
||||
WOV5 ADD HL,DE
|
||||
DJNZ WOV5
|
||||
LD (R_POINT),HL
|
||||
LD B,0
|
||||
POP HL
|
||||
ADD HL,BC
|
||||
EX DE,HL
|
||||
POP HL
|
||||
LD C,B
|
||||
ADC HL,BC
|
||||
WOV2 POP BC
|
||||
LD A,B
|
||||
AND #01
|
||||
LD B,A
|
||||
OR C
|
||||
JP Z,WOV6
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
LD IX,BUFFER+#C000
|
||||
LD B,1
|
||||
IN A,(SLOT3)
|
||||
PUSH AF
|
||||
IN A,(SLOT0)
|
||||
OUT (SLOT3),A
|
||||
CALL BLOK_RD
|
||||
POP BC
|
||||
LD C,SLOT3
|
||||
OUT (C),B
|
||||
LD DE,BUFFER
|
||||
LD HL,(R_POINT)
|
||||
POP BC
|
||||
JP C,PWERR2
|
||||
LDIR
|
||||
LD (R_POINT),HL
|
||||
POP DE
|
||||
POP HL
|
||||
LD IX,BUFFER+#C000
|
||||
LD B,1
|
||||
IN A,(SLOT3)
|
||||
PUSH AF
|
||||
IN A,(SLOT0)
|
||||
OUT (SLOT3),A
|
||||
CALL BLOK_WR
|
||||
POP BC
|
||||
LD C,SLOT3
|
||||
OUT (C),B
|
||||
RET C
|
||||
WOV6 LD DE,(S_POINT)
|
||||
LD HL,(R_POINT)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
PUSH HL
|
||||
EX DE,HL
|
||||
LD XH,D
|
||||
LD XL,E
|
||||
LD HL,0
|
||||
CALL MOVE_FP.F_current
|
||||
CALL MOVE_CP
|
||||
POP DE
|
||||
RET NC
|
||||
LD L,(IY+32)
|
||||
LD H,(IY+33)
|
||||
LD C,(IY+34)
|
||||
LD B,(IY+35)
|
||||
LD (IY+28),L
|
||||
LD (IY+29),H
|
||||
LD (IY+30),C
|
||||
LD (IY+31),B
|
||||
AND A
|
||||
RET
|
||||
|
||||
WOV1 PUSH BC
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
LD IX,BUFFER+#C000
|
||||
LD B,1
|
||||
IN A,(SLOT3)
|
||||
PUSH AF
|
||||
IN A,(SLOT0)
|
||||
OUT (SLOT3),A
|
||||
CALL BLOK_RD
|
||||
POP BC
|
||||
LD C,SLOT3
|
||||
OUT (C),B
|
||||
POP DE
|
||||
POP HL
|
||||
EXX
|
||||
POP DE
|
||||
JP C,PWERR1
|
||||
LD HL,512
|
||||
AND A
|
||||
SBC HL,DE
|
||||
LD B,H
|
||||
LD C,L
|
||||
POP HL
|
||||
AND A
|
||||
SBC HL,BC
|
||||
JR NC,WOV3
|
||||
ADD HL,BC
|
||||
LD B,H
|
||||
LD C,L
|
||||
LD HL,0
|
||||
WOV3 PUSH HL
|
||||
LD HL,BUFFER
|
||||
ADD HL,DE
|
||||
LD DE,(R_POINT)
|
||||
EX DE,HL
|
||||
LDIR
|
||||
LD (R_POINT),HL
|
||||
EXX
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
LD IX,BUFFER+#C000
|
||||
LD B,1
|
||||
IN A,(SLOT3)
|
||||
PUSH AF
|
||||
IN A,(SLOT0)
|
||||
OUT (SLOT3),A
|
||||
CALL BLOK_WR
|
||||
POP BC
|
||||
LD C,SLOT3
|
||||
OUT (C),B
|
||||
POP HL
|
||||
JP C,PWERR2
|
||||
LD BC,1
|
||||
ADD HL,BC
|
||||
EX DE,HL
|
||||
POP HL
|
||||
LD C,B
|
||||
ADC HL,BC
|
||||
JP WOV4
|
||||
|
||||
|
||||
; HL - CLUSTER
|
||||
; HL:IX - SECTOR
|
||||
NSECTOR DEC HL
|
||||
DEC HL
|
||||
EX DE,HL
|
||||
LD A,(BootSector.S_P_C)
|
||||
LD B,A
|
||||
LD HL,0
|
||||
LD IX,0
|
||||
ADD_DE1 ADD IX,DE
|
||||
JR NC,ADD_DE2
|
||||
INC HL
|
||||
ADD_DE2 DJNZ ADD_DE1
|
||||
LD DE,(FatBuffer.DAT_FRM)
|
||||
ADD IX,DE
|
||||
LD DE,#0000
|
||||
ADC HL,DE
|
||||
RET
|
||||
|
||||
; HL:DE / BC => DE:IX HL-OSTATOK
|
||||
DIV32 LD XH,D
|
||||
LD XL,E
|
||||
EX DE,HL
|
||||
LD HL,0
|
||||
LD A,#20
|
||||
DIV001 ADD IX,IX
|
||||
EX DE,HL
|
||||
ADC HL,HL
|
||||
EX DE,HL
|
||||
ADC HL,HL
|
||||
SBC HL,BC
|
||||
JR NC,DIV002
|
||||
ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,DIV001
|
||||
RET
|
||||
DIV002 INC IX
|
||||
DEC A
|
||||
JR NZ,DIV001
|
||||
RET
|
||||
|
||||
//READCOD DB #00
|
||||
|
||||
//READMEM DW #0000
|
||||
|
||||
//SECTORH DW 0
|
||||
//SECTORL DW 0
|
||||
|
||||
//R_POINT DW 0
|
||||
//S_POINT DW 0
|
||||
|
||||
;//MODULE: DOS_FM
|
||||
;[END]
|
||||
|
||||
547
DSS/DOS_X.ASM
Normal file
547
DSS/DOS_X.ASM
Normal file
@ -0,0 +1,547 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: DOS_X
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R13 06-04-2023 BAO ”ãªæ¨î SETBOOT ¬®¦® ¢ë§¢ âì ⮫쪮 à § (¥á«¨ § ¢¥àè¨âáï ª®à४â®)
|
||||
;R12 03-04-2023 BAO „®¡ ¢«¥ äãªæ¨ï à¥áª ¤à ©¢®¢ LD C,8 : RST #10
|
||||
;R11 15-04-2003 DNS ROUTINE FOR STORE CURDISK AND CURDIR ;!FIXIT à ¡®â ¥â ªà¨¢®
|
||||
;R10 03-04-2003 DNS IMPROVED FN. VERSION
|
||||
;R09 27-03-2003 DNS PASTED SET/GET BOOT FN.
|
||||
;R08 14-11-2002 DNS IMPROVE BPB-FUNCTION
|
||||
;R07 17-12-1999 DNS BUG FIX SIGNATURE #55AA AT 510 OFFSET
|
||||
;R06 21-11-1999 DNS FN. DISKINF SUPPORT ALL DISKS
|
||||
;R05 21-11-1999 DNS BUG FIX SIGNATURE #55AA IN BOOT SECTOR
|
||||
;R04 08-11-1999 DNS KILL OLD FUNCTIONS
|
||||
;R03 23-11-1998 DNS BUG FIX (IX+28) -> (IY+28)
|
||||
;R02 21-11-1998 DNS CHANGE FUNCTION "MAKE FAT"
|
||||
;R01 20-11-1998 DNS REPAIR FUNCTION "SAVE"
|
||||
;---------------------------------------------------------------
|
||||
|
||||
; RGADR EQU #89 ;VIDEO CONTROL REGISTER
|
||||
; SLOT0 EQU #82 ;WIN #0000-#3FFF
|
||||
; SLOT1 EQU #A2 ;WIN #4000-#7FFF
|
||||
; SLOT2 EQU #C2 ;WIN #8000-#BFFF
|
||||
; SLOT3 EQU #E2 ;WIN #C000-#FFFF
|
||||
|
||||
; SYSPAGE EQU #FE
|
||||
|
||||
;Commands for restart #10
|
||||
//NOPS: LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
// SCF
|
||||
// RET
|
||||
|
||||
VERSION:
|
||||
LD DE,VERS*256+MODF
|
||||
XOR A
|
||||
LD H,A ;!TODO ¯¨å âì áî¤ OSINFO
|
||||
LD L,A
|
||||
LD BC,BUILD
|
||||
RET
|
||||
|
||||
//;R10
|
||||
//OSINFO:
|
||||
//OSINFO_SIG: DB "OSINFOSTRUCTURE",0
|
||||
|
||||
|
||||
;R09
|
||||
BOOTDRV: DB #FF
|
||||
|
||||
BOOTDSK:
|
||||
INC B
|
||||
DEC B
|
||||
JR Z,GETBOOT
|
||||
DEC B
|
||||
.chg: JR Z,SETBOOT ;R13 ¬¥ï¥âáï JR ‘,SETBOOT ¯®á«¥ ¯¥à¢®£® 㤠箣® ¨á¯®«¥¨ï SETBOOT
|
||||
LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
SCF
|
||||
RET
|
||||
|
||||
;GET BOOT DISK
|
||||
|
||||
GETBOOT LD A,(BOOTDRV)
|
||||
AND A
|
||||
RET
|
||||
|
||||
;SET BOOT DISK
|
||||
SETBOOT:
|
||||
LD B,A
|
||||
LD C,0
|
||||
.loop: PUSH BC
|
||||
LD A,C
|
||||
LD BC,#0008
|
||||
LD DE,#55AA
|
||||
RST #18
|
||||
POP BC
|
||||
JR C,.NoSupport
|
||||
EX AF,AF' ;PHISICAL DRIVE NUMBER
|
||||
CP B
|
||||
JR NZ,.NoSupport
|
||||
;R13
|
||||
LD A,#38 ; opcode for JR C,addr
|
||||
LD (BOOTDSK.chg),A
|
||||
;R13
|
||||
LD A,C
|
||||
LD (BOOTDRV),A
|
||||
AND A
|
||||
RET
|
||||
.NoSupport:
|
||||
INC C
|
||||
LD A,(LDRIVE)
|
||||
CP C
|
||||
JR NZ,.loop
|
||||
SCF
|
||||
RET
|
||||
;R09
|
||||
|
||||
;!!!!! „ã¡«ì - CHNDISK = OPENDSK
|
||||
/*
|
||||
CHNDISK:
|
||||
PUSH AF
|
||||
LD C,1
|
||||
RST #18
|
||||
POP BC
|
||||
JP C,NDISK11
|
||||
LD A,B
|
||||
LD (FatBuffer.DRIVE),A
|
||||
CALL RD_BPB
|
||||
RET C
|
||||
LD A,(LDRIVE)
|
||||
AND A
|
||||
RET
|
||||
NDISK11:
|
||||
CP DSS_Error.sys.INVALID_DRIVE
|
||||
SCF
|
||||
RET Z
|
||||
LD A,DSS_Error.sys.NOT_READY
|
||||
RET
|
||||
*/
|
||||
|
||||
|
||||
CURRDSK: LD A,(FatBuffer.DRIVE)
|
||||
AND A
|
||||
RET
|
||||
|
||||
DISKINF: INC A
|
||||
JR Z,CURRDS ;R06
|
||||
DEC A ;R06
|
||||
CALL CHNDISK ;R06
|
||||
RET C ;R06
|
||||
CURRDS: LD HL,2
|
||||
LD BC,0
|
||||
FRESP: PUSH BC
|
||||
CALL R_F_FAT
|
||||
POP BC
|
||||
CP 10
|
||||
JR Z,FRESP2
|
||||
|
||||
LD A,E
|
||||
OR D
|
||||
JR NZ,SKIC
|
||||
INC BC
|
||||
SKIC: INC HL
|
||||
JP FRESP
|
||||
|
||||
FRESP2: LD D,B
|
||||
LD E,C
|
||||
LD HL,(MAX_CLU)
|
||||
DEC HL
|
||||
LD BC,(BootSector.B_P_S)
|
||||
LD A,(BootSector.S_P_C)
|
||||
AND A
|
||||
RET
|
||||
|
||||
LDRIVE: DB #02
|
||||
TDRIVE: DB #00
|
||||
TCLUST: DW #0000
|
||||
TCOUNT: DW #0000
|
||||
|
||||
;R04SIZE2CL LD DE,(B_P_C)
|
||||
;R04 XOR A
|
||||
;R04 SCF
|
||||
;R04S2C01 RR D
|
||||
;R04 RR E
|
||||
;R04 JR C,S2C02
|
||||
;R04 RR H
|
||||
;R04 RR L
|
||||
;R04 RR B
|
||||
;R04 RR C
|
||||
;R04 JP NC,S2C01
|
||||
;R04 LD A,1
|
||||
;R04 JP S2C01
|
||||
;R04S2C02 OR A
|
||||
;R04 RET Z
|
||||
;R04 INC BC
|
||||
;R04 RET
|
||||
|
||||
;R04L_SEC_X DW 0
|
||||
;R04H_SEC_X DW 0
|
||||
|
||||
; !FIXIT çñâ ¥ ¨á¯®«ì§ã¥âáï
|
||||
TESTDSK LD A,(FatBuffer.DRIVE)
|
||||
LD C,3
|
||||
RST #18
|
||||
OR A
|
||||
RET Z
|
||||
RD_BPB LD C,SLOT3
|
||||
IN B,(C)
|
||||
PUSH BC
|
||||
|
||||
;!!!!! «ãçè¥ ®áâ ¢¨âì ª ª ¢ ®à¨£¨ «¥, ¯®â®¬ã çâ® ¢ë§®¢ í⮩ äãªæ¨¨
|
||||
; ¬®¦¥â ¢ ¤ «ì¥©è¥¬ ¯® ¤®¡¨âìáï, ¨ ¯ã᪠© ® á ¬ ¤®áâ ñâ ¯¥à¥¬¥ãî DRIVE
|
||||
; ex af,af' ;1451
|
||||
; in a,(SLOT0) ;1452
|
||||
; out (SLOT3),a ;1454
|
||||
; ld de,SECBUF+#C000 ;1456
|
||||
; ex af,af' ;1459
|
||||
IN A,(SLOT0)
|
||||
OUT (SLOT3),A
|
||||
;R08 LD DE,BOOT+#C000
|
||||
LD DE,SECBUF+#C000 ;R08
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
;!!!!! ------------------------------
|
||||
|
||||
LD C,4
|
||||
RST #18
|
||||
POP BC
|
||||
OUT (C),B
|
||||
JP C,RDERR1
|
||||
PUSH IY
|
||||
LD DE,#AA55 ;R05
|
||||
;R08 LD HL,(BOOT+510) ;R07
|
||||
LD HL,(SECBUF+510) ;R08
|
||||
AND A ;R05
|
||||
SBC HL,DE ;R05
|
||||
JP NZ,ERR_BPB ;R05
|
||||
;R08
|
||||
LD HL,SECBUF ;R08
|
||||
LD DE,BootSector ;R08
|
||||
LD BC,_sBOOT_SEC ;R08 size
|
||||
LDIR
|
||||
;R08
|
||||
|
||||
LD IY,BootSector
|
||||
LD A,(IY+_sBOOT_SEC.ID_FORM)
|
||||
CP #F0
|
||||
JP C,ERR_BPB
|
||||
LD HL,0 ; calc. first sector FAT
|
||||
LD E,(IY+_sBOOT_SEC.RESERVE) ;Reserve sec
|
||||
LD D,(IY+_sBOOT_SEC.RESERVE+1)
|
||||
ADD HL,DE
|
||||
; LD E,(IY+#1C) ;Hidden sec
|
||||
; LD D,(IY+#1D)
|
||||
; ADD HL,DE
|
||||
; LD (FatBuffer.FAT_FRM),HL ; first sector FAT
|
||||
LD (FatBuffer.FAT1_XX),HL ; first sector FAT #1
|
||||
LD (FatBuffer.FAT2_XX),HL
|
||||
|
||||
LD E,(IY+_sBOOT_SEC.S_P_F) ; sectors in FAT
|
||||
LD D,(IY+_sBOOT_SEC.S_P_F+1)
|
||||
LD A,(BootSector.FAT_NUM) ; amount FATs
|
||||
CP 1
|
||||
JR Z,C_DATA1
|
||||
DEC A
|
||||
ADD HL,DE
|
||||
LD (FatBuffer.FAT2_XX),HL
|
||||
C_DATA1 ADD HL,DE
|
||||
DEC A
|
||||
JR NZ,C_DATA1
|
||||
LD (FatBuffer.DIR_FRM),HL ; first sector DIR
|
||||
|
||||
LD C,(IY+#0B) ; Size sectors
|
||||
LD B,(IY+#0C)
|
||||
RL C
|
||||
RL B
|
||||
RL C
|
||||
RL B
|
||||
RL C
|
||||
RL B
|
||||
LD C,B
|
||||
LD B,0 ; BC - File handels in sectors
|
||||
LD A,C
|
||||
LD (FatBuffer.F_P_S),A
|
||||
LD E,(IY+_sBOOT_SEC.F_P_DIR) ; Number file handel
|
||||
LD D,(IY+_sBOOT_SEC.F_P_DIR+1)
|
||||
EX DE,HL
|
||||
DEC HL
|
||||
XOR A
|
||||
NEXTAD2
|
||||
INC A
|
||||
JP Z,ERR_BPB
|
||||
SBC HL,BC
|
||||
JR NC,NEXTAD2
|
||||
EX DE,HL
|
||||
LD C,A ; A - sectors in DIR
|
||||
LD B,0
|
||||
LD (FatBuffer.DIR_S_S),A
|
||||
ADD HL,BC ; Start DATA area
|
||||
LD (FatBuffer.DAT_FRM),HL
|
||||
;LD HL,0
|
||||
LD H,B ; âãâ ¢ B ®«ì ¤®«¦¥ ¡ëâì
|
||||
LD L,B
|
||||
LD C,(IY+#0B) ; Size sector
|
||||
LD B,(IY+#0C)
|
||||
LD A,(BootSector.S_P_C)
|
||||
NEXTAD3
|
||||
ADD HL,BC ; calc. cluster size
|
||||
DEC A
|
||||
JR NZ,NEXTAD3
|
||||
LD (FatBuffer.CLU_LEN),HL
|
||||
EX DE,HL
|
||||
LD HL,#3FFF
|
||||
XOR A
|
||||
NEXTAD4
|
||||
INC A
|
||||
JP Z,ERR_BPB
|
||||
SBC HL,DE
|
||||
JR NC,NEXTAD4
|
||||
LD (FatBuffer.C_P_B),A ; A - Clusters per bank (16k)
|
||||
|
||||
LD HL,BootSector.ID_FAT
|
||||
LD DE,FatBuffer.MSG
|
||||
LD B,3
|
||||
R_BPBL1
|
||||
LD A,(DE)
|
||||
CP (HL)
|
||||
JP NZ,IBMDOS_
|
||||
INC HL
|
||||
INC DE
|
||||
DJNZ R_BPBL1
|
||||
FID LD A,(HL)
|
||||
INC HL
|
||||
CP #20
|
||||
JR Z,FID
|
||||
CP "1"
|
||||
JP NZ,ERR_BPB
|
||||
LD A,(HL)
|
||||
CP "6" ; FAT16
|
||||
LD HL,#FFFF
|
||||
JR Z,BPB_FAT
|
||||
CP "2" ; FAT12
|
||||
JP NZ,ERR_BPB
|
||||
LD HL,#0FFF
|
||||
BPB_FAT
|
||||
LD (FatBuffer.FAT_TYP),A
|
||||
LD (FatBuffer.ENDCLUS),HL
|
||||
LD HL,0
|
||||
LD C,(IY+_sBOOT_SEC.S_P_T) ; Sector per track
|
||||
LD B,(IY+_sBOOT_SEC.S_P_T+1)
|
||||
LD A,(BootSector.HEADS)
|
||||
BPB_L1: ; calc. sector per cylinder
|
||||
ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,BPB_L1
|
||||
LD (FatBuffer.S_X_H),HL
|
||||
|
||||
LD DE,(FatBuffer.DAT_FRM)
|
||||
; LD E,(IY+#1C) ;Hidden sec
|
||||
; LD D,(IY+#1D)
|
||||
; AND A
|
||||
; SBC HL,DE
|
||||
; EX DE,HL
|
||||
LD L,(IY+_sBOOT_SEC.S_P_D)
|
||||
LD H,(IY+_sBOOT_SEC.S_P_D+1)
|
||||
LD A,H
|
||||
OR L
|
||||
JP NZ,HDDSMAL
|
||||
LD L,(IY+_sBOOT_SEC.BPB_BIG_TOTAL_SECTORS)
|
||||
LD H,(IY+_sBOOT_SEC.BPB_BIG_TOTAL_SECTORS+1)
|
||||
LD C,(IY+_sBOOT_SEC.BPB_BIG_TOTAL_SECTORS+2)
|
||||
LD B,(IY+_sBOOT_SEC.BPB_BIG_TOTAL_SECTORS+3)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
JP NC,HDDBIG
|
||||
DEC BC
|
||||
JP HDDBIG
|
||||
HDDSMAL:
|
||||
; AND A ;âãâ CF ¯®«î¡ á á¡à®è¥ ¤®«¦¥ ¡ëâì
|
||||
SBC HL,DE
|
||||
LD BC,0
|
||||
HDDBIG LD A,(BootSector.S_P_C)
|
||||
SCF
|
||||
S4C01 RRA
|
||||
JR C,S4C02
|
||||
RR B
|
||||
RR C
|
||||
RR H
|
||||
RR L
|
||||
JP S4C01
|
||||
S4C02 INC HL
|
||||
LD (MAX_CLU),HL
|
||||
POP IY
|
||||
; LD DE,FAT
|
||||
; LD HL,0
|
||||
; LD IX,(FAT_FRM)
|
||||
; LD B,3
|
||||
; LD A,(DRIVE)
|
||||
; LD C,5
|
||||
; RST #18
|
||||
; JP C,RDERR1
|
||||
LD HL,0
|
||||
LD (FATCASH),HL
|
||||
LD A,FATPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
XOR A
|
||||
CALL RE_FAT
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
CALL R_CLUST
|
||||
XOR A
|
||||
RET
|
||||
|
||||
IBMDOS_ LD A,(IY+_sBOOT_SEC.ID_FORM)
|
||||
CP #F0
|
||||
JR C,ERR_BPB
|
||||
;????? ¤® «¨ ¨§¬¥¨âì?
|
||||
// OR 2
|
||||
// CP #FA ; ID ram-¤¨áª
|
||||
CP #F8 ; ¥á«¨ ¥ F8?
|
||||
;?????
|
||||
LD A,'6'
|
||||
LD HL,#FFFF
|
||||
JP Z,BPB_FAT
|
||||
|
||||
LD A,'2'
|
||||
LD HL,#0FFF
|
||||
JP BPB_FAT
|
||||
|
||||
ERR_BPB:
|
||||
POP IY
|
||||
LD A,DSS_Error.sys.UNKNOWN_FORMAT
|
||||
SCF
|
||||
RET
|
||||
RDERR1: LD A,DSS_Error.sys.NOT_READY
|
||||
SCF
|
||||
RET
|
||||
|
||||
;
|
||||
FatBuffer:
|
||||
.MSG: DB 'FAT'
|
||||
.READ_PG: DB #00
|
||||
.BLOCK: DB #00
|
||||
.DIR_CLU: DW #0000
|
||||
.DRIVE: DB #01
|
||||
.FAT_FRM:
|
||||
.FAT1_XX: DW #0000 ; MSD_FAT_SEC first sector FAT
|
||||
.FAT2_XX: DW #0000
|
||||
.DIR_FRH: DW #0000 ; MSD_CAT_SEC first sector DIR
|
||||
.DIR_FRL:
|
||||
.DIR_FRM: DW #0000 ; MSD_CAT_SEC first sector DIR
|
||||
.F_P_S: DB #00 ; ç¨á«® ä ©«®¢ëå § ¯¨á¥© ¢ ᥪâ®à¥
|
||||
.DIR_S_S: DB #00 ; DIR_SEC_SIZE
|
||||
.DAT_FRM: DW #0000 ; MSD_DAT_SEC
|
||||
.CLU_LEN:
|
||||
.B_P_C: DW #0000 ; CLUSTER_LEN
|
||||
.C_P_B: DB #00 ; A - Clusters per bank (16k) (ç¨á«® ª« áâ¥à®¢ ¡«®ª Ž‡“) ; ????? íâ® ¨á¯®«ì§ã¥âáï?
|
||||
.FAT_TYP: DB #00 ; TYPE FAT (#32 - 12bit, #36 - 16bit)
|
||||
.S_X_H: DW #0000 ; ª®«¨ç¥á⢮ ᥪâ®à®¢ 樫¨¤à¥ ; ????? íâ® ¨á¯®«ì§ã¥âáï?
|
||||
.ENDCLUS: DW #FFFF
|
||||
;
|
||||
|
||||
;
|
||||
DIRSPEC: DB '\'
|
||||
BLOCK DIRSPEC.DEPTH,0 ;????? <20>ë«® 255, ã ‘ ©¬ 256
|
||||
;
|
||||
|
||||
;R11
|
||||
; !TODO ¯®ç¨¨âì
|
||||
SAVE_CUR_PATH
|
||||
PUSH IX
|
||||
PUSH IY
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
PUSH AF
|
||||
;
|
||||
LD A,ENVPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
|
||||
CALL CURRDSK
|
||||
ADD A,"A"
|
||||
LD HL,TMP_CURDIR
|
||||
LD (HL),A
|
||||
INC HL
|
||||
LD A,":"
|
||||
LD (HL),A
|
||||
INC HL
|
||||
CALL CURRDIR
|
||||
|
||||
; ¯®ç¥¬ã ¥ POP AF : OUT (SLOT3),A
|
||||
//POP BC
|
||||
//LD A,B
|
||||
//OUT (SLOT3),A
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
;
|
||||
;
|
||||
POP AF
|
||||
POP BC
|
||||
POP DE
|
||||
POP HL
|
||||
POP IY
|
||||
POP IX
|
||||
RET
|
||||
|
||||
; !TODO ¯®ç¨¨âì
|
||||
BACK_CUR_PATH:
|
||||
PUSH IY
|
||||
PUSH IX
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
PUSH AF
|
||||
;
|
||||
LD A,ENVPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
|
||||
LD HL,TMP_CURDIR
|
||||
CALL CHDIR
|
||||
|
||||
; ¯®ç¥¬ã ¥ POP AF : OUT (SLOT3),A
|
||||
//POP BC
|
||||
//LD A,B
|
||||
//OUT (SLOT3),A
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
;
|
||||
POP AF
|
||||
POP BC
|
||||
POP DE
|
||||
POP HL
|
||||
POP IX
|
||||
POP IY
|
||||
RET
|
||||
;R11
|
||||
|
||||
;R12
|
||||
SCANDRV:
|
||||
DI ;!FIXIT ¢ DRV-MAIN ¬®£ãâ ¡ëâì ¯à®¡«¥¬ë á ¯à¥àë¢ ¨ï¬¨
|
||||
LD A,#FF
|
||||
LD C,#FF
|
||||
RST #18
|
||||
LD (LDRIVE),A
|
||||
EI
|
||||
RET
|
||||
;R12
|
||||
|
||||
|
||||
;GOD EQU 1999-1980*512
|
||||
|
||||
;FHAND DB " "
|
||||
; DB " "
|
||||
; DB #20
|
||||
; DW 0,0,0,0,0
|
||||
; DW #0000
|
||||
; DW 5*32+19+GOD
|
||||
;SAVEC DW #0000
|
||||
;SIZEC DW #0000,#0000
|
||||
;=============================================
|
||||
;//MODULE: DOS_X
|
||||
;[END]
|
||||
|
||||
237
DSS/DRV-MAIN.ASM
Normal file
237
DSS/DRV-MAIN.ASM
Normal file
@ -0,0 +1,237 @@
|
||||
;[BEGIN]
|
||||
;//MODULE: DRV-MAIN AUTHOR: Denis Parinov
|
||||
;//CREATE: 2003-03-12
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R00 2003-03-19 DNS Initial version
|
||||
;---------------------------------------------------------------
|
||||
// INCLUDE "hardware.inc"
|
||||
// INCLUDE "bios.inc"
|
||||
|
||||
|
||||
; ORG #0000
|
||||
|
||||
MODULE DRV ; !FIXIT ®¡®©â¨áì ¡¥§ ¬®¤ã«ï
|
||||
;PAGEDRV EQU 0
|
||||
|
||||
;!TODO
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[NOT USED]> ;
|
||||
A0000: JP RST_00 ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
RST_00:
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[BIOS API]> ;
|
||||
BLOCK 8-$,#FF ;
|
||||
A0008: PUSH AF ;
|
||||
LD A,SYS_PORT.PAGE8;
|
||||
OUT (SYS_PORT.ON),A ;
|
||||
POP AF ;
|
||||
RET ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;!FIXIT
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[DSS API]> ;
|
||||
BLOCK #10-$,#FF ;
|
||||
A0010: ;JP RST_10 ;
|
||||
DI : HALT ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[DRIVE API]> ;
|
||||
BLOCK #18-$,#FF ;
|
||||
;A0018 JP INTDISK ;
|
||||
A0018: PUSH AF ;
|
||||
PUSH BC ;
|
||||
MAIN_PG_NUMBER+2: ;
|
||||
LD BC,0*256+SLOT0 ; !FIXIT áî¤ ¥ ¤®«¦ë ¢áâ ¢«ïâìáï ®¬¥à ¢ë¤¥«¥ëå áâà ¨æ?
|
||||
JP PORTAL.outDRV ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;!TODO
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[NOT USED]> ;
|
||||
BLOCK #20-$,#FF ;
|
||||
A0020: JP RST_20 ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
RST_20:
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
;
|
||||
|
||||
;!TODO
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[NOT USED]> ;
|
||||
BLOCK #28-$,#FF ;
|
||||
A0028: JP RST_28 ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
RST_28:
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
;
|
||||
|
||||
;!TODO
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[NOT USED]> ;
|
||||
BLOCK #30-$,#FF ;
|
||||
A0030: JP RST_30 ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
RST_30:
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
;
|
||||
|
||||
;!FIXIT
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[MAIN INT]> ;
|
||||
BLOCK #38-$,#FF ;
|
||||
A0038: ;
|
||||
// JP RST_38 ;
|
||||
; RST_38: ;
|
||||
; INT_: PUSH AF ;
|
||||
; EX AF,AF' ;
|
||||
; PUSH AF ;
|
||||
; PUSH BC ;
|
||||
; PUSH DE ;
|
||||
; PUSH HL ;
|
||||
; EXX ;
|
||||
; PUSH BC ;
|
||||
; PUSH DE ;
|
||||
; PUSH HL ;
|
||||
; PUSH IX ;
|
||||
; PUSH IY ;
|
||||
; CALL KEYSCAN ;
|
||||
; LD C,#80 ;
|
||||
; RST #30 ;
|
||||
; POP IY ;
|
||||
; POP IX ;
|
||||
; POP HL ;
|
||||
; POP DE ;
|
||||
; POP BC ;
|
||||
; EXX ;
|
||||
; POP HL ;
|
||||
; POP DE ;
|
||||
; POP BC ;
|
||||
; POP AF ;
|
||||
; EX AF,AF' ;
|
||||
; POP AF ;
|
||||
EI ;
|
||||
RETI ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
KEYSCAN: RET ;!FIXIT
|
||||
;
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[ NMI ]> ;
|
||||
NMI: RETN ;
|
||||
BLOCK #66-$,#FF ;
|
||||
A0066: JP NMI ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
|
||||
;-------------------------------;
|
||||
;ADRST10 EQU #00 ;!!!!!
|
||||
;-------------------------------;
|
||||
;!FIXIT
|
||||
RST_10 PUSH HL
|
||||
LD L,C
|
||||
LD H,ADRST10/256
|
||||
LD C,(HL)
|
||||
INC H
|
||||
LD H,(HL)
|
||||
LD L,C
|
||||
EX (SP),HL
|
||||
RET
|
||||
|
||||
;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
; <[DRIVE PAGE SWITCH]> ;
|
||||
BLOCK #7E-$,0 ;
|
||||
PORTAL.toMAIN: ;
|
||||
PUSH BC ;
|
||||
RETBANK+2: ;
|
||||
LD BC,0*256+SLOT0 ;
|
||||
OUT (C),B ;
|
||||
ASSERT $!=84,'-> Portal error!';
|
||||
;Entry point from DSS main page ; !FIXIT ¥á«¨ 2 à § ¯à¨«¥â¥âì íâã â®çªã ¢å®¤ , â® § áàñâáï RETBANK
|
||||
LD (RETBANK),A ;
|
||||
POP BC ;
|
||||
POP AF ;
|
||||
ADCALL+1: ;
|
||||
CALL DISPATCH ; ¯ âç¨âáï INTDISK
|
||||
JR PORTAL.toMAIN ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
/*
|
||||
push hl
|
||||
|
||||
*/
|
||||
|
||||
|
||||
;!FIXIT çñâ ¥ â® âãâ
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
LD B,#00; ;
|
||||
OUT (C),A ;
|
||||
;--- ;
|
||||
POP BC ;
|
||||
RET ;
|
||||
PORTAL.outDRV: ;
|
||||
RET ;
|
||||
;' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ';
|
||||
;
|
||||
|
||||
;
|
||||
DISPATCH
|
||||
CALL INITDVC
|
||||
LD HL,INTDISK
|
||||
LD (ADCALL),HL
|
||||
LD A,(LDRIVE)
|
||||
AND A
|
||||
RET
|
||||
;
|
||||
|
||||
LDRIVE DB #00
|
||||
|
||||
INCLUDE 'disk_x.asm'
|
||||
INCLUDE 'ide_drv0.asm'
|
||||
INCLUDE 'fdd_drv0.asm'
|
||||
;INCLUDE 'ram_drv0.asm'
|
||||
INCLUDE 'ram_drv1.asm'
|
||||
|
||||
DB 0
|
||||
|
||||
ENDMODULE
|
||||
; OUTEND
|
||||
;[END]
|
||||
72
DSS/DSS_MACROSES.Z80
Normal file
72
DSS/DSS_MACROSES.Z80
Normal file
@ -0,0 +1,72 @@
|
||||
;
|
||||
MACRO _mSavePath
|
||||
; PUSH HL
|
||||
; LD HL,BACK_CUR_PATH
|
||||
; EX (SP),HL
|
||||
; CALL SAVE_CUR_PATH
|
||||
ENDM
|
||||
;
|
||||
;
|
||||
MACRO _mRestorePath
|
||||
; CALL BACK_CUR_PATH
|
||||
ENDM
|
||||
;
|
||||
|
||||
;
|
||||
MACRO _mRestorStackAfterRestorePath
|
||||
; POP HL ;CLEAR STACK "BACK_CUR_PATH"
|
||||
ENDM
|
||||
;
|
||||
|
||||
;
|
||||
MACRO _mDSS_Version
|
||||
DB 'DSS_'
|
||||
db '0'+VERS
|
||||
db '.'
|
||||
db MODF/10+'0'
|
||||
db MODF-(MODF/10)*10+'0'
|
||||
ENDM
|
||||
;
|
||||
|
||||
;
|
||||
MACRO C_OSTYPE
|
||||
IF OSTYPE = DP
|
||||
|
||||
C_OSNAME
|
||||
DB "-DP [",#30+REVISION,']',0
|
||||
|
||||
ELSEIF OSTYPE = BETA
|
||||
|
||||
C_OSNAME
|
||||
DB '-BETA [',#30+REVISION,']',0
|
||||
|
||||
ELSEIF OSTYPE = RC
|
||||
|
||||
C_OSNAME
|
||||
DB '-RC [',#30+REVISION,']',0
|
||||
|
||||
ELSEIF OSTYPE = RELEASE
|
||||
|
||||
C_OSRELEASE
|
||||
;DB "-RELEASE",0
|
||||
|
||||
ELSE
|
||||
|
||||
C_OSNAME
|
||||
DB "-UNKNOWN",0
|
||||
|
||||
ENDIF
|
||||
ENDM
|
||||
;
|
||||
|
||||
;
|
||||
MACRO C_OSNAME
|
||||
DB "ESTEX",0
|
||||
ENDM
|
||||
;
|
||||
|
||||
;
|
||||
MACRO C_OSRELEASE
|
||||
DB "Estex DSS",0
|
||||
ENDM
|
||||
;
|
||||
62
DSS/DSS_MAP.TXT
Normal file
62
DSS/DSS_MAP.TXT
Normal file
@ -0,0 +1,62 @@
|
||||
0000-0038h RESTARTS
|
||||
|
||||
003B-006BH 38h Interrupt
|
||||
|
||||
0066-0068h NMI
|
||||
|
||||
0069-0072h RST10 routine
|
||||
|
||||
0073-007Fh Align space
|
||||
|
||||
0080-0085h CALL interpage gate
|
||||
|
||||
0086-00C3h BPB struct
|
||||
|
||||
00C4-00FAh DSS INIT routine
|
||||
|
||||
00FB-00FFH SPACE
|
||||
|
||||
0100-01FFH MEMORY TABLE (OWNER)
|
||||
|
||||
0200-03FFH FUNCTIONS ADDRESSES
|
||||
|
||||
0400-043FH KEYBOARD BUFFER
|
||||
0440-0BD1H KEYBOARD DRIVER
|
||||
|
||||
0BD2-0EF5H SCREEN DRIVER
|
||||
|
||||
0EF6-1100H FAT ROUTINES
|
||||
|
||||
1101-1342H DISK IO ROUTINES
|
||||
|
||||
1343-1443H CURRENT DIR NAME BUFFER
|
||||
|
||||
1444-16BDH HANDLES AND FILE IO ROUTINES
|
||||
|
||||
16BE-25C7H FILE AND DIR ROUTINES (DOS5)
|
||||
|
||||
25C8-27ACH EXECUTE ROUTINES
|
||||
|
||||
27AD-2882H MEMORY ROUTINES
|
||||
|
||||
2883-2CAEH EXEC
|
||||
|
||||
?2CAF-2EAEH EXEBUFFER (GLUK?)
|
||||
|
||||
2EAF-2FAEH PROCESS STACK BUFFER
|
||||
|
||||
2FAF-30CBH ENVIRONMENT ROUTINES
|
||||
|
||||
30CC-35E0H MOUSE DRIVER
|
||||
35E1-36E0H MOUSE IMAGE BUFFER
|
||||
|
||||
36E1-370DH DTA BUFFER
|
||||
|
||||
370D-37FFH SPACE
|
||||
|
||||
3800-39FFH BUFFER & SECTOR BUFFER
|
||||
|
||||
|
||||
3832-3833H ENDCODE
|
||||
|
||||
3833-3FFFH FREE-SPACE
|
||||
241
DSS/ENVIRON.ASM
Normal file
241
DSS/ENVIRON.ASM
Normal file
@ -0,0 +1,241 @@
|
||||
;[BEGIN]
|
||||
;//MODULE: ENVIRON
|
||||
;//CREATE: 10-11-2002 AUTHOR: Denis Parinov
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R01 19-11-2002 DNS CORRECT DE ADDRESS IN GETENV
|
||||
;---------------------------------------------------------------
|
||||
|
||||
; LD HL,MYVAR
|
||||
; CALL SETENV
|
||||
; LD HL,MYVAR2
|
||||
; LD DE,MYBUF
|
||||
; CALL GETENV
|
||||
|
||||
|
||||
ENVIRON:
|
||||
INC B
|
||||
JR Z,INITENV ;B=FF
|
||||
DEC B
|
||||
JR Z,READENV ;B=0
|
||||
DEC B
|
||||
JP Z,GETENV ;B=1
|
||||
DEC B
|
||||
JP Z,SETENV ;B=2
|
||||
LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
SCF
|
||||
RET
|
||||
|
||||
INITENV LD A,ENVPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
LD DE,ENVIRONMENT
|
||||
XOR A
|
||||
LD (DE),A
|
||||
INC DE
|
||||
LD HL,DEFAULT_ENV
|
||||
LD BC,DEF_ENV_SIZE
|
||||
LDIR
|
||||
LD (DE),A
|
||||
EX DE,HL
|
||||
LD DE,ENVIRONMENT
|
||||
AND A
|
||||
SBC HL,DE
|
||||
LD (ENVSIZE),HL
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
AND A
|
||||
RET
|
||||
|
||||
READENV:
|
||||
PUSH HL
|
||||
LD A,ENVPAGE
|
||||
CALL BANK
|
||||
LD H,A
|
||||
LD C,SLOT3
|
||||
IN L,(C)
|
||||
EXX
|
||||
LD HL,ENVIRONMENT
|
||||
INC HL
|
||||
POP DE
|
||||
LD BC,(ENVSIZE)
|
||||
EXX
|
||||
;
|
||||
.loop: OUT (C),L
|
||||
EXX
|
||||
LD A,(HL)
|
||||
EXX
|
||||
OUT (C),H
|
||||
EXX
|
||||
LD (DE),A
|
||||
INC HL
|
||||
INC DE
|
||||
DEC BC
|
||||
LD A,B
|
||||
OR C
|
||||
EXX
|
||||
JR NZ,.loop
|
||||
XOR A
|
||||
RET
|
||||
|
||||
GETENV
|
||||
PUSH DE
|
||||
CALL ENV_EX
|
||||
|
||||
LD A,ENVPAGE
|
||||
CALL BANK
|
||||
EX AF,AF'
|
||||
|
||||
CALL F_ENV
|
||||
POP DE
|
||||
LD A,0
|
||||
LD (DE),A
|
||||
JR NC,GE_1
|
||||
GE_0 LD A,(HL)
|
||||
LDI
|
||||
OR A
|
||||
JR NZ,GE_0
|
||||
DEC DE ;R01
|
||||
LD A,#FF
|
||||
|
||||
GE_1 EX AF,AF'
|
||||
OUT (SLOT3),A
|
||||
EX AF,AF'
|
||||
AND A
|
||||
RET
|
||||
|
||||
SETENV: CALL ENV_EX
|
||||
;
|
||||
LD A,ENVPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
;
|
||||
CALL F_ENV
|
||||
JR NC,PENV
|
||||
XOR A
|
||||
CPIR
|
||||
LD A,B
|
||||
OR C
|
||||
JR Z,PENV
|
||||
LDIR
|
||||
; DEC DE
|
||||
PENV LD A,(ENVVALUE)
|
||||
OR A
|
||||
JR Z,CLR_ENV
|
||||
LD HL,ENVNAME
|
||||
F_EVN2 LD A,(HL)
|
||||
LDI
|
||||
CP "="
|
||||
JR NZ,F_EVN2
|
||||
LD HL,ENVVALUE
|
||||
F_EVN3 LD A,(HL)
|
||||
LDI
|
||||
OR A
|
||||
JR NZ,F_EVN3
|
||||
CLR_ENV XOR A
|
||||
LD (DE),A
|
||||
LD HL,ENVIRONMENT
|
||||
EX DE,HL
|
||||
SBC HL,DE
|
||||
LD (ENVSIZE),HL
|
||||
;
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
AND A
|
||||
RET
|
||||
|
||||
|
||||
; RET:
|
||||
; DE - VAR VALUE
|
||||
; HL - VAR ADDRESS
|
||||
; BC - ENVIRONMENT SIZE
|
||||
F_ENV LD HL,ENVIRONMENT
|
||||
LD BC,(ENVSIZE)
|
||||
PUSH HL
|
||||
F_EVN0 POP DE
|
||||
LD DE,ENVNAME
|
||||
XOR A
|
||||
CPIR
|
||||
PUSH HL
|
||||
F_EVN1 LD A,(HL)
|
||||
OR A
|
||||
JR Z,END_OF_ENV
|
||||
LD A,(DE)
|
||||
CP (HL)
|
||||
INC HL
|
||||
INC DE
|
||||
DEC BC
|
||||
JR NZ,F_EVN0
|
||||
CP "="
|
||||
JR NZ,F_EVN1
|
||||
SCF
|
||||
END_OF_ENV
|
||||
POP DE
|
||||
RET
|
||||
|
||||
ENV_EX LD B,32
|
||||
LD DE,ENVNAME
|
||||
ENV_E0 XOR A
|
||||
LD (DE),A
|
||||
LD (ENVVALUE),A
|
||||
ENV_E1 LD A,(HL)
|
||||
INC HL
|
||||
CP "="
|
||||
JR Z,EQUAL_SG
|
||||
OR A
|
||||
JR Z,ENV_E3
|
||||
CALL UPPER
|
||||
LD (DE),A
|
||||
INC DE
|
||||
DJNZ ENV_E1
|
||||
SCF
|
||||
RET
|
||||
|
||||
ENV_E3 LD A,"="
|
||||
LD (DE),A
|
||||
INC DE
|
||||
XOR A
|
||||
LD (DE),A
|
||||
INC DE
|
||||
RET
|
||||
|
||||
EQUAL_SG:
|
||||
LD (DE),A
|
||||
INC DE
|
||||
XOR A
|
||||
LD (DE),A
|
||||
LD DE,ENVVALUE
|
||||
LD (DE),A
|
||||
LD C,#FF
|
||||
ENV_E2 LD A,(HL)
|
||||
LDI
|
||||
OR A
|
||||
RET Z
|
||||
DJNZ ENV_E2
|
||||
SCF
|
||||
RET
|
||||
|
||||
ENVNAME EQU EXEBUFF ;DS 32
|
||||
ENVVALUE EQU BUFFER //#3800 ; BUFFER ;DS 128
|
||||
|
||||
ENVSIZE DW 1 ;E_END-ENVIRONMENT ;160
|
||||
|
||||
ENVIRONMENT EQU ENVADDR
|
||||
|
||||
DEFAULT_ENV
|
||||
; DB "SYSTEM=C:\\system.exe",0
|
||||
; DB "PATH=\\SYSTEM\\;\\COMMAND\\;",0
|
||||
DB 0 ; "",0
|
||||
DEF_ENV_SIZE EQU $-DEFAULT_ENV
|
||||
|
||||
; DB 0
|
||||
; DB "SYSTEM=C:\system.exe",0
|
||||
; DB "PATH=C:\;\FN\;",0
|
||||
; DB "OS=ESTEX",0
|
||||
; DB "VAR1=000",0
|
||||
; DB "OSNAME=ESTEX 2002",0
|
||||
; DB 0
|
||||
;E_END
|
||||
|
||||
;[END]
|
||||
1228
DSS/EXECUTE.ASM
Normal file
1228
DSS/EXECUTE.ASM
Normal file
File diff suppressed because it is too large
Load Diff
473
DSS/FAT_X.ASM
Normal file
473
DSS/FAT_X.ASM
Normal file
@ -0,0 +1,473 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: FAT_X
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R01 10-02-1999 DNS UPGRADE FAT CASH
|
||||
;---------------------------------------------------------------
|
||||
|
||||
R_CLUST LD HL,#0001
|
||||
LD (G_CLUST.num),HL
|
||||
RET
|
||||
|
||||
G_CLUST:
|
||||
.num+1: LD HL,#0001
|
||||
G_CLUS1: INC HL
|
||||
CALL R_F_FAT
|
||||
CP 10
|
||||
SCF
|
||||
RET Z
|
||||
LD A,D
|
||||
OR E
|
||||
JR NZ,G_CLUS1
|
||||
LD (G_CLUST.num),HL
|
||||
XOR A
|
||||
RET
|
||||
|
||||
; HL - CLUSTER
|
||||
|
||||
INC_FAT PUSH HL
|
||||
CALL G_CLUST
|
||||
POP DE
|
||||
RET C
|
||||
PUSH HL
|
||||
PUSH HL
|
||||
EX DE,HL
|
||||
INC_FA2 CALL R_F_FAT
|
||||
EX DE,HL
|
||||
JR NC,INC_FA2
|
||||
EX DE,HL
|
||||
POP DE
|
||||
CALL W_T_FAT
|
||||
POP HL
|
||||
LD DE,(FatBuffer.ENDCLUS)
|
||||
CALL W_T_FAT
|
||||
CALL WR_FAT
|
||||
AND A
|
||||
RET
|
||||
|
||||
;R01
|
||||
|
||||
; HL - CLUSTER
|
||||
; DE - (CLUSTER)
|
||||
|
||||
R_F_FAT EX DE,HL
|
||||
LD HL,(MAX_CLU)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
EX DE,HL
|
||||
LD A,10
|
||||
RET C
|
||||
EXX
|
||||
LD A,FATPAGE
|
||||
CALL BANK
|
||||
EXX
|
||||
PUSH HL
|
||||
PUSH AF
|
||||
LD A,(FatBuffer.FAT_TYP)
|
||||
CP "2"
|
||||
JP Z,R_F_F12
|
||||
R_F_F16 LD A,H
|
||||
LD B,A
|
||||
AND #0F
|
||||
LD H,A
|
||||
LD A,B
|
||||
RRCA
|
||||
RRCA
|
||||
RRCA
|
||||
RRCA
|
||||
AND #0F ; A - BLOCK FAT (1 BLOCK = 8192 BYTES)
|
||||
ADD HL,HL ; HL - FAT OFFSET (FROM CASH)
|
||||
LD BC,(FATCASH) ; C - BLOCK FAT IN CASH
|
||||
CP C
|
||||
CALL NZ,RE_FAT ; A <> C - READ NEW BLOCK FAT
|
||||
LD DE,FAT
|
||||
ADD HL,DE
|
||||
LD E,(HL)
|
||||
INC HL
|
||||
LD D,(HL)
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
LD HL,#FFEF
|
||||
XOR A ;DssErr.sys.NO_ERROR
|
||||
SBC HL,DE
|
||||
POP HL
|
||||
;LD A,DssErr.sys.NO_ERROR
|
||||
RET
|
||||
|
||||
;R01; HL - CLUSTER
|
||||
;R01; DE - (CLUSTER)
|
||||
;R01
|
||||
;R01R_F_FAT EX DE,HL
|
||||
;R01 LD HL,(MAX_CLU)
|
||||
;R01 AND A
|
||||
;R01 SBC HL,DE
|
||||
;R01 EX DE,HL
|
||||
;R01 LD A,10
|
||||
;R01 RET C
|
||||
;R01 PUSH HL
|
||||
;R01 LD A,(FAT_TYP)
|
||||
;R01 CP "2"
|
||||
;R01 JP Z,R_F_F12
|
||||
;R01R_F_F16 LD DE,768 ; DE - CLUSTERS IN CASH
|
||||
;R01 XOR A
|
||||
;R01R_F_00H INC A ; HL - CLUSTER
|
||||
;R01 SBC HL,DE
|
||||
;R01 JP NC,R_F_00H
|
||||
;R01 ADD HL,DE
|
||||
;R01 ADD HL,HL ; HL - FAT OFFSET (FROM CASH)
|
||||
;R01 DEC A
|
||||
;R01 LD BC,(FATCASH) ; A - ELEMENT OF CASH
|
||||
;R01 CP C
|
||||
;R01 CALL NZ,RE_FAT
|
||||
;R01 LD DE,FAT
|
||||
;R01 ADD HL,DE
|
||||
;R01 LD E,(HL)
|
||||
;R01 INC HL
|
||||
;R01 LD D,(HL)
|
||||
;R01 LD HL,#FFEF
|
||||
;R01 AND A
|
||||
;R01 SBC HL,DE
|
||||
;R01 POP HL
|
||||
;R01 LD A,0
|
||||
;R01 RET
|
||||
;R01
|
||||
;R01R_F_F12 LD D,H
|
||||
;R01 LD E,L
|
||||
;R01 ADD HL,HL
|
||||
;R01 ADD HL,DE
|
||||
;R01 RR H
|
||||
;R01 RR L
|
||||
;R01 PUSH AF
|
||||
;R01 EX DE,HL
|
||||
;R01 LD HL,(B_P_S)
|
||||
;R01 LD B,H
|
||||
;R01 LD C,L
|
||||
;R01 ADD HL,HL
|
||||
;R01 ADD HL,BC
|
||||
;R01 EX DE,HL
|
||||
;R01 XOR A ; DE - SIZE SECTOR * 3
|
||||
;R01R_F_00 INC A ; HL - FAT OFFSET
|
||||
;R01 SBC HL,DE
|
||||
;R01 JP NC,R_F_00
|
||||
;R01 ADD HL,DE
|
||||
;R01 DEC A
|
||||
|
||||
R_F_F12 LD D,H
|
||||
LD E,L
|
||||
ADD HL,HL
|
||||
ADD HL,DE
|
||||
RR H
|
||||
RR L ;CLUSTER * 1.5
|
||||
PUSH AF
|
||||
LD A,H
|
||||
LD B,A
|
||||
AND #1F
|
||||
LD H,A
|
||||
LD A,B
|
||||
RLCA
|
||||
RLCA
|
||||
RLCA
|
||||
AND #07
|
||||
LD BC,(FATCASH)
|
||||
CP C
|
||||
CALL NZ,RE_FAT
|
||||
LD DE,FAT
|
||||
ADD HL,DE
|
||||
POP AF
|
||||
LD E,(HL)
|
||||
INC HL
|
||||
LD D,(HL)
|
||||
JR C,R_F_F01
|
||||
LD A,D
|
||||
AND #0F
|
||||
LD D,A
|
||||
JR R_F_F02
|
||||
|
||||
R_F_F01 LD A,E
|
||||
AND #F0
|
||||
LD E,A
|
||||
RR D
|
||||
RR E
|
||||
RR D
|
||||
RR E
|
||||
RR D
|
||||
RR E
|
||||
RR D
|
||||
RR E
|
||||
R_F_F02 POP AF
|
||||
OUT (SLOT3),A
|
||||
LD HL,#0FEF
|
||||
XOR A ; ®¡ã«ï¥¬ CF ¨ ãáâ ¢«¨¢ ¥¬ ª®¤ ®è¨¡ª¨ = ã«î
|
||||
SBC HL,DE
|
||||
POP HL
|
||||
RET
|
||||
|
||||
; HL - CLUSTER
|
||||
; DE - (CLUSTER)
|
||||
|
||||
W_T_FAT PUSH DE
|
||||
EX DE,HL
|
||||
LD HL,(MAX_CLU)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
EX DE,HL
|
||||
POP DE
|
||||
LD A,10
|
||||
RET C
|
||||
EXX
|
||||
LD A,FATPAGE
|
||||
CALL BANK
|
||||
EXX
|
||||
PUSH HL
|
||||
PUSH AF
|
||||
LD A,1
|
||||
LD (FATCASH+1),A
|
||||
LD A,(FatBuffer.FAT_TYP)
|
||||
CP "2"
|
||||
JP Z,W_T_F12
|
||||
W_T_F16 PUSH DE
|
||||
LD A,H
|
||||
LD B,A
|
||||
AND #0F
|
||||
LD H,A
|
||||
LD A,B
|
||||
RRCA
|
||||
RRCA
|
||||
RRCA
|
||||
RRCA
|
||||
AND #0F ; A - BLOCK FAT (1 BLOCK = 8192 BYTES)
|
||||
ADD HL,HL ; HL - FAT OFFSET (FROM CASH)
|
||||
LD BC,(FATCASH) ; C - BLOCK FAT IN CASH
|
||||
CP C
|
||||
CALL NZ,RE_FAT ; A <> C - READ NEW BLOCK FAT
|
||||
LD DE,FAT
|
||||
ADD HL,DE
|
||||
POP DE
|
||||
LD (HL),E
|
||||
INC HL
|
||||
LD (HL),D
|
||||
POP AF
|
||||
POP HL
|
||||
OUT (SLOT3),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
W_T_F12 PUSH DE
|
||||
LD D,H
|
||||
LD E,L
|
||||
ADD HL,HL
|
||||
ADD HL,DE
|
||||
RR H
|
||||
RR L ;CLUSTER * 1.5
|
||||
PUSH AF
|
||||
LD A,H
|
||||
LD B,A
|
||||
AND #1F
|
||||
LD H,A
|
||||
LD A,B
|
||||
RLCA
|
||||
RLCA
|
||||
RLCA
|
||||
AND #07
|
||||
LD BC,(FATCASH)
|
||||
CP C
|
||||
CALL NZ,RE_FAT
|
||||
LD DE,FAT
|
||||
ADD HL,DE
|
||||
POP AF
|
||||
POP DE
|
||||
JP C,W_T_F01
|
||||
LD (HL),E
|
||||
INC HL
|
||||
LD A,(HL)
|
||||
AND #F0
|
||||
OR D
|
||||
LD (HL),A
|
||||
POP AF
|
||||
POP HL
|
||||
OUT (SLOT3),A
|
||||
AND A
|
||||
RET
|
||||
|
||||
W_T_F01 SLA E
|
||||
RL D
|
||||
RL E
|
||||
RL D
|
||||
RL E
|
||||
RL D
|
||||
RL E
|
||||
RL D
|
||||
LD A,(HL)
|
||||
AND #0F
|
||||
OR E
|
||||
LD (HL),A
|
||||
INC HL
|
||||
LD (HL),D
|
||||
POP AF
|
||||
POP HL
|
||||
OUT (SLOT3),A
|
||||
AND A
|
||||
RET
|
||||
|
||||
;R01
|
||||
; A - NEW FAT BLOCK
|
||||
|
||||
RE_FAT PUSH HL
|
||||
PUSH AF
|
||||
LD A,(FATCASH+1)
|
||||
OR A
|
||||
CALL NZ,WR_FAT_
|
||||
POP AF
|
||||
LD L,A
|
||||
LD H,0
|
||||
LD (FATCASH),HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL ;FAT BLOCK * 16 = SECTOR OF FAT
|
||||
LD DE,(FatBuffer.FAT_FRM)
|
||||
ADD HL,DE
|
||||
EX DE,HL
|
||||
LD IX,0
|
||||
ADD IX,DE
|
||||
LD HL,0 ;HL:IX - SECTOR FAT FOR READING
|
||||
LD DE,FAT ; DE - FAT ADDRESS
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
; LD B,16
|
||||
; LD C,5
|
||||
LD BC,16*256 + 5 ;ॣ B: 16 * 512 = 8192 (CASH SIZE)
|
||||
RST #18
|
||||
POP HL
|
||||
RET
|
||||
|
||||
WR_FAT EXX
|
||||
LD A,FATPAGE
|
||||
CALL BANK
|
||||
EXX
|
||||
PUSH AF
|
||||
CALL WR_FAT_
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
RET
|
||||
|
||||
WR_FAT_ LD HL,(FATCASH)
|
||||
LD H,0
|
||||
LD (FATCASH),HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL ;FAT BLOCK * 16 = SECTOR OF FAT
|
||||
|
||||
PUSH HL
|
||||
LD B,H
|
||||
LD C,L ;BC - BLOCK OF FAT
|
||||
LD DE,16
|
||||
ADD HL,DE ;+ SIZE CASH (16 SECTORS)
|
||||
|
||||
LD DE,(BootSector.S_P_F)
|
||||
LD A,16
|
||||
AND A
|
||||
SBC HL,DE
|
||||
JR C,WALLFAT
|
||||
EX DE,HL
|
||||
LD HL,16
|
||||
; AND A ;âãâ â®ç® CF ¥ ¢§¢¥¤ñ
|
||||
SBC HL,DE
|
||||
JP C,FATERR
|
||||
LD A,L
|
||||
WALLFAT LD H,B
|
||||
LD L,C
|
||||
LD DE,(FatBuffer.FAT_FRM)
|
||||
ADD HL,DE
|
||||
EX DE,HL
|
||||
LD IX,0
|
||||
ADD IX,DE
|
||||
LD HL,0 ;HL:IX - SECTOR OF FAT FOR SAVE
|
||||
LD DE,FAT
|
||||
LD B,A
|
||||
LD C,6
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
PUSH BC
|
||||
RST #18
|
||||
POP BC
|
||||
POP HL
|
||||
LD DE,(FatBuffer.FAT2_XX)
|
||||
ADD HL,DE
|
||||
EX DE,HL
|
||||
LD IX,0
|
||||
ADD IX,DE
|
||||
LD DE,FAT
|
||||
LD HL,0
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
LD C,6
|
||||
RST #18
|
||||
RET
|
||||
;R01
|
||||
|
||||
;R01WR_FAT LD HL,(FATCASH)
|
||||
;R01 LD H,0
|
||||
;R01 LD (FATCASH),HL
|
||||
;R01 LD E,L
|
||||
;R01 LD D,H
|
||||
;R01 ADD HL,HL
|
||||
;R01 ADD HL,DE
|
||||
;R01 PUSH HL
|
||||
;R01 LD B,H
|
||||
;R01 LD C,L
|
||||
;R01 INC HL
|
||||
;R01 INC HL
|
||||
;R01 INC HL
|
||||
;R01 LD DE,(S_P_F)
|
||||
;R01 LD A,3
|
||||
;R01 AND A
|
||||
;R01 SBC HL,DE
|
||||
;R01 JP C,WR_FAT1
|
||||
;R01 EX DE,HL
|
||||
;R01 LD HL,3
|
||||
;R01 AND A
|
||||
;R01 SBC HL,DE
|
||||
;R01 JP C,FATERR
|
||||
;R01 LD A,L
|
||||
;R01WR_FAT1 LD H,B
|
||||
;R01 LD L,C
|
||||
;R01 LD DE,(FAT_FRM)
|
||||
;R01 ADD HL,DE
|
||||
;R01 EX DE,HL
|
||||
;R01 LD IX,0
|
||||
;R01 ADD IX,DE
|
||||
;R01 LD DE,FAT
|
||||
;R01 LD HL,0
|
||||
;R01 LD B,A
|
||||
;R01 LD C,6
|
||||
;R01 LD A,(DRIVE)
|
||||
;R01 PUSH BC
|
||||
;R01 RST #18
|
||||
;R01 POP BC
|
||||
;R01 POP HL
|
||||
;R01 LD DE,(FAT2_XX)
|
||||
;R01 ADD HL,DE
|
||||
;R01 EX DE,HL
|
||||
;R01 LD IX,0
|
||||
;R01 ADD IX,DE
|
||||
;R01 LD DE,FAT
|
||||
;R01 LD HL,0
|
||||
;R01 LD A,(DRIVE)
|
||||
;R01 LD C,6
|
||||
;R01 RST #18
|
||||
;R01 RET
|
||||
|
||||
FATERR: POP HL
|
||||
; SCF
|
||||
RET
|
||||
|
||||
FATCASH DW #0000
|
||||
MAX_CLU DW #0FF0
|
||||
|
||||
;//MODULE: FAT_X
|
||||
;[END]
|
||||
|
||||
|
||||
366
DSS/FDD_DRV0.ASM
Normal file
366
DSS/FDD_DRV0.ASM
Normal file
@ -0,0 +1,366 @@
|
||||
|
||||
; Disk Driver Specification ver. 2.00
|
||||
;[]===========================================================[]
|
||||
;Procedure : Initialization
|
||||
;
|
||||
;Function : Initialization device(s)
|
||||
;
|
||||
;Input : C = 00h
|
||||
; IX - Environment
|
||||
;Output : A = Amount drive support
|
||||
; HL = Size driver
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Open
|
||||
;
|
||||
;Function : Open disk
|
||||
;
|
||||
;Input : C = 01h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Close
|
||||
;
|
||||
;Function : Close disk
|
||||
;
|
||||
;Input : C = 02h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Media check
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 03h
|
||||
; A - Drive
|
||||
;Output : A = 00h disk no changed
|
||||
; A = 0FFh disk changed
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Get BPB
|
||||
;
|
||||
;Function : Get Block Parameters BIOS
|
||||
;
|
||||
;Input : C = 04h
|
||||
; DE - Address
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Input
|
||||
;
|
||||
;Function : Input from disk
|
||||
;
|
||||
;Input : C = 05h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Output
|
||||
;
|
||||
;Function : Output to disk
|
||||
;
|
||||
;Input : C = 06h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Removable
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 07h
|
||||
; A - Drive
|
||||
;Output : A = 00h Removable
|
||||
; A = FFh Nonremovable
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Generic IOCTL
|
||||
;
|
||||
;Function : Generic Input Output Control
|
||||
;
|
||||
;Input : C = 08h
|
||||
; B - Subcommand
|
||||
; DE = 55AAh Magic Number
|
||||
; Subcommand
|
||||
;----------------------
|
||||
; 00h - Get Device Parameters
|
||||
; 01h - Read track
|
||||
; 02h - Test track
|
||||
; 80h - Set Device Parameters
|
||||
; 81h - Write track
|
||||
; 82h - Format track
|
||||
;Output :
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;
|
||||
; Errors:
|
||||
; 0 (00h) - NO ERRORS
|
||||
; 1 (01h) - BAD COMMAND
|
||||
; 2 (02h) - BAD DRIVE NUMBER
|
||||
; 3 (03h) - UNKNOW FORMAT
|
||||
; 4 (04h) - NOT READY
|
||||
; 5 (05h) - SEEK ERROR
|
||||
; 6 (06h) - SECTOR NOT FOUND
|
||||
; 7 (07h) - CRC ERROR
|
||||
; 8 (08h) - WRITE PROTECT
|
||||
; 9 (09h) - READ ERROR
|
||||
; 10 (0Ah) - WRITE ERROR
|
||||
; 11 (0Bh) - FAILURE
|
||||
; 12 (0Ch) - BUSY (DEVICE OPENED)
|
||||
; 13 (0Dh) - RESERVED
|
||||
|
||||
R_COM EQU #0F ;Command/Status
|
||||
R_TRK EQU #3F ;Track
|
||||
R_SEC EQU #5F ;Sector
|
||||
R_DAT EQU #7F ;Data
|
||||
R_DSK EQU #FF ;Drive Control
|
||||
|
||||
COM_B EQU #1B
|
||||
|
||||
FDDRIVE:
|
||||
INC C
|
||||
DEC C
|
||||
JP Z,.INIT ;#00
|
||||
DEC C
|
||||
JP Z,.RESE ;#01
|
||||
DEC C
|
||||
JP Z,.STAT ;#02
|
||||
DEC C
|
||||
JP Z,.CHEK ;#03
|
||||
DEC C
|
||||
JP Z,.GBPB ;#04
|
||||
DEC C
|
||||
JP Z,.READD ;#05
|
||||
DEC C
|
||||
JP Z,.WRITED ;#06
|
||||
DEC C
|
||||
JP Z,.REMOV_F ;#07
|
||||
DEC C
|
||||
JP Z,.IOCTL_F ;#08
|
||||
DEC C
|
||||
JP Z,.RESRV_F ;#09
|
||||
.RESRV_F:
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
;Commands for restart #18
|
||||
.INIT: LD A,2 ;ª®«¨ç¥á⢮ FDD ¢ ª®¬¯¥ ;!FIXIT ¥á«¨ ®âª«îçã ¢ <20>ˆŽ‘?
|
||||
AND A
|
||||
RET
|
||||
|
||||
.RESE: LD C,#51
|
||||
RST ToBIOS
|
||||
RET
|
||||
|
||||
.STAT: XOR A
|
||||
RET
|
||||
;!FIXIT ¯à®¢¥àïâì ‚ƒ93 ª®£¤ íâ® á⠥⠢®§¬®¦ë¬
|
||||
.CHEK: LD A,#FF
|
||||
AND A
|
||||
RET
|
||||
|
||||
;DE - ADDRESS
|
||||
|
||||
.GBPB: LD IX,0
|
||||
LD HL,0
|
||||
PUSH DE
|
||||
PUSH AF
|
||||
LD BC,#0155
|
||||
RST ToBIOS
|
||||
POP DE
|
||||
POP HL
|
||||
RET C
|
||||
LD BC,#0018
|
||||
ADD HL,BC
|
||||
LD E,(HL)
|
||||
PUSH DE
|
||||
LD A,D
|
||||
LD C,#58
|
||||
RST ToBIOS
|
||||
LD A,H
|
||||
POP HL
|
||||
PUSH HL
|
||||
LD H,A
|
||||
POP AF
|
||||
LD C,#59
|
||||
RST ToBIOS
|
||||
XOR A
|
||||
RET
|
||||
;READTR:
|
||||
XOR A
|
||||
RET
|
||||
|
||||
.READD: LD C,#55
|
||||
RST ToBIOS
|
||||
RET
|
||||
|
||||
.WRITED:
|
||||
LD C,#56
|
||||
RST ToBIOS
|
||||
RET
|
||||
|
||||
; 00 - GET DEVICE PARAMETERS
|
||||
; 01 - READ TRACK
|
||||
; 02 - TEST TRACK
|
||||
; 80 - SET DEVICE PARAMETERS
|
||||
; 81 - WRITE TRACK
|
||||
; 82 - FORMAT TRACK
|
||||
|
||||
|
||||
.IOCTL_F:
|
||||
BIT 7,B
|
||||
JR NZ,.O_CTL_F
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,.FGETPRM
|
||||
; DEC B
|
||||
; JP Z,FRDTRAC
|
||||
; DEC B
|
||||
; JP Z,FCHTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
.O_CTL_F:
|
||||
RES 7,B
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,.FSETPRM
|
||||
; DEC B
|
||||
; JP Z,FWRTRAC
|
||||
; DEC B
|
||||
; JP Z,FFRTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
|
||||
; HL:DE - SECTORS ON LOGICAL DISK
|
||||
; HL' - CYLINDERS ON PHISICAL DISK
|
||||
; DE' - HEADS ON PHISICAL DISK
|
||||
; BC' - SECTORS PER TRACK ON PHISICAL DISK
|
||||
; A' - PHISICAL DRIVE NUMBER
|
||||
; A - EXTENDED INFORMATION
|
||||
; D0...D3 - "0" RESERVED (MAY BE OTHER)
|
||||
; D4 - DEVICE MASTER/SLAVE
|
||||
; D5 - "1" RESERVED
|
||||
; D6 - ADDRESSING MODE LBA/CHS
|
||||
; D7 - "1" RESERVED
|
||||
|
||||
.FGETPRM:
|
||||
EX DE,HL
|
||||
LD BC,#55AA
|
||||
AND A
|
||||
SBC HL,BC
|
||||
LD L,A
|
||||
LD A,DSS_Error.drv.GENERAL_FAILURE
|
||||
SCF
|
||||
RET NZ
|
||||
LD A,L
|
||||
AND #0F
|
||||
PUSH AF
|
||||
LD C,#58
|
||||
RST ToBIOS
|
||||
JR C,.NONEF
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
LD A,H
|
||||
LD H,0
|
||||
.MULL1 ADD HL,HL
|
||||
DEC A
|
||||
JR NZ,.MULL1
|
||||
; HL - SECTOR PER CYLLINDER
|
||||
LD B,H
|
||||
LD C,L
|
||||
LD HL,0
|
||||
EX AF,AF'
|
||||
XOR A
|
||||
.MULL2 EX AF,AF'
|
||||
ADD HL,BC
|
||||
ADC A,0
|
||||
DEC DE
|
||||
EX AF,AF'
|
||||
LD A,D
|
||||
OR E
|
||||
JR NZ,.MULL2
|
||||
EX AF,AF'
|
||||
LD E,A
|
||||
EX DE,HL
|
||||
EXX
|
||||
POP DE
|
||||
POP HL
|
||||
POP AF
|
||||
EX AF,AF'
|
||||
LD A,B
|
||||
LD C,L
|
||||
LD B,0
|
||||
LD L,H
|
||||
LD H,B
|
||||
EX DE,HL
|
||||
EXX
|
||||
AND A
|
||||
RET
|
||||
|
||||
.NONEF POP AF
|
||||
LD A,DSS_Error.drv.INVALID_DRIVE
|
||||
SCF
|
||||
RET
|
||||
|
||||
|
||||
; HL:DE - SECTORS ON LOGICAL DISK
|
||||
; HL' - CYLINDERS ON PHISICAL DISK
|
||||
; DE' - HEADS ON PHISICAL DISK
|
||||
; BC' - SECTORS PER TRACK ON PHISICAL DISK
|
||||
; A' - EXTENDED INFORMATION
|
||||
; D0...D3 - "0" RESERVED (MAY BE OTHER)
|
||||
; D4 - DEVICE MASTER/SLAVE
|
||||
; D5 - "1" RESERVED
|
||||
; D6 - ADDRESSING MODE LBA/CHS
|
||||
; D7 - "1" RESERVED
|
||||
|
||||
.FSETPRM:
|
||||
PUSH AF
|
||||
EXX
|
||||
EX DE,HL
|
||||
LD H,L
|
||||
LD L,C
|
||||
POP AF
|
||||
AND #0F
|
||||
PUSH AF
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
LD C,#58
|
||||
RST ToBIOS
|
||||
POP DE
|
||||
POP HL
|
||||
JR C,.NONEF
|
||||
POP AF
|
||||
LD C,#59
|
||||
RST ToBIOS
|
||||
RET C
|
||||
AND A
|
||||
RET
|
||||
|
||||
.REMOV_F:
|
||||
LD A,1
|
||||
AND A
|
||||
RET
|
||||
|
||||
;==============================================
|
||||
|
||||
|
||||
|
||||
706
DSS/IDE_DRV0.ASM
Normal file
706
DSS/IDE_DRV0.ASM
Normal file
@ -0,0 +1,706 @@
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R02 06-08-2001 DNS Secondary IDE
|
||||
;R01 06-08-2001 DNS Fixed BUG with partitions on Second hard disk
|
||||
;---------------------------------------------------------------
|
||||
;
|
||||
; Disk Driver Specification ver. 2.20
|
||||
;[]===========================================================[]
|
||||
;Procedure : Initialization
|
||||
;
|
||||
;Function : Initialization device(s)
|
||||
;
|
||||
;Input : C = 00h
|
||||
; IX - Environment
|
||||
;Output : A = Amount drive support
|
||||
; HL = Size driver
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Open
|
||||
;
|
||||
;Function : Open disk
|
||||
;
|
||||
;Input : C = 01h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Close
|
||||
;
|
||||
;Function : Close disk
|
||||
;
|
||||
;Input : C = 02h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Media check
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 03h
|
||||
; A - Drive
|
||||
;Output : A = 00h disk no changed
|
||||
; A = 0FFh disk changed
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Get BPB
|
||||
;
|
||||
;Function : Get Block Parameters BIOS
|
||||
;
|
||||
;Input : C = 04h
|
||||
; DE - Address
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Input
|
||||
;
|
||||
;Function : Input from disk
|
||||
;
|
||||
;Input : C = 05h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Output
|
||||
;
|
||||
;Function : Output to disk
|
||||
;
|
||||
;Input : C = 06h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Removable
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 07h
|
||||
; A - Drive
|
||||
;Output : A = 00h Removable
|
||||
; A = FFh Nonremovable
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Generic IOCTL
|
||||
;
|
||||
;Function : Generic Input Output Control
|
||||
;
|
||||
;Input : C = 08h
|
||||
; B - Subcommand
|
||||
; DE = 55AAh Magic Number
|
||||
; Subcommand
|
||||
;----------------------
|
||||
; 00h - Get Device Parameters
|
||||
; 01h - Read track
|
||||
; 02h - Test track
|
||||
; 80h - Set Device Parameters
|
||||
; 81h - Write track
|
||||
; 82h - Format track
|
||||
;Output :
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Read Long
|
||||
;
|
||||
;Function : Reading sectors from disk
|
||||
;
|
||||
;Input : C = 0Ah
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
; A'- Page
|
||||
;Output : A'- Next Page
|
||||
; HL:IX - Next Logical Block (sector)
|
||||
; DE - Next Address
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;[]===========================================================[]
|
||||
;Procedure : Write Long
|
||||
;
|
||||
;Function : Writing sectors to disk
|
||||
;
|
||||
;Input : C = 0Bh
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
; A'- Page
|
||||
;Output : A'- Next Page
|
||||
; HL:IX - Next Logical Block (sector)
|
||||
; DE - Next Address
|
||||
;
|
||||
;[]===========================================================[]
|
||||
;
|
||||
; Errors:
|
||||
; 0 (00h) - NO ERRORS
|
||||
; 1 (01h) - BAD COMMAND
|
||||
; 2 (02h) - BAD DRIVE NUMBER
|
||||
; 3 (03h) - UNKNOW FORMAT
|
||||
; 4 (04h) - NOT READY
|
||||
; 5 (05h) - SEEK ERROR
|
||||
; 6 (06h) - SECTOR NOT FOUND
|
||||
; 7 (07h) - CRC ERROR
|
||||
; 8 (08h) - WRITE PROTECT
|
||||
; 9 (09h) - READ ERROR
|
||||
; 10 (0Ah) - WRITE ERROR
|
||||
; 11 (0Bh) - FAILURE
|
||||
; 12 (0Ch) - BUSY (DEVICE OPENED)
|
||||
; 13 (0Dh) - RESERVED
|
||||
|
||||
LD_DSK EQU 16
|
||||
|
||||
IDE0 EQU #0C1C0
|
||||
IDE1 EQU #0C1C8
|
||||
PART EQU #C000
|
||||
|
||||
HDDRIVE INC C
|
||||
DEC C
|
||||
JP Z,INIT_H ;#00
|
||||
DEC C
|
||||
JP Z,RESE_H ;#01
|
||||
DEC C
|
||||
JP Z,STAT_H ;#02
|
||||
DEC C
|
||||
JP Z,CHEK_H ;#03
|
||||
DEC C
|
||||
JP Z,GBPB_H ;#04
|
||||
DEC C
|
||||
JP Z,READH ;#05
|
||||
DEC C
|
||||
JP Z,WRITEH ;#06
|
||||
DEC C
|
||||
JP Z,REMOV_H ;#07
|
||||
DEC C
|
||||
JP Z,IOCTL_H ;#08
|
||||
DEC C
|
||||
JP Z,RESR_H ;#09
|
||||
DEC C
|
||||
JP Z,LREADH ;#0A
|
||||
DEC C
|
||||
JP Z,LWRITEH ;#0B
|
||||
RESR_H LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
;Commands for restart #18
|
||||
INIT_H PUSH IY
|
||||
LD HL,LOGDRV
|
||||
LD (OFFSECT),HL
|
||||
LD IX,DEVICE_CFG
|
||||
LD C,#5F
|
||||
RST ToBIOS
|
||||
XOR A
|
||||
LD B,(IX+2) ;HDD
|
||||
CP B
|
||||
JR Z,NO_HARDS
|
||||
LD C,#80
|
||||
NX_DVCI PUSH BC
|
||||
LD A,C
|
||||
LD (DRV),A
|
||||
CALL PARTIT
|
||||
POP BC
|
||||
INC C
|
||||
DJNZ NX_DVCI
|
||||
;R02
|
||||
;R02 LD A,#80
|
||||
;R02 LD (DRV),A
|
||||
;R02 LD C,SLOT3
|
||||
;R02 IN B,(C)
|
||||
;R02 LD A,SYSPAGE
|
||||
;R02 OUT (C),A
|
||||
;R02 LD HL,IDE0
|
||||
;R02 CALL YEP_DRV
|
||||
;R02 OUT (C),B
|
||||
;R02 CALL NZ,PARTIT
|
||||
;R02
|
||||
;R02 LD A,#81
|
||||
;R02 LD (DRV),A
|
||||
;R02 LD C,SLOT3
|
||||
;R02 IN B,(C)
|
||||
;R02 LD A,SYSPAGE
|
||||
;R02 OUT (C),A
|
||||
;R02 LD HL,IDE1
|
||||
;R02 CALL YEP_DRV
|
||||
;R02 OUT (C),B
|
||||
;R02 CALL NZ,PARTIT
|
||||
NO_HARDS
|
||||
POP IY
|
||||
LD HL,(OFFSECT)
|
||||
LD DE,LOGDRV
|
||||
XOR A
|
||||
SBC HL,DE
|
||||
RET Z
|
||||
LD DE,LD_DSK
|
||||
DRVCLC INC A
|
||||
SBC HL,DE
|
||||
JR NZ,DRVCLC
|
||||
AND A
|
||||
RET
|
||||
|
||||
DEVICE_CFG EQU #4000
|
||||
; DB 0 ;LEN
|
||||
; DB 0 ;FDD COUNT
|
||||
; DB 0 ;HDD COUNT
|
||||
; DB 0 ;CDROM COUNT
|
||||
; DS 28 ;RESERVED
|
||||
|
||||
YEP_DRV LD A,#FF
|
||||
; CP (HL)
|
||||
; RET NZ
|
||||
INC HL
|
||||
CP (HL)
|
||||
RET NZ
|
||||
INC HL
|
||||
CP (HL)
|
||||
RET NZ
|
||||
INC HL
|
||||
CP (HL)
|
||||
RET NZ
|
||||
INC HL
|
||||
CP (HL)
|
||||
RET NZ
|
||||
INC HL
|
||||
CP (HL)
|
||||
RET
|
||||
|
||||
;+00 ;SECTORS PER TRACK
|
||||
;+01 ;TRACKS PER CYLLINDER
|
||||
;+02 ;RESERVED
|
||||
;+03 ;HDD/DRIVE/LBA
|
||||
;+04 ;SECTOR PER CYLINDER LOW
|
||||
;+05 ;SECTOR PER CYLINDER HIGH
|
||||
;+06 ;RESERVED
|
||||
;+07 ;RESERVED
|
||||
|
||||
DRVHD_H EQU 0
|
||||
SC_PT_H EQU 1
|
||||
HEADS_H EQU 2
|
||||
CYL_L_H EQU 3
|
||||
CYL_H_H EQU 4
|
||||
SPCLL_H EQU 5
|
||||
SPCLH_H EQU 6
|
||||
|
||||
|
||||
;IDE0 DB #FF ;DRIVE/HEAD REGISTER ;00
|
||||
; DB #FF ;SECTORS PER TRACK ;01
|
||||
; DB #FF ;HEADS ;02
|
||||
; DB #FF ;CYLINDERS LOW ;03
|
||||
; DB #FF ;CYLINDERS HIGH ;04
|
||||
; DB #FF ;SECTOR PER CYLINDER LOW ;05
|
||||
; DB #FF ;SECTOR PER CYLINDER HIGH ;06
|
||||
; DB #FF ;RESERVED ;07
|
||||
|
||||
;IDE1 DB #FF ;DRIVE/HEAD REGISTER ;00
|
||||
; DB #FF ;SECTORS PER TRACK ;01
|
||||
; DB #FF ;HEADS ;02
|
||||
; DB #FF ;CYLINDERS LOW ;03
|
||||
; DB #FF ;CYLINDERS HIGH ;04
|
||||
; DB #FF ;SECTOR PER CYLINDER LOW ;05
|
||||
; DB #FF ;SECTOR PER CYLINDER HIGH ;06
|
||||
; DB #FF ;RESERVED ;07
|
||||
|
||||
LOGDRV DS 12*LD_DSK
|
||||
;+00 BYTE MASTER/SLAVE PHISICAL DRIVE NUMBER #80/#81/...
|
||||
;+01 LONG SECTOR OFFSET
|
||||
;+05 LONG SIZE IN SECTORS
|
||||
;+09 FREE
|
||||
;+15
|
||||
|
||||
SELHDD PUSH DE
|
||||
PUSH BC
|
||||
PUSH HL
|
||||
LD L,A
|
||||
LD H,0
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
EX DE,HL
|
||||
LD IY,LOGDRV
|
||||
ADD IY,DE
|
||||
LD C,(IY+1)
|
||||
LD B,(IY+2)
|
||||
LD E,(IY+3)
|
||||
LD D,(IY+4)
|
||||
POP HL
|
||||
ADD IX,BC
|
||||
ADC HL,DE
|
||||
LD A,(IY+0) ;DRIVE NUMBER
|
||||
POP BC
|
||||
POP DE
|
||||
RET
|
||||
|
||||
; 00 - GET DEVICE PARAMETERS
|
||||
; 01 - READ TRACK
|
||||
; 02 - TEST TRACK
|
||||
; 80 - SET DEVICE PARAMETERS
|
||||
; 81 - WRITE TRACK
|
||||
; 82 - FORMAT TRACK
|
||||
|
||||
|
||||
IOCTL_H BIT 7,B
|
||||
JR NZ,O_CTL_H
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,HGETPRM
|
||||
DEC B
|
||||
JP Z,HRDTRAC
|
||||
DEC B
|
||||
JP Z,HCHTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
O_CTL_H RES 7,B
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,HSETPRM
|
||||
DEC B
|
||||
JP Z,HWRTRAC
|
||||
DEC B
|
||||
JP Z,HFRTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
HRDTRAC LD A,DSS_Error.drv.GENERAL_FAILURE
|
||||
SCF
|
||||
RET
|
||||
|
||||
HCHTRAC LD B,L
|
||||
CALL CHECKH
|
||||
RET
|
||||
|
||||
HSETPRM AND A
|
||||
RET
|
||||
|
||||
HWRTRAC LD A,DSS_Error.drv.GENERAL_FAILURE
|
||||
SCF
|
||||
RET
|
||||
|
||||
HFRTRAC LD A,DSS_Error.drv.GENERAL_FAILURE
|
||||
SCF
|
||||
RET
|
||||
|
||||
; HL:DE - SECTORS ON LOGICAL DISK
|
||||
; HL' - CYLINDERS ON PHISICAL DISK
|
||||
; DE' - HEADS ON PHISICAL DISK
|
||||
; BC' - SECTORS PER TRACK ON PHISICAL DISK
|
||||
; A' - PHISICAL DRIVE NUMBER
|
||||
; A - DRIVE/HEAD REGISTER PHISICAL DISK
|
||||
; D0...D3 - "0" RESERVED (MAY BE OTHER)
|
||||
; D4 - DEVICE MASTER/SLAVE
|
||||
; D5 - "1" RESERVED
|
||||
; D6 - ADDRESSING MODE LBA/CHS
|
||||
; D7 - "1" RESERVED
|
||||
|
||||
HGETPRM EX DE,HL
|
||||
LD BC,#55AA
|
||||
AND A
|
||||
SBC HL,BC
|
||||
LD L,A
|
||||
LD A,DSS_Error.drv.GENERAL_FAILURE
|
||||
SCF
|
||||
RET NZ
|
||||
PUSH IY
|
||||
LD H,0
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
LD B,H
|
||||
LD C,L
|
||||
LD IY,LOGDRV ;!FIXIT åॠâãâ ¨¤¥ªáë©?
|
||||
ADD IY,BC
|
||||
LD E,(IY+5)
|
||||
LD D,(IY+6)
|
||||
LD L,(IY+7)
|
||||
LD H,(IY+8)
|
||||
|
||||
LD A,(IY+0)
|
||||
LD C,A
|
||||
LD IY,IDE0 ;!FIXIT IDE CHANELS âã⠢ᥣ® 2 ª « à ¡®â îâ
|
||||
AND #0F
|
||||
JR Z,GELH1
|
||||
LD IY,IDE1
|
||||
GELH1 IN A,(SLOT3)
|
||||
PUSH AF
|
||||
LD A,SYS_PAGE
|
||||
OUT (SLOT3),A
|
||||
|
||||
LD A,(IY+DRVHD_H) ;HDD/DRV
|
||||
EXX
|
||||
LD L,(IY+CYL_L_H) ;CYLINDER LOW
|
||||
LD H,(IY+CYL_H_H) ;CYLINDER HIGH
|
||||
LD E,(IY+HEADS_H) ;HEADS
|
||||
LD D,0
|
||||
LD C,(IY+SC_PT_H) ;SECTORS
|
||||
LD B,0
|
||||
EXX
|
||||
EX AF,AF'
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
LD A,C
|
||||
EX AF,AF'
|
||||
POP IY
|
||||
AND A
|
||||
RET
|
||||
|
||||
REMOV_H LD A,1
|
||||
AND A
|
||||
RET
|
||||
|
||||
RESE_H XOR A
|
||||
RET
|
||||
|
||||
STAT_H XOR A
|
||||
RET
|
||||
|
||||
CHEK_H LD A,#FF
|
||||
AND A
|
||||
RET
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
|
||||
GBPB_H PUSH IY
|
||||
PUSH DE
|
||||
LD L,A
|
||||
LD H,0
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
LD B,H
|
||||
LD C,L
|
||||
LD IY,LOGDRV
|
||||
ADD IY,BC
|
||||
LD E,(IY+1)
|
||||
LD D,(IY+2)
|
||||
LD L,(IY+3)
|
||||
LD H,(IY+4)
|
||||
LD XL,E
|
||||
LD XH,D
|
||||
LD A,(IY+0)
|
||||
POP DE
|
||||
POP IY
|
||||
LD BC,#0155
|
||||
RST ToBIOS
|
||||
RET
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
; A'- PAGE
|
||||
;READ SECTOR
|
||||
LREADH PUSH IY
|
||||
CALL SELHDD
|
||||
LD C,#52 ; A - HDD NUMBER +128
|
||||
RST ToBIOS
|
||||
POP IY
|
||||
RET
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
; A'- PAGE
|
||||
;WRITE SECTOR
|
||||
LWRITEH PUSH IY
|
||||
CALL SELHDD
|
||||
LD C,#53 ; A - HDD NUMBER +128
|
||||
RST ToBIOS
|
||||
POP IY
|
||||
RET
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
;WRITE SECTOR
|
||||
WRITEH PUSH IY
|
||||
CALL SELHDD
|
||||
LD C,#56 ; A - HDD NUMBER +128
|
||||
RST ToBIOS
|
||||
POP IY
|
||||
RET
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
;READ SECTOR
|
||||
READH PUSH IY
|
||||
CALL SELHDD
|
||||
LD C,#55 ; A - HDD NUMBER +128
|
||||
RST ToBIOS
|
||||
POP IY
|
||||
RET
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
;CHECK SECTOR
|
||||
CHECKH PUSH IY
|
||||
CALL SELHDD
|
||||
LD C,#54 ; A - HDD NUMBER +128
|
||||
RST ToBIOS
|
||||
POP IY
|
||||
RET
|
||||
|
||||
;-----------------
|
||||
EASYDOS
|
||||
MEDIDOS
|
||||
HIGHDOS LD E,(IY+08)
|
||||
LD D,(IY+09)
|
||||
LD L,(IY+10)
|
||||
LD H,(IY+11)
|
||||
LD IX,(CURSECL)
|
||||
ADD IX,DE
|
||||
LD DE,(CURSECH)
|
||||
ADC HL,DE
|
||||
LD D,XH
|
||||
LD E,XL
|
||||
LD IX,(OFFSECT)
|
||||
LD (IX+1),E ;BPB SECTOR
|
||||
LD (IX+2),D
|
||||
LD (IX+3),L
|
||||
LD (IX+4),H
|
||||
; LD DE,(CURSECL)
|
||||
; LD HL,(CURSECH)
|
||||
; LD (IX+1),E ;START DISK
|
||||
; LD (IX+2),D
|
||||
; LD (IX+3),L
|
||||
; LD (IX+4),H
|
||||
LD E,(IY+12)
|
||||
LD D,(IY+13)
|
||||
LD L,(IY+14)
|
||||
LD H,(IY+15)
|
||||
LD (IX+5),E ;SIZE DISK
|
||||
LD (IX+6),D
|
||||
LD (IX+7),L
|
||||
LD (IX+8),H
|
||||
LD A,(DRV)
|
||||
LD (IX+0),A
|
||||
LD DE,LD_DSK ; DSKITEM
|
||||
ADD IX,DE
|
||||
LD (OFFSECT),IX
|
||||
NXTPART LD DE,#10
|
||||
ADD IY,DE
|
||||
POP BC
|
||||
DJNZ DOSAGA
|
||||
AND A
|
||||
RET
|
||||
|
||||
PARTIT IN A,(SLOT3)
|
||||
PUSH AF
|
||||
LD A,#FF
|
||||
OUT (SLOT3),A
|
||||
CALL PARTIT1
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
RET
|
||||
|
||||
PARTIT1 LD IX,0
|
||||
LD DE,0
|
||||
LD (EXTDOSL),DE ;R01
|
||||
LD (EXTDOSH),IX ;R01
|
||||
PARTIT2 LD (CURSECL),DE
|
||||
LD (CURSECH),IX
|
||||
CALL LOADSEC
|
||||
LD HL,(PART+510)
|
||||
LD DE,#AA55
|
||||
AND A
|
||||
SBC HL,DE
|
||||
JR NZ,NODEFIN
|
||||
LD IY,PART+#01BE
|
||||
LD B,4
|
||||
DOSAGA PUSH BC
|
||||
LD A,(IY+4)
|
||||
CP 5
|
||||
JR NZ,NOEXTDS
|
||||
SUBLEV PUSH IY
|
||||
LD DE,(CURSECL)
|
||||
LD IX,(CURSECH)
|
||||
PUSH DE
|
||||
PUSH IX
|
||||
CALL EXTDOS
|
||||
POP IX
|
||||
POP DE
|
||||
LD (CURSECL),DE
|
||||
LD (CURSECH),IX
|
||||
CALL LOADSEC
|
||||
POP IY
|
||||
JP NXTPART
|
||||
NOEXTDS CP #0F
|
||||
JP Z,SUBLEV
|
||||
CP #0E
|
||||
JP Z,HIGHDOS
|
||||
CP 6
|
||||
JP Z,HIGHDOS
|
||||
CP 4
|
||||
JP Z,MEDIDOS
|
||||
CP 1
|
||||
JP Z,EASYDOS
|
||||
POP BC
|
||||
OR A
|
||||
RET Z
|
||||
NODEFIN SCF
|
||||
RET
|
||||
|
||||
EXTDOS
|
||||
LD HL,(EXTDOSL)
|
||||
LD DE,(EXTDOSH)
|
||||
LD A,L
|
||||
OR H
|
||||
OR E
|
||||
OR D
|
||||
LD E,(IY+08)
|
||||
LD D,(IY+09)
|
||||
LD L,(IY+10)
|
||||
LD H,(IY+11)
|
||||
JP NZ,EXTDOS2
|
||||
LD (EXTDOSL),DE
|
||||
LD (EXTDOSH),HL
|
||||
LD IX,(EXTDOSH)
|
||||
JP PARTIT2
|
||||
|
||||
EXTDOS2 LD IX,(EXTDOSL)
|
||||
ADD IX,DE
|
||||
PUSH IX
|
||||
LD DE,(EXTDOSH)
|
||||
ADC HL,DE
|
||||
PUSH HL
|
||||
POP IX
|
||||
POP DE
|
||||
JP PARTIT2
|
||||
|
||||
LOADSEC PUSH IY
|
||||
LD IX,(CURSECL)
|
||||
LD HL,(CURSECH)
|
||||
LD DE,PART
|
||||
LD BC,#0155
|
||||
LD A,(DRV)
|
||||
RST ToBIOS
|
||||
POP IY
|
||||
RET
|
||||
|
||||
DRV DB #00 ;PHISICAL DRIVE NUMBER
|
||||
|
||||
CURSECL DW #0000 ;CURRENT SECTOR LOADED
|
||||
CURSECH DW #0000
|
||||
|
||||
EXTDOSL DW #0000 ;CURRENT PARTITION TABLE
|
||||
EXTDOSH DW #0000
|
||||
|
||||
OFFSECT DW LOGDRV ;POINTER ON CURRENT DISK RECORD
|
||||
|
||||
;=======================================================
|
||||
920
DSS/INTMOUSE.ASM
Normal file
920
DSS/INTMOUSE.ASM
Normal file
@ -0,0 +1,920 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: INTMOUSE
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
|
||||
CMOUSE EQU #1B ; !FIXIT sp2000.inc
|
||||
DMOUSE EQU #1A ; !FIXIT sp2000.inc
|
||||
|
||||
; MOUSE SOFTWARE SPECIFICATION
|
||||
;---------------------------------------------
|
||||
; COMMAND 00h (INITIALIZATION)
|
||||
;
|
||||
; RETURN: NC - MOUSE PRESENT
|
||||
; C - MOUSE ABSENT
|
||||
;---------------------------------------------
|
||||
; COMMAND 01h (SHOW MOUSE CURSOR)
|
||||
;
|
||||
; RETURN: NC - DONE
|
||||
; C - MOUSE ON SCREEN
|
||||
;---------------------------------------------
|
||||
; COMMAND 02h (HIDE MOUSE CURSOR)
|
||||
;
|
||||
; RETURN: NC - DONE
|
||||
; C - NONE MOUSE
|
||||
;---------------------------------------------
|
||||
; COMMAND 03h (READ MOUSE STATE)
|
||||
;
|
||||
; RETURN: HL - X COORD
|
||||
; DE - Y COORD
|
||||
; A - BUTTONS D2-D0 (MIDDLE,RIGHT,LEFT)
|
||||
;---------------------------------------------
|
||||
; COMMAND 04h (GOTO MOUSE CURSOR)
|
||||
;
|
||||
; INPUT: HL - X COORD
|
||||
; DE - Y COORD
|
||||
;---------------------------------------------
|
||||
; COMMAND 05h (RESERVED)
|
||||
;---------------------------------------------
|
||||
; COMMAND 06h (RESERVED)
|
||||
;---------------------------------------------
|
||||
; COMMAND 07h (SET VERT. BOUNDS)
|
||||
;
|
||||
; INPUT: HL - Y MIN
|
||||
; DE - Y MAX
|
||||
;---------------------------------------------
|
||||
; COMMAND 08h (SET HORZ. BOUNDS)
|
||||
;
|
||||
; INPUT: HL - X MIN
|
||||
; DE - X MAX
|
||||
;---------------------------------------------
|
||||
; COMMAND 09h (LOAD CURSOR)
|
||||
;
|
||||
; INPUT: IX - CURSOR IMAGE
|
||||
; H - HEIGHT CURSOR
|
||||
; L - WIDTH CURSOR
|
||||
; D - Y HOT SPOT
|
||||
; E - X HOT SPOT
|
||||
; B = 0
|
||||
;---------------------------------------------
|
||||
; COMMAND 0Ah (SET CURSOR IN TEXT MODES)
|
||||
;
|
||||
; INPUT: H - AND SIMBOL MASK
|
||||
; L - XOR SIMBOL MASK
|
||||
; D - AND ATTRIBUT MASK
|
||||
; E - XOR ATTRIBUT MASK
|
||||
; B = 0
|
||||
;---------------------------------------------
|
||||
; COMMAND 0Bh (RETURN CURSOR)
|
||||
;
|
||||
; INPUT: IX - CURSOR IMAGE BUFFER
|
||||
; OUTPUT: H - HEIGHT CURSOR
|
||||
; L - WIDTH CURSOR
|
||||
; D - Y HOT SPOT
|
||||
; E - X HOT SPOT
|
||||
;---------------------------------------------
|
||||
; COMMAND 0Ch (RESERVED)
|
||||
;---------------------------------------------
|
||||
; COMMAND 0Dh (RESERVED)
|
||||
;---------------------------------------------
|
||||
; COMMAND 0Eh (GET SENSETIVE)
|
||||
; OUTPUT: H - VERTICAL SENSETIVE
|
||||
; L - HORIZONTAL SENSETIVE
|
||||
;---------------------------------------------
|
||||
; COMMAND 0Fh (SET SENSETIVE)
|
||||
; INPUT: H - VERTICAL SENSETIVE
|
||||
; L - HORIZONTAL SENSETIVE
|
||||
;---------------------------------------------
|
||||
; COMMAND 80h (MOUSE HARDWARE INTERRUPT)
|
||||
;---------------------------------------------
|
||||
; COMMAND 81h (CHANGE VIDEO MODE)
|
||||
; INPUT: A - MODE
|
||||
;---------------------------------------------
|
||||
; COMMAND 82h (RESERVED)
|
||||
;---------------------------------------------
|
||||
; COMMAND 83h (MOUSE REFRESH)
|
||||
;---------------------------------------------
|
||||
; ERRORS: 0 - NO ERROR
|
||||
; 1 - COMMAND NOT PRESENT
|
||||
; 2 - DEVICE ABSENT
|
||||
; 3 - CURSOR ON (UZHE)
|
||||
; 4 - CURSOR OFF (UZHE)
|
||||
; 5 - CURSOR IMAGE VERY BIG
|
||||
|
||||
INTMOUS BIT 7,C
|
||||
JP NZ,EMOUSE
|
||||
INC C
|
||||
DEC C
|
||||
JP Z,MS_INIT
|
||||
DEC C
|
||||
JP Z,MS_SHOW
|
||||
DEC C
|
||||
JP Z,MS_HIDD
|
||||
DEC C
|
||||
JP Z,MS_READ
|
||||
DEC C
|
||||
JP Z,MS_GOTO
|
||||
DEC C
|
||||
JP Z,MS_RESR
|
||||
DEC C
|
||||
JP Z,MS_RESR
|
||||
DEC C
|
||||
JP Z,MS_VERT
|
||||
DEC C
|
||||
JP Z,MS_HORZ
|
||||
DEC C
|
||||
JP Z,MS_CURS
|
||||
DEC C
|
||||
JP Z,MS_MASK
|
||||
DEC C
|
||||
JP Z,MS_BCUR
|
||||
DEC C
|
||||
JP Z,MS_RESR
|
||||
DEC C
|
||||
JP Z,MS_RESR
|
||||
DEC C
|
||||
JP Z,MS_GSEN
|
||||
DEC C
|
||||
JP Z,MS_SENT
|
||||
MS_RESR LD A,DSS_Error.mouse.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
EMOUSE RES 7,C
|
||||
INC C
|
||||
DEC C
|
||||
JP Z,M_INT
|
||||
DEC C
|
||||
JP Z,M_MODE
|
||||
DEC C
|
||||
JR Z,M_RESR
|
||||
DEC C
|
||||
JP Z,M_REFR
|
||||
M_RESR LD A,DSS_Error.mouse.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
MS_INIT DI
|
||||
LD A,85
|
||||
OUT (#10),A
|
||||
LD A,45
|
||||
OUT (#10),A
|
||||
XOR A ;LD A,0
|
||||
OUT (CMOUSE),A
|
||||
INC A ;LD A,1
|
||||
OUT (CMOUSE),A
|
||||
DEC A ;LD A,0
|
||||
OUT (CMOUSE),A
|
||||
LD A,3
|
||||
OUT (CMOUSE),A
|
||||
LD A,#41
|
||||
OUT (CMOUSE),A
|
||||
LD A,4
|
||||
OUT (CMOUSE),A
|
||||
LD A,#47
|
||||
OUT (CMOUSE),A
|
||||
LD A,5
|
||||
OUT (CMOUSE),A
|
||||
LD A,#E0
|
||||
OUT (CMOUSE),A
|
||||
EI
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MS_SHOW PUSH IX
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
EX AF,AF'
|
||||
PUSH AF
|
||||
LD HL,(PIX_X)
|
||||
LD DE,(PIX_Y)
|
||||
DI
|
||||
CALL MOUSE
|
||||
XOR A
|
||||
LD (REFRESH+1),A
|
||||
EI
|
||||
POP AF
|
||||
EX AF,AF'
|
||||
POP DE
|
||||
POP HL
|
||||
POP IX
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MS_HIDD PUSH IX
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
EX AF,AF'
|
||||
PUSH AF
|
||||
DI
|
||||
LD A,1
|
||||
LD (REFRESH+1),A
|
||||
CALL RESTORE
|
||||
EI
|
||||
POP AF
|
||||
EX AF,AF'
|
||||
POP DE
|
||||
POP HL
|
||||
POP IX
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MS_READ LD HL,(PIX_X)
|
||||
LD DE,(PIX_Y)
|
||||
LD A,(MB)
|
||||
AND A
|
||||
RET
|
||||
|
||||
MS_GOTO PUSH IX
|
||||
PUSH HL
|
||||
PUSH DE
|
||||
LD (PIX_X),HL
|
||||
LD (PIX_Y),DE
|
||||
EX AF,AF'
|
||||
PUSH AF
|
||||
DI
|
||||
CALL REFRESH
|
||||
EI
|
||||
POP AF
|
||||
EX AF,AF'
|
||||
POP DE
|
||||
POP HL
|
||||
POP IX
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MS_CURS PUSH BC
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
PUSH IX
|
||||
LD A,L
|
||||
LD (M_XSIZE),A
|
||||
LD A,H
|
||||
LD (M_YSIZE),A
|
||||
LD C,E
|
||||
LD B,0
|
||||
LD (XHOT_SP),BC
|
||||
LD C,D
|
||||
LD B,0
|
||||
LD (YHOT_SP),BC
|
||||
EXX
|
||||
LD A,(M_XSIZE)
|
||||
LD C,A
|
||||
LD B,0
|
||||
LD A,(M_YSIZE)
|
||||
LD HL,0
|
||||
MSCURS1 ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,MSCURS1
|
||||
PUSH HL
|
||||
LD BC,M_IMAGE.Size+1
|
||||
AND A
|
||||
SBC HL,BC
|
||||
CCF
|
||||
EXX
|
||||
POP BC
|
||||
POP HL
|
||||
LD A,5
|
||||
JR C,NOLOADM
|
||||
LD DE,M_IMAGE
|
||||
DI
|
||||
LDIR
|
||||
XOR A
|
||||
NOLOADM POP HL
|
||||
POP DE
|
||||
POP BC
|
||||
EI
|
||||
RET
|
||||
|
||||
MS_BCUR PUSH IX
|
||||
EXX
|
||||
LD A,(M_XSIZE)
|
||||
LD C,A
|
||||
LD B,0
|
||||
LD A,(M_YSIZE)
|
||||
LD HL,0
|
||||
MSBCUR1 ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,MSBCUR1
|
||||
PUSH HL
|
||||
LD BC,M_IMAGE.Size+1
|
||||
AND A
|
||||
SBC HL,BC
|
||||
CCF
|
||||
EXX
|
||||
POP BC
|
||||
POP HL
|
||||
LD A,5
|
||||
JR C,NOSAVEM
|
||||
LD DE,M_IMAGE
|
||||
EX DE,HL
|
||||
DI
|
||||
LDIR
|
||||
LD A,(M_XSIZE)
|
||||
LD L,A
|
||||
LD A,(M_YSIZE)
|
||||
LD H,A
|
||||
LD BC,(XHOT_SP)
|
||||
LD E,C
|
||||
LD BC,(YHOT_SP)
|
||||
LD D,C
|
||||
LD BC,0
|
||||
XOR A
|
||||
NOSAVEM EI
|
||||
RET
|
||||
|
||||
MS_HORZ
|
||||
LD (MIN_X),HL
|
||||
LD (MAX_X),DE
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MS_VERT
|
||||
LD (MIN_Y),HL
|
||||
LD (MAX_Y),DE
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MS_MASK
|
||||
LD (ANDXORS),HL
|
||||
LD (ANDXORA),DE
|
||||
XOR A
|
||||
RET
|
||||
|
||||
; H - VERTICAL SENSETIVE
|
||||
; L - HORIZONTAL SENSETIVE
|
||||
|
||||
MS_SENT
|
||||
LD (SENSEXY),HL
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MS_GSEN
|
||||
LD HL,(SENSEXY)
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MOUSET LD (REST_XT+1),HL
|
||||
LD (REST_YT+1),DE
|
||||
;Y
|
||||
SRL D
|
||||
RR E
|
||||
SRL D
|
||||
RR E
|
||||
SRL D
|
||||
RR E
|
||||
LD D,E
|
||||
;X
|
||||
SRL H
|
||||
RR L
|
||||
SRL H
|
||||
RR L
|
||||
SRL H
|
||||
RR L
|
||||
LD E,L
|
||||
|
||||
IN A,(PORT_Y)
|
||||
LD XH,A
|
||||
IN A,(SLOT1)
|
||||
LD XL,A
|
||||
;
|
||||
DI
|
||||
;
|
||||
LD A,#54
|
||||
OUT (SLOT1),A
|
||||
;
|
||||
LD A,D
|
||||
ADD A,A
|
||||
ADD A,A ;Y * 4
|
||||
LD L,A
|
||||
LD H,#43 ;+ #4300
|
||||
;
|
||||
IN A,(RGMOD)
|
||||
RRCA
|
||||
AND #80
|
||||
OR #01
|
||||
ADD A,E
|
||||
OUT (PORT_Y),A
|
||||
INC L
|
||||
LD A,(HL) ;SIMBOL
|
||||
LD BC,(ANDXORS)
|
||||
AND B
|
||||
XOR C
|
||||
LD (HL),A
|
||||
INC L
|
||||
LD A,(HL) ;ATTRIBUT
|
||||
LD BC,(ANDXORA)
|
||||
AND B
|
||||
XOR C
|
||||
LD (HL),A
|
||||
;
|
||||
LD A,XL
|
||||
OUT (SLOT1),A
|
||||
LD A,XH
|
||||
OUT (PORT_Y),A
|
||||
RET
|
||||
|
||||
RESTORT
|
||||
REST_XT LD HL,#0000
|
||||
REST_YT LD DE,#0000
|
||||
;Y
|
||||
SRL D
|
||||
RR E
|
||||
SRL D
|
||||
RR E
|
||||
SRL D
|
||||
RR E
|
||||
LD D,E
|
||||
;X
|
||||
SRL H
|
||||
RR L
|
||||
SRL H
|
||||
RR L
|
||||
SRL H
|
||||
RR L
|
||||
LD E,L
|
||||
|
||||
IN A,(PORT_Y)
|
||||
LD XH,A
|
||||
IN A,(SLOT1)
|
||||
LD XL,A
|
||||
;
|
||||
DI
|
||||
;
|
||||
LD A,#50
|
||||
OUT (SLOT1),A
|
||||
;
|
||||
LD A,D
|
||||
ADD A,A
|
||||
ADD A,A ;Y * 4
|
||||
LD L,A
|
||||
LD H,#43 ;+ #4300
|
||||
;
|
||||
IN A,(RGMOD)
|
||||
RRCA
|
||||
AND #80
|
||||
OR #01
|
||||
ADD A,E
|
||||
OUT (PORT_Y),A
|
||||
INC L
|
||||
LD A,(HL) ;SIMBOL
|
||||
LD (HL),A
|
||||
INC L
|
||||
LD A,(HL) ;ATTRIBUT
|
||||
LD (HL),A
|
||||
;
|
||||
LD A,XL
|
||||
OUT (SLOT1),A
|
||||
LD A,XH
|
||||
OUT (PORT_Y),A
|
||||
RET
|
||||
|
||||
RESTORE:
|
||||
.sw+1: LD A,#00
|
||||
BIT 7,A
|
||||
JP Z,RESTORT
|
||||
RESTORG IN A,(SLOT3)
|
||||
LD B,A
|
||||
IN A,(PORT_Y)
|
||||
LD C,A
|
||||
PUSH BC
|
||||
LD A,#50
|
||||
OUT (SLOT3),A
|
||||
REST_X LD HL,0
|
||||
REST_Y LD DE,0
|
||||
LD A,E
|
||||
EX AF,AF'
|
||||
REST_V LD A,#00
|
||||
AND 1
|
||||
LD DE,#C000 ;screen 0
|
||||
JR Z,AA2
|
||||
LD DE,#C000+320 ;screen 1
|
||||
AA2 ADD HL,DE
|
||||
REST_A LD A,0
|
||||
LD XH,A
|
||||
EX AF,AF'
|
||||
REST_H
|
||||
RS002 LD BC,10
|
||||
OUT (PORT_Y),A
|
||||
EX AF,AF'
|
||||
LD (PUSH_HL),HL
|
||||
LD D,H
|
||||
LD E,L
|
||||
LDIR
|
||||
PUSH_HL+1: LD HL,#0000
|
||||
; POP HL
|
||||
EX AF,AF'
|
||||
INC A
|
||||
JR Z,RS003
|
||||
DEC XH
|
||||
JR NZ,RS002
|
||||
RS003 POP BC
|
||||
LD A,B
|
||||
OUT (SLOT3),A
|
||||
LD A,C
|
||||
OUT (PORT_Y),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
;HL/DE - X/Y
|
||||
|
||||
MOUSE LD A,(MODE_M)
|
||||
LD (RESTORE.sw),A
|
||||
BIT 7,A
|
||||
JP Z,MOUSET
|
||||
MOUSEG CP #82 ;640x256x16
|
||||
JR NZ,NOFX
|
||||
SRL H
|
||||
RR L
|
||||
NOFX LD IX,M_IMAGE
|
||||
LD A,(M_XSIZE)
|
||||
LD C,A
|
||||
LD B,0
|
||||
LD (REALXS),BC
|
||||
LD (REST_H+1),BC
|
||||
LD C,B
|
||||
LD (SKIPXF),BC
|
||||
LD A,(M_YSIZE)
|
||||
LD (REST_A+1),A
|
||||
LD C,A
|
||||
LD B,0
|
||||
LD (REALYS),BC
|
||||
LD BC,(YHOT_SP)
|
||||
LD A,E
|
||||
SUB C
|
||||
LD E,A
|
||||
JR NC,GOODY
|
||||
NEG
|
||||
LD E,A
|
||||
LD A,(M_XSIZE)
|
||||
LD C,A
|
||||
LD B,0
|
||||
LD A,(M_YSIZE)
|
||||
SUB E
|
||||
SKIPMY ADD IX,BC
|
||||
DEC E
|
||||
JR NZ,SKIPMY
|
||||
LD C,A
|
||||
LD (REALYS),BC
|
||||
GOODY LD BC,(XHOT_SP)
|
||||
AND A
|
||||
SBC HL,BC
|
||||
JR NC,GOODX
|
||||
LD B,H
|
||||
LD C,L
|
||||
LD HL,0
|
||||
AND A
|
||||
SBC HL,BC
|
||||
LD (SKIPXF),HL
|
||||
LD A,(M_XSIZE)
|
||||
SUB L
|
||||
LD L,A
|
||||
LD (REALXS),HL
|
||||
LD HL,0
|
||||
GOODX LD (REST_X+1),HL
|
||||
LD (REST_Y+1),DE
|
||||
|
||||
PUSH HL
|
||||
IN A,(SLOT3)
|
||||
LD H,A
|
||||
IN A,(PORT_Y)
|
||||
LD L,A
|
||||
EX (SP),HL
|
||||
LD A,#5C
|
||||
OUT (SLOT3),A
|
||||
LD A,E
|
||||
EX AF,AF'
|
||||
IN A,(RGMOD)
|
||||
LD (REST_V+1),A
|
||||
AND 1
|
||||
LD DE,#C000 ;PAGE 0
|
||||
JR Z,AA1
|
||||
LD DE,#C000+320 ;PAGE 1
|
||||
AA1 ADD HL,DE
|
||||
LD D,XH
|
||||
LD E,XL
|
||||
EX DE,HL ;HL - BITMAP
|
||||
LD BC,(REALYS)
|
||||
LD XH,C
|
||||
EX AF,AF'
|
||||
MS002 LD BC,(SKIPXF)
|
||||
ADD HL,BC
|
||||
LD BC,(REALXS)
|
||||
OUT (PORT_Y),A
|
||||
EX AF,AF'
|
||||
;USH DE
|
||||
LD (PUSH_DE+1),DE
|
||||
LDIR
|
||||
PUSH_DE LD DE,#0000
|
||||
; POP DE
|
||||
EX AF,AF'
|
||||
INC A
|
||||
JR Z,MS003
|
||||
DEC XH
|
||||
JR NZ,MS002
|
||||
MS003 POP BC
|
||||
LD A,B
|
||||
OUT (SLOT3),A
|
||||
LD A,C
|
||||
OUT (PORT_Y),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
READ_M IN A,(CMOUSE)
|
||||
RRCA
|
||||
RET NC
|
||||
IN A,(DMOUSE)
|
||||
LD L,A
|
||||
BIT 6,A
|
||||
CCF
|
||||
RET Z
|
||||
TST_01 IN A,(CMOUSE)
|
||||
RRCA
|
||||
JP NC,TST_01
|
||||
IN A,(DMOUSE)
|
||||
LD E,A
|
||||
BIT 6,A
|
||||
CCF
|
||||
RET NZ
|
||||
TST_02 IN A,(CMOUSE)
|
||||
RRCA
|
||||
JR NC,TST_02
|
||||
IN A,(DMOUSE)
|
||||
LD D,A
|
||||
BIT 6,A
|
||||
CCF
|
||||
RET NZ
|
||||
LD A,E
|
||||
AND #3F
|
||||
LD E,A
|
||||
LD A,L
|
||||
AND #03
|
||||
RRCA
|
||||
RRCA
|
||||
OR E
|
||||
LD E,A
|
||||
LD A,D
|
||||
AND #3F
|
||||
LD D,A
|
||||
LD A,L
|
||||
AND #0C
|
||||
RRCA
|
||||
RRCA
|
||||
RRCA
|
||||
RRCA
|
||||
OR D
|
||||
LD D,A
|
||||
LD A,L
|
||||
RLCA
|
||||
RLCA
|
||||
RLCA
|
||||
RES 6,A
|
||||
JR NC,STBU
|
||||
SET 6,A
|
||||
STBU RLCA
|
||||
RLCA
|
||||
AND #03
|
||||
LD (MB),A
|
||||
CALL SENSE
|
||||
LD A,E
|
||||
LD (MX),A
|
||||
LD A,D
|
||||
LD (MY),A
|
||||
SCF
|
||||
RET
|
||||
|
||||
MCORECT LD HL,(PIX_X)
|
||||
LD DE,(MX)
|
||||
LD D,0
|
||||
BIT 7,E
|
||||
JR NZ,DECX
|
||||
ADD HL,DE
|
||||
LD (PIX_X),HL
|
||||
EX DE,HL
|
||||
LD HL,(MAX_X)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
JP NC,YCOO
|
||||
LD HL,(MAX_X)
|
||||
LD (PIX_X),HL
|
||||
JP YCOO
|
||||
DECX LD A,E
|
||||
NEG
|
||||
LD E,A
|
||||
AND A
|
||||
SBC HL,DE
|
||||
LD (PIX_X),HL
|
||||
JR C,YCOO2
|
||||
LD DE,(MIN_X)
|
||||
SBC HL,DE
|
||||
JR NC,YCOO
|
||||
YCOO2 LD HL,(MIN_X)
|
||||
LD (PIX_X),HL
|
||||
|
||||
YCOO LD HL,(PIX_Y)
|
||||
LD DE,(MY)
|
||||
LD D,0
|
||||
BIT 7,E
|
||||
JR NZ,DECY
|
||||
ADD HL,DE
|
||||
LD (PIX_Y),HL
|
||||
EX DE,HL
|
||||
|
||||
LD HL,(MAX_Y)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
RET NC
|
||||
LD HL,(MAX_Y)
|
||||
LD (PIX_Y),HL
|
||||
RET
|
||||
|
||||
DECY LD A,E
|
||||
NEG
|
||||
LD E,A
|
||||
AND A
|
||||
SBC HL,DE
|
||||
LD (PIX_Y),HL
|
||||
JR C,XCOO
|
||||
LD DE,(MIN_Y)
|
||||
SBC HL,DE
|
||||
RET NC
|
||||
XCOO LD HL,(MIN_Y)
|
||||
LD (PIX_Y),HL
|
||||
RET
|
||||
|
||||
SENSE LD HL,(SENSEXY)
|
||||
LD A,L
|
||||
OR L
|
||||
RET Z
|
||||
DEC A
|
||||
RET Z
|
||||
LD A,E
|
||||
BIT 7,A
|
||||
LD B,#FF
|
||||
JR Z,SEN1
|
||||
LD B,#7F
|
||||
NEG
|
||||
SEN1 INC B
|
||||
SUB L
|
||||
JR NC,SEN1
|
||||
BIT 7,B
|
||||
JR Z,SEN2
|
||||
LD A,B
|
||||
RES 7,A
|
||||
NEG
|
||||
LD B,A
|
||||
SEN2 LD E,B
|
||||
LD A,D
|
||||
BIT 7,A
|
||||
LD B,#FF
|
||||
JR Z,SEN3
|
||||
LD B,#7F
|
||||
NEG
|
||||
SEN3 INC B
|
||||
SUB H
|
||||
JR NC,SEN3
|
||||
BIT 7,B
|
||||
JR Z,SEN4
|
||||
LD A,B
|
||||
RES 7,A
|
||||
NEG
|
||||
LD B,A
|
||||
SEN4 LD D,B
|
||||
RET
|
||||
|
||||
M_MODE LD (MODE_M),A
|
||||
OR A
|
||||
JR Z,UNKMODE
|
||||
CP 1
|
||||
JR Z,UNKMODE
|
||||
CP 2
|
||||
JR Z,S320256
|
||||
CP 3
|
||||
JR Z,S640256
|
||||
BIT 7,A
|
||||
JR Z,UNKMODE
|
||||
RES 7,A
|
||||
CP 1
|
||||
JR Z,S320256
|
||||
CP 2
|
||||
JR Z,S640256
|
||||
UNKMODE XOR A ; ????? ¬®¦¥â âãâ ¤® .INVALID_COMMAND ?
|
||||
SCF
|
||||
RET
|
||||
|
||||
S320256
|
||||
LD HL,0 ;MIN X
|
||||
LD DE,319 ;MAX X
|
||||
CALL MS_HORZ
|
||||
LD HL,0 ;MIN X
|
||||
LD DE,255 ;MAX X
|
||||
CALL MS_VERT
|
||||
XOR A
|
||||
RET
|
||||
|
||||
S640256
|
||||
LD HL,0 ;MIN X
|
||||
LD DE,639 ;MAX X
|
||||
CALL MS_HORZ
|
||||
LD HL,0 ;MIN X
|
||||
LD DE,255 ;MAX X
|
||||
CALL MS_VERT
|
||||
XOR A
|
||||
RET
|
||||
|
||||
;Mouse Interrupt
|
||||
M_INT IN A,(SLOT3)
|
||||
LD B,A
|
||||
IN A,(PORT_Y)
|
||||
LD C,A
|
||||
PUSH BC
|
||||
CALL REFRESH ;Refresh mouse
|
||||
CALL CONTROL
|
||||
POP BC
|
||||
LD A,B
|
||||
OUT (SLOT3),A
|
||||
LD A,C
|
||||
OUT (PORT_Y),A
|
||||
RET
|
||||
|
||||
M_REFR CALL CONTROL
|
||||
AND A
|
||||
RET
|
||||
|
||||
CONTROL CALL READ_M
|
||||
RET NC
|
||||
CALL MCORECT
|
||||
LD A,#00
|
||||
LD (REDY+1),A
|
||||
RET
|
||||
|
||||
REFRESH LD A,#01
|
||||
OR A
|
||||
RET NZ
|
||||
REDY LD A,#00
|
||||
; OR A
|
||||
; RET NZ
|
||||
CALL RESTORE
|
||||
LD HL,(PIX_X)
|
||||
LD DE,(PIX_Y)
|
||||
CALL MOUSE
|
||||
LD A,#FF
|
||||
LD (REDY+1),A
|
||||
RET
|
||||
|
||||
MODE_M DB #03
|
||||
|
||||
PIX_X DW 160
|
||||
PIX_Y DW 128
|
||||
|
||||
MX DB #00
|
||||
MY DB #00
|
||||
MB DB #00
|
||||
MB_OLD DB #00 ; !FIXIT - ¥ 㦮?
|
||||
MIN_X DW 0
|
||||
MAX_X DW 319
|
||||
MIN_Y DW 0
|
||||
MAX_Y DW 255
|
||||
SENSEXY
|
||||
SENSE_X DB 0
|
||||
SENSE_Y DB 0
|
||||
|
||||
XHOT_SP DW 0
|
||||
YHOT_SP DW 0
|
||||
|
||||
ANDXORS DW #FF00
|
||||
ANDXORA DW #FF77
|
||||
|
||||
M_XSIZE DB 10
|
||||
M_YSIZE DB 14
|
||||
SKIPXF DW 0
|
||||
REALXS DW 0
|
||||
REALYS DW 0
|
||||
|
||||
Xx EQU #00
|
||||
Ww EQU #FE
|
||||
Nn EQU #FF
|
||||
|
||||
;MS_BMP
|
||||
M_IMAGE:
|
||||
DB Xx,Xx,Nn,Nn,Nn,Nn,Nn,Nn,Nn,Nn
|
||||
DB Xx,Ww,Xx,Nn,Nn,Nn,Nn,Nn,Nn,Nn
|
||||
DB Xx,Ww,Ww,Xx,Nn,Nn,Nn,Nn,Nn,Nn
|
||||
DB Xx,Ww,Ww,Ww,Xx,Nn,Nn,Nn,Nn,Nn
|
||||
DB Xx,Ww,Ww,Ww,Ww,Xx,Nn,Nn,Nn,Nn
|
||||
DB Xx,Ww,Ww,Ww,Ww,Ww,Xx,Nn,Nn,Nn
|
||||
DB Xx,Ww,Ww,Ww,Ww,Ww,Ww,Xx,Nn,Nn
|
||||
DB Xx,Ww,Ww,Ww,Ww,Xx,Xx,Xx,Xx,Nn
|
||||
DB Xx,Ww,Ww,Xx,Ww,Xx,Nn,Nn,Nn,Nn
|
||||
DB Xx,Ww,Xx,Xx,Ww,Ww,Xx,Nn,Nn,Nn
|
||||
DB Xx,Xx,Nn,Nn,Xx,Ww,Xx,Nn,Nn,Nn
|
||||
DB Xx,Nn,Nn,Nn,Xx,Ww,Ww,Xx,Nn,Nn
|
||||
DB Nn,Nn,Nn,Nn,Nn,Xx,Xx,Nn,Nn,Nn
|
||||
DB Nn,Nn,Nn,Nn,Nn,Nn,Nn,Nn,Nn,Nn
|
||||
BLOCK 256-($-M_IMAGE),0
|
||||
.Size EQU $-M_IMAGE
|
||||
|
||||
;//MODULE: INTMOUSE
|
||||
;[END]
|
||||
|
||||
927
DSS/KEYINTER.ASM
Normal file
927
DSS/KEYINTER.ASM
Normal file
@ -0,0 +1,927 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: KEYINTER
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
;------------------------------------------------
|
||||
;R02 13-04-2023 BAO FIX BUG IN K_CLEAR WITH STACK OVERFLOW
|
||||
;R01 10-02-2003 DNS Add cursor visualisation
|
||||
;
|
||||
_mInfoALIGN 256,0
|
||||
;KEYBOARD BUFFER
|
||||
SBUF: BLOCK 64,0
|
||||
|
||||
|
||||
HEAD DB #00
|
||||
HOST DB #00
|
||||
|
||||
K_LOCK EQU $-KEYFLAG
|
||||
LANG_L EQU 7
|
||||
PAUSE_L EQU 6
|
||||
RES5_L EQU 5
|
||||
RES4_L EQU 4
|
||||
NUM_L EQU 3
|
||||
SCRL_L EQU 2
|
||||
INS_L EQU 1
|
||||
CAPS_L EQU 0
|
||||
KEYFLAG DB #02 ;D0-Key Pressed
|
||||
|
||||
K_SHIFT EQU $-KEYFLAG
|
||||
L_SHIFT EQU 7
|
||||
R_SHIFT EQU 6
|
||||
X_CTRL EQU 5
|
||||
X_ALT EQU 4
|
||||
L_CTRL EQU 3
|
||||
L_ALT EQU 2
|
||||
R_CTRL EQU 1
|
||||
R_ALT EQU 0
|
||||
KEYCTRL DB #00
|
||||
|
||||
KEYFLG EQU $-KEYFLAG
|
||||
FLAG_E0 EQU 7
|
||||
FLAG_F0 EQU 6
|
||||
FLAG_E1 EQU 5
|
||||
FLAG_04 EQU 4
|
||||
FLAG_03 EQU 3
|
||||
FLAG_02 EQU 2
|
||||
FLAG_01 EQU 1
|
||||
FLAG_00 EQU 0
|
||||
DB #00
|
||||
|
||||
SOUND_K EQU $-KEYFLAG
|
||||
FLAG_S7 EQU 7
|
||||
FLAG_S6 EQU 6
|
||||
FLAG_S5 EQU 5
|
||||
FLAG_S4 EQU 4
|
||||
FLAG_S3 EQU 3
|
||||
FLAG_S2 EQU 2
|
||||
SF_ALT EQU 1
|
||||
SF_BUFF EQU 0
|
||||
DB #03
|
||||
|
||||
; D15 - LShift
|
||||
; D14 - RShift
|
||||
; D13 - CTRL
|
||||
; D12 - ALT
|
||||
; D11 - LCTRL
|
||||
; D10 - LALT
|
||||
; D9 - RCTRL
|
||||
; D8 - RALT
|
||||
; D7 - Language Lock
|
||||
; D6 - Reserved
|
||||
; D5 - Reserved
|
||||
; D4 - Reserved
|
||||
; D3 - Num Lock
|
||||
; D2 - Scroll Lock
|
||||
; D1 - Insert Lock
|
||||
; D0 - Caps Lock
|
||||
|
||||
; D15 - Keystroke
|
||||
; D14
|
||||
; D13 \
|
||||
; D12 \
|
||||
; D11 -- Position code (0...5Ah)
|
||||
; D10 /
|
||||
; D9 /
|
||||
; D8
|
||||
; D7..D0 - ASCII code
|
||||
|
||||
|
||||
UNCODE DW 0
|
||||
|
||||
WAITKEY LD HL,HOST
|
||||
LD A,(HEAD)
|
||||
CP (HL)
|
||||
JR Z,WAITKEY
|
||||
CALL GETSYM
|
||||
LD A,E
|
||||
AND A
|
||||
RET
|
||||
|
||||
SCANKEY LD HL,HOST
|
||||
LD A,(HEAD)
|
||||
CP (HL)
|
||||
RET Z
|
||||
CALL GETSYM
|
||||
LD A,E
|
||||
RET
|
||||
;
|
||||
|
||||
;
|
||||
IF CLASSIC_CURSOR ;------------------------------;
|
||||
|
||||
ECHOKEY:
|
||||
CURCOUNT+1: LD A,#FF ;R01
|
||||
INC A ;R01
|
||||
LD (CURCOUNT),A ;R01
|
||||
AND #FF ;R01
|
||||
JR NZ,NOTUR ;R01
|
||||
CURSYM+1: LD A,#00 ;R01
|
||||
XOR #01 ;R01
|
||||
LD (CURSYM),A ;R01
|
||||
LD A," " ;R01
|
||||
JR Z,CURSKI ;R01
|
||||
LD A,"_" ;R01
|
||||
CURSKI: CALL PUTCHAR ;R01
|
||||
LD A,8 ;R01 BACKSPACE
|
||||
CALL PUTCHAR ;R01
|
||||
NOTUR: CALL SCANKEY
|
||||
JR Z,ECHOKEY
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
PUSH AF ;R01
|
||||
LD A," " ;R01
|
||||
CALL PUTCHAR ;R01
|
||||
LD A,8 ;R01 BACKSPACE
|
||||
CALL PUTCHAR ;R01
|
||||
POP AF ;R01
|
||||
CALL PUTCHAR
|
||||
POP BC
|
||||
POP DE
|
||||
LD A,E
|
||||
AND A
|
||||
RET
|
||||
|
||||
ELSE ;------------------------------;
|
||||
|
||||
delay_curs: EQU 11 ; ç áâ®â ¬¨£ ¨ï ªãàá®à
|
||||
INS_CUR_ZG: EQU #19
|
||||
CURSOR_ZG: EQU #1A
|
||||
NORM_ZG: EQU #1B
|
||||
|
||||
|
||||
ECHOKEY: CALL Cursor_On ; ¢ª«. ªãàá®à, ãáâ ®¢¨âì 䮪ãá "Input Line"
|
||||
EI
|
||||
.loop: CALL SCANKEY
|
||||
JR Z,.loop
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
PUSH AF
|
||||
CALL Cursor_Off ; ¢ëª«. ªãàá®à
|
||||
POP AF
|
||||
OR A ; ¤®¡ ¢¨«
|
||||
CALL NZ,PUTCHAR ; ¢ë¢®¤ "a" íªà
|
||||
POP BC
|
||||
POP DE
|
||||
LD A,E
|
||||
AND A
|
||||
RET
|
||||
|
||||
Cursor:
|
||||
.Flag+1: LD A,0 ; ä« £ ªãàá®à 00-¥â/01-¥áâì
|
||||
CPL
|
||||
LD (.Flag),A
|
||||
; ‚ª«îç¨âì ªãàá®à
|
||||
Cursor_On: LD C,BIOS.LP_GET_PLACE ; 㧠âì ¯®«®¦. ªãàá®à
|
||||
RST ToBIOS
|
||||
LD (Cursor_Off.pos),DE
|
||||
XOR A
|
||||
LD C,BIOS.WIN_GET_SYM ; ¯®«ãç¨âì ᨬ¢®«
|
||||
RST ToBIOS
|
||||
LD BC,NORM_ZG*256+BIOS.WIN_PUT_SYM ; b=§ ª®£¥., á=ᨬ¢®« íªà
|
||||
LD A,(Cursor.Flag)
|
||||
OR A
|
||||
JR Z,.put
|
||||
LD B,CURSOR_ZG ; ç¥àâ
|
||||
LD A,(KEYFLAG) ; ä« £¨ ª« ¢ë
|
||||
BIT 1,A ; ¡¨â Ins
|
||||
JR NZ,.put
|
||||
LD B,INS_CUR_ZG ; ¡«®ª
|
||||
.put: XOR A ; ®¬¥à ®ª
|
||||
RST ToBIOS
|
||||
LD A,1
|
||||
LD (Cursor_Off.Flag),A
|
||||
LD A,delay_curs
|
||||
RET
|
||||
|
||||
; ‚몫îç¨âì ªãàá®à
|
||||
Cursor_Off:
|
||||
.Flag+1: LD A,0 ; ä« £ ªãàá®à : 00-¢ëª«/01-¢ª«
|
||||
OR A
|
||||
RET Z
|
||||
LD A,-1 ; = #FF
|
||||
LD (Cursor.Flag),A
|
||||
INC A
|
||||
LD (.Flag),A
|
||||
LD A,delay_curs
|
||||
LD (cursor_interrupt.timer),A
|
||||
.pos+1: LD DE,0 ; Y/X ¯®«®¦.
|
||||
BIT 7,E
|
||||
RET NZ
|
||||
LD C,BIOS.WIN_GET_SYM ; ¯®«ãç¨âì ᨬ¢®«
|
||||
XOR A
|
||||
RST ToBIOS
|
||||
XOR A
|
||||
LD BC,NORM_ZG*256+BIOS.WIN_PUT_SYM ; ᨬ¢®« íªà
|
||||
RST ToBIOS
|
||||
RET
|
||||
|
||||
; ‚¥ªâ®à ®¡á«ã¦¨¢ ¨ï ªãàá®à
|
||||
cursor_interrupt:
|
||||
LD A,(Cursor_Off.Flag)
|
||||
OR A
|
||||
RET Z
|
||||
.timer+1: LD A,1 ; ¯ 㧠¬¨£ ¨ï
|
||||
DEC A
|
||||
CALL Z,Cursor
|
||||
LD (.timer),A
|
||||
RET
|
||||
|
||||
; <20> áâனª § ª®£¥¥à â®à ªãàá®à ç¥àâ®çª®©
|
||||
SETUP_CURSORS:
|
||||
in a,(SLOT2)
|
||||
push af ; á®åà. ¯®àâ
|
||||
ld a,(BANKTBL+TXTPAGE) ; 2-© «®£. ®¬¥à áâà ¨æë à áè. „Ž‘
|
||||
out (SLOT2),a
|
||||
; ¯®«ãç¨âì á¨áâ. § ª®£¥.
|
||||
ld de,#8000 ;!HARDCODE ¡ãä¥à ¤«ï 2048 ¡ ©â ¤ ëå
|
||||
push de
|
||||
ld c,BIOS.WIN_GET_ZG ; ¯®«ãç¨âì § ª®£¥.
|
||||
rst ToBIOS
|
||||
; § ¯®«¨âì ª®¤®¬ #FF 2 ¨¦¨¥ «¨¨¨
|
||||
ld hl,#8000+(2048-(2*256)) ;!HARDCODE ¯®á«¥¤¨¥ 512 ¡ ©â
|
||||
ld bc,511
|
||||
ld a,CURSOR_ZG; ; ®¬¥à § ª®£¥. "ç¥àâ®çª "
|
||||
call .fill_data_font
|
||||
pop hl
|
||||
; § ¯®«¨âì ®áâ «ìë¥ 6 «¨¨© (¯®«ë© ¡«®ª)
|
||||
ld bc,2048-513 ;!HARDCODE
|
||||
ld a,INS_CUR_ZG ; ®¬¥à § ª®£¥. "¡«®ª"
|
||||
call .fill_data_font
|
||||
pop af
|
||||
out (SLOT2),a ; ¢®ááâ. ¯®àâ
|
||||
ret
|
||||
; <20> áâனª § ª®£¥. ¨ ¥£® ॣ¨áâà æ¨ï
|
||||
; ¢å®¤: a=®¬¥à § ª®£¥.
|
||||
; hl=¤ ë¥
|
||||
; bc=à §¬¥à ¤ ëå
|
||||
.fill_data_font:
|
||||
ld e,l
|
||||
ld d,h
|
||||
ld (hl),#FF
|
||||
inc de
|
||||
ldir
|
||||
ld de,#8000 ; § ª®£¥.
|
||||
ld c,BIOS.WIN_SET_ZG ; ãáâ. § ª®£¥.
|
||||
rst ToBIOS
|
||||
ret
|
||||
;
|
||||
ENDIF ;------------------------------;
|
||||
|
||||
|
||||
|
||||
CTRLKEY LD HL,HOST
|
||||
LD A,(HEAD)
|
||||
CP (HL)
|
||||
LD BC,(KEYFLAG)
|
||||
LD A,#00
|
||||
RET Z
|
||||
DEC A
|
||||
RET
|
||||
|
||||
TESTKEY LD HL,HOST
|
||||
LD A,(HEAD)
|
||||
CP (HL)
|
||||
RET Z
|
||||
LD L,(HL)
|
||||
LD H,SBUF/256
|
||||
LD E,(HL)
|
||||
INC L
|
||||
LD D,(HL)
|
||||
INC L
|
||||
LD B,(HL)
|
||||
INC L
|
||||
LD C,(HL)
|
||||
LD A,E
|
||||
RET
|
||||
|
||||
; K_CLEAR LD A,(HOST)
|
||||
; LD (HEAD),A
|
||||
; LD A,#2F
|
||||
; CP B
|
||||
; JR C,K_C2
|
||||
; LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
; SCF
|
||||
; RET
|
||||
|
||||
; K_C2 LD A,#34 ;R02
|
||||
; CP B
|
||||
; JR NC,K_C3
|
||||
; LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
; SCF
|
||||
; RET
|
||||
|
||||
; K_C3 LD C,B
|
||||
; RST #10
|
||||
; RET
|
||||
|
||||
;small optimization
|
||||
K_CLEAR LD A,(HOST)
|
||||
LD (HEAD),A
|
||||
LD A,#2F
|
||||
CP B
|
||||
JR NC,.error
|
||||
LD A,#34 ;R02
|
||||
CP B
|
||||
JR C,.error
|
||||
LD C,B
|
||||
JP #10
|
||||
.error: LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
SCF
|
||||
RET
|
||||
;
|
||||
|
||||
PUTSYM LD HL,HEAD
|
||||
LD A,(HOST)
|
||||
SUB 4
|
||||
AND #3F
|
||||
CP (HL)
|
||||
JR Z,FULL_BF
|
||||
LD A,(HL)
|
||||
INC (HL)
|
||||
INC (HL)
|
||||
INC (HL)
|
||||
INC (HL)
|
||||
RES 6,(HL)
|
||||
LD L,A
|
||||
LD H,SBUF/256
|
||||
LD (HL),E
|
||||
INC L
|
||||
LD (HL),D
|
||||
INC L
|
||||
LD (HL),B
|
||||
INC L
|
||||
LD (HL),C
|
||||
RET
|
||||
|
||||
GETSYM LD HL,HOST
|
||||
LD A,(HEAD)
|
||||
CP (HL)
|
||||
RET Z
|
||||
LD A,(HL)
|
||||
INC (HL)
|
||||
INC (HL)
|
||||
INC (HL)
|
||||
INC (HL)
|
||||
RES 6,(HL)
|
||||
LD L,A
|
||||
LD H,SBUF/256
|
||||
LD E,(HL)
|
||||
INC L
|
||||
LD D,(HL)
|
||||
INC L
|
||||
LD B,(HL)
|
||||
INC L
|
||||
LD C,(HL)
|
||||
RET
|
||||
|
||||
FULL_BF EX AF,AF'
|
||||
BIT SF_BUFF,(IX+SOUND_K)
|
||||
JR Z,FBF
|
||||
EXX
|
||||
LD DE,230
|
||||
LD HL,50
|
||||
CALL BEEP
|
||||
EXX
|
||||
FBF EX AF,AF'
|
||||
RET
|
||||
|
||||
E0_KEY SET FLAG_E0,(IX+KEYFLG)
|
||||
JR RESCAN
|
||||
|
||||
F0_KEY SET FLAG_F0,(IX+KEYFLG)
|
||||
JR RESCAN
|
||||
|
||||
E1_KEY SET FLAG_E1,(IX+KEYFLG)
|
||||
JR RESCAN
|
||||
|
||||
KEYSCAN LD IX,KEYFLAG
|
||||
|
||||
RESCAN IN A,(COM_A)
|
||||
BIT 0,A
|
||||
RET Z
|
||||
IN A,(DAT_A)
|
||||
CP #F0
|
||||
JR Z,F0_KEY
|
||||
CP #E0
|
||||
JR Z,E0_KEY
|
||||
CP #E1
|
||||
JR Z,E1_KEY
|
||||
BIT FLAG_F0,(IX+KEYFLG)
|
||||
JR NZ,UN_KEY
|
||||
LD L,A
|
||||
CALL XLAT
|
||||
CALL SHIFTS
|
||||
RES FLAG_E0,(IX+KEYFLG)
|
||||
RES FLAG_E1,(IX+KEYFLG)
|
||||
RET Z ;IT'S SHIFT KEY
|
||||
|
||||
CALL INPCODE ;L - AT POS. CODE
|
||||
PUTCODE:
|
||||
LD HL,#1C00 ;Caps Lock
|
||||
AND A
|
||||
SBC HL,DE
|
||||
CALL Z,CAPS_X
|
||||
LD HL,#B800 ;Ctrl + Space
|
||||
AND A
|
||||
SBC HL,DE
|
||||
CALL Z,RUS_X
|
||||
LD HL,#5000 ;Insert
|
||||
AND A
|
||||
SBC HL,DE
|
||||
CALL Z,INS_X
|
||||
LD HL,#4900 ;Num Lock
|
||||
AND A
|
||||
SBC HL,DE
|
||||
CALL Z,NUM_X
|
||||
LD HL,#C900 ;Pause Lock
|
||||
AND A
|
||||
SBC HL,DE
|
||||
CALL Z,PAUSE_X
|
||||
LD HL,#4800 ;Scroll Lock
|
||||
AND A
|
||||
SBC HL,DE
|
||||
CALL Z,SCL_X
|
||||
|
||||
;small optimization
|
||||
; LD HL,#CF00 ;Ctrl + Alt + Del
|
||||
; AND A
|
||||
; SBC HL,DE
|
||||
; CALL Z,RST_X
|
||||
;;;
|
||||
LD BC,(KEYFLAG)
|
||||
CALL PUTSYM
|
||||
RET
|
||||
|
||||
UN_KEY RES FLAG_F0,(IX+KEYFLG)
|
||||
LD L,A
|
||||
CALL XLAT
|
||||
CALL UNSHIFT
|
||||
RES FLAG_E0,(IX+KEYFLG)
|
||||
LD H,0
|
||||
LD (UNCODE),HL
|
||||
RET
|
||||
|
||||
CAPS_X LD A,(IX+K_LOCK)
|
||||
XOR 1<<CAPS_L
|
||||
LD (IX+K_LOCK),A
|
||||
RET
|
||||
|
||||
RUS_X BIT X_CTRL,(IX+K_SHIFT)
|
||||
RET Z
|
||||
LD A,(IX+K_LOCK)
|
||||
XOR 1<<LANG_L
|
||||
LD (IX+K_LOCK),A
|
||||
BIT SF_ALT,(IX+SOUND_K)
|
||||
RET Z
|
||||
EXX
|
||||
LD DE,190
|
||||
LD HL,20
|
||||
CALL BEEP
|
||||
EXX
|
||||
RET
|
||||
|
||||
INS_X LD A,(IX+K_LOCK)
|
||||
XOR 1<<INS_L
|
||||
LD (IX+K_LOCK),A
|
||||
RET
|
||||
|
||||
NUM_X LD A,(IX+K_LOCK)
|
||||
XOR 1<<NUM_L
|
||||
LD (IX+K_LOCK),A
|
||||
RET
|
||||
|
||||
PAUSE_X BIT X_CTRL,(IX+K_SHIFT)
|
||||
RET Z
|
||||
POP HL ;!!!!! “ ‘ ©¬ ã¡à POP
|
||||
LD A,(IX+K_LOCK)
|
||||
XOR 1<<PAUSE_L
|
||||
LD (IX+K_LOCK),A
|
||||
BIT PAUSE_L,A
|
||||
RET Z
|
||||
EI
|
||||
PAUSE_ HALT
|
||||
BIT PAUSE_L,(IX+K_LOCK)
|
||||
JR NZ,PAUSE_
|
||||
DI
|
||||
RET
|
||||
|
||||
SCL_X LD A,(IX+K_LOCK)
|
||||
XOR 1<<SCRL_L
|
||||
LD (IX+K_LOCK),A
|
||||
RET
|
||||
|
||||
;small optimization
|
||||
; RST_X BIT X_CTRL,(IX+K_SHIFT)
|
||||
; RET Z
|
||||
; BIT X_ALT,(IX+K_SHIFT)
|
||||
; RET Z
|
||||
; XOR A
|
||||
; LD BC,#01FD
|
||||
; RST ToBIOS
|
||||
; RET
|
||||
;;;
|
||||
|
||||
UNSHIFT LD A,L
|
||||
CP #37 ;L ALT
|
||||
JR NZ,USH1
|
||||
RES L_ALT,(IX+K_SHIFT)
|
||||
BIT R_ALT,(IX+K_SHIFT)
|
||||
RET NZ
|
||||
RES X_ALT,(IX+K_SHIFT)
|
||||
RET
|
||||
USH1 CP #39 ;R ALT
|
||||
JR NZ,USH2
|
||||
RES R_ALT,(IX+K_SHIFT)
|
||||
BIT L_ALT,(IX+K_SHIFT)
|
||||
RET NZ
|
||||
RES X_ALT,(IX+K_SHIFT)
|
||||
RET
|
||||
USH2 CP #36 ;L CTRL
|
||||
JR NZ,USH3
|
||||
RES L_CTRL,(IX+K_SHIFT)
|
||||
BIT R_CTRL,(IX+K_SHIFT)
|
||||
RET NZ
|
||||
RES X_CTRL,(IX+K_SHIFT)
|
||||
RET
|
||||
USH3 CP #3A ;R CTRL
|
||||
JR NZ,USH4
|
||||
RES R_CTRL,(IX+K_SHIFT)
|
||||
BIT L_CTRL,(IX+K_SHIFT)
|
||||
RET NZ
|
||||
RES X_CTRL,(IX+K_SHIFT)
|
||||
RET
|
||||
USH4 CP #29 ;L SHIFT
|
||||
JR NZ,USH5
|
||||
RES L_SHIFT,(IX+K_SHIFT)
|
||||
RET
|
||||
USH5 CP #34 ;R SHIFT
|
||||
JR NZ,USH6
|
||||
RES R_SHIFT,(IX+K_SHIFT)
|
||||
USH6 RET
|
||||
|
||||
SHIFTS LD A,L
|
||||
CP #37 ;L ALT
|
||||
JR NZ,NSH1
|
||||
SET L_ALT,(IX+K_SHIFT)
|
||||
SET X_ALT,(IX+K_SHIFT)
|
||||
RET
|
||||
NSH1 CP #39 ;R ALT
|
||||
JR NZ,NSH2
|
||||
SET R_ALT,(IX+K_SHIFT)
|
||||
SET X_ALT,(IX+K_SHIFT)
|
||||
RET
|
||||
NSH2 CP #36 ;L CTRL
|
||||
JR NZ,NSH3
|
||||
SET L_CTRL,(IX+K_SHIFT)
|
||||
SET X_CTRL,(IX+K_SHIFT)
|
||||
RET
|
||||
NSH3 CP #3A ;R CTRL
|
||||
JR NZ,NSH4
|
||||
SET R_CTRL,(IX+K_SHIFT)
|
||||
SET X_CTRL,(IX+K_SHIFT)
|
||||
RET
|
||||
NSH4 CP #29 ;L SHIFT
|
||||
JR NZ,NSH5
|
||||
SET L_SHIFT,(IX+K_SHIFT)
|
||||
RET
|
||||
NSH5 CP #34 ;R SHIFT
|
||||
JR NZ,NSH6
|
||||
SET R_SHIFT,(IX+K_SHIFT)
|
||||
NSH6 RET
|
||||
|
||||
;
|
||||
;;
|
||||
_mInfoALIGN 256,0
|
||||
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
||||
XLAT_T: DB #00,#43,#00,#3F,#3D,#3B,#3C,#46,#00,#44,#42,#40,#3E,#0F,#00,#00 ;00
|
||||
DB #00,#37,#29,#00,#36,#10,#02,#00,#00,#00,#2A,#1E,#1D,#11,#03,#00 ;10
|
||||
DB #00,#2C,#2B,#1F,#12,#05,#04,#00,#00,#38,#2D,#20,#14,#13,#06,#00 ;20
|
||||
DB #00,#2F,#2E,#22,#21,#15,#07,#00,#00,#00,#30,#23,#16,#08,#09,#00 ;30
|
||||
DB #00,#31,#24,#17,#18,#0B,#0A,#00,#00,#32,#33,#25,#26,#19,#0C,#00 ;40
|
||||
DB #00,#00,#27,#00,#1A,#0D,#00,#00,#1C,#34,#28,#1B,#00,#35,#00,#00 ;50
|
||||
DB #00,#00,#00,#00,#00,#00,#0E,#00,#00,#51,#00,#54,#57,#00,#00,#00 ;60
|
||||
DB #50,#4F,#52,#55,#56,#58,#01,#49,#45,#4D,#53,#4C,#4B,#59,#48,#00 ;70
|
||||
DB #00,#00,#00,#41,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 ;80
|
||||
;
|
||||
XLAT BIT FLAG_E0,(IX+KEYFLG)
|
||||
JR Z,W_O_E0
|
||||
CP #11 ;Right ALT
|
||||
LD L,#39
|
||||
RET Z
|
||||
CP #14 ;Right CTRL
|
||||
LD L,#3A
|
||||
RET Z
|
||||
CP #5A ;enter
|
||||
LD L,#4E
|
||||
RET Z
|
||||
CP #4A ; /
|
||||
LD L,#4A
|
||||
RET Z
|
||||
CP #7C ; * - Print Screen
|
||||
LD L,#47
|
||||
RET Z
|
||||
LD L,A
|
||||
W_O_E0 LD H,high XLAT_T
|
||||
LD L,(HL)
|
||||
RET
|
||||
;;
|
||||
;
|
||||
|
||||
;INPCODE BIT 1,(IX+1) ;00110000
|
||||
; JR NZ,FN_KEY ;LRCAcaRP
|
||||
INPCODE LD D,L
|
||||
LD E,0
|
||||
BIT LANG_L,(IX+K_LOCK)
|
||||
JP NZ,RUSCODE
|
||||
LD A,(IX+K_SHIFT)
|
||||
AND #C0
|
||||
JR NZ,SHIFT_L
|
||||
SET 7,D
|
||||
BIT X_ALT,(IX+K_SHIFT)
|
||||
RET NZ
|
||||
BIT X_CTRL,(IX+K_SHIFT)
|
||||
RET NZ
|
||||
LD D,L
|
||||
BIT CAPS_L,(IX+K_LOCK)
|
||||
LD BC,CAPSTAB
|
||||
JR NZ,CONVER
|
||||
LD BC,NORMTAB
|
||||
CONVER LD H,0
|
||||
ADD HL,BC
|
||||
LD E,(HL)
|
||||
RET
|
||||
|
||||
SHIFT_L LD BC,SHIFTAB
|
||||
BIT CAPS_L,(IX+K_LOCK)
|
||||
JR Z,CONVER5
|
||||
LD BC,SHF2TAB
|
||||
CONVER5 LD H,0
|
||||
ADD HL,BC
|
||||
LD E,(HL)
|
||||
SET 7,D
|
||||
RET
|
||||
|
||||
RUSCODE LD A,(IX+K_SHIFT)
|
||||
AND #C0
|
||||
JR NZ,SHIFT_R
|
||||
SET 7,D
|
||||
BIT X_ALT,(IX+K_SHIFT)
|
||||
RET NZ
|
||||
BIT X_CTRL,(IX+K_SHIFT)
|
||||
RET NZ
|
||||
LD D,L
|
||||
BIT CAPS_L,(IX+K_LOCK)
|
||||
LD BC,CAPSRUS
|
||||
JR NZ,CONVER2
|
||||
LD BC,NORMRUS
|
||||
CONVER2 LD H,0
|
||||
ADD HL,BC
|
||||
LD E,(HL)
|
||||
RET
|
||||
|
||||
SHIFT_R LD BC,SHIFRUS
|
||||
BIT CAPS_L,(IX+K_LOCK)
|
||||
JR Z,CONVER4
|
||||
LD BC,SHF2RUS
|
||||
CONVER4 LD H,0
|
||||
ADD HL,BC
|
||||
LD E,(HL)
|
||||
SET 7,D
|
||||
RET
|
||||
|
||||
K_SETUP INC B
|
||||
DEC B
|
||||
JP Z,KEYMAP
|
||||
DEC B
|
||||
JP Z,K_SND_R
|
||||
DEC B
|
||||
JP Z,K_SND_W
|
||||
LD A,DSS_Error.sys.INVALID_ACCESS
|
||||
SCF
|
||||
RET
|
||||
|
||||
K_SND_R LD A,(SOUND_K)
|
||||
AND A
|
||||
RET
|
||||
|
||||
K_SND_W LD (SOUND_K),A
|
||||
AND A
|
||||
RET
|
||||
|
||||
KEYMAP LD BC,ENDNORM-NORMTAB
|
||||
BIT 7,A
|
||||
JR NZ,READMAP
|
||||
LD DE,NORMTAB
|
||||
OR A
|
||||
JR Z,LTAB
|
||||
LD DE,SHIFTAB
|
||||
DEC A
|
||||
JR Z,LTAB
|
||||
LD DE,CAPSTAB
|
||||
DEC A
|
||||
JR Z,LTAB
|
||||
LD DE,SHF2TAB
|
||||
DEC A
|
||||
JR Z,LTAB
|
||||
LD DE,NORMRUS
|
||||
DEC A
|
||||
JR Z,LTAB
|
||||
LD DE,SHIFRUS
|
||||
DEC A
|
||||
JR Z,LTAB
|
||||
LD DE,CAPSRUS
|
||||
DEC A
|
||||
JR Z,LTAB
|
||||
LD DE,SHF2RUS
|
||||
DEC A
|
||||
JR Z,LTAB
|
||||
XOR A ; ????? ¬®¦¥â âãâ ¤® .INVALID_COMMAND ?
|
||||
SCF
|
||||
RET
|
||||
LTAB LDIR
|
||||
XOR A
|
||||
RET
|
||||
|
||||
READMAP RES 7,A
|
||||
LD DE,NORMTAB
|
||||
OR A
|
||||
JR Z,RTAB
|
||||
LD DE,SHIFTAB
|
||||
DEC A
|
||||
JR Z,RTAB
|
||||
LD DE,CAPSTAB
|
||||
DEC A
|
||||
JR Z,RTAB
|
||||
LD DE,SHF2TAB
|
||||
DEC A
|
||||
JR Z,RTAB
|
||||
LD DE,NORMRUS
|
||||
DEC A
|
||||
JR Z,RTAB
|
||||
LD DE,SHIFRUS
|
||||
DEC A
|
||||
JR Z,RTAB
|
||||
LD DE,CAPSRUS
|
||||
DEC A
|
||||
JR Z,RTAB
|
||||
LD DE,SHF2RUS
|
||||
DEC A
|
||||
JR Z,RTAB
|
||||
XOR A ; ????? ¬®¦¥â âãâ ¤® .INVALID_COMMAND ?
|
||||
SCF
|
||||
RET
|
||||
RTAB EX DE,HL
|
||||
LDIR
|
||||
XOR A
|
||||
RET
|
||||
|
||||
; `
|
||||
; 0
|
||||
; Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Back
|
||||
; 1 2 3 4 5 6 7 8 9 A B C D E
|
||||
; Tab,"Q","W","E","R","T","Y","U","I","O","P","[","]"
|
||||
; F 10 11 12 13 14 15 16 17 18 19 1A 1B
|
||||
; Cps,"A","S","D","F","G","H","J","K","L",";","'",Enter
|
||||
; 1C 1D 1E 1F 20 21 22 23 24 25 26 27 28
|
||||
; LSh,"Z","X","C","V","B","N","M",",",".","/",RSh,#5C
|
||||
; 29 2A 2B 2C 2D 2E 2F 30 31 32 33 34 35
|
||||
; LCl,LAt,SPC,Rat,RCl,F01,F02,F03,F04,F05,F06,F07,F08
|
||||
; 36 37 38 39 3A 3B 3C 3D 3E 3F 40 41 42
|
||||
; F09,F10,F11,F12,prn,scr,num,"/","*","-","+",ent,Del
|
||||
; 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F
|
||||
; Ins,End,Dwn,PgD,Lft,"5",Rgh,Hom,Upp,PgU
|
||||
; 50 51 52 53 54 55 56 57 58 59
|
||||
;
|
||||
;================================
|
||||
Esc EQU #1B
|
||||
Bcs EQU #08
|
||||
Tab EQU #09
|
||||
Cps EQU #00
|
||||
Spc EQU #20
|
||||
Ent EQU #0D
|
||||
|
||||
;Standart ASCII tables
|
||||
NORMTAB DB "`",Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs
|
||||
DB Tab,"q","w","e","r","t","y","u","i","o","p","[","]"
|
||||
DB Cps,"a","s","d","f","g","h","j","k","l",";","'",Ent
|
||||
DB #00,"z","x","c","v","b","n","m",#2C,".","/",#00,#5C
|
||||
DB #00,#00,Spc,#00,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
DB #00,#00,#00,"/","*","-","+",Ent,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
ENDNORM
|
||||
|
||||
SHIFTAB DB "~",Esc,"!","@","#","$","%","^","&","*","(",")","_","+",Bcs
|
||||
DB Tab,"Q","W","E","R","T","Y","U","I","O","P","{","}"
|
||||
DB Cps,"A","S","D","F","G","H","J","K","L",":",#22,Ent
|
||||
DB #00,"Z","X","C","V","B","N","M","<",">","?",#00,"|"
|
||||
DB #00,#00,Spc,#00,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
DB #00,#00,#00,"/","*","-","+",Ent,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
|
||||
CAPSTAB DB "`",Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs
|
||||
DB Tab,"Q","W","E","R","T","Y","U","I","O","P","[","]"
|
||||
DB Cps,"A","S","D","F","G","H","J","K","L",";","'",Ent
|
||||
DB #00,"Z","X","C","V","B","N","M",#2C,".","/",#00,#5C
|
||||
DB #00,#00,Spc,#00,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
DB #00,#00,#00,"/","*","-","+",Ent,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
|
||||
SHF2TAB DB "~",Esc,"!","@","#","$","%","^","&","*","(",")","_","+",Bcs
|
||||
DB Tab,"q","w","e","r","t","y","u","i","o","p","{","}"
|
||||
DB Cps,"a","s","d","f","g","h","j","k","l",":",#22,Ent
|
||||
DB #00,"z","x","c","v","b","n","m","<",">","?",#00,"|"
|
||||
DB #00,#00,Spc,#00,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
DB #00,#00,#00,"/","*","-","+",Ent,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
|
||||
;Standart Russian tables
|
||||
NORMRUS DB #F1,Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs
|
||||
DB Tab,#A9,#E6,#E3,#AA,#A5,#AD,#A3,#E8,#E9,#A7,#E5,#EA
|
||||
DB Cps,#E4,#EB,#A2,#A0,#AF,#E0,#AE,#AB,#A4,#A6,#ED,Ent
|
||||
DB #00,#EF,#E7,#E1,#AC,#A8,#E2,#EC,#A1,#EE,".",#00,#5C
|
||||
DB #00,#00,Spc,#00,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
DB #00,#00,#00,"/","*","-","+",Ent,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
|
||||
SHIFRUS DB #F0,Esc,"!",#22,"#","$",":",#2C,".",";","?","%","_","+",Bcs
|
||||
DB Tab,#89,#96,#93,#8A,#85,#8D,#83,#98,#99,#87,#95,#9A
|
||||
DB Cps,#94,#9B,#82,#80,#8F,#90,#8E,#8B,#84,#86,#9D,Ent
|
||||
DB #00,#9F,#97,#91,#8C,#88,#92,#9C,#81,#9E,#2C,#00,"|"
|
||||
DB #00,#00,Spc,#00,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
DB #00,#00,#00,"/","*","-","+",Ent,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
|
||||
CAPSRUS DB #F0,Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs
|
||||
DB Tab,#89,#96,#93,#8A,#85,#8D,#83,#98,#99,#87,#95,#9A
|
||||
DB Cps,#94,#9B,#82,#80,#8F,#90,#8E,#8B,#84,#86,#9D,Ent
|
||||
DB #00,#9F,#97,#91,#8C,#88,#92,#9C,#81,#9E,".",#00,#5C
|
||||
DB #00,#00,Spc,#00,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
DB #00,#00,#00,"/","*","-","+",Ent,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
|
||||
SHF2RUS DB #F1,Esc,"!",#22,"#","$",":",#2C,".",";","?","%","_","+",Bcs
|
||||
DB Tab,#A9,#E6,#E3,#AA,#A5,#AD,#A3,#E8,#E9,#A7,#E5,#EA
|
||||
DB Cps,#E4,#EB,#A2,#A0,#AF,#E0,#AE,#AB,#A4,#A6,#ED,Ent
|
||||
DB #00,#EF,#E7,#E1,#AC,#A8,#E2,#EC,#A1,#EE,#2C,#00,"|"
|
||||
DB #00,#00,Spc,#00,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
DB #00,#00,#00,"/","*","-","+",Ent,#00
|
||||
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00
|
||||
|
||||
;================================
|
||||
|
||||
BEEP LD A,#10
|
||||
OUT (#FE),A
|
||||
LD B,D
|
||||
LD C,E
|
||||
BPP DEC BC
|
||||
LD A,B
|
||||
OR C
|
||||
JR NZ,BPP
|
||||
LD A,#00
|
||||
OUT (#FE),A
|
||||
LD B,D
|
||||
LD C,E
|
||||
BPP2 DEC BC
|
||||
LD A,B
|
||||
OR C
|
||||
JR NZ,BPP2
|
||||
DEC HL
|
||||
LD A,H
|
||||
OR L
|
||||
JR NZ,BEEP
|
||||
RET
|
||||
|
||||
COM_A EQU #19 ;!FIXIT sp2000.inc
|
||||
DAT_A EQU #18 ;!FIXIT sp2000.inc
|
||||
|
||||
KINIT XOR A ;LD A,0
|
||||
OUT (COM_A),A
|
||||
INC A ;LD A,1
|
||||
OUT (COM_A),A
|
||||
XOR A ;LD A,0 ;#18
|
||||
OUT (COM_A),A
|
||||
LD A,3
|
||||
OUT (COM_A),A
|
||||
LD A,#C1
|
||||
OUT (COM_A),A
|
||||
LD A,4
|
||||
OUT (COM_A),A
|
||||
LD A,#07 ;#05
|
||||
OUT (COM_A),A
|
||||
LD A,5
|
||||
OUT (COM_A),A
|
||||
LD A,#62
|
||||
OUT (COM_A),A
|
||||
RET
|
||||
|
||||
;//MODULE: KEYINTER
|
||||
;[END]
|
||||
12
DSS/KNOWN.BUG
Normal file
12
DSS/KNOWN.BUG
Normal file
@ -0,0 +1,12 @@
|
||||
+ function WINCOPY & WINREST не запрещают прерывания перед вызовом BIOS (используется вывод стеком!).
|
||||
|
||||
- при выводе на консоль длинного текста, экран не скролируется. Проверять на достижение 80 позиции!
|
||||
|
||||
+ ошибка в функции SCROLL A=0.
|
||||
|
||||
+ ошибка при просмотре каталога в функциях установки атрибутов пропускаются системные файлы. п/п SEARCH MASK=#23
|
||||
|
||||
- игнорирование ошибок при записи системных областей FAT/DIR, невозможность отработать ошибку write-protect, так как она теряется при попытке записать измененный каталог на диск. Но возникает ошибка file not found так как сразо после создания система открывает файл.
|
||||
|
||||
- ошибка разбора допустимого имени файла, если оно состоит из "." так как подрузомевается пробелы точка пробелы.
|
||||
|
||||
613
DSS/RAM_DRV0.ASM
Normal file
613
DSS/RAM_DRV0.ASM
Normal file
@ -0,0 +1,613 @@
|
||||
;
|
||||
; SYSPAGE EQU #FE
|
||||
; SLOT1 EQU #A2
|
||||
; SLOT2 EQU #C2
|
||||
; SLOT3 EQU #E2
|
||||
|
||||
; ORG #3CDB
|
||||
; Disk Driver Specification ver. 2.20
|
||||
;[]===========================================================[ 0]
|
||||
;Procedure : Initialization
|
||||
;
|
||||
;Function : Initialization device(s)
|
||||
;
|
||||
;Input : C = 00h
|
||||
; IX - Environment
|
||||
;Output : A = Amount drive support
|
||||
; HL = Size driver
|
||||
;[]===========================================================[ 0]
|
||||
|
||||
|
||||
;[]===========================================================[ 1]
|
||||
;Procedure : Open
|
||||
;
|
||||
;Function : Open disk
|
||||
;
|
||||
;Input : C = 01h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 1]
|
||||
|
||||
|
||||
;[]===========================================================[ 2]
|
||||
;Procedure : Close
|
||||
;
|
||||
;Function : Close disk
|
||||
;
|
||||
;Input : C = 02h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 2]
|
||||
|
||||
|
||||
;[]===========================================================[ 3]
|
||||
;!TODO
|
||||
;Procedure : Media check
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 03h
|
||||
; A - Drive
|
||||
;Output : A = 00h disk no changed
|
||||
; A = 0FFh disk changed
|
||||
;
|
||||
;[]===========================================================[ 3]
|
||||
|
||||
|
||||
;[]===========================================================[ 4]
|
||||
;Procedure : Get BPB
|
||||
;
|
||||
;Function : Get Block Parameters BIOS
|
||||
;
|
||||
;Input : C = 04h
|
||||
; DE - Address
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 4]
|
||||
|
||||
|
||||
;[]===========================================================[ 5]
|
||||
;Procedure : Input
|
||||
;
|
||||
;Function : Input from disk
|
||||
;
|
||||
;Input : C = 05h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 5]
|
||||
|
||||
|
||||
;[]===========================================================[ 6]
|
||||
;Procedure : Output
|
||||
;
|
||||
;Function : Output to disk
|
||||
;
|
||||
;Input : C = 06h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 6]
|
||||
|
||||
|
||||
;[]===========================================================[ 7]
|
||||
;!TODO
|
||||
;Procedure : Removable
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 07h
|
||||
; A - Drive
|
||||
;Output : A = 00h Removable
|
||||
; A = FFh Nonremovable
|
||||
;
|
||||
;[]===========================================================[ 7]
|
||||
|
||||
|
||||
;[]===========================================================[ 8]
|
||||
;Procedure : Generic IOCTL
|
||||
;
|
||||
;Function : Generic Input Output Control
|
||||
;
|
||||
;Input : C = 08h
|
||||
; B - Subcommand
|
||||
; DE = 55AAh Magic Number
|
||||
; Subcommand
|
||||
;----------------------
|
||||
; 00h - Get Device Parameters
|
||||
; 01h - Read track
|
||||
; 02h - Test track
|
||||
; 80h - Set Device Parameters
|
||||
; 81h - Write track
|
||||
; 82h - Format track
|
||||
;Output :
|
||||
;
|
||||
;[]===========================================================[ 8]
|
||||
|
||||
|
||||
;[]===========================================================[ 9]
|
||||
; RESERVED
|
||||
;[]===========================================================[ 9]
|
||||
|
||||
|
||||
;[]===========================================================[ 10]
|
||||
;!TODO
|
||||
;Procedure : Read Long
|
||||
;
|
||||
;Function : Reading sectors from disk
|
||||
;
|
||||
;Input : C = 0Ah
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
; A'- Page
|
||||
;Output : A'- Next Page
|
||||
; HL:IX - Next Logical Block (sector)
|
||||
; DE - Next Address
|
||||
;
|
||||
;[]===========================================================[ 10]
|
||||
|
||||
|
||||
;[]===========================================================[ 11]
|
||||
;!TODO
|
||||
;Procedure : Write Long
|
||||
;
|
||||
;Function : Writing sectors to disk
|
||||
;
|
||||
;Input : C = 0Bh
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
; A'- Page
|
||||
;Output : A'- Next Page
|
||||
; HL:IX - Next Logical Block (sector)
|
||||
; DE - Next Address
|
||||
;
|
||||
;[]===========================================================[ 11]
|
||||
;
|
||||
; Errors:
|
||||
; 0 (00h) - NO ERRORS
|
||||
; 1 (01h) - BAD COMMAND
|
||||
; 2 (02h) - BAD DRIVE NUMBER
|
||||
; 3 (03h) - UNKNOW FORMAT
|
||||
; 4 (04h) - NOT READY
|
||||
; 5 (05h) - SEEK ERROR
|
||||
; 6 (06h) - SECTOR NOT FOUND
|
||||
; 7 (07h) - CRC ERROR
|
||||
; 8 (08h) - WRITE PROTECT
|
||||
; 9 (09h) - READ ERROR
|
||||
; 10 (0Ah) - WRITE ERROR
|
||||
; 11 (0Bh) - FAILURE
|
||||
; 12 (0Ch) - BUSY (DEVICE OPENED)
|
||||
; 13 (0Dh) - RESERVED
|
||||
|
||||
RMDRIVE:
|
||||
INC C
|
||||
DEC C
|
||||
JP Z,INIT_RD ; 0
|
||||
DEC C
|
||||
JR Z,RESE_RD ; 1
|
||||
DEC C
|
||||
JR Z,STAT_RD ; 2
|
||||
DEC C
|
||||
JR Z,CHEK_RD ; 3
|
||||
DEC C
|
||||
JR Z,GBPB_RD ; 4
|
||||
DEC C
|
||||
JR Z,READR ; 5
|
||||
DEC C
|
||||
JR Z,WRITER ; 6
|
||||
DEC C
|
||||
JR Z,REMOV_R ; 7
|
||||
DEC C
|
||||
JP Z,IOCTL_R ; 8
|
||||
|
||||
; DEC C
|
||||
; JP Z,RESR_H ; 9
|
||||
; DEC C
|
||||
; JP Z,LREADH ; 10
|
||||
; DEC C
|
||||
; JP Z,LWRITEH ; 11
|
||||
.error:
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
REMOV_R:
|
||||
RESE_RD:
|
||||
STAT_RD:
|
||||
XOR A
|
||||
RET
|
||||
|
||||
;!FIXIT ᤥ« âì ¢ SYS_PAGE ¤«ï à ¬¤¨áª®¢ ¯¥à¥¬¥ë¥ ¨ ¡à âì ®ââ㤠§ 票¥
|
||||
CHEK_RD LD A,#FF
|
||||
AND A
|
||||
RET
|
||||
|
||||
;DE - ADDRESS
|
||||
GBPB_RD LD IX,0
|
||||
LD HL,0
|
||||
LD B,#01
|
||||
;JP READR
|
||||
;READ SECTORS
|
||||
; HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNT
|
||||
; A - DRIVE
|
||||
READR PUSH BC
|
||||
PUSH IX
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
CALL RAMADDR
|
||||
POP BC
|
||||
LD IX,512
|
||||
RAMRLOP PUSH BC
|
||||
PUSH IX
|
||||
CALL LRDSEC
|
||||
POP IX
|
||||
POP BC
|
||||
DJNZ RAMRLOP
|
||||
POP HL
|
||||
POP IX
|
||||
POP BC
|
||||
XOR A
|
||||
CP B
|
||||
LD C,B
|
||||
LD B,A
|
||||
JR Z,DYEP256
|
||||
ADD IX,BC
|
||||
LD C,B
|
||||
ADC HL,BC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
DYEP256 INC B
|
||||
ADD IX,BC
|
||||
LD B,C
|
||||
ADC HL,BC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
|
||||
;WRITE SECTORS
|
||||
; HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNT
|
||||
; A - DRIVE
|
||||
WRITER PUSH BC
|
||||
PUSH IX
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
CALL RAMADDR
|
||||
POP BC
|
||||
LD IX,512
|
||||
RAMWLOP PUSH BC
|
||||
PUSH IX
|
||||
CALL WRDSEC
|
||||
POP IX
|
||||
POP BC
|
||||
DJNZ RAMWLOP
|
||||
POP HL
|
||||
POP IX
|
||||
POP BC
|
||||
XOR A
|
||||
CP B
|
||||
LD C,B
|
||||
LD B,A
|
||||
JR Z,WYEP256
|
||||
ADD IX,BC
|
||||
LD C,B
|
||||
ADC HL,BC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
WYEP256 INC B
|
||||
ADD IX,BC
|
||||
LD B,C
|
||||
ADC HL,BC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
|
||||
INIT_RD:
|
||||
.SectorSize EQU 512 ;!HARDCODE
|
||||
LD HL,.SectorSize
|
||||
LD A,#80
|
||||
.loop: SRL A
|
||||
RR H
|
||||
JR NC,.loop
|
||||
|
||||
LD (S_P_P),A
|
||||
LD BC,#0*256 + BIOS.GET_RAMD_ST ; <20>®«ã票¥ ¨¤¥â¨ä¨ª â®à ¡«®ª , § 祮£® RAM-Disk
|
||||
LD DE,RAMDTBL
|
||||
|
||||
.initLoop:
|
||||
PUSH BC
|
||||
LD A,B
|
||||
PUSH DE
|
||||
RST ToBIOS
|
||||
POP DE
|
||||
OR A
|
||||
JR Z,.noDRV
|
||||
|
||||
LD (DE),A
|
||||
INC DE
|
||||
POP BC
|
||||
LD A,B
|
||||
LD (DE),A
|
||||
INC DE
|
||||
JP 1F
|
||||
|
||||
.noDRV: POP BC
|
||||
1: INC B
|
||||
LD A,RAMDTBL.Size / 2
|
||||
CP B
|
||||
JR NZ,.initLoop
|
||||
|
||||
LD HL,RAMDTBL
|
||||
EX DE,HL
|
||||
AND A
|
||||
SBC HL,DE
|
||||
SRL L
|
||||
LD A,L
|
||||
; LD HL,ENDDRVR
|
||||
AND A
|
||||
RET
|
||||
|
||||
; ’€<E28099>‹ˆ–€ ‘ŽŽ’‚…’‘’‚ˆŸ Œ…†„“ ”ˆ‡ˆ—…‘ŠˆŒ <20>ŽŒ…<C592>ŽŒ <20>€Œ„ˆ‘Š€ ˆ …ƒŽ RAM-DISK ID
|
||||
; DB RAM_DRIVE_ID, RAM_DRIVE_NUMBER
|
||||
RAMDTBL: DUP MAX_RAMDRIVES * 2
|
||||
DB #FF
|
||||
EDUP
|
||||
.Size EQU $-RAMDTBL
|
||||
|
||||
|
||||
; SECTOR / S_P_P = START PAGE
|
||||
; INPUT : HL:IX -SECTOR
|
||||
; OUTPUT: A':HL - ADDRESS
|
||||
RAMADDR LD BC,RAMDTBL
|
||||
|
||||
SLA A
|
||||
|
||||
ADD A,C
|
||||
LD C,A
|
||||
LD A,0
|
||||
ADC A,B
|
||||
LD B,A
|
||||
LD A,(BC)
|
||||
EX AF,AF'
|
||||
LD B,XH
|
||||
LD C,XL
|
||||
LD A,(S_P_P) ; (S_P_P) ;SECTORS PER Page
|
||||
;AGE
|
||||
DIVR0 RRCA
|
||||
JR C,DIVR1
|
||||
RR H
|
||||
RR L
|
||||
RR B
|
||||
RR C
|
||||
JR DIVR0
|
||||
DIVR1 LD B,C
|
||||
LD C,#C4 ;GET FIRST PAGE
|
||||
EX AF,AF'
|
||||
RST ToBIOS
|
||||
EX AF,AF'
|
||||
LD A,(S_P_P)
|
||||
LD C,A
|
||||
DEC C
|
||||
LD A,XL
|
||||
AND C
|
||||
INC A
|
||||
LD HL,#C000
|
||||
LD BC,512
|
||||
SBC HL,BC
|
||||
ADDLP ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,ADDLP
|
||||
RET
|
||||
|
||||
S_P_P DB #00
|
||||
|
||||
; A':HL - ADDRESS SOURCE
|
||||
; DE - ADDRESS DESTINATION
|
||||
LRDSEC LD A,D
|
||||
CP #A0
|
||||
LD C,SLOT3
|
||||
SET 6,H
|
||||
JR C,RMDL02
|
||||
LD C,SLOT1
|
||||
RES 7,H
|
||||
RMDL02 IN A,(C)
|
||||
EX AF,AF'
|
||||
DI
|
||||
OUT (C),A
|
||||
LD B,XH
|
||||
LD XH,C
|
||||
LD C,XL
|
||||
LDIR
|
||||
EX AF,AF'
|
||||
LD C,XH
|
||||
OUT (C),A
|
||||
LD A,H
|
||||
AND #7F
|
||||
EI
|
||||
RET NZ
|
||||
LD C,SLOT3 ;GET NEXT PAGE
|
||||
IN B,(C)
|
||||
LD A,SYS_PAGE
|
||||
OUT (C),A
|
||||
EX AF,AF'
|
||||
LD XH,#C2
|
||||
LD XL,A
|
||||
LD A,(IX)
|
||||
EX AF,AF'
|
||||
OUT (C),B
|
||||
LD H,#C0
|
||||
RET
|
||||
|
||||
; A':HL - ADDRESS SOURCE
|
||||
; DE - ADDRESS DESTINATION
|
||||
|
||||
WRDSEC LD A,D
|
||||
CP #A0
|
||||
LD C,SLOT3
|
||||
SET 6,H
|
||||
JR C,WMDL02
|
||||
LD C,SLOT1
|
||||
RES 7,H
|
||||
WMDL02 IN A,(C)
|
||||
EX AF,AF'
|
||||
DI
|
||||
OUT (C),A
|
||||
LD B,XH
|
||||
LD XH,C
|
||||
LD C,XL
|
||||
EX DE,HL
|
||||
LDIR
|
||||
EX DE,HL
|
||||
EX AF,AF'
|
||||
LD C,XH
|
||||
OUT (C),A
|
||||
LD A,H
|
||||
AND #7F
|
||||
EI
|
||||
RET NZ
|
||||
LD C,SLOT3 ;GET NEXT PAGE
|
||||
IN B,(C)
|
||||
LD A,SYS_PAGE
|
||||
OUT (C),A
|
||||
EX AF,AF'
|
||||
LD XH,#C2
|
||||
LD XL,A
|
||||
LD A,(IX)
|
||||
EX AF,AF'
|
||||
OUT (C),B
|
||||
LD H,#C0
|
||||
RET
|
||||
|
||||
|
||||
|
||||
;;
|
||||
;;
|
||||
|
||||
|
||||
; 00 - GET DEVICE PARAMETERS
|
||||
; 01 - READ TRACK
|
||||
; 02 - TEST TRACK
|
||||
; 80 - SET DEVICE PARAMETERS
|
||||
; 81 - WRITE TRACK
|
||||
; 82 - FORMAT TRACK
|
||||
|
||||
|
||||
IOCTL_R:
|
||||
BIT 7,B
|
||||
JR NZ,.O_CTL_F
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,.RGETPRM
|
||||
; DEC B
|
||||
; JP Z,FRDTRAC
|
||||
; DEC B
|
||||
; JP Z,FCHTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
.O_CTL_F:
|
||||
RES 7,B
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,.RSETPRM
|
||||
; DEC B
|
||||
; JP Z,FWRTRAC
|
||||
; DEC B
|
||||
; JP Z,FFRTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
; HL:DE - SECTORS ON LOGICAL DISK
|
||||
; HL' - CYLINDERS ON PHISICAL DISK
|
||||
; DE' - HEADS ON PHISICAL DISK
|
||||
; BC' - SECTORS PER TRACK ON PHISICAL DISK
|
||||
; A' - PHISICAL DRIVE NUMBER
|
||||
; A - EXTENDED INFORMATION
|
||||
; D0...D3 - "0" RESERVED (MAY BE OTHER)
|
||||
; D4 - DEVICE MASTER/SLAVE
|
||||
; D5 - "1" RESERVED
|
||||
; D6 - ADDRESSING MODE LBA/CHS
|
||||
; D7 - "1" RESERVED
|
||||
.RGETPRM:
|
||||
EX DE,HL
|
||||
LD BC,#55AA
|
||||
AND A
|
||||
SBC HL,BC
|
||||
LD L,A
|
||||
LD A,DSS_Error.drv.GENERAL_FAILURE
|
||||
SCF
|
||||
RET NZ
|
||||
|
||||
|
||||
EX AF,AF'
|
||||
LD BC,RAMDTBL
|
||||
LD A,L
|
||||
SLA A
|
||||
ADD A,C
|
||||
LD C,A
|
||||
LD A,0
|
||||
ADC A,B
|
||||
LD B,A
|
||||
INC BC
|
||||
LD A,(BC)
|
||||
ADD #60 ;!HARDCODE ᤥ« âì ®¬¥à à §ëå ãáâனá⢠ç¥à¥§ ¬¥âª¨
|
||||
PUSH AF
|
||||
PUSH AF
|
||||
EX AF,AF'
|
||||
|
||||
POP AF
|
||||
LD C,BIOS.DRV_GET_PAR
|
||||
RST ToBIOS
|
||||
|
||||
PUSH HL ;ç¨á«® £®«®¢®ª, ç¨á«® ᥪâ®à®¢ ( 楫¨¤à)
|
||||
PUSH DE ;ª®«¨ç¥á⢮ 樫¨¤à®¢
|
||||
EXX
|
||||
POP HL ;ª®«¨ç¥á⢮ 樫¨¤à®¢
|
||||
POP BC ;ç¨á«® ᥪâ®à®¢ ( 楫¨¤à)
|
||||
LD D,0
|
||||
LD E,B ;ç¨á«® £®«®¢®ª
|
||||
LD B,D
|
||||
EXX
|
||||
|
||||
LD A,L
|
||||
|
||||
RRA
|
||||
JR C,.end
|
||||
.loopShift:
|
||||
SLA E
|
||||
RL D
|
||||
RRA
|
||||
JR NC,.loopShift
|
||||
|
||||
.end:
|
||||
EX AF,AF'
|
||||
POP AF
|
||||
EX AF,AF'
|
||||
XOR A
|
||||
LD L,A
|
||||
LD H,L
|
||||
LD A,%10100000
|
||||
RET
|
||||
|
||||
;!HARDCODE
|
||||
.RSETPRM:
|
||||
AND A
|
||||
RET
|
||||
|
||||
ENDDRVR EQU $
|
||||
;
|
||||
477
DSS/RAM_DRV1.ASM
Normal file
477
DSS/RAM_DRV1.ASM
Normal file
@ -0,0 +1,477 @@
|
||||
|
||||
|
||||
; SYSPAGE EQU #FE
|
||||
; SLOT1 EQU #A2
|
||||
; SLOT2 EQU #C2
|
||||
; SLOT3 EQU #E2
|
||||
|
||||
; ORG #3CDB
|
||||
; Disk Driver Specification ver. 2.20
|
||||
;[]===========================================================[ 0]
|
||||
;Procedure : Initialization
|
||||
;
|
||||
;Function : Initialization device(s)
|
||||
;
|
||||
;Input : C = 00h
|
||||
; IX - Environment
|
||||
;Output : A = Amount drive support
|
||||
; HL = Size driver
|
||||
;[]===========================================================[ 0]
|
||||
|
||||
|
||||
;[]===========================================================[ 1]
|
||||
;Procedure : Open
|
||||
;
|
||||
;Function : Open disk
|
||||
;
|
||||
;Input : C = 01h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 1]
|
||||
|
||||
|
||||
;[]===========================================================[ 2]
|
||||
;Procedure : Close
|
||||
;
|
||||
;Function : Close disk
|
||||
;
|
||||
;Input : C = 02h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 2]
|
||||
|
||||
|
||||
;[]===========================================================[ 3]
|
||||
;!TODO
|
||||
;Procedure : Media check
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 03h
|
||||
; A - Drive
|
||||
;Output : A = 00h disk no changed
|
||||
; A = 0FFh disk changed
|
||||
;
|
||||
;[]===========================================================[ 3]
|
||||
|
||||
|
||||
;[]===========================================================[ 4]
|
||||
;Procedure : Get BPB
|
||||
;
|
||||
;Function : Get Block Parameters BIOS
|
||||
;
|
||||
;Input : C = 04h
|
||||
; DE - Address
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 4]
|
||||
|
||||
|
||||
;[]===========================================================[ 5]
|
||||
;Procedure : Input
|
||||
;
|
||||
;Function : Input from disk
|
||||
;
|
||||
;Input : C = 05h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 5]
|
||||
|
||||
|
||||
;[]===========================================================[ 6]
|
||||
;Procedure : Output
|
||||
;
|
||||
;Function : Output to disk
|
||||
;
|
||||
;Input : C = 06h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 6]
|
||||
|
||||
|
||||
;[]===========================================================[ 7]
|
||||
;!TODO
|
||||
;Procedure : Removable
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 07h
|
||||
; A - Drive
|
||||
;Output : A = 00h Removable
|
||||
; A = FFh Nonremovable
|
||||
;
|
||||
;[]===========================================================[ 7]
|
||||
|
||||
|
||||
;[]===========================================================[ 8]
|
||||
;Procedure : Generic IOCTL
|
||||
;
|
||||
;Function : Generic Input Output Control
|
||||
;
|
||||
;Input : C = 08h
|
||||
; B - Subcommand
|
||||
; DE = 55AAh Magic Number
|
||||
; Subcommand
|
||||
;----------------------
|
||||
; 00h - Get Device Parameters
|
||||
; 01h - Read track
|
||||
; 02h - Test track
|
||||
; 80h - Set Device Parameters
|
||||
; 81h - Write track
|
||||
; 82h - Format track
|
||||
;Output :
|
||||
;
|
||||
;[]===========================================================[ 8]
|
||||
|
||||
|
||||
;[]===========================================================[ 9]
|
||||
; RESERVED
|
||||
;[]===========================================================[ 9]
|
||||
|
||||
|
||||
;[]===========================================================[ 10]
|
||||
;!TODO
|
||||
;Procedure : Read Long
|
||||
;
|
||||
;Function : Reading sectors from disk
|
||||
;
|
||||
;Input : C = 0Ah
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
; A'- Page
|
||||
;Output : A'- Next Page
|
||||
; HL:IX - Next Logical Block (sector)
|
||||
; DE - Next Address
|
||||
;
|
||||
;[]===========================================================[ 10]
|
||||
|
||||
|
||||
;[]===========================================================[ 11]
|
||||
;!TODO
|
||||
;Procedure : Write Long
|
||||
;
|
||||
;Function : Writing sectors to disk
|
||||
;
|
||||
;Input : C = 0Bh
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
; A'- Page
|
||||
;Output : A'- Next Page
|
||||
; HL:IX - Next Logical Block (sector)
|
||||
; DE - Next Address
|
||||
;
|
||||
;[]===========================================================[ 11]
|
||||
;
|
||||
; Errors:
|
||||
; 0 (00h) - NO ERRORS
|
||||
; 1 (01h) - BAD COMMAND
|
||||
; 2 (02h) - BAD DRIVE NUMBER
|
||||
; 3 (03h) - UNKNOW FORMAT
|
||||
; 4 (04h) - NOT READY
|
||||
; 5 (05h) - SEEK ERROR
|
||||
; 6 (06h) - SECTOR NOT FOUND
|
||||
; 7 (07h) - CRC ERROR
|
||||
; 8 (08h) - WRITE PROTECT
|
||||
; 9 (09h) - READ ERROR
|
||||
; 10 (0Ah) - WRITE ERROR
|
||||
; 11 (0Bh) - FAILURE
|
||||
; 12 (0Ch) - BUSY (DEVICE OPENED)
|
||||
; 13 (0Dh) - RESERVED
|
||||
|
||||
|
||||
; MACRO _mGET_RAMDRV_NUM
|
||||
; PUSH BC
|
||||
; LD BC,RAMDTBL
|
||||
; SLA A
|
||||
; ADD A,C
|
||||
; LD C,A
|
||||
; LD A,0
|
||||
; ADC A,B
|
||||
; LD B,A
|
||||
; INC BC
|
||||
; LD A,(BC)
|
||||
; OR #60
|
||||
; POP BC
|
||||
; ENDM
|
||||
|
||||
MACRO _mGET_RAMDRV_NUM
|
||||
LD BC,RAMDTBL
|
||||
SLA A
|
||||
ADD A,C
|
||||
LD C,A
|
||||
LD A,0
|
||||
ADC A,B
|
||||
LD B,A
|
||||
INC BC
|
||||
LD A,(BC)
|
||||
OR #60 ;!HARDCODE ᤥ« âì ®¬¥à à §ëå ãáâனá⢠ç¥à¥§ ¬¥âª¨
|
||||
ENDM
|
||||
|
||||
|
||||
; parser
|
||||
RMDRIVE:
|
||||
INC C
|
||||
DEC C
|
||||
JP Z,INIT_RD ; 0
|
||||
DEC C
|
||||
JR Z,RESET_RD ; 1
|
||||
DEC C
|
||||
JR Z,STATUS_RD ; 2
|
||||
DEC C
|
||||
JR Z,CHEK_RD ; 3
|
||||
DEC C
|
||||
JR Z,GBPB_RD ; 4
|
||||
DEC C
|
||||
JR Z,READ_RD ; 5
|
||||
DEC C
|
||||
JR Z,WRITE_RD ; 6
|
||||
DEC C
|
||||
JR Z,REMOV_RD ; 7
|
||||
DEC C
|
||||
JP Z,IOCTL_RD ; 8
|
||||
DEC C
|
||||
JP Z,.error ; 9 RESR_H
|
||||
DEC C
|
||||
JP Z,LREAD_RD ; 10
|
||||
DEC C
|
||||
JP Z,LWRITE_RD ; 11
|
||||
.error:
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
REMOV_RD:
|
||||
RESET_RD:
|
||||
STATUS_RD:
|
||||
XOR A
|
||||
RET
|
||||
|
||||
;!FIXIT ᤥ« âì ¢ SYS_PAGE ¤«ï à ¬¤¨áª®¢ ¯¥à¥¬¥ë¥ ¨ ¡à âì ®ââ㤠§ 票¥
|
||||
CHEK_RD LD A,#FF
|
||||
AND A
|
||||
RET
|
||||
|
||||
;DE - ADDRESS
|
||||
GBPB_RD LD IX,0
|
||||
LD HL,0
|
||||
LD B,#01
|
||||
;JP READ_RD
|
||||
;READ SECTORS
|
||||
; HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNT
|
||||
; A - DRIVE
|
||||
READ_RD:
|
||||
PUSH BC
|
||||
_mGET_RAMDRV_NUM
|
||||
POP BC
|
||||
LD C,BIOS.DRV_READ
|
||||
JP ToBIOS
|
||||
; RST ToBIOS
|
||||
; XOR A
|
||||
; RET
|
||||
LREAD_RD:
|
||||
PUSH BC
|
||||
_mGET_RAMDRV_NUM
|
||||
POP BC
|
||||
LD C,BIOS.DRV_READ_LONG
|
||||
JP ToBIOS
|
||||
; RST ToBIOS
|
||||
; XOR A
|
||||
; RET
|
||||
|
||||
;WRITE SECTORS
|
||||
; HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNT
|
||||
; A - DRIVE
|
||||
WRITE_RD:
|
||||
PUSH BC
|
||||
_mGET_RAMDRV_NUM
|
||||
POP BC
|
||||
LD C,BIOS.DRV_WRITE
|
||||
JP ToBIOS
|
||||
; RST ToBIOS
|
||||
; XOR A
|
||||
; RET
|
||||
|
||||
LWRITE_RD:
|
||||
PUSH BC
|
||||
_mGET_RAMDRV_NUM
|
||||
POP BC
|
||||
LD C,BIOS.DRV_WRITE_LONG
|
||||
JP ToBIOS
|
||||
; RST ToBIOS
|
||||
; XOR A
|
||||
; RET
|
||||
|
||||
;S_P_P DB #00
|
||||
INIT_RD:
|
||||
; .SectorSize EQU 512 ;!HARDCODE
|
||||
; LD HL,.SectorSize
|
||||
; LD A,#80
|
||||
; .loop: SRL A
|
||||
; RR H
|
||||
; JR NC,.loop
|
||||
; LD (S_P_P),A
|
||||
|
||||
LD BC,#0*256 + BIOS.GET_RAMD_ST ; <20>®«ã票¥ ¨¤¥â¨ä¨ª â®à ¡«®ª , § 祮£® RAM-Disk
|
||||
LD DE,RAMDTBL
|
||||
|
||||
.initLoop:
|
||||
PUSH BC
|
||||
LD A,B
|
||||
PUSH DE
|
||||
RST ToBIOS
|
||||
POP DE
|
||||
OR A
|
||||
JR Z,.noDRV
|
||||
|
||||
LD (DE),A
|
||||
INC DE
|
||||
POP BC
|
||||
LD A,B
|
||||
LD (DE),A
|
||||
INC DE
|
||||
JP 1F
|
||||
|
||||
.noDRV: POP BC
|
||||
1: INC B
|
||||
LD A,RAMDTBL.Size / 2
|
||||
CP B
|
||||
JR NZ,.initLoop
|
||||
|
||||
LD HL,RAMDTBL
|
||||
EX DE,HL
|
||||
AND A
|
||||
SBC HL,DE
|
||||
SRL L
|
||||
LD A,L
|
||||
; LD HL,ENDDRVR
|
||||
AND A
|
||||
RET
|
||||
|
||||
; ’€<E28099>‹ˆ–€ ‘ŽŽ’‚…’‘’‚ˆŸ Œ…†„“ ”ˆ‡ˆ—…‘ŠˆŒ <20>ŽŒ…<C592>ŽŒ <20>€Œ„ˆ‘Š€ ˆ …ƒŽ RAM-DISK ID
|
||||
; DB RAM_DRIVE_ID, RAM_DRIVE_NUMBER
|
||||
RAMDTBL: DUP MAX_RAMDRIVES * 2
|
||||
DB #FF
|
||||
EDUP
|
||||
.Size EQU $-RAMDTBL
|
||||
;
|
||||
|
||||
|
||||
; 00 - GET DEVICE PARAMETERS
|
||||
; 01 - READ TRACK
|
||||
; 02 - TEST TRACK
|
||||
; 80 - SET DEVICE PARAMETERS
|
||||
; 81 - WRITE TRACK
|
||||
; 82 - FORMAT TRACK
|
||||
IOCTL_RD:
|
||||
BIT 7,B
|
||||
JR NZ,.O_CTL_F
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,.RGETPRM
|
||||
; DEC B
|
||||
; JP Z,FRDTRAC
|
||||
; DEC B
|
||||
; JP Z,FCHTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
.O_CTL_F:
|
||||
; RES 7,B
|
||||
; INC B
|
||||
; DEC B
|
||||
; JP Z,.RSETPRM
|
||||
|
||||
; DEC B
|
||||
; JP Z,FWRTRAC
|
||||
; DEC B
|
||||
; JP Z,FFRTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
; HL:DE - SECTORS ON LOGICAL DISK
|
||||
; HL' - CYLINDERS ON PHISICAL DISK
|
||||
; DE' - HEADS ON PHISICAL DISK
|
||||
; BC' - SECTORS PER TRACK ON PHISICAL DISK
|
||||
; A' - PHISICAL DRIVE NUMBER
|
||||
; A - EXTENDED INFORMATION
|
||||
; D0...D3 - "0" RESERVED (MAY BE OTHER)
|
||||
; D4 - DEVICE MASTER/SLAVE
|
||||
; D5 - "1" RESERVED
|
||||
; D6 - ADDRESSING MODE LBA/CHS
|
||||
; D7 - "1" RESERVED
|
||||
.RGETPRM:
|
||||
EX DE,HL
|
||||
LD BC,#55AA
|
||||
AND A
|
||||
SBC HL,BC
|
||||
LD L,A
|
||||
LD A,DSS_Error.drv.GENERAL_FAILURE
|
||||
SCF
|
||||
RET NZ
|
||||
|
||||
|
||||
EX AF,AF'
|
||||
LD A,L
|
||||
_mGET_RAMDRV_NUM
|
||||
PUSH AF
|
||||
PUSH AF
|
||||
EX AF,AF'
|
||||
|
||||
POP AF
|
||||
LD C,BIOS.DRV_GET_PAR
|
||||
RST ToBIOS
|
||||
|
||||
PUSH HL ;ç¨á«® £®«®¢®ª, ç¨á«® ᥪâ®à®¢ ( 楫¨¤à)
|
||||
PUSH DE ;ª®«¨ç¥á⢮ 樫¨¤à®¢
|
||||
EXX
|
||||
POP HL ;ª®«¨ç¥á⢮ 樫¨¤à®¢
|
||||
POP BC ;ç¨á«® ᥪâ®à®¢ ( 楫¨¤à)
|
||||
LD D,0
|
||||
LD E,B ;ç¨á«® £®«®¢®ª
|
||||
LD B,D
|
||||
EXX
|
||||
|
||||
LD A,L
|
||||
|
||||
RRA
|
||||
JR C,.end
|
||||
.loopShift:
|
||||
SLA E
|
||||
RL D
|
||||
RRA
|
||||
JR NC,.loopShift
|
||||
|
||||
.end:
|
||||
EX AF,AF'
|
||||
POP AF
|
||||
EX AF,AF'
|
||||
XOR A
|
||||
LD L,A
|
||||
LD H,L
|
||||
LD A,%10100000
|
||||
RET
|
||||
|
||||
; !TODO
|
||||
; !FIXIT
|
||||
; .RSETPRM:
|
||||
; AND A
|
||||
; RET
|
||||
|
||||
ENDDRVR EQU $
|
||||
;
|
||||
67
DSS/Structures.inc
Normal file
67
DSS/Structures.inc
Normal file
@ -0,0 +1,67 @@
|
||||
;
|
||||
STRUCT _sStack ; 256 bytes
|
||||
buffer BLOCK 255,0
|
||||
SPoint BYTE 0
|
||||
ENDS
|
||||
;
|
||||
|
||||
;
|
||||
STRUCT _sEXE_HEADER ; 512 bytes
|
||||
EXE_EXT TEXT 3,{"EX","E"}
|
||||
VERSION BYTE 0
|
||||
OFFCOD1 WORD 0
|
||||
OFFCOD2 WORD 0
|
||||
LOADER WORD 0
|
||||
RESERVED BLOCK 6,0
|
||||
LD_ADDR WORD 0
|
||||
PC_REG WORD 0
|
||||
SP_REG WORD 0
|
||||
RESERVED2 BLOCK 490,0
|
||||
ENDS
|
||||
;
|
||||
|
||||
;File Manipulator (FM)
|
||||
STRUCT _sFM ; 44 bytes
|
||||
.NAME: TEXT 8,{". "," "} ;+00 NAME
|
||||
.EXT: TEXT 3,{" "," "} ;+08 EXT
|
||||
.ATTRIBUT: BYTE #10 ;+11 ATTRIBUT
|
||||
.RESERVED_L: BYTE 0 ;+12 RESERVED; !TODO á«¥¤ãî騩 ª« áâ¥à ¤«ï ç⥨ï
|
||||
.RESERVED_H: BYTE 0 ;+13 RESERVED; !TODO á«¥¤ãî騩 ª« áâ¥à ¤«ï § ¯¨á¨
|
||||
.RESERVED_X: BLOCK 8,0 ;+14 RESERVED
|
||||
.TIME: WORD #0000 ;+22 TIME
|
||||
.DATE: WORD #0000 ;+24 DATE
|
||||
.ST_CLUSTER: WORD #0000 ;+26 START CLUSTER
|
||||
.F_SIZE: DWORD #0000 ;+28 SIZE FILE
|
||||
.F_POSITION: DWORD #0000 ;+32 FILE POSITION (FP)
|
||||
.DIR_CLUSTER: WORD #0000 ;+36 DIRECTORY CLUSTER
|
||||
.HANDLE: WORD #0000 ;+38 HANDLE NUMBER
|
||||
.DRIVE: BYTE #00 ;+40 DRIVE OR CURRENT
|
||||
.ACCESS_MODE: BYTE #00 ;+41 ACCESS MODE
|
||||
.TASK_NUM: BYTE #00 ;+42 TASK
|
||||
.EMPTY: BYTE #00 ;+43 EMPTY
|
||||
ENDS
|
||||
;
|
||||
; NAM EQU 0 ; LEN4 EQU 31
|
||||
; EXT EQU 8 ; POS1 EQU 32
|
||||
; ATR EQU 11 ; POS2 EQU 33
|
||||
; TIM1 EQU 22 ; POS3 EQU 34
|
||||
; TIM2 EQU 23 ; POS4 EQU 35
|
||||
; DAT1 EQU 24 ; DIRCLU1 EQU 36
|
||||
; DAT2 EQU 25 ; DIRCLU2 EQU 37
|
||||
; CLU1 EQU 26 ; HND1 EQU 38
|
||||
; CLU2 EQU 27 ; HND2 EQU 39
|
||||
; LEN1 EQU 28 ; FDRV EQU 40
|
||||
; LEN2 EQU 29 ; AMODE EQU 41
|
||||
; LEN3 EQU 30 ; FTASK EQU 42
|
||||
|
||||
;
|
||||
STRUCT _sBuffers
|
||||
FileManipulator _sFM ; 44 bytes * FMCOUNT
|
||||
FM_RESERVE BLOCK _sFM * (FMCOUNT-1),0
|
||||
BootSector _sBOOT_SEC ; 62 bytes ;!TODO ¯¥à¥¥á⨠¢ ®¡« áâì ¡ãä¥à®¢
|
||||
EXE_Header _sEXE_HEADER ; 512 bytes
|
||||
Stack _sStack ; 256 bytes
|
||||
Buffer BLOCK 512,0 ; FOR BUFFER & SECBUF
|
||||
MemoryTable BLOCK 256,0 ; 256 bytes
|
||||
ENDS
|
||||
;
|
||||
24
DSS/VERSION.INC
Normal file
24
DSS/VERSION.INC
Normal file
@ -0,0 +1,24 @@
|
||||
;
|
||||
; DSS Version
|
||||
VERS EQU 01 ;Version Number (XX.)
|
||||
MODF EQU 70 ;Modification (.xx)
|
||||
BUILD EQU 1
|
||||
;
|
||||
|
||||
; Release Types
|
||||
RELEASE EQU 0
|
||||
RC EQU 1
|
||||
BETA EQU 2
|
||||
DP EQU 3
|
||||
;
|
||||
|
||||
; Bulid Type
|
||||
OSTYPE EQU BETA
|
||||
REVISION EQU 1
|
||||
;
|
||||
|
||||
; Default date
|
||||
DAY EQU 30
|
||||
MONTH EQU 03
|
||||
YEAR EQU 2023
|
||||
;
|
||||
682
DSS/VIDEO.ASM
Normal file
682
DSS/VIDEO.ASM
Normal file
@ -0,0 +1,682 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: VIDEO
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R02 07-11-2002 DNS CORRECT FN. WINCOPY & WINREST, ADD "DI+EI"
|
||||
;R01 07-11-2002 DNS FIX BUG WITH SCROLLUP FN. (A=0)
|
||||
;---------------------------------------------------------------
|
||||
|
||||
; CLEAR TEXT WINDOW
|
||||
CLEAR LD C,BIOS.LP_CLS_WIN2
|
||||
RST ToBIOS
|
||||
AND A
|
||||
RET
|
||||
;
|
||||
|
||||
; PRINT NULL-TERMINATED CHARS STRING
|
||||
; HL - STRING POINTER
|
||||
PCHARS LD A,(HL)
|
||||
INC HL
|
||||
OR A
|
||||
RET Z
|
||||
;PUSH HL
|
||||
CALL PUTCHAR
|
||||
;POP HL
|
||||
JP PCHARS
|
||||
|
||||
; PRINT CHAR
|
||||
; A - CHAR
|
||||
PUTCHAR:
|
||||
CP #0D
|
||||
JP Z,CR_
|
||||
CP #0A
|
||||
JP Z,LF_
|
||||
CP #09
|
||||
JP Z,TB_
|
||||
CP #08
|
||||
JP Z,BK_
|
||||
; CP #20
|
||||
; JP NC,CHAR
|
||||
CHAR: LD BC,1*256 + BIOS.LP_PRINT_SYM
|
||||
RST ToBIOS
|
||||
; ‘€‰Œ€<C592> âãâ ᨫìë© áªà®«« íªà ¥á«¨ ¯¥ç â « ¢ ¯®§¨æ¨¨ ¯®á«¥¤¥£® ᨬ¢®« ¯®á«¥¤¥© áâப¨
|
||||
; push af
|
||||
; ld a,e
|
||||
; cp #4F
|
||||
; jp nz,.exit
|
||||
; ld a,d
|
||||
; cp #1F
|
||||
; jp nz,.exit
|
||||
; ld e,0
|
||||
; ld c,#84
|
||||
; rst 8
|
||||
; call LFF
|
||||
; .exit:
|
||||
; pop af
|
||||
; ‘€‰Œ€<C592>
|
||||
RET
|
||||
|
||||
BK_: LD C,BIOS.LP_GET_PLACE ;GET CURSOR
|
||||
RST ToBIOS
|
||||
XOR A
|
||||
CP E
|
||||
JP Z,LOCATE
|
||||
DEC E
|
||||
JP LOCATE
|
||||
|
||||
TB_: LD C,BIOS.LP_GET_PLACE ;GET CURSOR
|
||||
RST ToBIOS
|
||||
|
||||
IF TABisSPACES
|
||||
LD B,E
|
||||
LD A,E
|
||||
AND #F8
|
||||
ADD A,8
|
||||
SUB B
|
||||
LD B,A
|
||||
LD C,BIOS.LP_PRINT_SYM
|
||||
LD A,#20
|
||||
RST ToBIOS
|
||||
RET
|
||||
ELSE
|
||||
LD A,E
|
||||
ADD A,8
|
||||
AND #78
|
||||
LD E,A
|
||||
JP LOCATE
|
||||
ENDIF
|
||||
|
||||
|
||||
LF_: LD C,BIOS.LP_GET_PLACE ;GET CURSOR
|
||||
RST ToBIOS
|
||||
LD A,D
|
||||
CP #1F
|
||||
JP NC,LFF
|
||||
INC D
|
||||
//JP LOCATE
|
||||
CALL LOCATE ; !!!!! ‘ ©¬
|
||||
|
||||
CR_: LD C,BIOS.LP_GET_PLACE ;GET CURSOR
|
||||
RST ToBIOS
|
||||
LD E,0
|
||||
JP LOCATE
|
||||
|
||||
|
||||
LFF: PUSH HL
|
||||
;PUSH DE
|
||||
LD BC,1*256 + BIOS.LP_SCROLL_UD
|
||||
LD DE,#0020
|
||||
EI
|
||||
HALT
|
||||
DI
|
||||
RST ToBIOS
|
||||
LD DE,#1F00
|
||||
;PUSH DE
|
||||
CALL LOCATE
|
||||
LD A,#20
|
||||
LD BC,#50*256 + BIOS.LP_PRINT_SYM
|
||||
RST ToBIOS
|
||||
EI
|
||||
;POP DE
|
||||
LD DE,#1F00
|
||||
CALL LOCATE
|
||||
POP HL
|
||||
RET
|
||||
;
|
||||
|
||||
; SET CURRENT CURSOR POSITION
|
||||
;===============================
|
||||
; D = Y
|
||||
; E = X
|
||||
LOCATE: LD C,BIOS.LP_SET_PLACE
|
||||
RST ToBIOS
|
||||
RET
|
||||
|
||||
; GET CURRENT CURSOR POSITION
|
||||
; out:
|
||||
; D - Y
|
||||
; E - X
|
||||
CURSOR: LD C,BIOS.LP_GET_PLACE
|
||||
RST ToBIOS
|
||||
RET
|
||||
|
||||
; READ CHAR & ATTR FROM THE SCREEN
|
||||
; in:
|
||||
; D - Y
|
||||
; E - X
|
||||
; out:
|
||||
; A - CHAR
|
||||
; B - ATTR
|
||||
RDCHAR: XOR A
|
||||
LD C,BIOS.WIN_GET_SYM
|
||||
RST ToBIOS
|
||||
LD A,L
|
||||
LD B,H
|
||||
AND A
|
||||
RET
|
||||
|
||||
; WRITE CHAR & ATTR TO THE SCREEN
|
||||
; D - Y
|
||||
; E - X
|
||||
; A - CHAR
|
||||
; B - ATTR
|
||||
;!FIXIT slow ª ª ¡¥§ WIN_GET_SYM âãâ ®¡®©â¨áì?
|
||||
WRCHAR: LD C,A
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
XOR A
|
||||
LD C,BIOS.WIN_GET_SYM
|
||||
RST ToBIOS
|
||||
POP DE
|
||||
POP HL
|
||||
XOR A
|
||||
LD C,BIOS.WIN_PUT_SYM
|
||||
RST ToBIOS
|
||||
AND A
|
||||
RET
|
||||
|
||||
; COPY WINDOW FROM THE SCREEN
|
||||
; D - Y
|
||||
; E - X
|
||||
; H - HEIGHT
|
||||
; L - WIDTH
|
||||
; IX - ADDRESS
|
||||
; B - PAGE, IF IX > 0C000H ; FIXIT ¥ ª®áïª «¨ âãâ? ¡ ª ¤®«¦ ¢ A' ¯¥à¥¤ ¢ âìáï, ¥ B
|
||||
WINCOPY: AND A
|
||||
LD A,R ;R02
|
||||
PUSH AF ;R02
|
||||
XOR A
|
||||
EX AF,AF' ;R03
|
||||
LD A,B ;R03 ;!TEST
|
||||
EX AF,AF' ;R03
|
||||
LD C,BIOS.WIN_COPY
|
||||
DI ;R02
|
||||
RST ToBIOS
|
||||
POP AF ;R02
|
||||
RET PO ;R02
|
||||
EI ;R02
|
||||
RET
|
||||
|
||||
; RESTORE WINDOW TO THE SCREEN
|
||||
; D - Y
|
||||
; E - X
|
||||
; H - HEIGHT
|
||||
; L - WIDTH
|
||||
; IX - ADDRESS
|
||||
; B - PAGE, IF IX > 0C000H ; FIXIT ¥ ª®áïª «¨ âãâ? ¡ ª ¤®«¦ ¢ A' ¯¥à¥¤ ¢ âìáï, ¥ B
|
||||
WINREST: AND A
|
||||
LD A,R ;R02
|
||||
PUSH AF ;R02
|
||||
XOR A
|
||||
EX AF,AF' ;R03
|
||||
LD A,B ;R03 ;!TEST
|
||||
EX AF,AF' ;R03
|
||||
DI ;R02
|
||||
LD C,BIOS.WIN_RESTORE
|
||||
RST ToBIOS
|
||||
POP AF ;R02
|
||||
RET PO ;R02
|
||||
EI ;R02
|
||||
RET
|
||||
|
||||
; SCROLL WINDOW
|
||||
; D - Y
|
||||
; E - X
|
||||
; H - HEIGHT
|
||||
; L - WIDTH
|
||||
; B - SCROLL DIRECTION
|
||||
; B = 1 - SCROLL UP
|
||||
; B = 2 - SCROLL DOWN
|
||||
; A = 0 - CLEAR LINE
|
||||
SCROLL: DJNZ SCR_DW
|
||||
LD B,A
|
||||
LD C,H
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
LD XH,D
|
||||
LD XL,E
|
||||
INC D
|
||||
DEC H
|
||||
LD C,BIOS.WIN_MOVE
|
||||
XOR A
|
||||
RST ToBIOS
|
||||
POP HL
|
||||
POP DE
|
||||
POP BC
|
||||
XOR A
|
||||
CP B
|
||||
RET NZ
|
||||
LD A,D
|
||||
ADD A,H
|
||||
DEC A ;R01
|
||||
LD D,A
|
||||
.print: PUSH DE ;R01
|
||||
CALL LOCATE
|
||||
LD A,#20
|
||||
LD B,L
|
||||
LD C,BIOS.LP_PRINT_SYM
|
||||
RST ToBIOS
|
||||
POP DE ;R01
|
||||
CALL LOCATE ;R01
|
||||
AND A
|
||||
RET
|
||||
|
||||
SCR_DW: DJNZ SCR_ERR
|
||||
LD B,A
|
||||
LD C,L
|
||||
PUSH BC ;R03 ;!TEST
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
LD XH,D
|
||||
LD XL,E
|
||||
INC XH
|
||||
DEC H
|
||||
LD C,BIOS.WIN_MOVE
|
||||
XOR A
|
||||
RST ToBIOS
|
||||
POP HL
|
||||
POP DE
|
||||
POP BC ;R03 ;!TEST
|
||||
XOR A
|
||||
CP B
|
||||
JR Z,SCROLL.print
|
||||
; PUSH DE ;R01
|
||||
; CALL LOCATE
|
||||
; LD A,#20
|
||||
; LD B,L
|
||||
; LD C,BIOS.LP_PRINT_SYM
|
||||
; RST ToBIOS
|
||||
; POP DE ;R01
|
||||
; CALL LOCATE ;R01
|
||||
; AND A
|
||||
RET
|
||||
SCR_ERR:
|
||||
LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||
SCF
|
||||
RET
|
||||
|
||||
; SELECT SCREEN PAGE
|
||||
; B - SCREEN PAGE
|
||||
SELPAGE ;PUSH BC
|
||||
LD A,(VMODE)
|
||||
BIT 7,A
|
||||
JR NZ,SEL2
|
||||
PUSH BC
|
||||
LD C,A
|
||||
CALL SETVMOD.TEXT_M
|
||||
POP BC
|
||||
SEL2 ;POP BC
|
||||
LD A,B
|
||||
AND #01
|
||||
OUT (SCREEN_SWITCH),A
|
||||
RET
|
||||
|
||||
; GET CURRENT VIDEO MODE
|
||||
; out:
|
||||
; A - MODE
|
||||
; B - PAGE
|
||||
GETVMOD IN A,(SCREEN_SWITCH)
|
||||
LD B,A
|
||||
LD A,(VMODE)
|
||||
AND A
|
||||
RET
|
||||
|
||||
; SET CURRENT VIDEO MODE
|
||||
; A - MODE
|
||||
; B - PAGE
|
||||
SETVMOD: BIT 7,A
|
||||
LD C,A
|
||||
JR NZ,GRAPH
|
||||
.TEXT_M: LD IX,BACKTXT
|
||||
PUSH IX
|
||||
EX AF,AF'
|
||||
LD A,(VMODE)
|
||||
LD (VVMODE),A
|
||||
EX AF,AF'
|
||||
INC A
|
||||
DEC A
|
||||
JR Z,.NOMODE
|
||||
DEC A
|
||||
JR Z,.NOMODE
|
||||
DEC A
|
||||
LD HL,TAB_40x32
|
||||
JP Z,T_40_32
|
||||
DEC A
|
||||
LD HL,TAB_80x32
|
||||
JP Z,T_80_32
|
||||
.NOMODE: POP IX
|
||||
LD A,DSS_Error.sys.INVALID_VIDEO_MODE
|
||||
SCF
|
||||
RET
|
||||
|
||||
GRAPH: CALL SAVETXT
|
||||
AND #7F
|
||||
JR Z,G320_16 ; !TODO ? - ¯®ª ®âà ¡ âë¢ ¥â ª ª ®è¨¡ª
|
||||
DEC A
|
||||
JP Z,G320_56
|
||||
DEC A
|
||||
JP Z,G640_16
|
||||
; DEC A
|
||||
; JP Z,G640_56 ; !TODO ? - ¯®ª ®âà ¡ âë¢ ¥â ª ª ®è¨¡ª
|
||||
G320_16: LD A,DSS_Error.sys.INVALID_VIDEO_MODE
|
||||
SCF
|
||||
RET
|
||||
|
||||
T_80_32:
|
||||
T_40_32: PUSH BC
|
||||
; LD HL,TAB2
|
||||
LD A,B
|
||||
RLCA
|
||||
RLCA
|
||||
RLCA
|
||||
RLCA
|
||||
OR B
|
||||
AND #11
|
||||
XOR #10
|
||||
LD E,A
|
||||
GRAPH_NEXT:
|
||||
CALL SETMODE
|
||||
POP BC
|
||||
LD A,C
|
||||
LD (VMODE),A
|
||||
LD A,B
|
||||
AND #01
|
||||
OUT (SCREEN_SWITCH),A
|
||||
LD A,(VMODE)
|
||||
LD C,#81
|
||||
RST #30
|
||||
SAFE_PORTY
|
||||
XOR A
|
||||
RET
|
||||
|
||||
; T_80_32 PUSH BC
|
||||
; LD HL,TAB1
|
||||
; LD A,B
|
||||
; RLCA
|
||||
; RLCA
|
||||
; RLCA
|
||||
; RLCA
|
||||
; OR B
|
||||
; AND #11
|
||||
; XOR #10
|
||||
; LD E,A
|
||||
; CALL SETMODE
|
||||
; POP BC
|
||||
; LD A,C
|
||||
; LD (VMODE),A
|
||||
; LD A,B
|
||||
; AND #01
|
||||
; OUT (SCREEN_SWITCH),A
|
||||
; LD A,(VMODE)
|
||||
; LD C,#81
|
||||
; RST #30
|
||||
; SAFE_PORTY
|
||||
; XOR A
|
||||
; RET
|
||||
|
||||
G320_56 PUSH BC
|
||||
LD HL,TAB_320x256_0
|
||||
LD E,#11
|
||||
CALL SETMODE
|
||||
LD HL,TAB_320x256_1
|
||||
LD E,#00
|
||||
JR GRAPH_NEXT
|
||||
; CALL SETMODE
|
||||
; POP BC
|
||||
; LD A,C
|
||||
; LD (VMODE),A
|
||||
; LD A,B
|
||||
; AND #01
|
||||
; OUT (SCREEN_SWITCH),A
|
||||
; LD A,(VMODE)
|
||||
; LD C,#81
|
||||
; RST #30
|
||||
; SAFE_PORTY
|
||||
; XOR A
|
||||
; RET
|
||||
|
||||
G640_16 PUSH BC
|
||||
LD HL,TAB_640x256_0
|
||||
LD E,#11
|
||||
CALL SETMODE
|
||||
LD HL,TAB_640x256_1
|
||||
LD E,#00
|
||||
JR GRAPH_NEXT
|
||||
|
||||
; CALL SETMODE
|
||||
; POP BC
|
||||
; LD A,C
|
||||
; LD (VMODE),A
|
||||
; LD A,B
|
||||
; AND #01
|
||||
; OUT (SCREEN_SWITCH),A
|
||||
; LD A,(VMODE)
|
||||
; LD C,#81
|
||||
; RST #30
|
||||
; SAFE_PORTY
|
||||
; XOR A
|
||||
; RET
|
||||
|
||||
VMODE: DB #03
|
||||
|
||||
;02h - TEXT 40 x 32 (16 colors)
|
||||
;03h - TEXT 80 x 32 (16 colors)
|
||||
;80h - GRAF 320 x 256 (16 colors)
|
||||
;81h - GRAF 320 x 256 (256 colors)
|
||||
;82h - GRAF 640 x 256 (16 colors)
|
||||
;83h - GRAF 640 x 256 (256 colors) UNUSED
|
||||
|
||||
SETMODE: PUSH DE
|
||||
LD DE,#FEE0 ;!HARDCODE £àï§ë© å ª. ª¨¤ ¥â ¤ ë¥ ¢ ¡ãä¥à á«ã¦¥¡®© áâà ¨æë ¡¨®á .
|
||||
LD BC,ScreenDescriptorTable.Size ; <20>ˆŽ‘ ¯à¨ ¨á¯®«ì§®¢ ¨¨ IX ¯à¥¤¯®« £ ¥â, çâ® ® 㪠§ë¢ ¥â
|
||||
;CALL MOVBIOS ; ¤à¥á ¨¦¥ #C000 ¨ ¢áâ ¢«ï¥â ¢ âà¥âìî ¡ ªã áâà ¨æã #FE
|
||||
;LD A,R
|
||||
IN A,(SLOT3)
|
||||
EX AF,AF'
|
||||
LD A,SYS_PAGE
|
||||
OUT (SLOT3),A
|
||||
LDIR
|
||||
EX AF,AF'
|
||||
OUT (SLOT3),A
|
||||
;JP PO,.skip_EI
|
||||
;EI
|
||||
.skip_EI: POP DE
|
||||
LD IX,#FEE0 ;!HARDCODE £àï§ë© å ª.
|
||||
;LD HL,#0000
|
||||
LD C,BIOS.WIN_OPEN
|
||||
RST ToBIOS
|
||||
SAFE_PORTY ;????? - ¢®§¬®¦®, ç⮠⥯¥àì ¥ 㦮, ¢¥§¤¥ á ¡ ª®© 3 à ¡®â îâ, ¯à®¢¥à¨âì
|
||||
XOR A
|
||||
RET
|
||||
|
||||
; MOVBIOS: LD A,R
|
||||
; IN A,(SLOT3)
|
||||
; EX AF,AF'
|
||||
; LD A,SYS_PAGE
|
||||
; OUT (SLOT3),A
|
||||
; LDIR
|
||||
; EX AF,AF'
|
||||
; OUT (SLOT3),A
|
||||
; RET PO
|
||||
; EI
|
||||
; RET
|
||||
|
||||
;IX+0 ;HORIZONTAL
|
||||
;IX+1 ;VERTICAL
|
||||
;IX+2 ;X - COORD
|
||||
;IX+3 ;Y - COORD
|
||||
;IX+4 ;MODE
|
||||
;IX+5 ;EXT MODE
|
||||
;IX+6 ;VIDEO RAM X OFFSET (SIGNPLACES)
|
||||
;IX+7 ;VIDEO RAM Y OFFSET (SIGNPLACES)
|
||||
|
||||
;
|
||||
;.......................................................................
|
||||
ScreenDescriptorTable EQU $
|
||||
;80x32
|
||||
TAB_80x32 DB #28,#20,#00,#00,#1B,#00,#00,#00 ;1
|
||||
;40x32
|
||||
TAB_40x32 DB #28,#20,#00,#00,#3B,#00,#00,#00 ;2
|
||||
;640x256 PAGE 0
|
||||
TAB_640x256_0 DB #28,#20,#00,#00,#00,#00,#00,#00 ;3
|
||||
;320x256 PAGE 0
|
||||
TAB_320x256_0 DB #28,#20,#00,#00,#20,#00,#00,#00 ;4
|
||||
;640x256 PAGE 1
|
||||
TAB_640x256_1 DB #28,#20,#00,#00,#40,#00,#28,#00 ;5
|
||||
;320x256 PAGE 1
|
||||
TAB_320x256_1 DB #28,#20,#00,#00,#60,#00,#28,#00 ;6
|
||||
ScreenDescriptorTable.Size EQU ($ - ScreenDescriptorTable)/6
|
||||
;.......................................................................
|
||||
;
|
||||
|
||||
SAVETXT PUSH AF
|
||||
;;!!!!! ¯¥à¥¥á¥ «®£¨ª áã¯¥à ¤¨ç ©è¥£® ã᪮२ï
|
||||
LD A,(VMODE)
|
||||
BIT 7,A
|
||||
JR NZ,NOSAVET
|
||||
SUB #02
|
||||
JR C,NOSAVET
|
||||
;;
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
PUSH IX
|
||||
|
||||
PUSH AF
|
||||
LD C,BIOS.LP_GET_PLACE
|
||||
RST ToBIOS
|
||||
LD (TCURS),DE
|
||||
POP AF
|
||||
LD IX,#C000
|
||||
LD HL,#2050
|
||||
OR A
|
||||
JR NZ,SVTEXT1
|
||||
LD L,#28
|
||||
SVTEXT1 LD (SVHL1),HL
|
||||
LD DE,#0000
|
||||
EX AF,AF' ;R03
|
||||
LD A,(BANKTBL+TXTPAGE)
|
||||
LD B,A ;!TEST
|
||||
EX AF,AF' ;R03
|
||||
LD C,BIOS.WIN_COPY
|
||||
XOR A
|
||||
DI
|
||||
RST ToBIOS
|
||||
EI
|
||||
POP IX
|
||||
POP HL
|
||||
POP DE
|
||||
POP BC
|
||||
NOSAVET: POP AF
|
||||
RET
|
||||
|
||||
BACKTXT PUSH AF
|
||||
VVMODE+1:
|
||||
LD A,#00
|
||||
BIT 7,A
|
||||
JR Z,NOBACKT
|
||||
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
PUSH IX
|
||||
LD IX,#C000
|
||||
SVHL1+1:
|
||||
LD HL,#2050
|
||||
LD DE,#0000
|
||||
EX AF,AF' ;R03
|
||||
LD A,(BANKTBL+TXTPAGE)
|
||||
LD B,A ;!TEST
|
||||
EX AF,AF' ;R03
|
||||
LD C,BIOS.WIN_RESTORE
|
||||
XOR A
|
||||
DI
|
||||
RST ToBIOS
|
||||
EI
|
||||
TCURS+1:
|
||||
LD DE,#0000
|
||||
LD C,BIOS.LP_SET_PLACE
|
||||
RST ToBIOS
|
||||
POP IX
|
||||
POP HL
|
||||
POP DE
|
||||
POP BC
|
||||
NOBACKT: POP AF
|
||||
RET
|
||||
|
||||
; SEND A SYMBOL TO THE PRINTER
|
||||
;==============================
|
||||
; A - SYMBOL
|
||||
;!FIXIT § ¬¥¨âì sp2000.inc
|
||||
LPT_A EQU #1B
|
||||
LPT_B EQU #1C
|
||||
|
||||
PRINT: AND A
|
||||
LD B,A
|
||||
LD A,R
|
||||
LD A,B
|
||||
DI
|
||||
PUSH AF
|
||||
XOR A
|
||||
OUT (LPT_A),A
|
||||
LD A,#10
|
||||
OUT (LPT_A),A
|
||||
XOR A
|
||||
OUT (LPT_A),A
|
||||
IN A,(LPT_A) ; IN (1Bh): bit 5 - busy, Bit 3 - Ack
|
||||
;ld c,a ; ‘€‰Œ€<C592>
|
||||
BIT 5,A ; IN (19h): bit 5 - Paper Enable, Bit 3 - Select
|
||||
JR NZ,LPTBUSY
|
||||
;and %11011000 ; ‘€‰Œ€<C592>
|
||||
;jr z,LPTBUSY ; ‘€‰Œ€<C592>
|
||||
LD A,B
|
||||
OUT (LPT_B),A
|
||||
POP AF
|
||||
RET PO
|
||||
EI
|
||||
RET
|
||||
LPTBUSY:
|
||||
POP AF
|
||||
;ld a,c ; ‘€‰Œ€<C592>
|
||||
SCF
|
||||
RET PO
|
||||
EI
|
||||
RET
|
||||
|
||||
; B - SYMBOL
|
||||
; CF = 1 - PRINTER BUSY
|
||||
;!FIXIT § ¬¥¨âì sp2000.inc
|
||||
LPT1_C EQU #1D
|
||||
LPT2_D EQU #1E
|
||||
LPT2_C EQU #1F
|
||||
PRINT_INIT:
|
||||
DI
|
||||
LD A,#CF ; port #1F ⮫쪮 ç¥p¥§ LD BC,1F : Out (BC),reg (¢ «ìâ¥à¥ ¨¤ñâ ¯¥à¥å¢ â í⮣® ¯®àâ ¯à®æ , ¥á«¨ ® ¢ ª®¬ ¤¥  㪠§ )
|
||||
LD BC,LPT2_C
|
||||
OUT (C),A
|
||||
LD A,#63
|
||||
OUT (C),A
|
||||
LD A,#C0 ; Bit 7 - Select (1), Bit 6 - Auto_Line_Feed (1)
|
||||
OUT (LPT2_D),A
|
||||
LD A,#0F ; Init printer port for Out
|
||||
OUT (LPT1_C),A
|
||||
|
||||
; ‘€‰Œ€<C592> ‚›<E2809A>…‡€‹
|
||||
XOR A ;LD A,0
|
||||
OUT (COM_A),A
|
||||
;LD A,0
|
||||
OUT (COM_A),A ; ????? ¤® «¨ ¢â®à®© à § § ááë« âì ¨ ¢®®¡é¥ ¨¬¥¥â «¨ á¬ëá« com ¨¨â¨âì?
|
||||
LD A,5
|
||||
OUT (COM_A),A
|
||||
LD A,#62 ; bit 7 - Direction for Bufer (0), Bit 1 - Bufer Enable (1)
|
||||
OUT (COM_A),A
|
||||
RET
|
||||
; ‘€‰Œ€<C592> ‚›<E2809A>…‡€‹
|
||||
|
||||
;//MODULE: VIDEO
|
||||
;[END]
|
||||
36
DSS/defines.inc
Normal file
36
DSS/defines.inc
Normal file
@ -0,0 +1,36 @@
|
||||
;
|
||||
DEFINE TEST_FEATURE 1
|
||||
;
|
||||
|
||||
;
|
||||
DEFINE SHORT_RSTx10_TABLE 0 ; 㪮à®ç¥ ï â ¡«¨æ äãªæ¨© rst #10. 96 äãªæ¨©.
|
||||
;
|
||||
|
||||
;
|
||||
DEFINE MAX_RAMDRIVES 16
|
||||
DEFINE NeedSafePort_Y 1
|
||||
DEFINE TABisSPACES 1
|
||||
DEFINE CLASSIC_CURSOR 0
|
||||
;
|
||||
;-------------------[MEMORY]-------------------------;
|
||||
DEFINE USING_MEMPAGES 4
|
||||
|
||||
;!FIXIT ᤥ« âì ⨯ DIRPAGE EQU 0 + BANKTBL ¨ ã¯à®áâ¨âì BANK
|
||||
DIRPAGE EQU 0
|
||||
FATPAGE EQU 1
|
||||
TXTPAGE EQU 2
|
||||
ENVPAGE EQU 2
|
||||
DRVPAGE EQU 3
|
||||
;
|
||||
|
||||
DIRSPEC.DEPTH EQU 256 ; '\' + 1..255
|
||||
|
||||
TXTADDR EQU #C000
|
||||
ENVADDR EQU #E400
|
||||
DIR EQU #C000
|
||||
FAT EQU #C000
|
||||
|
||||
FMCOUNT EQU 10 ; Š®«¨ç¥á⢮ ä ©«®¢ëå ¬ ¨¯ã«ïâ®à®¢
|
||||
HANDBUF.SIZE EQU 32
|
||||
;----------------------------------------------------;
|
||||
;
|
||||
1
Shared_Includes
Submodule
1
Shared_Includes
Submodule
@ -0,0 +1 @@
|
||||
Subproject commit 6e27011b6259b0256ce65d91a53ef1185223eafa
|
||||
Loading…
Reference in New Issue
Block a user