ORG 0x0000

RESET:
    JP NOT_IMPL
    DS 5, 0xFF
    
RST08:
    JP NOT_IMPL
    DS 5, 0xFF

    ORG 0x0010    
RST10:
    JP DSS_HANDLER
    DS 5, 0xFF

RST18:
    JP NOT_IMPL
    DS 5, 0xFF

RST20:
    JP NOT_IMPL
    DS 5, 0xFF

RST28:
    JP NOT_IMPL
    DS 5, 0xFF

RST30:
    JP NOT_IMPL
    DS 5, 0xFF

RST38:
    JP NOT_IMPL
    DS 5, 0xFF

DSS_HANDLER
    
    PUSH    HL
    PUSH    BC
    LD      A, C
    CP      0x0B
    JP      Z, _CREATE_FILE
    CP      0x11
    JP      Z, _OPEN_FILE
    CP      0x12
    JP      Z, _CLOSE_FILE
    CP      0x13
    JP      Z, _READ_FILE
    CP      0x14
    JP      Z, _WRITE_FILE
	CP		0x19
	JP		Z, _FIND_FIRST
	CP		0x1D
	JP      Z, _CH_DIR
    CP      0x5C    
    JP      Z, _PCHARS
    CP      0x41
    JP      Z, _EXIT

    POP     BC
    POP     HL
    

NOT_IMPL
    LD A,0x01
    SCF
    RET

_PCHARS
    LD BC, 0x9000

NXT_PCHAR    
    LD A, (HL)
    OUT (C),A
    INC HL
    OR A
    JR	NZ, NXT_PCHAR

NORM_EXIT
	SCF
    CCF
    POP BC
    POP HL    
    RET

BAD_EXIT
    SCF
    POP BC
    POP HL    
    RET


; Входные значения:
; HL - указатель на файловую спецификацию
; A - атрибут файла
; Выходные значения:
; A — код  ошибки, если CF=1
; A - файловый манипулятор, если CF=0
_CREATE_FILE
    JP  _OPEN_FILE

; Входные значения:
;   HL - указатель на файловую спецификацию
;   A - режим доступа
;   A=0 чтение/запись
;   A=1 чтение
;   A=2 запись
; Выходные значения:
;   A - код ошибки, если CF=1
;   A - файловый манипулятор, если CF=0
CUR_FILE_MAN
    DB  0x4F

_OPEN_FILE
    LD      HL, CUR_FILE_MAN
    INC     (HL)
    LD      A, (HL)
    JP      NORM_EXIT

_CLOSE_FILE
    JP      NORM_EXIT

CUR_F_PTR
    DW  ZIP_FILE

REMAINS_IN_ZIP
    DW  0

; Входные значения:
; A - файловый манипулятор
; HL - адрес в памяти
; DE - количество читаемых байт
; Выходные значения:
; A - код ошибки, если CF=1
; DE - реальное количество прочитанных байт
; если CF=0:
; A = 0 прочитаны все байты
; A = 0FFh прочитано меньшее число байт
_READ_FILE
    OR      A
    JP	    Z, BAD_EXIT
    PUSH    DE
    POP     BC                                          ; BC - bytes to read
    PUSH    HL                                          

    LD      HL, (CUR_F_PTR)                             ; HL -> IN ZIP_FILE
    LD      DE, ZIP_FILE_END
    EX      HL, DE
    SUB     HL, DE                                      ; HL = remain bytes
    LD      (REMAINS_IN_ZIP), HL
    SBC     HL, BC
    LD	    A, 0
    JR      NC, NO_OUT_OF_ZIP
    DEC     A
    LD      HL,(REMAINS_IN_ZIP)
    LD      BC, HL

NO_OUT_OF_ZIP
    LD      HL, (CUR_F_PTR)
    POP     DE                                          ; DE - Buffer to write
    PUSH    BC
    LDIR
    POP     DE                                          ; DE = bytes read, A = 0 or 0xFF
    LD      (CUR_F_PTR), HL
    
    JP      NORM_EXIT


; Входные значения:
; A - файловый манипулятор
; HL - адрес в памяти
; DE - количество записываемых байт
; Выходные значения:
; A - код ошибки, если CF=1
; DE - реальное количество записанных байт
_WRITE_FILE
    
    PUSH    DE
    POP     BC
    LD      DE,UNZIP_FILE

    PUSH    BC
    LDIR
    POP     DE
    JP      NORM_EXIT

; Входные значения:
; HL - указатель на файловую спецификацию
; Выходные значения:
; A - код ошибки, если CF=1
_CH_DIR
    JP      NORM_EXIT

; Входные значения:
; HL - указатель на файловую спецификацию
; DE - рабочий буфер 44 байта, если B=0, иначе 256 байт
; A - атрибуты, используемые при поиске
; B = 0 - имя найденного файла в формате 11 байт "FilenameExt"
; B = 1 - имя найденного файла в формате DOS "filename.ext",0
; C - 19h
; Выходные значения:
; A - код ошибки, если CF=1
_FIND_FIRST
	PUSH	DE
	LD 		HL, 33										; offset of file name
	ADD 	HL, DE				
	EX 		HL, DE
	LD 		HL, ZIP_FILE_NAME
	LD 		BC,9
	LDIR
	POP DE
    JP      NORM_EXIT


_EXIT
;   LOGPOINT STOPPED!    

    HALT
    JP _EXIT
    
    ALIGN 16384, 0