Add ntohs, htons, ntohl, htons.

2023-09-06 08:09:00 +02:00
parent e52e350498
commit dfe7562f76
6 changed files with 217 additions and 0 deletions
--- a/libsrc/common/ntohl.s
+++ b/libsrc/common/ntohl.s
@@ -0,0 +1,34 @@
+;
+; 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
+.code
+
+_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