Merge pull request #2182 from colinleroy/add-ntohs

Add ntohs/htons and ntohl/htonl
2026-04-23 07:44:17 +00:00 · 2023-09-08 18:47:09 +02:00
parent caf8186565 9e5620f127
commit 043590c971
6 changed files with 270 additions and 0 deletions
@@ -0,0 +1,32 @@
+;
+; Colin Leroy-Mira <colin@colino.net>, 2023-09-06
+;
+; int __fastcall__ ntohl (long val);
+;
+
+.export     _ntohl, _htonl
+.import     popa
+.importzp   tmp1, tmp2, sreg
+
+_htonl := _ntohl
+
+_ntohl:
+        ; The parts of our 32 bit word
+        ; are in sreg+1, sreg, X, A.
+
+        ; Save A and X
+        stx tmp1
+        sta tmp2
+
+        ; Invert high word
+        lda sreg+1
+        ldx sreg
+
+        ; Invert low word
+        ldy tmp1
+        sty sreg
+
+        ldy tmp2
+        sty sreg+1
+
+        rts
@@ -0,0 +1,16 @@
+;
+; Colin Leroy-Mira <colin@colino.net>, 2023-09-06
+;
+; int __fastcall__ ntohs (int val);
+;
+
+.export     _ntohs, _htons
+.importzp   tmp1
+
+_htons := _ntohs
+
+_ntohs:
+        sta     tmp1
+        txa
+        ldx     tmp1
+        rts