mirror of
https://github.com/romychs/SprinterFirmware.git
synced 2025-04-16 00:55:16 +03:00
Initial commit
This commit is contained in:
boykovra
commit
8003040904
54
DOS/README.md
Normal file
54
DOS/README.md
Normal file
@ -0,0 +1,54 @@
|
||||
# Sprinter DOS source code
|
||||
|
||||
There is sources, mixed from original source codes and recovered by me from binary files of v1.62.100.
|
||||
|
||||
You can use [SjasmPlus](https://github.com/z00m128/sjasmplus) to compile this code.
|
||||
|
||||
|
||||
`sjasmplus --fullpath "--raw=system.dos dos-main.asm`
|
||||
|
||||
[Sprinter computer site](https://sprinter.ru)
|
||||
|
||||
[Sprinter in Telegram](https://t.me/zx_sprinter)
|
||||
|
||||
|
||||
## Original README
|
||||
|
||||
This is a source code of Sprinter DOS (called Estex Disk Sub System or Estex DSS) for 8-bit
|
||||
computer PetersPlus Sprinter (Sp2000) that used Z80-compatible microprocessor running on 21 MHz
|
||||
frequency and Altera PLD that performed all magic. To compile the code you need to use AS80.EXE
|
||||
assembler for DOS (v1.31) included in this repo (referenced in A.BAT files as c:\asm\as80).
|
||||
|
||||
* [20000817.152][] -> DSS v1.52
|
||||
* [20010208.152][] -> DSS v1.52
|
||||
* [20010806.155][] -> DSS v1.55 ( [oldtree][] )
|
||||
* [20021215.160][] -> DSS v1.60 RC
|
||||
* [20030214.160][] -> DSS v1.60 R ( [tree][] )
|
||||
* [20030423.170][] -> DSS v1.70 beta ( current )
|
||||
|
||||
[tree]:https://gitlab.com/sprinter-computer/dos/-/tree/v1.60R
|
||||
[oldtree]:https://gitlab.com/sprinter-computer/dos/-/tree/v1.55
|
||||
[20000817.152]:https://gitlab.com/sprinter-computer/dos/-/commit/06cf3fe3cd9141489941175c75f0df35623fc215
|
||||
[20010208.152]:https://gitlab.com/sprinter-computer/dos/-/commit/d0d5a70d405effc3664e1d31f1b8854a8daaef50
|
||||
[20010806.155]:https://gitlab.com/sprinter-computer/dos/-/commit/20586b76791ac1d9c2d0797911f8057419a916a2
|
||||
[20021215.160]:https://gitlab.com/sprinter-computer/dos/-/commit/438f52ce179efb8d1fda2cb177818a7b201f6412
|
||||
[20030214.160]:https://gitlab.com/sprinter-computer/dos/-/commit/f541c51c29289f22784c288df06c22299743235b
|
||||
[20030423.170]:https://gitlab.com/sprinter-computer/dos/-/commit/0f7350186a6002d1774b20f516e1d7bdc5ab95b1
|
||||
|
||||
Tagged source code of the kernel v1.60R: https://gitlab.com/sprinter-computer/dos/-/tree/v1.60R
|
||||
|
||||
Binary release of v1.60R you can find in [release][] subdirectory of this repo.
|
||||
|
||||
[release]:https://gitlab.com/sprinter-computer/dos/-/tree/master/release
|
||||
|
||||
Estex DSS v1.60 R was last officially released binary distribution of Sprinter DOS
|
||||
(released by Peters Plus Ltd in February 2003), but the source code was publicly released
|
||||
to community only in 2009 (we believe it was done under PUBLIC DOMAIN terms).
|
||||
Note: there is a community supported continuation of DSS v1.6X branch, disassembled by enthusiasts
|
||||
before this public release happened, so for real work with modern reincarnations of Sprinter computer
|
||||
you need to use other versions of the DOS. Purpose of this particular repo is just to store officially
|
||||
released sources AS IS in browsable manner for historical and educational purposes.
|
||||
Feel free to fork it if you want to do anything with it.
|
||||
|
||||
For more info see Sprinter Unofficial http://sprinter.nedopc.org
|
||||
|
||||
24
DOS/a.bat
Normal file
24
DOS/a.bat
Normal file
@ -0,0 +1,24 @@
|
||||
@echo ==============================================================================
|
||||
@type read.me
|
||||
@built.exe
|
||||
@echo Assembling . . .
|
||||
@echo Assembling Drivers . . .
|
||||
@c:\asm\as80 -i -x3 -l -n drv-main.asm
|
||||
@if errorlevel=3 goto error
|
||||
@echo Drivers OK
|
||||
@echo Assembling Kernel . . .
|
||||
@c:\asm\as80 -i -x3 -l -n dos-main.asm
|
||||
@if errorlevel=3 goto error
|
||||
@goto good
|
||||
:error
|
||||
@echo -----------------------------------------------------------------------
|
||||
@echo │ ERROR ERROR │
|
||||
@echo -----------------------------------------------------------------------
|
||||
@goto quit
|
||||
:good
|
||||
@del system.dss
|
||||
@ren dos-main.bin system.dss
|
||||
@copy /b system.dss+drv-main.bin
|
||||
@echo Имя файла Размер Занято ┌── Изменен ──┐ Загружен Атрибуты
|
||||
@dir system.dss /v | find "system.dss"
|
||||
:quit
|
||||
5
DOS/bios.inc
Normal file
5
DOS/bios.inc
Normal file
@ -0,0 +1,5 @@
|
||||
|
||||
; -------------------------------------
|
||||
; BIOS Definitions
|
||||
; -------------------------------------
|
||||
SYSPAGE EQU #FE
|
||||
16
DOS/build.inc
Normal file
16
DOS/build.inc
Normal file
@ -0,0 +1,16 @@
|
||||
; -------------------------------------
|
||||
; DOS Build Definitions
|
||||
; -------------------------------------
|
||||
|
||||
REL_COUNT EQU 11
|
||||
|
||||
REL_YEAR EQU 2024
|
||||
REL_MONTH EQU 05
|
||||
REL_DAY EQU 21
|
||||
|
||||
REL_HOUR EQU 10
|
||||
REL_MINUTE EQU 30
|
||||
REL_SECOND EQU 00
|
||||
|
||||
REL_DAYCOUNT EQU 113
|
||||
|
||||
150
DOS/cerror.asm
Normal file
150
DOS/cerror.asm
Normal file
@ -0,0 +1,150 @@
|
||||
|
||||
; -------------------------------------
|
||||
; Error handler
|
||||
; -------------------------------------
|
||||
|
||||
CERR_VECT
|
||||
CERR_BNK DW 0
|
||||
CERR_ADR DW ERRSTUB
|
||||
|
||||
|
||||
SET_CERROR_VECTOR:
|
||||
LD (CERR_BNK),DE
|
||||
LD (CERR_ADR),HL
|
||||
LD (CERR_STK),IX
|
||||
AND A
|
||||
RET
|
||||
|
||||
GET_CERROR_VECTOR:
|
||||
LD DE,(CERR_BNK)
|
||||
LD HL,(CERR_ADR)
|
||||
LD IX,(CERR_STK)
|
||||
AND A
|
||||
RET
|
||||
|
||||
;
|
||||
; CALL CERR_BNK:CERR_ADR
|
||||
;
|
||||
|
||||
CERROR:
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
PUSH IX
|
||||
|
||||
LD HL,0
|
||||
ADD HL,SP
|
||||
EX DE,HL
|
||||
|
||||
LD C,PAGE3
|
||||
IN B,(C)
|
||||
|
||||
LD HL,(CERR_BNK)
|
||||
OUT (C),L
|
||||
|
||||
LD SP,(ERRSTACK)
|
||||
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
LD HL,(CERR_ADR)
|
||||
LD (_CALL01+1),HL
|
||||
_CALL01:
|
||||
CALL #0000
|
||||
POP BC
|
||||
POP HL
|
||||
OUT (C),B
|
||||
LD SP,HL
|
||||
|
||||
POP IX
|
||||
POP HL
|
||||
POP DE
|
||||
POP BC
|
||||
RET
|
||||
|
||||
F_RETRY EQU 0
|
||||
F_IGNORE EQU 1
|
||||
F_FAIL EQU 2
|
||||
|
||||
ERRSTUB:
|
||||
PUSH AF
|
||||
LD HL,ER_ABORT
|
||||
LD C,PCHARS
|
||||
RST #10
|
||||
POP AF
|
||||
LD HL,ER_RETRY
|
||||
BIT F_RETRY,A ; RETRY
|
||||
CALL NZ,ADD_EMSG
|
||||
LD HL,ER_IGNORE
|
||||
BIT F_IGNORE,A ; IGNORE
|
||||
CALL NZ,ADD_EMSG
|
||||
LD HL,ER_FAIL
|
||||
BIT F_FAIL,A ; FAIL
|
||||
CALL NZ,ADD_EMSG
|
||||
LD A,'?'
|
||||
LD C,PUTCHAR
|
||||
RST #10
|
||||
KEYAGA:
|
||||
PUSH AF
|
||||
LD C,WAITKEY
|
||||
RST #10
|
||||
CALL UPPER
|
||||
CP 'A'
|
||||
JR Z,CM_ABORT
|
||||
CP 'R'
|
||||
JR Z,CM_RETRY
|
||||
CP 'I'
|
||||
JR Z,CM_IGNORE
|
||||
CP 'F'
|
||||
JR Z,CM_FAIL
|
||||
POP AF
|
||||
JR KEYAGA
|
||||
|
||||
CM_FAIL:
|
||||
POP AF
|
||||
BIT F_FAIL,A
|
||||
JR Z,KEYAGA
|
||||
LD A,3 ;FAIL
|
||||
RET
|
||||
|
||||
CM_ABORT:
|
||||
POP AF
|
||||
BIT F_ABORT,A
|
||||
JR Z,KEYAGA
|
||||
LD A,2 ;ABORT
|
||||
RET
|
||||
|
||||
CM_RETRY:
|
||||
POP AF
|
||||
BIT F_RETRY,A
|
||||
JR Z,KEYAGA
|
||||
LD A,1 ;RETRY
|
||||
RET
|
||||
|
||||
CM_IGNORE:
|
||||
POP AF
|
||||
BIT F_IGNORE,A
|
||||
JR Z,KEYAGA
|
||||
LD A,0 ;IGNORE
|
||||
RET
|
||||
|
||||
ADD_EMSG:
|
||||
PUSH AF
|
||||
LD A,","
|
||||
LD C,PUTCHAR
|
||||
RST #10
|
||||
LD A," "
|
||||
LD C,PUTCHAR
|
||||
RST #10
|
||||
LD C,PCHARS
|
||||
RST #10
|
||||
POP AF
|
||||
RET
|
||||
|
||||
ER_ABORT:
|
||||
DB 13,10,"Abort",0
|
||||
ER_RETRY:
|
||||
DB "Retry",0
|
||||
ER_IGNORE:
|
||||
DB "Ignore",0
|
||||
ER_FAIL:
|
||||
DB "Fail",0
|
||||
23
DOS/changes.log
Normal file
23
DOS/changes.log
Normal file
@ -0,0 +1,23 @@
|
||||
;Изменения после версии 1.60
|
||||
10.02.2003 - Добавлена визуализация курсора в функции ECHOKEY.
|
||||
06.02.2003 - Исправлена ошибка в разборе имени файла начинающегося с точки.
|
||||
29.01.2003 - Исправлена ошибка в PUT_D_T, не обновлялась дата в файлах, в которые не производилась запись.
|
||||
;Изменения после версии 1.60RC
|
||||
05.12.2002 - Реализована fn. APPINFO 47h, информация о приложении.
|
||||
26.11.2002 - Исправлена ошибка в CHDIR, не выполнялся запрос "." из ROOT
|
||||
19.11.2002 - Добавлена корректировка атрибута файла при его создании.
|
||||
19.11.2002 - Добавлено маскирование аттрибута VOLUME LABEL.
|
||||
19.11.2002 - Исправлена ошибка с атрибутом system.
|
||||
17.11.2002 - Реализовано 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 - Поддержка принтера для Sp2000
|
||||
30.07.2001 - Исправлено описание входных параметров функции удаления файла(0Eh);
|
||||
;Изменения после версии 1.54
|
||||
18.07.2001 - Добавлено описание работы с графическим экраном;
|
||||
18.07.2001 - Добавлено описание параметра функции получения режима экрана(51h);
|
||||
15.03.2001 - Добавлено описание функции работы с командной строкой(45h);
|
||||
;Изменения после версии 1.00
|
||||
267
DOS/disk_x.asm
Normal file
267
DOS/disk_x.asm
Normal file
@ -0,0 +1,267 @@
|
||||
|
||||
; DISK DRIVER SPECIFICATION
|
||||
;---------------------------------------------
|
||||
; COMMAND 00h (INITIALIZATION)
|
||||
;
|
||||
; INPUT: A - DRIVE LETTER
|
||||
; IX - ENVIRONMENT
|
||||
; RETURN: A - AMOUNT DRIVE SUPPORT
|
||||
; HL - LENGHT 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
|
||||
|
||||
|
||||
INTDISK:
|
||||
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,2
|
||||
SCF
|
||||
RET
|
||||
|
||||
PDEVICE:
|
||||
DW DEVICE
|
||||
|
||||
DEVICE:
|
||||
DEFS 26*3,0xFF
|
||||
;DB 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF
|
||||
;DB 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF
|
||||
;DB 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF
|
||||
DB 0xFF
|
||||
|
||||
FLOPPY EQU 0x0001
|
||||
FIXED EQU 0x0002
|
||||
CDROM EQU 0x0004
|
||||
NETWORK EQU 0x0008
|
||||
|
||||
;DISKS DB 27 ;LENGHT 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 ;LENGHT 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 ;LENGHT 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:
|
||||
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,A
|
||||
CALL HDDRIVE
|
||||
LD DE,HDDRIVE
|
||||
CALL MAKEDVC
|
||||
XOR A
|
||||
LD C,A
|
||||
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)
|
||||
MAKEDV1:
|
||||
LD (HL),C
|
||||
INC HL
|
||||
LD (HL),E
|
||||
INC HL
|
||||
LD (HL),D
|
||||
INC HL
|
||||
INC C
|
||||
DEC A
|
||||
JR NZ,MAKEDV1
|
||||
LD (PDEVICE),HL
|
||||
DEC A
|
||||
LD (HL),A
|
||||
RET
|
||||
|
||||
; TODO Unknown new function
|
||||
NEW_FN1
|
||||
DI
|
||||
CALL INITDVC
|
||||
LD A,(LDRIVE)
|
||||
EI
|
||||
RET
|
||||
|
||||
BOOTDSK
|
||||
LD A,(BOOTDRV)
|
||||
AND A
|
||||
RET
|
||||
|
||||
SETBOOT
|
||||
LD B,A
|
||||
LD C,0x0
|
||||
NXTDV
|
||||
PUSH BC
|
||||
LD A,C
|
||||
LD BC,0x8
|
||||
LD DE,0x55aa
|
||||
RST A0018
|
||||
POP BC
|
||||
JR C,NO_SUPP
|
||||
EX AF,AF'
|
||||
CP B
|
||||
JR NZ,NO_SUPP
|
||||
LD A,C
|
||||
LD (BOOTDRV),A
|
||||
AND A
|
||||
RET
|
||||
NO_SUPP
|
||||
INC C
|
||||
LD A,(LDRIVE)
|
||||
CP C
|
||||
JR NZ,NXTDV
|
||||
SCF
|
||||
RET
|
||||
|
||||
412
DOS/dos-main.asm
Normal file
412
DOS/dos-main.asm
Normal file
@ -0,0 +1,412 @@
|
||||
;[BEGIN]
|
||||
;//MODULE: DOS-MAIN AUTHOR: Denis Parinov
|
||||
;//CREATE: A LONG TIME AGO :)
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;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
|
||||
;---------------------------------------------------------------
|
||||
DEVICE NOSLOT64K
|
||||
SPRINTER EQU 2000
|
||||
|
||||
VERS EQU 01 ; Version Number (XX.)
|
||||
MODF EQU 62 ; Modification (.xx)
|
||||
SUBMOD EQU 100
|
||||
|
||||
DAY EQU 01
|
||||
MONTH EQU 01
|
||||
YEAR EQU 2005
|
||||
|
||||
INCLUDE "build.inc"
|
||||
|
||||
PAGEDRV EQU #00
|
||||
|
||||
DIRPAGE EQU 0
|
||||
FATPAGE EQU 1
|
||||
TXTPAGE EQU 2
|
||||
ENVPAGE EQU 2
|
||||
DRVPAGE EQU 3
|
||||
|
||||
TXTADDR EQU 0xC000
|
||||
ENVADDR EQU 0xE400
|
||||
|
||||
DIR EQU 0xC000
|
||||
FAT EQU 0xC000
|
||||
|
||||
putvers macro
|
||||
db "0"+VERS
|
||||
db "."
|
||||
db MODF/10+"0"
|
||||
db MODF-(MODF/10)*10+"0"
|
||||
endm
|
||||
|
||||
ORG_ ORG 0x0000
|
||||
ROM__
|
||||
A0000
|
||||
JP LEAVE ;CLOSE TASK
|
||||
SOUND_K
|
||||
DS 5,0xFF
|
||||
|
||||
A0008
|
||||
PUSH AF ;INT BIOS
|
||||
LD A,0x00
|
||||
OUT (0x7C),A
|
||||
POP AF
|
||||
RET
|
||||
DB 0xFF
|
||||
|
||||
A0010
|
||||
JP RST_10 ;INT DOS
|
||||
DS 5,0xFF
|
||||
|
||||
A0018
|
||||
JP INTDISK ;
|
||||
DS 5,0xFF
|
||||
|
||||
A0020
|
||||
JP NOPS ;
|
||||
DS 5,0xFF
|
||||
|
||||
A0028
|
||||
JP NOPS ;
|
||||
DS 5,0xFF
|
||||
|
||||
A0030
|
||||
JP INTMOUS ;INT MOUSE
|
||||
DS 5,0xFF
|
||||
|
||||
A0038
|
||||
JP RST_38 ;INTERRUPT
|
||||
|
||||
;WARNING! DON'T CHANGE LENGHT OF MASK INTERUPT!
|
||||
;FOR CORRECTED WORKING "Non-Mask Interupt"
|
||||
|
||||
RST_38 ;MAIN INTERUPT
|
||||
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
|
||||
CALL P38
|
||||
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
|
||||
db 0xff
|
||||
|
||||
NMI_RET
|
||||
RETN
|
||||
|
||||
NMI_ISR ; NMI ISR
|
||||
NOP
|
||||
NOP
|
||||
NOP
|
||||
JP NMI_RET
|
||||
|
||||
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
|
||||
|
||||
NOPS
|
||||
LD A,ERR_INVALID_FUNCTION
|
||||
SCF
|
||||
RET
|
||||
|
||||
P38
|
||||
LD A, (ECHO_PREP+1)
|
||||
OR A
|
||||
RET Z
|
||||
P38_LB1 EQU $+1
|
||||
LD A, 0x1
|
||||
DEC A
|
||||
CALL Z,ECHO_PREP_0
|
||||
LD (P38_LB1),A
|
||||
RET
|
||||
|
||||
;Move to #0080
|
||||
; DS 5+8 ;ALIGN
|
||||
;------=====------
|
||||
;ENTER
|
||||
; IN A,(C) ;0
|
||||
; OUT (C),B ;2
|
||||
;
|
||||
; POP BC ;4
|
||||
; RET ;5
|
||||
;------=====------
|
||||
|
||||
;R01
|
||||
; Area for boot sector [512Bytes]
|
||||
BOOT DB #00,#00,#00 ; +00 JMP
|
||||
ID_NAME
|
||||
DB "DSS_"
|
||||
putvers
|
||||
|
||||
; Block Parameters BIOS
|
||||
|
||||
B_P_S DW 0x0200 ; +0B BYTE PER SECTOR
|
||||
S_P_C DB 2 ; +0D SECTORS PER CLUSTER
|
||||
RESERVE DW 1 ; +0E RESERVE SECTORS
|
||||
FAT_NUM DB 2 ; +10 AMOUNT FATS
|
||||
F_P_DIR DW 112 ; +11 FILES IN DIRECTORY
|
||||
S_P_D DW 1440 ; +13 ALL SECTORS ON DISK
|
||||
ID_FORM DB 0xF0 ; +15 ID FORMAT
|
||||
S_P_F DW 2 ; +16 SIZE FAT IN SECTORS
|
||||
S_P_T DW 9 ; +18 SECTOR PER TRACK
|
||||
HEADS DW 2 ; +1A AMOUNT SIDES
|
||||
HIDDEN DW 0x0000 ; +1C HIDDEN SECTORS
|
||||
DW 0x0000
|
||||
BPB_BIG_TOTAL_SECTORS
|
||||
DW 0x0000,0x0000 ; +20 BIG TOTAL SECTOR
|
||||
BPB_PHISICAL_DRIVE_NUMBER
|
||||
DW 0x0080 ; +24 PHISICAL DRIVE NUMBER
|
||||
BPB_EXT_BOOT_RECORD_SIGNATURE
|
||||
DB 0x29 ; +26 EXTENDED BOOT RECORD SIGNATURE
|
||||
BPB_SERIAL_NUMBER
|
||||
DW 0x0000,0x0000 ; +27 VOLUME SERIAL NUMBER
|
||||
BPB_LABEL
|
||||
DB "NO NAME " ;+2B DISK LABEL
|
||||
ID_FAT
|
||||
BPB_FS_ID
|
||||
DB "FAT16 " ; +36 FILE SYSTEM ID
|
||||
|
||||
SIZE_OF_BOOT EQU $-BOOT
|
||||
|
||||
DRIVE DB 0
|
||||
BOOTDRV DB 0
|
||||
|
||||
VER_IN
|
||||
IN A,(PAGE2)
|
||||
PUSH AF
|
||||
LD A,(BANKTBL+2)
|
||||
OUT (PAGE2),A
|
||||
LD DE,0x8000
|
||||
PUSH DE
|
||||
LD C,0xb8
|
||||
RST 0x08
|
||||
LD HL,0x8600
|
||||
LD BC,0x1ff
|
||||
LD A,0x1a
|
||||
CALL SUB_ram_00f0
|
||||
POP HL
|
||||
LD BC,0x5ff
|
||||
LD A,COM_A
|
||||
CALL SUB_ram_00f0
|
||||
POP AF
|
||||
OUT (PAGE2),A
|
||||
RET
|
||||
|
||||
SUB_ram_00f0
|
||||
LD E,L
|
||||
LD D,H
|
||||
LD (HL),0xff
|
||||
INC DE
|
||||
LDIR
|
||||
LD DE,0x8000
|
||||
LD C,0xb6
|
||||
RST 0x08
|
||||
RET
|
||||
|
||||
NOP
|
||||
NOP
|
||||
|
||||
//MAXSIZM DB 0, 0
|
||||
|
||||
ALIGN 256
|
||||
|
||||
MEMTAB DS 256 ;,0
|
||||
|
||||
ADRST10 ;DS 512 ;,0
|
||||
;FUNCTION ADDRESS ARRAY
|
||||
;--------------------------------------------------------------
|
||||
;FN 0 00h
|
||||
DB VER&0xFF,CHNDISK&0xFF,CURRDSK&0xFF,DISKINF&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF
|
||||
;FN 8 08h
|
||||
DB NEW_FN1&0xFF,BOOTDSK&0xFF,CREATE&0xFF,CREAT_N&0xFF,NOPS&0xFF,NOPS&0xFF,DELETE0&0xFF,NOPS&0xFF
|
||||
;FN 16 10h
|
||||
DB RENAME&0xFF,OPEN&0xFF,CLOSE&0xFF,READ&0xFF,WRITE&0xFF,MOVE_FP&0xFF,ATTRIB&0xFF,GET_D_T&0xFF
|
||||
;FN 24 18h
|
||||
DB PUT_D_T&0xFF,F_FIRST&0xFF,F_NEXT&0xFF,MKDIR&0xFF,RMDIR&0xFF,CHDIR&0xFF,CURRDIR&0xFF,NOPS&0xFF
|
||||
;FN 32 20h
|
||||
DB NOPS&0xFF,SYSTIME&0xFF,SETTIME&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF
|
||||
;FN 40 28h
|
||||
DB NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF
|
||||
;FN 48 30h
|
||||
DB WAITKEY&0xFF,SCANKEY&0xFF,ECHOKEY0&0xFF,CTRLKEY&0xFF,NOPS&0xFF,K_CLEAR&0xFF,K_SETUP&0xFF,TESTKEY&0xFF
|
||||
;FN 56 38h
|
||||
DB SETWIN&0xFF,SETWIN1&0xFF,SETWIN2&0xFF,SETWIN3&0xFF,FREEMEM&0xFF,GETMEM&0xFF,RETMEM&0xFF,SETMEM&0xFF
|
||||
;FN 64 40h
|
||||
DB EXEC&0xFF,LEAVE&0xFF,WAIT&0xFF,GSWITCH&0xFF,DOSNAME&0xFF,EX_PATH&0xFF,ENVIRON&0xFF,APPINFO&0xFF
|
||||
;FN 72 48h
|
||||
DB NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF
|
||||
;FN 80 50h
|
||||
DB SETVMOD&0xFF,GETVMOD&0xFF,LOCATE&0xFF,CURSOR&0xFF,SELPAGE&0xFF,SCROLL&0xFF,CLEAR&0xFF,RDCHAR&0xFF
|
||||
;FN 88 58h
|
||||
DB WRCHAR&0xFF,WINCOPY&0xFF,WINREST&0xFF,PUTCHAR&0xFF,PCHARS&0xFF,NOPS&0xFF,NOPS&0xFF,PRINT&0xFF
|
||||
;FN 96 60h
|
||||
DB NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF
|
||||
|
||||
DS #88
|
||||
DB NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF
|
||||
DB NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF,NOPS&0xFF
|
||||
|
||||
DB VER/256,CHNDISK/256,CURRDSK/256,DISKINF/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256
|
||||
DB NEW_FN1/256,BOOTDSK/256,CREATE/256,CREAT_N/256,NOPS/256,NOPS/256,DELETE0/256,NOPS/256
|
||||
DB RENAME/256,OPEN/256,CLOSE/256,READ/256,WRITE/256,MOVE_FP/256,ATTRIB/256,GET_D_T/256
|
||||
DB PUT_D_T/256,F_FIRST/256,F_NEXT/256,MKDIR/256,RMDIR/256,CHDIR/256,CURRDIR/256,NOPS/256
|
||||
DB NOPS/256,SYSTIME/256,SETTIME/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256
|
||||
DB NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256
|
||||
DB WAITKEY/256,SCANKEY/256,ECHOKEY0/256,CTRLKEY/256,NOPS/256,K_CLEAR/256,K_SETUP/256,TESTKEY/256
|
||||
DB SETWIN/256,SETWIN1/256,SETWIN2/256,SETWIN3/256,FREEMEM/256,GETMEM/256,RETMEM/256,SETMEM/256
|
||||
DB EXEC/256,LEAVE/256,WAIT/256,GSWITCH/256,DOSNAME/256,EX_PATH/256,ENVIRON/256,APPINFO/256
|
||||
DB NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256
|
||||
DB SETVMOD/256,GETVMOD/256,LOCATE/256,CURSOR/256,SELPAGE/256,SCROLL/256,CLEAR/256,RDCHAR/256
|
||||
DB WRCHAR/256,WINCOPY/256,WINREST/256,PUTCHAR/256,PCHARS/256,NOPS/256,NOPS/256,PRINT/256
|
||||
DB NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256
|
||||
DS #88
|
||||
DB NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256
|
||||
DB NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256,NOPS/256
|
||||
|
||||
;[INCLUDE]
|
||||
;KEYBOARD BUFFER
|
||||
include "errors.inc"
|
||||
include "keyinter.asm"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
BUFFER
|
||||
SECBUF DS 512, 0x00
|
||||
|
||||
|
||||
|
||||
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"
|
||||
|
||||
DTA DB " "
|
||||
DB " "
|
||||
DB 0x20
|
||||
DW 0,0,0,0,0
|
||||
DW 0
|
||||
DW 0
|
||||
CLUSTER DW 0
|
||||
SIZE DW 0,0
|
||||
ASCIIZ DB "FILENAME.EXT",#00
|
||||
|
||||
|
||||
include "disk_x.asm"
|
||||
include "ide_drv0.asm"
|
||||
include "fdd_drv0.asm"
|
||||
include "ram_drv0.asm"
|
||||
|
||||
|
||||
|
||||
; TODO
|
||||
; Check label names
|
||||
ECHO_PREP_A1 EQU $+1
|
||||
ECHO_PREP_0
|
||||
LD A,0x0
|
||||
CPL
|
||||
LD (ECHO_PREP_A1),A
|
||||
|
||||
ECHO_PREP_1
|
||||
LD C,0x8e
|
||||
RST 0x8
|
||||
LD (ECHO_DE1),DE
|
||||
XOR A
|
||||
LD C,0xb4
|
||||
RST 0x08
|
||||
LD BC,WOV_PG
|
||||
LD A,(ECHO_PREP_A1)
|
||||
OR A
|
||||
JR Z,ECHO_PREP_2
|
||||
LD B,0x1a
|
||||
LD A,(KEYFLAG)
|
||||
BIT 0x1,A
|
||||
JR NZ,ECHO_PREP_2
|
||||
LD B,COM_A
|
||||
ECHO_PREP_2
|
||||
XOR A
|
||||
RST 0x8
|
||||
LD A,0x1
|
||||
LD (ECHO_PREP+1),A
|
||||
LD A,0xb
|
||||
RET
|
||||
|
||||
|
||||
ECHO_PREP
|
||||
LD A,0x0
|
||||
OR A
|
||||
RET Z
|
||||
LD A,0xff
|
||||
LD (ECHO_PREP_A1),A
|
||||
INC A
|
||||
LD (ECHO_PREP+1),A
|
||||
LD A,0xb
|
||||
LD (P38_LB1),A
|
||||
ECHO_DE1 EQU $+1
|
||||
ECHO_DE
|
||||
LD DE,0x0
|
||||
BIT 0x7,E
|
||||
RET NZ
|
||||
LD C,0xb4
|
||||
XOR A
|
||||
RST A0008
|
||||
XOR A
|
||||
LD BC,WOV_PG
|
||||
RST A0008
|
||||
RET
|
||||
|
||||
ECHO_PREP_3
|
||||
CALL ECHO_PREP_1
|
||||
EI
|
||||
RET
|
||||
|
||||
|
||||
|
||||
|
||||
INCLUDE "release.inc"
|
||||
|
||||
;C_OSNAME
|
||||
;[END]
|
||||
1691
DOS/dos5.asm
Normal file
1691
DOS/dos5.asm
Normal file
File diff suppressed because it is too large
Load Diff
78
DOS/dos_equ.asm
Normal file
78
DOS/dos_equ.asm
Normal file
@ -0,0 +1,78 @@
|
||||
|
||||
; -------------------------------------
|
||||
; DOS Function numbers definitions
|
||||
; -------------------------------------
|
||||
|
||||
VERSION EQU #00 ; VERSION (Version of DSS)
|
||||
CHDISK EQU #01 ; CHDISK (Set the current disk)
|
||||
CURDISK EQU #02 ; CURDISK (Get the current disk)
|
||||
DSKINFO EQU #03 ; DSKINFO (Information about disk)
|
||||
G_ENTRY EQU #04 ;
|
||||
|
||||
BOOTDSK EQU #09 ; BOOTDSK (Get number of boot disk)
|
||||
CREATE EQU #0A ; CREATE (Create file)
|
||||
CREAT_N EQU #0B ; CREATE NEW FILE
|
||||
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
|
||||
|
||||
|
||||
|
||||
|
||||
1023
DOS/dos_fm.asm
Normal file
1023
DOS/dos_fm.asm
Normal file
File diff suppressed because it is too large
Load Diff
330
DOS/dos_x.asm
Normal file
330
DOS/dos_x.asm
Normal file
@ -0,0 +1,330 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: DOS_X
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R11 15-04-2003 DNS ROUTINE FOR STORE CURDISK AND CURDIR
|
||||
;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 0x89 ;VIDEO CONTROL REGISTER
|
||||
PAGE0 EQU 0x82 ;WIN 0x0000-#3FFF
|
||||
PAGE1 EQU 0xA2 ;WIN #4000-#7FFF
|
||||
PAGE2 EQU 0xC2 ;WIN #8000-#BFFF
|
||||
PAGE3 EQU 0xE2 ;WIN #C000-0xFFFF
|
||||
|
||||
SYSPAGE EQU 0xFE
|
||||
|
||||
;Commands for restart #10
|
||||
;NOPS
|
||||
; LD A,ERR_INVALID_FUNCTION
|
||||
; SCF
|
||||
; RET
|
||||
|
||||
VERSION
|
||||
XOR A
|
||||
LD DE,VERS*256+MODF
|
||||
LD BC, SUBMOD
|
||||
LD H,A
|
||||
LD L,A
|
||||
RET
|
||||
|
||||
CHNDISK
|
||||
LD C,A
|
||||
PUSH BC
|
||||
LD C,0x1
|
||||
RST 0x18
|
||||
POP BC
|
||||
JR C,NDISK11
|
||||
LD A,C
|
||||
LD (DRIVE),A
|
||||
CALL RD_BPB
|
||||
RET C
|
||||
LD A,(LDRIVE)
|
||||
AND A
|
||||
RET
|
||||
NDISK11
|
||||
CP 0x2
|
||||
SCF
|
||||
RET Z
|
||||
LD A,0x14
|
||||
RET
|
||||
|
||||
CURRDSK
|
||||
LD A,(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
|
||||
XOR A
|
||||
CP E
|
||||
JR NZ,SKIC
|
||||
CP D
|
||||
JR NZ,SKIC
|
||||
INC BC
|
||||
SKIC
|
||||
INC HL
|
||||
JR FRESP
|
||||
|
||||
FRESP2
|
||||
LD D,B
|
||||
LD E,C
|
||||
LD HL,(MAX_CLU)
|
||||
DEC HL
|
||||
LD BC,(B_P_S)
|
||||
LD A,(S_P_C)
|
||||
AND A
|
||||
RET
|
||||
|
||||
LDRIVE DB 0x02
|
||||
TDRIVE DB 0x00
|
||||
TCLUST DW 0x0000
|
||||
TCOUNT DW 0x0000
|
||||
DB 0
|
||||
RD_BPB
|
||||
LD C,PAGE3
|
||||
IN B,(C)
|
||||
PUSH BC
|
||||
EX AF,AF'
|
||||
IN A,(PAGE0)
|
||||
OUT (PAGE3),A
|
||||
LD DE,SECBUF+0xC000 ;R08
|
||||
EX AF,AF'
|
||||
LD C,4
|
||||
RST 0x18
|
||||
POP BC
|
||||
OUT (C),B
|
||||
JP C,RDERR1
|
||||
LD DE,#AA55
|
||||
LD HL,(SECBUF+510)
|
||||
AND A
|
||||
SBC HL,DE
|
||||
JP NZ,ERR_BPB
|
||||
LD HL,SECBUF
|
||||
LD DE,BOOT
|
||||
LD BC,SIZE_OF_BOOT
|
||||
LDIR
|
||||
LD A, (ID_FORM)
|
||||
CP 0xF0
|
||||
JP C,ERR_BPB
|
||||
LD HL,0 ; calc. first sector FAT
|
||||
LD DE,(RESERVE) ;Reserve sec
|
||||
EX DE,HL
|
||||
LD (FAT_FRM),HL ; first sector FAT
|
||||
LD (FAT2_XX),HL ; first sector FAT #2
|
||||
LD DE,(S_P_F)
|
||||
LD A,(FAT_NUM) ; amount FATs
|
||||
CP 1
|
||||
JR Z,C_DATA1
|
||||
DEC A
|
||||
ADD HL,DE
|
||||
LD (FAT2_XX),HL
|
||||
|
||||
C_DATA1
|
||||
ADD HL,DE
|
||||
DEC A
|
||||
JR NZ,C_DATA1
|
||||
LD (DIR_FRM),HL ; first sector DIR
|
||||
LD BC,(B_P_S)
|
||||
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 (F_P_S),A
|
||||
LD DE,(F_P_DIR)
|
||||
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 (DIR_S_S),A
|
||||
ADD HL,BC ; Start DATA area
|
||||
LD (DAT_FRM),HL
|
||||
LD BC,(B_P_S) ; Size sector
|
||||
LD HL,0
|
||||
LD A,(S_P_C)
|
||||
NEXTAD3
|
||||
ADD HL,BC ; calc. cluster size
|
||||
DEC A
|
||||
JR NZ,NEXTAD3
|
||||
LD (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 (C_P_B),A ; A - Clusters per bank (16k)
|
||||
|
||||
LD HL,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"
|
||||
JP NZ,ERR_BPB
|
||||
LD A,(HL)
|
||||
CP "6" ; FAT16
|
||||
LD HL,0xFFFF
|
||||
JR Z,BPB_FAT
|
||||
CP "2" ; FAT12
|
||||
JP NZ,ERR_BPB
|
||||
LD HL,0x0FFF
|
||||
BPB_FAT
|
||||
LD (FAT_TYP),A
|
||||
LD (ENDCLUS),HL
|
||||
LD HL,0
|
||||
LD BC,(S_P_T) ; Sector per track
|
||||
LD A,(HEADS)
|
||||
BPB_L1: ; calc. sector per cylinder
|
||||
ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,BPB_L1
|
||||
LD (S_X_H),HL
|
||||
LD DE,(DAT_FRM)
|
||||
LD HL,(S_P_D)
|
||||
LD A,H
|
||||
OR L
|
||||
JR NZ,HDDSMAL
|
||||
LD HL,(BPB_BIG_TOTAL_SECTORS)
|
||||
LD BC,(BPB_BIG_TOTAL_SECTORS+2)
|
||||
SBC HL,DE
|
||||
JR NC,HDDBIG
|
||||
DEC BC
|
||||
JR HDDBIG
|
||||
HDDSMAL
|
||||
SBC HL,DE
|
||||
LD BC,0
|
||||
HDDBIG
|
||||
LD A,(S_P_C)
|
||||
SCF
|
||||
S4C01
|
||||
RRA
|
||||
JR C,S4C02
|
||||
RR B
|
||||
RR C
|
||||
RR H
|
||||
RR L
|
||||
JR S4C01
|
||||
S4C02
|
||||
INC HL
|
||||
LD (MAX_CLU),HL
|
||||
LD HL,0
|
||||
LD (FATCASH),HL
|
||||
LD A,FATPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
XOR A
|
||||
CALL RE_FAT
|
||||
POP AF
|
||||
OUT (PAGE3),A
|
||||
CALL R_CLUST
|
||||
XOR A
|
||||
RET
|
||||
|
||||
IBMDOS_
|
||||
LD A,(ID_FORM)
|
||||
CP 0xF0
|
||||
JR C,ERR_BPB
|
||||
CP 0xF8
|
||||
LD A,"6"
|
||||
LD HL,0xFFFF
|
||||
JR Z,BPB_FAT
|
||||
LD A,"2"
|
||||
LD HL,0x0FFF
|
||||
JP BPB_FAT
|
||||
|
||||
ERR_BPB
|
||||
LD A,13
|
||||
SCF
|
||||
RET
|
||||
|
||||
RDERR1
|
||||
LD A,20
|
||||
SCF
|
||||
RET
|
||||
|
||||
FATMSG DB "FAT"
|
||||
|
||||
READ_PG DB 0x00
|
||||
|
||||
BLOCK DB 0x00
|
||||
|
||||
DIR_CLU DW 0x0000
|
||||
|
||||
;DRIVE DB 0x01
|
||||
FAT_FRM
|
||||
FAT1_XX DW 0x0000 ; MSD_FAT_SEC first sector FAT
|
||||
FAT2_XX DW 0x0000
|
||||
DIR_FRH DW 0x0000 ; MSD_CAT_SEC first sector DIR
|
||||
DIR_FRM
|
||||
DIR_FRL DW 0x0000 ; MSD_CAT_SEC first sector DIR
|
||||
F_P_S DB 0x00
|
||||
DIR_S_S DB 0x00 ; DIR_SEC_SIZE
|
||||
DAT_FRM DW 0x0000 ; MSD_DAT_SEC
|
||||
CLU_LEN
|
||||
B_P_C DW 0x0000 ; CLUSTER_LEN
|
||||
C_P_B DB 0x00 ; A - Clusters per bank (16k)
|
||||
FAT_TYP DB 0x00 ; TYPE FAT (#32 - 12bit, #36 - 16bit)
|
||||
S_X_H DW 0x0000
|
||||
ENDCLUS DW 0xFFFF
|
||||
|
||||
DIRSPEC DB #5C ; \
|
||||
DS 256
|
||||
|
||||
|
||||
;=============================================
|
||||
;//MODULE: DOS_X
|
||||
;[END]
|
||||
|
||||
146
DOS/drv_main.asm
Normal file
146
DOS/drv_main.asm
Normal file
@ -0,0 +1,146 @@
|
||||
;[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"
|
||||
|
||||
PAGEDRV EQU #00
|
||||
|
||||
ORG 0x0000
|
||||
|
||||
A0000 JP RST_00 ;CLOSE TASK
|
||||
DB #FF,#FF,#FF,#FF,#FF
|
||||
A0008 PUSH AF ;INT BIOS
|
||||
LD A,#00
|
||||
OUT (#7C),A
|
||||
POP AF
|
||||
RET
|
||||
RET
|
||||
A0010 JP RST_10 ;INT DOS
|
||||
DB #FF,#FF,#FF,#FF,#FF
|
||||
;A0018 JP INTDISK ;INT DISK
|
||||
; DB #FF,#FF,#FF,#FF,#FF
|
||||
A0018 PUSH AF
|
||||
PUSH BC
|
||||
LD BC,PAGEDRV+PAGE0
|
||||
JP ENTER
|
||||
A0020 JP RST_20 ;
|
||||
DB #FF,#FF,#FF,#FF,#FF
|
||||
A0028 JP RST_28 ;
|
||||
DB #FF,#FF,#FF,#FF,#FF
|
||||
A0030 JP RST_30 ;INT MOUSE
|
||||
DB #FF,#FF,#FF,#FF,#FF
|
||||
A0038 JP RST_38 ;INTERRUPT
|
||||
|
||||
;WARNING! DON'T CHANGE LENGHT OF MASK INTERUPT!
|
||||
;FOR CORRECTED WORKING "Non-Mask Interupt"
|
||||
|
||||
RST_38 ;MAIN INTERUPT
|
||||
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
|
||||
|
||||
RST_00
|
||||
RST_20
|
||||
RST_28
|
||||
RST_30
|
||||
LD A,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
NMI RETN
|
||||
NOP
|
||||
NOP
|
||||
NOP
|
||||
A0066 JP NMI
|
||||
|
||||
;!!!!!!!!!!!!!!!!!!
|
||||
ADRST10 EQU #00 ;!!!
|
||||
;!!!!!!!!!!!!!!!!!!
|
||||
|
||||
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
|
||||
|
||||
;Move to #007E
|
||||
DS 8 ;ALIGN
|
||||
;------=====------
|
||||
LEAVE PUSH BC
|
||||
RETBANK LD BC,#0000+PAGE0
|
||||
OUT (C),B
|
||||
;Entry point from DSS main page
|
||||
LD (RETBANK+2),A
|
||||
POP BC
|
||||
POP AF
|
||||
ADCALL CALL DISPATCH
|
||||
JR LEAVE
|
||||
|
||||
LD B,#00 ;2
|
||||
OUT (C),A ;9
|
||||
;---
|
||||
POP BC ;10
|
||||
RET ;11
|
||||
;------=====------
|
||||
|
||||
ENTER
|
||||
RET
|
||||
|
||||
|
||||
DISPATCH
|
||||
CALL INITDVC
|
||||
LD HL,INTDISK
|
||||
LD (ADCALL+1),HL
|
||||
LD A,(LDRIVE)
|
||||
AND A
|
||||
RET
|
||||
|
||||
KEYSCAN
|
||||
RET
|
||||
|
||||
|
||||
LDRIVE DB #00
|
||||
|
||||
INCLUDE "disk_x.asm"
|
||||
INCLUDE "ide_drv0.asm"
|
||||
INCLUDE "fdd_drv0.asm"
|
||||
INCLUDE "ram_drv0.asm"
|
||||
|
||||
DB 0
|
||||
;[END]
|
||||
104
DOS/dss.inc
Normal file
104
DOS/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
|
||||
;
|
||||
62
DOS/dss_map.txt
Normal file
62
DOS/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
|
||||
251
DOS/environ.asm
Normal file
251
DOS/environ.asm
Normal file
@ -0,0 +1,251 @@
|
||||
;[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
|
||||
ENVI_L1
|
||||
JR Z,INITENV ;B=FF
|
||||
ENVI_L2
|
||||
DEC B
|
||||
ENVI_L3
|
||||
JR Z,READENV ;B=0
|
||||
DEC B
|
||||
JR Z,GETENV ;B=1
|
||||
DEC B
|
||||
JR Z,SETENV ;B=2
|
||||
LD A,ERR_INVALID_FUNCTION ; TODO: Call to NOP?
|
||||
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 (PAGE3),A
|
||||
AND A
|
||||
RET
|
||||
|
||||
READENV PUSH HL
|
||||
LD A,ENVPAGE
|
||||
CALL BANK
|
||||
LD H,A
|
||||
LD C,PAGE3
|
||||
IN L,(C)
|
||||
EXX
|
||||
LD HL,ENVIRONMENT
|
||||
INC HL
|
||||
POP DE
|
||||
LD BC,(ENVSIZE)
|
||||
EXX
|
||||
;
|
||||
RD_ENV1
|
||||
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,RD_ENV1
|
||||
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 (PAGE3),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,(SECBUF)
|
||||
OR A
|
||||
JR Z,CLR_ENV
|
||||
LD HL,EXEBUFF
|
||||
|
||||
F_EVN2
|
||||
LD A,(HL)
|
||||
LDI
|
||||
CP "="
|
||||
JR NZ,F_EVN2
|
||||
LD HL,SECBUF
|
||||
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 (PAGE3),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,0xff
|
||||
LD DE,ENVNAME
|
||||
ENV_E0
|
||||
XOR A
|
||||
LD (DE),A
|
||||
LD (SECBUF),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
|
||||
JR ENV_E4
|
||||
|
||||
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,SECBUF
|
||||
LD (DE),A
|
||||
LD C,#FF
|
||||
ENV_E2
|
||||
LD A,(HL)
|
||||
LDI
|
||||
OR A
|
||||
RET Z
|
||||
DJNZ ENV_E2
|
||||
ENV_E4
|
||||
LD A,B
|
||||
LD (DE),A
|
||||
INC DE
|
||||
SCF
|
||||
RET
|
||||
|
||||
ENVNAME EQU EXEBUFF ;DS 32
|
||||
ENVVALUE EQU #3800 ; BUFFER ;DS 128
|
||||
|
||||
ENVSIZE DW 1 ;E_END-ENVIRONMENT ;160
|
||||
|
||||
ENVIRONMENT EQU ENVADDR
|
||||
|
||||
DEFAULT_ENV
|
||||
DB 0 ; "",0
|
||||
DEF_ENV_SIZE EQU $-DEFAULT_ENV
|
||||
|
||||
;[END]
|
||||
40
DOS/errors.inc
Normal file
40
DOS/errors.inc
Normal file
@ -0,0 +1,40 @@
|
||||
; =====================================
|
||||
; Error codes
|
||||
; =====================================
|
||||
ERR_NO_ERROR EQU 0x00 ; (00) - нет ошибок
|
||||
ERR_INVALID_FUNCTION EQU 0x01 ; (01) - неверный номер функции
|
||||
ERR_INVALID_DRIVE EQU 0x02 ; (02) - неправильный номер устройства
|
||||
ERR_FILE_NOT_FOUND EQU 0x03 ; (03) - файл не обнаружен
|
||||
ERR_PATH_NOT_FOUND EQU 0x04 ; (04) - неверный путь
|
||||
ERR_INVALID_HANDLE EQU 0x05 ; (05) - несуществующий файловый манипулятор
|
||||
ERR_NO_HANDLES EQU 0x06 ; (06) - нет свободного файлового манипулятора
|
||||
ERR_FILE_EXISTS EQU 0x07 ; (07) - файл существует
|
||||
ERR_READONLY EQU 0x08 ; (08) - файл только для чтения
|
||||
ERR_ROOT_OVERFLOW EQU 0x09 ; (09) - переполнение ROOT ; (корневого каталога)
|
||||
ERR_DISK_FULL EQU 0x0A ; (10) - нет свободного места на диске
|
||||
ERR_DIR_NOT_EMPTY EQU 0x0B ; (11) - каталог не пуст
|
||||
ERR_CURRENT_DIR EQU 0x0C ; (12) - попытка удалить текущий каталог
|
||||
ERR_UNKNOWN_FORMAT EQU 0x0D ; (13) - неизвестный формат
|
||||
ERR_INVALID_ACCESS EQU 0x0E ; (14) - невозможная операция
|
||||
ERR_DIR_EXISTS EQU 0x0F ; (15) - каталог уже есть
|
||||
ERR_INVALID_NAME EQU 0x10 ; (16) - неверное имя
|
||||
ERR_INVALID_EXE EQU 0x11 ; (17) - неправильный EXE-файл
|
||||
ERR_UNKNOWN_EXE EQU 0x12 ; (18) - не поддерживаемая версия EXE-файла
|
||||
ERR_ACCESS_DENIED EQU 0x13 ; (19) - ресурс не доступен
|
||||
;
|
||||
ERR_NOT_READY EQU 0x14 ; (20) - нет готовности
|
||||
ERR_SEEK_ERROR EQU 0x15 ; (21) - ошибка позиционирования
|
||||
ERR_SECTOR_NOT_FOUND EQU 0x16 ; (22) - сектор не найден
|
||||
ERR_CRC_ERROR EQU 0x17 ; (23) - ошибка CRC
|
||||
ERR_WRITE_PROTECT EQU 0x18 ; (24) - защита записи
|
||||
ERR_READ_ERROR EQU 0x19 ; (25) - ошибка чтения
|
||||
ERR_WRITE_ERROR EQU 0x1A ; (26) - ошибка записи
|
||||
ERR_GENERAL_FAILURE EQU 0x1B ; (27) - общая ошибка
|
||||
ERR_RESERVED_28 EQU 0x1C ; (28) - зарезервирован
|
||||
ERR_RESERVED_29 EQU 0x1D ; (29) - зарезервирован
|
||||
;
|
||||
ERR_NOT_ENOUGH_MEMORY EQU 0x1E ; (30) - недостаточно памяти
|
||||
ERR_INVALID_MEMORY_HND EQU 0x1F ; (31) - несуществующий блок памяти
|
||||
ERR_RESERVED_32 EQU 0x20 ; (32) - зарезервирова
|
||||
;
|
||||
ERR_INVALID_VIDEO_MODE EQU 0x30 ; (48) - зарезервирова
|
||||
1208
DOS/execute.asm
Normal file
1208
DOS/execute.asm
Normal file
File diff suppressed because it is too large
Load Diff
482
DOS/fat_x.asm
Normal file
482
DOS/fat_x.asm
Normal file
@ -0,0 +1,482 @@
|
||||
|
||||
;[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+1),HL
|
||||
RET
|
||||
|
||||
G_CLUST
|
||||
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+1),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,(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,(FAT_TYP)
|
||||
CP "2"
|
||||
JR 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 (PAGE3),A
|
||||
LD HL,#FFEF
|
||||
XOR A
|
||||
SBC HL,DE
|
||||
POP HL
|
||||
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 (PAGE3),A
|
||||
LD HL,#0FEF
|
||||
XOR A
|
||||
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,(FAT_TYP)
|
||||
CP "2"
|
||||
JR 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 (PAGE3),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
|
||||
JR C,W_T_F01
|
||||
LD (HL),E
|
||||
INC HL
|
||||
LD A,(HL)
|
||||
AND #F0
|
||||
OR D
|
||||
LD (HL),A
|
||||
POP AF
|
||||
POP HL
|
||||
OUT (PAGE3),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 (PAGE3),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,(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,(DRIVE)
|
||||
LD B,16 ;16 * 512 = 8192 (CASH SIZE)
|
||||
LD C,5
|
||||
RST #18
|
||||
POP HL
|
||||
RET
|
||||
|
||||
WR_FAT EXX
|
||||
LD A,FATPAGE
|
||||
CALL BANK
|
||||
EXX
|
||||
PUSH AF
|
||||
CALL WR_FAT_
|
||||
POP AF
|
||||
OUT (PAGE3),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,(S_P_F)
|
||||
LD A,16
|
||||
AND A
|
||||
SBC HL,DE
|
||||
JR C,WALLFAT
|
||||
EX DE,HL
|
||||
LD HL,16
|
||||
SBC HL,DE
|
||||
JR C,FATERR
|
||||
LD A,L
|
||||
WALLFAT
|
||||
LD H,B
|
||||
LD L,C
|
||||
LD DE,(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,(DRIVE)
|
||||
PUSH BC
|
||||
RST #18
|
||||
POP BC
|
||||
POP HL
|
||||
LD DE,(FAT2_XX)
|
||||
ADD HL,DE
|
||||
EX DE,HL
|
||||
LD IX,0
|
||||
ADD IX,DE
|
||||
LD DE,FAT
|
||||
LD HL,0
|
||||
LD A,(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
DOS/fdd_drv0.asm
Normal file
366
DOS/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
|
||||
JR Z,INIT ;#00
|
||||
DEC C
|
||||
JR Z,RESE ;#01
|
||||
DEC C
|
||||
JR Z,STAT ;#02
|
||||
DEC C
|
||||
JR Z,CHEK ;#03
|
||||
DEC C
|
||||
JR Z,GBPB ;#04
|
||||
DEC C
|
||||
JR Z,READD ;#05
|
||||
DEC C
|
||||
JR Z,WRITED ;#06
|
||||
DEC C
|
||||
JP Z,REMOV_F ;#07
|
||||
DEC C
|
||||
JR Z,IOCTL_F ;#08
|
||||
LD A,1 ; TODO: NOOP?
|
||||
SCF
|
||||
RET
|
||||
|
||||
;Commands for restart #18
|
||||
INIT
|
||||
LD A,2
|
||||
AND A
|
||||
RET
|
||||
|
||||
RESE
|
||||
LD C,#51
|
||||
RST #08
|
||||
RET
|
||||
|
||||
STAT
|
||||
XOR A
|
||||
RET
|
||||
|
||||
CHEK
|
||||
LD A,#FF
|
||||
AND A
|
||||
RET
|
||||
|
||||
;DE - ADDRESS
|
||||
|
||||
GBPB
|
||||
LD IX,0
|
||||
LD HL,0
|
||||
PUSH DE
|
||||
PUSH AF
|
||||
LD BC,#0155
|
||||
RST #08
|
||||
POP DE
|
||||
POP HL
|
||||
RET C
|
||||
LD BC,#0018
|
||||
ADD HL,BC
|
||||
LD E,(HL)
|
||||
PUSH DE
|
||||
LD A,D
|
||||
LD C,#58
|
||||
RST #08
|
||||
LD A,H
|
||||
POP HL
|
||||
PUSH HL
|
||||
LD H,A
|
||||
POP AF
|
||||
LD C,#59
|
||||
RST #08
|
||||
XOR A
|
||||
RET
|
||||
|
||||
;READTR
|
||||
; XOR A
|
||||
; RET
|
||||
|
||||
READD
|
||||
LD C,#55
|
||||
RST #08
|
||||
RET
|
||||
|
||||
WRITED
|
||||
LD C,#56
|
||||
RST #08
|
||||
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
|
||||
JR Z,FGETPRM
|
||||
LD A,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
O_CTL_F
|
||||
RES 7,B
|
||||
INC B
|
||||
DEC B
|
||||
JR Z,FSETPRM
|
||||
LD A,1
|
||||
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,11
|
||||
SCF
|
||||
RET NZ
|
||||
LD A,L
|
||||
AND #0F
|
||||
PUSH AF
|
||||
LD C,#58
|
||||
RST #08
|
||||
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
|
||||
EX AF,AF'
|
||||
XOR A
|
||||
LD L,A
|
||||
LD H,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,2
|
||||
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 #08
|
||||
POP DE
|
||||
POP HL
|
||||
JR C,NONEF
|
||||
POP AF
|
||||
LD C,#59
|
||||
RST #08
|
||||
RET C
|
||||
AND A
|
||||
RET
|
||||
|
||||
REMOV_F
|
||||
LD A,1
|
||||
AND A
|
||||
RET
|
||||
|
||||
;==============================================
|
||||
|
||||
|
||||
|
||||
7
DOS/hardware.inc
Normal file
7
DOS/hardware.inc
Normal file
@ -0,0 +1,7 @@
|
||||
|
||||
;Memory ports
|
||||
|
||||
PAGE0 EQU #82
|
||||
PAGE1 EQU #A2
|
||||
PAGE2 EQU #C2
|
||||
PAGE3 EQU #E2
|
||||
696
DOS/ide_drv0.asm
Normal file
696
DOS/ide_drv0.asm
Normal file
@ -0,0 +1,696 @@
|
||||
;---------------------------------------------------------------
|
||||
;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
|
||||
JR 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
|
||||
JR Z,RESR_H ;#09
|
||||
DEC C
|
||||
JP Z,LREADH ;#0A
|
||||
DEC C
|
||||
JP Z,LWRITEH ;#0Bh
|
||||
|
||||
RESR_H ; TODO: UNK?
|
||||
LD A,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
;Commands for restart #18
|
||||
INIT_H
|
||||
PUSH IY
|
||||
LD HL,LOGDRV
|
||||
LD (OFFSECT),HL
|
||||
LD IX,DEVICE_CFG
|
||||
LD C,#5F
|
||||
RST #08
|
||||
XOR A
|
||||
LD B,(IX+2) ;HDD
|
||||
CP B
|
||||
JR Z,NO_HARDS
|
||||
LD B,0x04 ; TODO: 1op
|
||||
LD C,0x80
|
||||
|
||||
NX_DVCI
|
||||
PUSH BC
|
||||
LD A,C
|
||||
LD (DRV),A
|
||||
CALL PARTIT
|
||||
POP BC
|
||||
INC C
|
||||
DJNZ NX_DVCI
|
||||
|
||||
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
|
||||
|
||||
LOGDRV DB 0 ;+00 BYTE MASTER/SLAVE PHISICAL DRIVE NUMBER #80/#81/...
|
||||
SOFF DW 0,0 ;+01 LONG SECTOR OFFSET
|
||||
NSECT DW 0,0 ;+05 LONG SIZE IN SECTORS
|
||||
DS 183,0 ;+09 FREE
|
||||
|
||||
DEVICE_CFG EQU #4000
|
||||
|
||||
|
||||
;+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
|
||||
|
||||
|
||||
SELHDD
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
PUSH HL
|
||||
LD L,A
|
||||
LD H,0x0
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
EX DE,HL
|
||||
LD HL,LOGDRV
|
||||
ADD HL,DE
|
||||
LD A,(HL) ; LOGDRV
|
||||
INC HL
|
||||
LD C,(HL) ; =>SOFF+0
|
||||
INC HL
|
||||
LD B,(HL) ; =>SOFF+1
|
||||
INC HL
|
||||
LD E,(HL) ; =>SOFF+2
|
||||
INC HL
|
||||
LD D,(HL) ; =>SOFF+3
|
||||
POP HL
|
||||
ADD IX,BC
|
||||
ADC HL,DE
|
||||
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
|
||||
JR Z,HGETPRM
|
||||
DEC B
|
||||
JR Z,HRDTRAC
|
||||
DEC B
|
||||
JR Z,HCHTRAC
|
||||
LD A,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
O_CTL_H
|
||||
RES 7,B
|
||||
INC B
|
||||
DEC B
|
||||
JR Z,HSETPRM
|
||||
DEC B
|
||||
JR Z,HWRTRAC
|
||||
DEC B
|
||||
JR Z,HFRTRAC
|
||||
LD A,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
HRDTRAC
|
||||
LD A,11
|
||||
SCF
|
||||
RET
|
||||
|
||||
HCHTRAC
|
||||
LD B,L
|
||||
JP CHECKH
|
||||
|
||||
HSETPRM
|
||||
AND A
|
||||
RET
|
||||
|
||||
HWRTRAC
|
||||
LD A,11
|
||||
SCF
|
||||
RET
|
||||
|
||||
HFRTRAC
|
||||
LD A,11
|
||||
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,11
|
||||
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
|
||||
ADD IY,BC
|
||||
LD E,(IY+5) ; Number of sectors 0
|
||||
LD D,(IY+6) ; Number of sectors 1
|
||||
LD L,(IY+7) ; Number of sectors 2
|
||||
LD H,(IY+8) ; Number of sectors 3
|
||||
|
||||
LD A,(IY+0) ; drv
|
||||
LD C,A
|
||||
LD IY,IDE0
|
||||
AND #0F
|
||||
JR Z,GELH1
|
||||
LD IY,IDE1
|
||||
GELH1
|
||||
IN A,(PAGE3)
|
||||
PUSH AF
|
||||
LD A,SYSPAGE
|
||||
OUT (PAGE3),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 B,D
|
||||
LD C,(IY+SC_PT_H) ;SECTORS
|
||||
EXX
|
||||
EX AF,AF'
|
||||
POP AF
|
||||
OUT (PAGE3),A
|
||||
LD A,C
|
||||
EX AF,AF'
|
||||
POP IY
|
||||
AND A
|
||||
RET
|
||||
|
||||
REMOV_H
|
||||
LD A,1
|
||||
AND A
|
||||
RET
|
||||
|
||||
RESE_H
|
||||
LD L,A
|
||||
LD H,0x0
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
ADD HL,HL
|
||||
EX DE,HL
|
||||
LD HL,LOGDRV
|
||||
ADD HL,DE
|
||||
LD A,(HL)
|
||||
RET
|
||||
|
||||
STAT_H
|
||||
XOR A
|
||||
RET
|
||||
|
||||
CHEK_H
|
||||
LD A,#FF
|
||||
AND A
|
||||
RET
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
|
||||
GBPB_H
|
||||
LD HL,0x0
|
||||
LD IX,0x0
|
||||
CALL SELHDD
|
||||
LD BC,0x155
|
||||
JP A0008
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
; A'- PAGE
|
||||
|
||||
;READ SECTOR
|
||||
LREADH
|
||||
CALL SELHDD
|
||||
LD C,0x52
|
||||
JP A0008
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
; A'- PAGE
|
||||
|
||||
;WRITE SECTOR
|
||||
LWRITEH
|
||||
CALL SELHDD
|
||||
LD C,0x53
|
||||
JP A0008
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
|
||||
;WRITE SECTOR
|
||||
WRITEH
|
||||
CALL SELHDD
|
||||
LD C,0x56
|
||||
JP A0008
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
|
||||
;READ SECTOR
|
||||
READH
|
||||
CALL SELHDD
|
||||
LD C,0x55
|
||||
JP A0008
|
||||
|
||||
;HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNTER
|
||||
|
||||
;CHECK SECTOR
|
||||
CHECKH
|
||||
CALL SELHDD
|
||||
LD C,0x54
|
||||
JP A0008
|
||||
|
||||
;-----------------
|
||||
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,(PAGE3)
|
||||
PUSH AF
|
||||
LD A,#FF
|
||||
OUT (PAGE3),A
|
||||
CALL PARTIT1
|
||||
POP AF
|
||||
OUT (PAGE3),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
|
||||
RET C
|
||||
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
|
||||
JR NXTPART
|
||||
|
||||
NOEXTDS
|
||||
CP 0xf
|
||||
JR Z,SUBLEV
|
||||
CP 0xe
|
||||
JP Z,HIGHDOS
|
||||
CP 0x6
|
||||
JP Z,HIGHDOS
|
||||
CP 0x4
|
||||
JP Z,HIGHDOS
|
||||
CP 0x1
|
||||
JP Z,HIGHDOS
|
||||
CP 0xb
|
||||
JR Z,SUBLEV
|
||||
CP 0x7
|
||||
JR Z,SUBLEV
|
||||
CP 0x82
|
||||
JR Z,SUBLEV
|
||||
CP 0x83
|
||||
JR Z,SUBLEV
|
||||
CP 0xeb
|
||||
JR Z,SUBLEV
|
||||
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)
|
||||
JR 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 #08
|
||||
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
|
||||
|
||||
;=======================================================
|
||||
930
DOS/intmouse.asm
Normal file
930
DOS/intmouse.asm
Normal file
@ -0,0 +1,930 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: INTMOUSE
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
|
||||
CMOUSE EQU #1B
|
||||
DMOUSE EQU #1A
|
||||
Y_PORT EQU #89
|
||||
VPAGE EQU #C9
|
||||
|
||||
; 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
|
||||
JR NZ,EMOUSE
|
||||
INC C
|
||||
DEC C
|
||||
JR 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 ; TODO: JR?
|
||||
DEC C
|
||||
JR 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
|
||||
JR Z,MS_RESR
|
||||
DEC C
|
||||
JR Z,MS_RESR
|
||||
DEC C
|
||||
JP Z,MS_GSEN
|
||||
DEC C
|
||||
JP Z,MS_SENT
|
||||
|
||||
MS_RESR
|
||||
LD A,1
|
||||
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,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
MS_INIT
|
||||
DI
|
||||
LD A,85
|
||||
OUT (#10),A
|
||||
LD A,45
|
||||
OUT (#10),A
|
||||
LD A,0
|
||||
OUT (CMOUSE),A
|
||||
LD A,1
|
||||
OUT (CMOUSE),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
|
||||
LD A,1
|
||||
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
|
||||
XOR A
|
||||
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 (YHOT_SP),BC
|
||||
EXX
|
||||
LD A,(M_XSIZE)
|
||||
LD C,A
|
||||
LD B,0
|
||||
LD A,(M_YSIZE)
|
||||
LD L,B
|
||||
LD H,B
|
||||
|
||||
MSCURS1
|
||||
ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,MSCURS1
|
||||
PUSH HL
|
||||
LD BC,MAXSIZM+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 L,B
|
||||
LD H,B
|
||||
|
||||
MSBCUR1
|
||||
ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,MSBCUR1
|
||||
PUSH HL
|
||||
LD BC,MAXSIZM+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 HL,(M_XSIZE)
|
||||
LD BC,(XHOT_SP)
|
||||
LD E,C
|
||||
LD BC,(YHOT_SP)
|
||||
LD D,C
|
||||
XOR A
|
||||
LD C,A
|
||||
LD B,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,(Y_PORT)
|
||||
LD XH,A
|
||||
IN A,(PAGE1)
|
||||
LD XL,A
|
||||
;
|
||||
DI
|
||||
;
|
||||
LD A,#54
|
||||
OUT (PAGE1),A
|
||||
;
|
||||
LD A,D
|
||||
ADD A,A
|
||||
ADD A,A ;Y * 4
|
||||
LD L,A
|
||||
LD H,#43 ;+ #4300
|
||||
;
|
||||
IN A,(VPAGE)
|
||||
RRCA
|
||||
AND #80
|
||||
OR #01
|
||||
ADD A,E
|
||||
OUT (Y_PORT),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 (PAGE1),A
|
||||
LD A,XH
|
||||
OUT (Y_PORT),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,(Y_PORT)
|
||||
LD XH,A
|
||||
IN A,(PAGE1)
|
||||
LD XL,A
|
||||
;
|
||||
DI
|
||||
;
|
||||
LD A,#50
|
||||
OUT (PAGE1),A
|
||||
;
|
||||
LD A,D
|
||||
ADD A,A
|
||||
ADD A,A ;Y * 4
|
||||
LD L,A
|
||||
LD H,#43 ;+ #4300
|
||||
;
|
||||
IN A,(VPAGE)
|
||||
RRCA
|
||||
AND #80
|
||||
OR #01
|
||||
ADD A,E
|
||||
OUT (Y_PORT),A
|
||||
INC L
|
||||
LD A,(HL) ;SIMBOL
|
||||
LD (HL),A
|
||||
INC L
|
||||
LD A,(HL) ;ATTRIBUT
|
||||
LD (HL),A
|
||||
;
|
||||
LD A,XL
|
||||
OUT (PAGE1),A
|
||||
LD A,XH
|
||||
OUT (Y_PORT),A
|
||||
RET
|
||||
|
||||
RESTORE
|
||||
LD A,#00
|
||||
BIT 7,A
|
||||
JR Z,RESTORT
|
||||
RESTORG
|
||||
IN A,(PAGE3)
|
||||
LD B,A
|
||||
IN A,(Y_PORT)
|
||||
LD C,A
|
||||
PUSH BC
|
||||
LD A,#50
|
||||
OUT (PAGE3),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 ;PAGE 0
|
||||
JR Z,AA2
|
||||
LD DE,#C000+320 ;PAGE 1
|
||||
AA2 ADD HL,DE
|
||||
REST_A LD A,0
|
||||
LD XH,A
|
||||
EX AF,AF'
|
||||
REST_H
|
||||
RS002 LD BC,10
|
||||
OUT (Y_PORT),A
|
||||
EX AF,AF'
|
||||
; PUSH HL
|
||||
LD (PUSH_HL+1),HL
|
||||
LD D,H
|
||||
LD E,L
|
||||
LDIR
|
||||
PUSH_HL 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 (PAGE3),A
|
||||
LD A,C
|
||||
OUT (Y_PORT),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
;HL/DE - X/Y
|
||||
|
||||
MOUSE
|
||||
LD A,(MODE)
|
||||
LD (RESTORE+1),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,(PAGE3)
|
||||
LD H,A
|
||||
IN A,(Y_PORT)
|
||||
LD L,A
|
||||
EX (SP),HL
|
||||
LD A,#5C
|
||||
OUT (PAGE3),A
|
||||
LD A,E
|
||||
EX AF,AF'
|
||||
IN A,(VPAGE)
|
||||
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 (Y_PORT),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 (PAGE3),A
|
||||
LD A,C
|
||||
OUT (Y_PORT),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
READ_M
|
||||
LD A,(M_VAR_Y)
|
||||
LD E,A
|
||||
LD BC, 0xFFDF
|
||||
IN A,(C)
|
||||
LD (M_VAR_Y), A
|
||||
LD (M_VAR_Y2), A
|
||||
SUB E
|
||||
NEG
|
||||
LD D,A
|
||||
LD A,(M_VAR_X)
|
||||
LD E,A
|
||||
LD B,0xfb
|
||||
IN A,(C)
|
||||
LD (M_VAR_X),A
|
||||
LD (M_VAR_Y2),A
|
||||
SUB E
|
||||
LD E,A
|
||||
LD B,0xfa
|
||||
IN A,(C)
|
||||
CPL
|
||||
AND 0x7
|
||||
LD (MB),A
|
||||
LD A,(M_VAR_Y2)
|
||||
OR A
|
||||
RET Z
|
||||
CALL SENSE
|
||||
LD (MX),DE
|
||||
XOR A
|
||||
LD (M_VAR_Y2),A
|
||||
SCF
|
||||
RET
|
||||
|
||||
M_VAR_Y2 DB 0x00
|
||||
|
||||
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
|
||||
JR NC,YCOO
|
||||
LD HL,(MAX_X)
|
||||
LD (PIX_X),HL
|
||||
JR 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),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
|
||||
CP 0x81
|
||||
JR Z,S320256
|
||||
CP 0x82
|
||||
JR Z,S640256
|
||||
|
||||
UNKMODE
|
||||
XOR A
|
||||
SCF
|
||||
RET
|
||||
|
||||
S320256
|
||||
LD DE,319
|
||||
SET_HV
|
||||
LD HL,0x0
|
||||
CALL MS_HORZ
|
||||
LD DE,0xff
|
||||
JP MS_VERT
|
||||
|
||||
S640256
|
||||
LD DE,639
|
||||
JR SET_HV
|
||||
|
||||
|
||||
;Mouse Interrupt
|
||||
M_INT IN A,(PAGE3)
|
||||
LD B,A
|
||||
IN A,(Y_PORT)
|
||||
LD C,A
|
||||
PUSH BC
|
||||
CALL REFRESH ;Refresh mouse
|
||||
CALL CONTROL
|
||||
POP BC
|
||||
LD A,B
|
||||
OUT (PAGE3),A
|
||||
LD A,C
|
||||
OUT (Y_PORT),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,#00
|
||||
OR A
|
||||
RET Z
|
||||
|
||||
REDY
|
||||
LD A,#00
|
||||
CALL RESTORE
|
||||
LD HL,(PIX_X)
|
||||
LD DE,(PIX_Y)
|
||||
CALL MOUSE
|
||||
LD A,#FF
|
||||
LD (REDY+1),A
|
||||
RET
|
||||
|
||||
MODE DB #03
|
||||
|
||||
PIX_X DW 160
|
||||
PIX_Y DW 128
|
||||
|
||||
MX DB #00
|
||||
MY DB #00
|
||||
MB DB #00
|
||||
MB_OLD DB #00
|
||||
|
||||
M_VAR_X DB 0
|
||||
M_VAR_Y DB 0
|
||||
|
||||
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
|
||||
|
||||
X EQU #00
|
||||
W EQU #FE
|
||||
N EQU #FF
|
||||
|
||||
M_IMAGE
|
||||
MS_BMP DB X,X,N,N,N,N,N,N,N,N
|
||||
DB X,W,X,N,N,N,N,N,N,N
|
||||
DB X,W,W,X,N,N,N,N,N,N
|
||||
DB X,W,W,W,X,N,N,N,N,N
|
||||
DB X,W,W,W,W,X,N,N,N,N
|
||||
DB X,W,W,W,W,W,X,N,N,N
|
||||
DB X,W,W,W,W,W,W,X,N,N
|
||||
DB X,W,W,W,W,X,X,X,X,N
|
||||
DB X,W,W,X,W,X,N,N,N,N
|
||||
DB X,W,X,X,W,W,X,N,N,N
|
||||
DB X,X,N,N,X,W,X,N,N,N
|
||||
DB X,N,N,N,X,W,W,X,N,N
|
||||
DB N,N,N,N,N,X,X,N,N,N
|
||||
DB N,N,N,N,N,N,N,N,N,N
|
||||
DS 116
|
||||
MAXSIZM EQU $-M_IMAGE
|
||||
|
||||
;//MODULE: INTMOUSE
|
||||
;[END]
|
||||
|
||||
891
DOS/keyinter.asm
Normal file
891
DOS/keyinter.asm
Normal file
@ -0,0 +1,891 @@
|
||||
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: KEYINTER
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
;------------------------------------------------
|
||||
;R01 10-02-2003 DNS Add cursor visualisation
|
||||
;
|
||||
; DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
|
||||
SBUF
|
||||
DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||
EBUF
|
||||
|
||||
HEAD DB #00
|
||||
HOST DB #00
|
||||
|
||||
K_LOCK EQU $-KEYFLAG
|
||||
KEYFLAG DB #02 ;D0-Key Pressed
|
||||
K_SHIFT EQU $-KEYFLAG
|
||||
KEYCTRL DB #00
|
||||
KEYFLG EQU $-KEYFLAG
|
||||
DB #00
|
||||
DB #03
|
||||
UNICODE DW 0
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
;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
|
||||
|
||||
; 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 codeKEYFLAG
|
||||
|
||||
|
||||
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
|
||||
|
||||
; TODO FixIt!
|
||||
ECHOKEY0
|
||||
CALL ECHO_PREP_3
|
||||
|
||||
ECHOKEY
|
||||
CALL SCANKEY
|
||||
JR Z,ECHOKEY
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
PUSH AF
|
||||
CALL ECHO_PREP
|
||||
POP AF
|
||||
OR A
|
||||
CALL NZ,PUTCHAR
|
||||
POP BC
|
||||
POP DE
|
||||
LD A,E
|
||||
AND A
|
||||
RET
|
||||
|
||||
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,4 ; 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,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
K_C2
|
||||
LD A,#35
|
||||
CP B
|
||||
JR NC,K_C3
|
||||
LD A,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
K_C3
|
||||
LD C,B
|
||||
RST #10
|
||||
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,4 ; 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,4 ; 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
|
||||
LD HL,#CF00 ;Ctrl + Alt + Del
|
||||
AND A
|
||||
SBC HL,DE
|
||||
CALL Z,RST_X
|
||||
LD BC,(KEYFLAG)
|
||||
JP PUTSYM
|
||||
|
||||
UN_KEY
|
||||
RES FLAG_F0,(IX+KEYFLG)
|
||||
LD L,A
|
||||
CALL XLAT
|
||||
CALL UNSHIFT
|
||||
RES FLAG_E0,(IX+KEYFLG)
|
||||
LD H,0
|
||||
LD (UNICODE),HL
|
||||
RET
|
||||
|
||||
CAPS_X LD A,(IX+K_LOCK)
|
||||
XOR #01
|
||||
LD (IX+K_LOCK),A
|
||||
RET
|
||||
|
||||
RUS_X BIT X_CTRL,(IX+K_SHIFT)
|
||||
RET Z
|
||||
LD A,(IX+K_LOCK)
|
||||
XOR #80
|
||||
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 0x2
|
||||
LD (IX+K_LOCK),A
|
||||
RET
|
||||
|
||||
NUM_X
|
||||
LD A,(IX+K_LOCK)
|
||||
XOR 0x8
|
||||
LD (IX+K_LOCK),A
|
||||
RET
|
||||
|
||||
PAUSE_X
|
||||
BIT X_CTRL,(IX+K_SHIFT)
|
||||
RET Z
|
||||
LD A,(IX+K_LOCK)
|
||||
XOR 0x40
|
||||
LD (IX+K_LOCK),A
|
||||
BIT PAUSE_L,(IX+K_LOCK)
|
||||
RET Z
|
||||
EI
|
||||
|
||||
PAUSE_
|
||||
HALT
|
||||
BIT PAUSE_L,(IX+K_LOCK)
|
||||
JR NZ,PAUSE_
|
||||
DI
|
||||
RET
|
||||
|
||||
SCL_X
|
||||
LD A,(IX+K_LOCK)
|
||||
XOR 0x04
|
||||
LD (IX+K_LOCK),A
|
||||
RET
|
||||
|
||||
RST_X
|
||||
LD C,0x30
|
||||
LD A,(IX+K_SHIFT)
|
||||
AND C
|
||||
CP C
|
||||
RET NZ
|
||||
XOR A
|
||||
LD BC,0x1FD
|
||||
RST 0x8
|
||||
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
|
||||
RET NZ
|
||||
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 0x34 ;R SHIFT
|
||||
RET NZ
|
||||
SET R_SHIFT,(IX+K_SHIFT)
|
||||
RET
|
||||
|
||||
; TODO: Strange part for keyboard inter =================
|
||||
VER
|
||||
DI
|
||||
PUSH AF
|
||||
CALL KINIT
|
||||
CALL PRINT_INIT
|
||||
LD C,0
|
||||
RST #30
|
||||
LD A,(VMODE)
|
||||
LD C,#81
|
||||
RST #30
|
||||
CALL INITDVC
|
||||
EI
|
||||
; Set new address fn. VERSION
|
||||
LD DE,VERSION
|
||||
LD HL,ADRST10
|
||||
LD (HL),E
|
||||
INC H
|
||||
LD (HL),D
|
||||
; Allocate memory
|
||||
LD BC,0x3c2
|
||||
RST 0x08
|
||||
LD HL,BANKTBL
|
||||
LD C,A
|
||||
LD B,0x2
|
||||
|
||||
VERINIT
|
||||
PUSH BC
|
||||
PUSH HL
|
||||
LD A,C
|
||||
LD C,0xc4
|
||||
RST 0x08
|
||||
POP HL
|
||||
POP BC
|
||||
JR C,VER_L2
|
||||
LD (HL),A
|
||||
INC HL
|
||||
DEC B
|
||||
JP M,VER_L2
|
||||
JR VERINIT
|
||||
VER_L2
|
||||
CALL VER_IN
|
||||
LD B,0xff
|
||||
CALL ENVIRON
|
||||
LD A,0x1
|
||||
CALL BANK
|
||||
EX AF,AF'
|
||||
LD HL,0xe000
|
||||
PUSH HL
|
||||
LD DE,0xe001
|
||||
LD BC,0x262
|
||||
XOR A
|
||||
LD (HL),A
|
||||
LDIR
|
||||
LD BC,0x3d
|
||||
POP HL
|
||||
LD E,0xa
|
||||
DEC A
|
||||
VER_L3
|
||||
LD (HL),A
|
||||
ADD HL,BC
|
||||
DEC E
|
||||
JR NZ,VER_L3
|
||||
EX AF,AF'
|
||||
OUT (0x00e2),A
|
||||
POP AF
|
||||
CALL SETBOOT
|
||||
PUSH AF
|
||||
CALL CHNDISK
|
||||
POP AF
|
||||
ADD A,0x41
|
||||
LD (BOOT_LBL_DRV),A
|
||||
LD HL,BOOT_LBL
|
||||
LD B,0x2
|
||||
CALL ENVIRON
|
||||
JP VERSION
|
||||
|
||||
BOOT_LBL
|
||||
DB 'BOOTDSK='
|
||||
BOOT_LBL_DRV
|
||||
DB 'A:'
|
||||
DS 199, 0x00
|
||||
|
||||
; End of strange part ================
|
||||
|
||||
; ALIGN 256
|
||||
; DEFS $/256+1*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,XLAT_T/256
|
||||
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
|
||||
JR Z,KEYMAP
|
||||
DEC B
|
||||
JR Z,K_SND_R
|
||||
DEC B
|
||||
JR Z,K_SND_W
|
||||
LD A,#0E
|
||||
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
|
||||
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
|
||||
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
|
||||
DAT_A EQU #18
|
||||
|
||||
KINIT
|
||||
LD A,0x30
|
||||
OUT (COM_A),A
|
||||
LD A,0x18
|
||||
OUT (COM_A),A
|
||||
LD A,0x01
|
||||
OUT (COM_A),A
|
||||
LD A,0x00
|
||||
OUT (COM_A),A
|
||||
LD A,0x03
|
||||
OUT (COM_A),A
|
||||
LD A,0xC1
|
||||
OUT (COM_A),A
|
||||
LD A,0x04
|
||||
OUT (COM_A),A
|
||||
LD A,0x07
|
||||
OUT (COM_A),A
|
||||
LD A,0x05
|
||||
OUT (COM_A),A
|
||||
IF SPRINTER=97
|
||||
LD A,0x60
|
||||
ELSE
|
||||
LD A,0x62
|
||||
ENDIF
|
||||
OUT (COM_A),A
|
||||
RET
|
||||
|
||||
;//MODULE: KEYINTER
|
||||
;[END]
|
||||
|
||||
12
DOS/known.bug
Normal file
12
DOS/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 так как сразо после создания система открывает файл.
|
||||
|
||||
- ошибка разбора допустимого имени файла, если оно состоит из "." так как подрузомевается пробелы точка пробелы.
|
||||
|
||||
443
DOS/ram_drv0.asm
Normal file
443
DOS/ram_drv0.asm
Normal file
@ -0,0 +1,443 @@
|
||||
|
||||
; 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
|
||||
|
||||
RMDRIVE
|
||||
INC C
|
||||
DEC C
|
||||
JP Z,INIT_RD
|
||||
DEC C
|
||||
JR Z,RESE_RD
|
||||
DEC C
|
||||
JR Z,STAT_RD
|
||||
DEC C
|
||||
JR Z,CHEK_RD
|
||||
DEC C
|
||||
JR Z,GBPB_RD
|
||||
DEC C
|
||||
JR Z,READR
|
||||
DEC C
|
||||
JR Z,WRITER
|
||||
LD A,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
RESE_RD
|
||||
XOR A
|
||||
RET
|
||||
|
||||
STAT_RD
|
||||
XOR A
|
||||
RET
|
||||
|
||||
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
|
||||
LD A,0x20
|
||||
LD (S_P_P),A
|
||||
LD DE,RAMDTBL
|
||||
LD BC,0xce
|
||||
|
||||
INIT_R0
|
||||
PUSH BC
|
||||
LD A,B
|
||||
RST #08
|
||||
OR A
|
||||
JR Z,NORAMD
|
||||
LD (DE),A
|
||||
INC DE
|
||||
|
||||
NORAMD
|
||||
POP BC
|
||||
INC B
|
||||
LD A,#10
|
||||
CP B
|
||||
JR NZ,INIT_R0
|
||||
LD HL,RAMDTBL
|
||||
EX DE,HL
|
||||
AND A
|
||||
SBC HL,DE
|
||||
LD A,L
|
||||
AND A
|
||||
RET
|
||||
|
||||
RAMDTBL DB #FF,#FF,#FF,#FF
|
||||
DB #FF,#FF,#FF,#FF
|
||||
DB #FF,#FF,#FF,#FF
|
||||
DB #FF,#FF,#FF,#FF
|
||||
|
||||
; SECTOR / S_P_P = START PAGE
|
||||
; INPUT : HL:IX -SECTOR
|
||||
; OUTPUT: A':HL - ADDRESS
|
||||
|
||||
RAMADDR
|
||||
LD BC,RAMDTBL
|
||||
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 P
|
||||
;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 #08
|
||||
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,PAGE3
|
||||
SET 6,H
|
||||
JR C,RMDL02
|
||||
LD C,PAGE1
|
||||
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,PAGE3 ;GET NEXT PAGE
|
||||
IN B,(C)
|
||||
LD A,SYSPAGE
|
||||
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,PAGE3
|
||||
SET 6,H
|
||||
JR C,WMDL02
|
||||
LD C,PAGE1
|
||||
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,PAGE3 ;GET NEXT PAGE
|
||||
IN B,(C)
|
||||
LD A,SYSPAGE
|
||||
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
|
||||
|
||||
ENDDRVR
|
||||
|
||||
39
DOS/release.inc
Normal file
39
DOS/release.inc
Normal file
@ -0,0 +1,39 @@
|
||||
|
||||
;Release Types
|
||||
|
||||
RELEASE EQU 0
|
||||
RC EQU 1
|
||||
BETA EQU 2
|
||||
DP EQU 3
|
||||
|
||||
OSTYPE EQU BETA
|
||||
REVISION EQU 0
|
||||
|
||||
C_OSNAME macro
|
||||
db "ESTEX",0
|
||||
endm
|
||||
|
||||
|
||||
C_OSRELEASE macro
|
||||
db "Estex DSS",0
|
||||
endm
|
||||
|
||||
; if OSTYPE=DP
|
||||
; db "-DP",#30+REVISION,0
|
||||
; endif
|
||||
|
||||
; if OSTYPE=BETA
|
||||
; db "-BETA",#30+REVISION,0
|
||||
; endif
|
||||
|
||||
; if OSTYPE=RC
|
||||
; db "-RC",#30+REVISION,0
|
||||
; endif
|
||||
|
||||
; if OSTYPE=RELEASE
|
||||
; db "-RELEASE",0
|
||||
; endif
|
||||
|
||||
; if OSTYPE != RELEASE & OSTYPE != RC & OSTYPE != BETA & OSTYPE != DP
|
||||
; db "-UNKNOWN",0
|
||||
; endif
|
||||
687
DOS/video.asm
Normal file
687
DOS/video.asm
Normal file
@ -0,0 +1,687 @@
|
||||
|
||||
;[BEGIN]
|
||||
;//MODULE: VIDEO
|
||||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||||
;//UPDATE: 24-10-1999 DNS Restore module
|
||||
;---------------------------------------------------------------
|
||||
;Rev Date Name Description
|
||||
;---------------------------------------------------------------
|
||||
;R01 07-11-2002 DNS FIX BUG WITH SCROLLUP FN. (A=0)
|
||||
;R02 07-11-2002 DNS CORRECT FN. WINCOPY & WINREST, ADD "DI+EI"
|
||||
;---------------------------------------------------------------
|
||||
|
||||
; CLEAR TEXT WINDOW
|
||||
;=====================
|
||||
; D - Y
|
||||
; E - X
|
||||
; H - HEIGHT
|
||||
; L - WIDTH
|
||||
; B - COLOR
|
||||
; A - ATTR
|
||||
|
||||
CLEAR LD C,#8D
|
||||
RST #08
|
||||
AND A
|
||||
RET
|
||||
;
|
||||
|
||||
; PRINT NULL-TERMINATED CHARS STRING
|
||||
;======================================
|
||||
; HL - STRING POINTER
|
||||
|
||||
PCHARS
|
||||
LD A,(HL)
|
||||
INC HL
|
||||
OR A
|
||||
RET Z
|
||||
CALL PUTCHAR
|
||||
JR PCHARS
|
||||
|
||||
; PRINT CHAR
|
||||
;==============
|
||||
; A - CHAR
|
||||
|
||||
PUTCHAR
|
||||
LD B,A
|
||||
LD C,0x8e
|
||||
RST 0x08
|
||||
LD A,B
|
||||
CP 0xd
|
||||
JR Z,CR_
|
||||
CP 0xa
|
||||
JR Z,LF_
|
||||
CP 0x9
|
||||
JR Z,TB_
|
||||
CP 0x8
|
||||
JR Z,BK_
|
||||
PUSH HL
|
||||
LD BC,0x182
|
||||
RST 0x08
|
||||
PUSH AF
|
||||
LD A,E
|
||||
CP 0x4f
|
||||
JP NZ,NLFF
|
||||
LD A,D
|
||||
CP 0x1f
|
||||
JP NZ,NLFF
|
||||
LD E,0x0
|
||||
LD C,0x84
|
||||
RST 0x08
|
||||
CALL LFF
|
||||
NLFF
|
||||
POP AF
|
||||
POP HL
|
||||
RET
|
||||
|
||||
BK_
|
||||
LD C,0x8e ;GET CURSOR
|
||||
RST 0x08
|
||||
XOR A
|
||||
CP E
|
||||
JP Z,LOCATE
|
||||
DEC E
|
||||
JP LOCATE
|
||||
|
||||
TB_
|
||||
LD C,0x8e
|
||||
RST 0x08
|
||||
LD A,E
|
||||
ADD A,0x8
|
||||
AND 0x78
|
||||
LD E,A
|
||||
JP LOCATE
|
||||
|
||||
CR_
|
||||
LD C,0x8e
|
||||
RST 0x08
|
||||
LD E,0x0
|
||||
JP LOCATE
|
||||
|
||||
LF_
|
||||
LD C,0x8e
|
||||
RST 0x08
|
||||
LD A,D
|
||||
CP 0x1f
|
||||
JR NC,LFF
|
||||
INC D
|
||||
CALL LOCATE
|
||||
JR CR_
|
||||
|
||||
LFF
|
||||
PUSH HL
|
||||
LD BC,0x18a
|
||||
LD DE,0x20
|
||||
EI
|
||||
HALT
|
||||
DI
|
||||
RST 0x08
|
||||
LD DE,0x1f00
|
||||
PUSH DE
|
||||
CALL LOCATE
|
||||
LD A,0x20
|
||||
LD BC,0x5082
|
||||
RST 0x08
|
||||
EI
|
||||
POP DE
|
||||
CALL LOCATE
|
||||
POP HL
|
||||
RET
|
||||
|
||||
|
||||
; SET CURRENT CURSOR POSITION
|
||||
;===============================
|
||||
; D = Y
|
||||
; E = X
|
||||
|
||||
LOCATE
|
||||
LD C,#84
|
||||
RST #08
|
||||
RET
|
||||
|
||||
; GET CURRENT CURSOR POSITION
|
||||
;===============================
|
||||
;
|
||||
|
||||
CURSOR
|
||||
LD C,#8E
|
||||
RST #08
|
||||
RET
|
||||
; D - Y
|
||||
; E - X
|
||||
|
||||
; READ CHAR & ATTR FROM THE SCREEN
|
||||
;=============================
|
||||
; D - Y
|
||||
; E - X
|
||||
|
||||
RDCHAR
|
||||
XOR A
|
||||
LD C,#B4
|
||||
RST #08
|
||||
LD A,L
|
||||
LD B,H
|
||||
AND A
|
||||
RET
|
||||
; A - CHAR
|
||||
; B - ATTR
|
||||
|
||||
; WRITE CHAR & ATTR TO THE SCREEN
|
||||
;===================================
|
||||
; D - Y
|
||||
; E - X
|
||||
; A - CHAR
|
||||
; B - ATTR
|
||||
|
||||
WRCHAR LD C,A
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
LD C,#B4
|
||||
XOR A
|
||||
RST #08
|
||||
POP DE
|
||||
POP HL
|
||||
LD C,#B5
|
||||
XOR A
|
||||
RST #08
|
||||
AND A
|
||||
RET
|
||||
|
||||
; COPY WINDOW FROM THE SCREEN
|
||||
;===============================
|
||||
; D - Y
|
||||
; E - X
|
||||
; H - HEIGHT
|
||||
; L - WIDTH
|
||||
; IX - ADDRESS
|
||||
; B - PAGE, IF IX > 0C000H
|
||||
|
||||
WINCOPY
|
||||
LD A,R ;R02
|
||||
PUSH AF ;R02
|
||||
XOR A
|
||||
DI ;R02
|
||||
LD C,#B2
|
||||
RST #08
|
||||
POP AF ;R02
|
||||
SCF ;R02
|
||||
CCF ;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
|
||||
|
||||
WINREST
|
||||
LD A,R ;R02
|
||||
PUSH AF ;R02
|
||||
XOR A
|
||||
DI ;R02
|
||||
LD C,#B3
|
||||
RST #08
|
||||
POP AF ;R02
|
||||
SCF ;R02
|
||||
CCF ;R02
|
||||
RET PO ;R02
|
||||
EI ;R02
|
||||
RET
|
||||
|
||||
; SCROLL WINDOWS
|
||||
;==================
|
||||
; 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
|
||||
XOR A
|
||||
LD C,0xb7
|
||||
DI
|
||||
RST 0x8
|
||||
EI
|
||||
POP HL
|
||||
POP DE
|
||||
POP BC
|
||||
XOR A
|
||||
CP B
|
||||
RET NZ
|
||||
LD A,D
|
||||
ADD A,H
|
||||
DEC A
|
||||
LD D,A
|
||||
|
||||
SCR1
|
||||
PUSH DE
|
||||
CALL LOCATE
|
||||
LD A,0x20
|
||||
LD B,L
|
||||
LD C,0x82
|
||||
RST 0x8
|
||||
POP DE
|
||||
CALL LOCATE
|
||||
AND A
|
||||
RET
|
||||
|
||||
|
||||
SCR_DW
|
||||
DJNZ SCR_ERR
|
||||
LD B,A
|
||||
LD C,L
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
LD XH,D
|
||||
LD XL,E
|
||||
INC XH
|
||||
DEC H
|
||||
XOR A
|
||||
LD C,0xb7
|
||||
DI
|
||||
RST 0x8
|
||||
EI
|
||||
POP HL
|
||||
POP DE
|
||||
XOR A
|
||||
CP B
|
||||
JR Z,SCR1
|
||||
RET
|
||||
|
||||
SCR_ERR
|
||||
LD A,1
|
||||
SCF
|
||||
RET
|
||||
|
||||
; SELECT SCREEN PAGE
|
||||
;======================
|
||||
; B - SCREEN PAGE
|
||||
|
||||
SELPAGE
|
||||
PUSH BC
|
||||
LD A,(VMODE)
|
||||
BIT 7,A
|
||||
JR NZ,SEL2
|
||||
LD C,A
|
||||
CALL TEXT_M
|
||||
SEL2 POP BC
|
||||
LD A,B
|
||||
AND #01
|
||||
OUT (#C9),A
|
||||
RET
|
||||
|
||||
; GET CURRENT VIDEO MODE
|
||||
;==========================
|
||||
;
|
||||
GETVMOD
|
||||
IN A,(#C9)
|
||||
LD B,A
|
||||
LD A,(VMODE)
|
||||
AND A
|
||||
RET
|
||||
; A - MODE
|
||||
; B - PAGE
|
||||
|
||||
; 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
|
||||
JR Z,T_40_32
|
||||
DEC A
|
||||
JR Z,T_80_32
|
||||
NOMODE
|
||||
POP IX
|
||||
LD A,#30
|
||||
SCF
|
||||
RET
|
||||
|
||||
GRAPH
|
||||
CALL SAVETXT
|
||||
AND #7F
|
||||
JP Z,G320_16
|
||||
DEC A
|
||||
JP Z,G320_56
|
||||
DEC A
|
||||
JP Z,G640_16
|
||||
DEC A
|
||||
JP Z,G640_56
|
||||
LD A,#30
|
||||
SCF
|
||||
RET
|
||||
|
||||
T_40_32
|
||||
PUSH BC
|
||||
LD HL,TAB2
|
||||
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 (#C9),A
|
||||
LD A,(VMODE)
|
||||
LD C,#81
|
||||
RST #30
|
||||
LD A,#C0
|
||||
OUT (Y_PORT),A
|
||||
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 (#C9),A
|
||||
LD A,(VMODE)
|
||||
LD C,#81
|
||||
RST #30
|
||||
LD A,#C0
|
||||
OUT (Y_PORT),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
G320_16
|
||||
LD A,#30
|
||||
SCF
|
||||
RET
|
||||
|
||||
G320_56
|
||||
PUSH BC
|
||||
LD HL,TAB4
|
||||
LD E,#11
|
||||
CALL SETMODE
|
||||
LD HL,TAB8
|
||||
LD E,#00
|
||||
CALL SETMODE
|
||||
POP BC
|
||||
LD A,C
|
||||
LD (VMODE),A
|
||||
LD A,B
|
||||
AND #01
|
||||
OUT (#C9),A
|
||||
LD A,(VMODE)
|
||||
LD C,#81
|
||||
RST #30
|
||||
LD A,#C0
|
||||
OUT (Y_PORT),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
G640_16 PUSH BC
|
||||
LD HL,TAB3
|
||||
LD E,#11
|
||||
CALL SETMODE
|
||||
LD HL,TAB7
|
||||
LD E,#00
|
||||
CALL SETMODE
|
||||
POP BC
|
||||
LD A,C
|
||||
LD (VMODE),A
|
||||
LD A,B
|
||||
AND #01
|
||||
OUT (#C9),A
|
||||
LD A,(VMODE)
|
||||
LD C,#81
|
||||
RST #30
|
||||
LD A,#C0
|
||||
OUT (Y_PORT),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
G640_56 LD A,#30
|
||||
SCF
|
||||
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,0xFEE0
|
||||
LD BC,0x0020
|
||||
CALL MOVBIOS
|
||||
POP DE
|
||||
LD IX,0xFEE0
|
||||
LD C,0xB0
|
||||
RST 0x08
|
||||
LD A,0xC0
|
||||
OUT (Y_PORT),A
|
||||
XOR A
|
||||
RET
|
||||
|
||||
MOVBIOS LD A,R
|
||||
IN A,(PAGE3)
|
||||
EX AF,AF'
|
||||
LD A,#FE
|
||||
OUT (PAGE3),A
|
||||
LDIR
|
||||
EX AF,AF'
|
||||
OUT (PAGE3),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)
|
||||
|
||||
;80x32
|
||||
TAB1 DB #28,#20,#00,#00,#1B,#00,#00,#00
|
||||
;40x32
|
||||
TAB2 DB #28,#20,#00,#00,#3B,#00,#00,#00
|
||||
;640x256 PAGE 0
|
||||
TAB3 DB #28,#20,#00,#00,#00,#00,#00,#00
|
||||
;320x256 PAGE 0
|
||||
TAB4 DB #28,#20,#00,#00,#20,#00,#00,#00
|
||||
;640x256 PAGE 1
|
||||
TAB7 DB #28,#20,#00,#00,#40,#00,#28,#00
|
||||
;320x256 PAGE 1
|
||||
TAB8 DB #28,#20,#00,#00,#60,#00,#28,#00
|
||||
|
||||
SAVETXT
|
||||
PUSH AF
|
||||
LD A,(VMODE)
|
||||
BIT 0x7,A
|
||||
JR NZ,NOSAVET
|
||||
SUB 0x2
|
||||
JR C,NOSAVET
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
PUSH IX
|
||||
PUSH AF
|
||||
LD C,0x8e
|
||||
RST 0x08
|
||||
|
||||
LD (TCURS),DE
|
||||
POP AF
|
||||
LD IX,0xc000
|
||||
LD DE,0x0
|
||||
LD HL,0x2050
|
||||
OR A
|
||||
JR NZ,SVTEXT1
|
||||
LD L,0x28
|
||||
SVTEXT1
|
||||
LD (SVHL1),HL
|
||||
LD A,(BANKTBL+TXTPAGE) ;(BANKTBL_2)
|
||||
LD B,A
|
||||
XOR A
|
||||
LD C,0xb2
|
||||
DI
|
||||
RST 0x08
|
||||
EI
|
||||
POP IX
|
||||
POP HL
|
||||
POP DE
|
||||
POP BC
|
||||
NOSAVET
|
||||
POP AF
|
||||
RET
|
||||
|
||||
|
||||
BACKTXT
|
||||
PUSH AF
|
||||
VVMODE EQU $+1
|
||||
LD A,0x0
|
||||
RLCA
|
||||
JR NC,NOBACKT
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
PUSH IX
|
||||
LD IX,0xc000
|
||||
LD DE,0x0
|
||||
SVHL1 EQU $+1
|
||||
LD HL,0x2050
|
||||
LD A,(BANKTBL+TXTPAGE)
|
||||
LD B,A
|
||||
XOR A
|
||||
LD C,0xb3
|
||||
DI
|
||||
RST 0x8
|
||||
EI
|
||||
TCURS EQU $+1
|
||||
LD DE,0x0
|
||||
LD C,0x84
|
||||
RST 0x8
|
||||
POP IX
|
||||
POP HL
|
||||
POP DE
|
||||
POP BC
|
||||
NOBACKT
|
||||
POP AF
|
||||
RET
|
||||
|
||||
; SEND A SYMBOL TO THE PRINTER
|
||||
;==============================
|
||||
; A - SYMBOL
|
||||
;
|
||||
LPT_A EQU #1B
|
||||
LPT_B EQU #1C
|
||||
|
||||
PRINT
|
||||
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)
|
||||
LD C,A
|
||||
; IN (1Bh): bit 5 - busy, Bit 3 - Ack
|
||||
; IN (19h): bit 5 - Paper Enable, Bit 3 - Select
|
||||
|
||||
BIT 5,A
|
||||
JR NZ,LPTBUSY
|
||||
AND 0xd8
|
||||
JR Z,LPTBUSY
|
||||
LD A,B
|
||||
OUT (LPT_B),A
|
||||
POP AF
|
||||
SCF
|
||||
CCF
|
||||
RET PO
|
||||
EI
|
||||
RET
|
||||
|
||||
LPTBUSY
|
||||
POP AF
|
||||
LD A,C
|
||||
SCF
|
||||
RET PO
|
||||
EI
|
||||
RET
|
||||
|
||||
; B - SYMBOL
|
||||
; CF = 1 - PRINTER BUSY
|
||||
|
||||
PRINT_INIT
|
||||
DI
|
||||
LD A,#CF ; port 1F только чеpез LD BC,1F: Out (BC),reg !!!
|
||||
LD BC,#001F
|
||||
OUT (C),A
|
||||
LD A,#63
|
||||
OUT (C),A
|
||||
LD A,#C0 ; Bit 7 - Select (1), Bit 6 - Auto_Line_Feed (1)
|
||||
OUT (#1E),A
|
||||
LD A,#0F ; Init printer port for Out
|
||||
OUT (#1D),A
|
||||
RET
|
||||
|
||||
|
||||
;//MODULE: VIDEO
|
||||
;[END]
|
||||
Loading…
Reference in New Issue
Block a user