test

orix-software · Apr 25, 2024 · e32f5fb · e32f5fb
1 parent 6ce153e
commit e32f5fb
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/socket.s b/src/socket.s
@@ -11,6 +11,7 @@
 .import ch395_set_ipraw_pro_sn
 .import ch395_set_proto_type_sn
 .import ch395_get_socket_status_sn
+.import ch395_close_socket_sn
 
 .export socket_state
 .export socket_sour_port
@@ -71,8 +72,15 @@
     tya
     jsr     ch395_get_socket_status_sn
     cmp     #CH395_SOCKET_CLOSED
-    bne     @waiting_for_closing
+    beq     @continue
 
+    tya
+    tax
+    jsr ch395_close_socket_sn
+    tay
+    jmp     @waiting_for_closing
+
+@continue:
     ; Restore
     tya
     tax