update

Author: jedeoric

.gitignore

@@ -1,4 +1,5 @@
 *.o
 *.lib
 build/
+tmp/
 

bpm.tml

@@ -1,6 +1,6 @@
 [package]
 name = "inet"
-version = "2024.4"
+version = "2025.1"
 authors = [ "[email protected]",]
 license = "MIT OR Apache-2.0"
 edition = "2018"
@@ -14,5 +14,6 @@ buildfolder = "build"
 packagetype = "tgz"
 codetype = "lib"
 oricutron_replace_autoboot_run = "True"
+templatecode = ""
 
 [dependencies]

docs/_inet_aton.md

@@ -0,0 +1,8 @@
+## inet_aton(const char *cp, unsigned long *inp);
+***Description***
+
+returns in BIG ENDIAN
+***Description***
+
+returns in BIG ENDIAN
+

docs/inet_aton.md

@@ -0,0 +1,27 @@
+---
+
+## inet_aton
+***Description***
+
+Convert ip str to int 32 (net work notation : big endian), returns 255 255 255 255 if error
+***Input***
+
+* Accumulator : Low addr of string
+* X Register : high addr
+
+***Modify***
+
+* RESB* RES* TR0* TR1; TR0 indexed* TR2; TR0 indexed* TR3; TR0 indexed
+***Returns***
+
+* X Register : X = 1 error, is not an ip
+
+
+
+
+
+***Example***
+
+```ca65 lda #<ip_str ldx #>ip_str jsr inet_aton rtsip_str: .asciiz 192.168.1.1```
+```
+

docs/md2hlp.cfg

@@ -2,7 +2,7 @@
 ;
 ; Default options
 ;
-Version = 2
+Version = 3
 Break on hyphens = True
 
 Head = ^A
@@ -30,6 +30,7 @@ cite = _|,
 
 
 link = ^T,^P
+image = None
 
 ink_black = ^@
 ink_red = ^A

src/_inet_aton.s

@@ -8,7 +8,8 @@
 .importzp ptr1
 
 .proc _inet_aton
-    ;;@proto inet_aton(const char *cp, unsigned long *inp);
+    ;;@proto long inet_aton(const char *cp, unsigned long *inp);
+    ;;@brief returns in BIG ENDIAN
 
     sta     ptr1        ; Ptr to store int
     stx     ptr1+1      ; ptr to store int
@@ -21,17 +22,17 @@
     cpx     #$01
     beq     @return_error
 
-    lda     TR7
+    lda     TR4
     ldy     #$00
     sta     (ptr1),y
     iny
-    lda     TR6
+    lda     TR5
     sta     (ptr1),y
     iny
-    lda     TR5
+    lda     TR6
     sta     (ptr1),y
     iny
-    lda     TR4
+    lda     TR7
     sta     (ptr1),y
 
     lda     #$01

src/include/inetextend.h

@@ -1 +1 @@
-unsigned char inet_aton(const char *cp, unsigned long *inp);
+long inet_aton(const char *cp, unsigned long *inp);

src/inet_aton.s

@@ -3,7 +3,7 @@
 .export inet_aton
 
 .proc inet_aton
-    ;;@brief Convert ip str to int 32, returns 255 255 255 255 if error
+    ;;@brief Convert ip str to int 32 (net work notation : big endian), returns 255 255 255 255 if error
     ;;@inputA Low addr of string
     ;;@inputX high addr
     ;;@modifyMEM_RESB
@@ -26,12 +26,13 @@
     ;;@` .asciiz 192.168.1.1
     ;;@```
 
-
+    ; Store the ptr of the string
     sta     RES
     stx     RES+1
 
     ldx     #$00
     stx     RESB ; Current digit
+    ; Clear TR4 to TR7 to 0
     stx     TR4
     stx     TR5
     stx     TR6

tests/inetaton.c

@@ -6,12 +6,13 @@
 void display(int32_t inp, unsigned char error, char *str) {
     if (error == 1)
         printf("IP : %d.%d.%d.%d\n", (unsigned char)(inp >> 24), (unsigned char)(inp >> 16) & 0xff, (unsigned char)(inp >> 8) & 0xff, (unsigned char)(inp & 0xff));
+        printf("%d" ,inp[0]);
     else
         printf("Invalid conversion for : %s\n", str);
 }
 
 int main() {
-    uint32_t inp=0;
+    uint32_t inp = 0;
     uint8_t error=0;
 
     error = inet_aton("1.2.3.4", &inp);