Compare commits

...

2 Commits

Author SHA1 Message Date
boykovra
4f5aa6b51b Sync local changes with github 2025-05-19 16:23:36 +03:00
boykovra
4535de201a optimization 2024-08-29 12:19:37 +03:00
12 changed files with 83 additions and 67 deletions

4
sources/DSS/.vscode/settings.json vendored Normal file
View File

@ -0,0 +1,4 @@
{
"debug.terminal.clearBeforeReusing": true
}

View File

@ -137,7 +137,7 @@
}
},
{
"label": "MDL for WTFTP",
"label": "MDL optimization for WTFTP",
"type": "shell",
"command": "java -jar ~/Soft/MDL/mdl.jar wtftp.asm -cpu z180 -po -dialect sjasmplus",
"group": "build",
@ -161,7 +161,7 @@
"presentation": {
"echo": false,
"focus": false,
"panel": "shared",
"panel": "dedicated",
"showReuseMessage": false,
"clear": true,
"revealProblems": "onProblem"

View File

@ -110,7 +110,7 @@ GET
LD DE,(PTR_TAIL)
LD A,L
CP E
JP NZ, G_NOTE
JP NZ, G_NOTEINCLUDE "dss.inc"
LD A, H
CP D
JP NZ, G_NOTE

View File

@ -23,7 +23,7 @@ EPRINT
DSS_EXEC DSS_PCHARS
LD HL, WCOMMON.LINE_END
DSS_EXEC DSS_PCHARS
POP BC ; clear add from stack
POP BC ; clear addr from stack
DSS_EXEC 0x0200+DSS_EXIT ; and exit
; ------------------------------------------------------

View File

@ -513,4 +513,4 @@ RS_BUFF
ENDMODULE
END
ENDIF

View File

@ -79,27 +79,36 @@ START
; DJNZ L_PORT
; INC D
CALL ISA.ISA_OPEN
// CALL ISA.ISA_OPEN
LD HL, REG_SCR
LD D,0x55
; STROBE ON
LD BC, PORT_ISA
LD A, ISA_AEN ; AEN=1 (for sync LA by front)
OUT (C), A
;
LD (HL), D
LD D,(HL)
LD D,0xAA
LD (HL), D
LD D,(HL)
; TRANSFER TO ISA
LD HL, 0x8000
LD DE, 0xC000
LD BC, 0x4000
LDIR
; STROBE OFF
LD BC, PORT_ISA
LD A, 0 ; AEN=0
OUT (C), A
; TRANSFER FROM ISA
LD DE, 0x4000
LD HL, 0xC000
LD BC, 0x4000
LDIR
; Close window
CALL ISA.ISA_CLOSE

View File

@ -44,7 +44,6 @@ ISA_RESET
; ------------------------------------------------------
; Open access to ISA ports as memory
; Inp: A = 0 - ISA slot 0, 1 - ISA SLOT 1
; ------------------------------------------------------
ISA_OPEN
PUSH AF,BC
@ -58,6 +57,7 @@ ISA_SLOT EQU $+1
LD A, 0x00
SLA A
OR A, 0xD4 ; D4 - ISA1, D6 - ISA2
//AND A, 0xFB ; mem
LD BC, PAGE3
OUT (C), A
LD BC, PORT_ISA

View File

@ -165,9 +165,10 @@ CHK_ERROR
.MSG_ERR_UPT
DB "Unknown TFTP packet received!",0
; Buffer for UDP datagram with TFTP payload
; Length of TFTP packet
TFTF_PACKET_LEN
DW 0
; Buffer for UDP datagram with TFTP payload
TFTP_BUFF
DS 516,0

View File

@ -409,7 +409,7 @@ GET_CUR_DIR
PUSH HL
LD C, DSS_CURDISK
RST DSS
CALL @DSS_ERROR.CHECK
CALL DSS_ERROR.CHECK
ADD A, 65
LD (HL),A
INC HL
@ -417,7 +417,7 @@ GET_CUR_DIR
INC HL
LD C, DSS_CURDIR
RST DSS
CALL @DSS_ERROR.CHECK
CALL DSS_ERROR.CHECK
POP HL
JP ADD_BACK_SLASH
;RET

View File

@ -22,7 +22,9 @@ CHECK_ERROR
ADD A,'0'
LD (COMM_ERROR_NO), A
PRINTLN MSG_COMM_ERROR
IFDEF TRACE
CALL DUMP_UART_REGS
ENDIF
LD B,3
POP HL ; ret addr reset
;;ENDIF

View File

@ -66,23 +66,23 @@ START
CALL ISA.ISA_RESET
CALL @WCOMMON.INIT_VMODE
CALL WCOMMON.INIT_VMODE
PRINTLN MSG_START
CALL @WCOMMON.FIND_SWF
PRINTLN WCOMMON.MSG_UART_INIT
CALL @WIFI.UART_INIT
CALL WIFI.UART_INIT
PRINTLN WCOMMON.MSG_ESP_RESET
CALL @WIFI.ESP_RESET
CALL WIFI.ESP_RESET
CALL @WCOMMON.INIT_ESP
CALL WCOMMON.INIT_ESP
PRINTLN MSG_HLP
CALL @WIFI.UART_EMPTY_RS
CALL WIFI.UART_EMPTY_RS
MAIN_LOOP
; handle key pressed

View File

@ -205,11 +205,11 @@ GET_SRV_PARAMS
.GSNP_NXT
INC HL
LD A,(HL)
CP A,'/' ; end slash
CP '/' ; end slash
JR Z,.GSN_EN
CP A,'0'
CP '0'
JP M,.GSN_EPN
CP A,0x3A ; >'9'?
CP 0x3A ; >'9'?
JP P,.GSN_EPN
LD (DE),A
INC DE
@ -555,4 +555,4 @@ TMP_BUFF EQU WIFI.RS_BUFF + RS_BUFF_SIZE
END MAIN.START
END ;MAIN.START