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", "type": "shell",
"command": "java -jar ~/Soft/MDL/mdl.jar wtftp.asm -cpu z180 -po -dialect sjasmplus", "command": "java -jar ~/Soft/MDL/mdl.jar wtftp.asm -cpu z180 -po -dialect sjasmplus",
"group": "build", "group": "build",
@ -161,7 +161,7 @@
"presentation": { "presentation": {
"echo": false, "echo": false,
"focus": false, "focus": false,
"panel": "shared", "panel": "dedicated",
"showReuseMessage": false, "showReuseMessage": false,
"clear": true, "clear": true,
"revealProblems": "onProblem" "revealProblems": "onProblem"

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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