mirror of
https://github.com/romychs/ESPKit.git
synced 2025-07-25 17:55:19 +03:00
Compare commits
2 Commits
5fb3ff48fa
...
4f5aa6b51b
Author | SHA1 | Date | |
---|---|---|---|
![]() |
4f5aa6b51b | ||
![]() |
4535de201a |
4
sources/DSS/.vscode/settings.json
vendored
Normal file
4
sources/DSS/.vscode/settings.json
vendored
Normal file
@ -0,0 +1,4 @@
|
||||
{
|
||||
"debug.terminal.clearBeforeReusing": true
|
||||
|
||||
}
|
4
sources/DSS/.vscode/tasks.json
vendored
4
sources/DSS/.vscode/tasks.json
vendored
@ -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"
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
; ------------------------------------------------------
|
||||
|
@ -513,4 +513,4 @@ RS_BUFF
|
||||
|
||||
ENDMODULE
|
||||
|
||||
END
|
||||
ENDIF
|
@ -67,7 +67,7 @@ START
|
||||
|
||||
CALL ISA.ISA_OPEN
|
||||
|
||||
; --------- IOW/IOR/A0-A7/D0-D7 --------------
|
||||
; --------- IOW/IOR/A0-A7/D0-D7 --------------
|
||||
; LD D,0
|
||||
; L_DATA
|
||||
; LD HL, PORT_UART_A
|
||||
@ -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
|
||||
|
||||
|
||||
|
@ -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
|
||||
@ -55,9 +54,10 @@ ISA_OPEN
|
||||
LD A, 0x11
|
||||
OUT (C), A
|
||||
ISA_SLOT EQU $+1
|
||||
LD A,0x00
|
||||
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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user