Sync local changes with github

This commit is contained in:
boykovra 2025-05-19 16:23:36 +03:00
parent 4535de201a
commit 4f5aa6b51b
8 changed files with 74 additions and 59 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

@ -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

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

@ -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