sources/DSS/.vscode/settings.json

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

sources/DSS/.vscode/tasks.json

@@ -137,7 +137,7 @@
 			}
 		},
 		{
-			"label": "MDL optimization for WTFTP",
+			"label": "MDL 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": "dedicated",
+				"panel": "shared",
 				"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_NOTEINCLUDE "dss.inc"
+	JP		NZ, G_NOTE
 	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 addr from stack
+	POP 	BC											; clear add from stack
 	DSS_EXEC	0x0200+DSS_EXIT							; and exit
 
 ; ------------------------------------------------------

sources/DSS/esplib.asm

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

sources/DSS/isa-test.asm

@@ -79,36 +79,27 @@ 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, 0x8000
-	LD	DE, 0xC000
-	LD	BC, 0x4000
-	LDIR
+	;
+	LD	(HL), D
+	LD	D,(HL)	
+
+	LD  D,0xAA
+	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,6 +44,7 @@ ISA_RESET
 
 ; ------------------------------------------------------
 ; Open access to ISA ports as memory
+;   Inp: A = 0 - ISA slot 0, 1 - ISA SLOT 1
 ; ------------------------------------------------------
 ISA_OPEN
 	PUSH	AF,BC
@@ -57,7 +58,6 @@ 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

sources/DSS/tftp.asm

@@ -165,10 +165,9 @@ CHK_ERROR
 .MSG_ERR_UPT
 	DB "Unknown TFTP packet received!",0
 
-; Length of TFTP packet
+; Buffer for UDP datagram with TFTP payload
 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,9 +22,7 @@ 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		'/'											; end slash
+	CP		A,'/'										; end slash
 	JR		Z,.GSN_EN
-	CP		'0'
+	CP		A,'0'
 	JP		M,.GSN_EPN
-	CP		0x3A										; >'9'?
+	CP		A,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