Sync local changes with github

sources/DSS/.vscode/settings.json

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

sources/DSS/.vscode/tasks.json

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

sources/DSS/buffer.asm

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

sources/DSS/dss_error.asm

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

sources/DSS/esplib.asm

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

sources/DSS/isa-test.asm

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

sources/DSS/isa.asm

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

sources/DSS/tftp.asm

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

sources/DSS/util.asm

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

sources/DSS/wcommon.asm

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

sources/DSS/wterm.asm

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

sources/DSS/wtftp.asm

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