From 2e28a268b283631244f4f64d7501cd168435ddd3 Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Mon, 5 Feb 2024 23:53:52 +0100
Subject: [PATCH] fix

---
 Makefile                          |  3 ++-
 src/6502/_ch395_set_des_port_sn.s | 13 ++++++++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 0c75b7f..aec9c54 100644
--- a/Makefile
+++ b/Makefile
@@ -20,7 +20,8 @@ $(OBJECTS8): $(SOURCES8)
 	@mkdir target/telestrat/lib/ -p
 	@$(AS) -ttelestrat $(@:.o=.s) -o $@ --include-dir src/include
 	@$(AR) r ch395-8.lib  $@
-	@cp ch395-8.lib target/telestrat/lib/
+	@mkdir build
+	@cp ch395-8.lib build/lib8/
 
 tool:
 	@mkdir -p target/telestrat/ch395cfg/
diff --git a/src/6502/_ch395_set_des_port_sn.s b/src/6502/_ch395_set_des_port_sn.s
index 3a464ba..3d21eac 100644
--- a/src/6502/_ch395_set_des_port_sn.s
+++ b/src/6502/_ch395_set_des_port_sn.s
@@ -8,8 +8,18 @@
 .export _ch395_set_des_port_sn
 .export ch395_set_des_port_sn
 
-
 .proc ch395_set_des_port_sn
+    ;;@brief Set dest port socket
+    ;;@inputA Socketid
+    ;;@inputY Low int
+    ;;@inputX high int
+    ;;@```ca65
+    ;;@`  lda  #$01
+    ;;@`  ldx  #80
+    ;;@`  ldx  #$00
+    ;;@`  jsr ch395_set_des_port_sn
+    ;;@`  rts
+    ;;@```
     sty     ptr1
     stx     ptr1+1
 
@@ -28,6 +38,7 @@ entry_point_c:
 
 .proc _ch395_set_des_port_sn
     ;;@proto void          ch395_set_des_port_sn(unsigned int port, unsigned char ID_SOCKET);
+    ;;@brief Set dest port socket
     ;;@inputPARAM_socketid The socketid
     pha
     jsr     popax     ; get port