Merge telemon24 and telemon30 into telestrat target.

Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 22:09:14 +01:00
parent 06b2b83ab2
commit b5fef66f37
49 changed files with 629 additions and 1642 deletions
--- a/libsrc/telestrat/sysuname.s
+++ b/libsrc/telestrat/sysuname.s
@@ -0,0 +1,46 @@
+;
+; Ullrich von Bassewitz, 2003-08-12
+;
+; unsigned char __fastcall__ _sysuname (struct utsname* buf);
+;
+
+        .export         __sysuname, utsdata
+
+        .import         utscopy
+
+        __sysuname = utscopy
+
+;--------------------------------------------------------------------------
+; Data. We define a fixed utsname struct here and just copy it.
+
+.rodata
+
+utsdata:
+        ; sysname
+        .asciiz         "cc65"
+
+        ; nodename
+        .asciiz         ""
+
+        ; release
+        .byte           ((.VERSION >> 8) & $0F) + '0'
+        .byte           '.'
+        .if             ((.VERSION >> 4) & $0F) > 9
+        .byte           ((.VERSION >> 4) & $0F) / 10 + '0'
+        .byte           ((.VERSION >> 4) & $0F) .MOD 10 + '0'
+        .else
+        .byte           ((.VERSION >> 4) & $0F) + '0'
+        .endif
+        .byte           $00
+
+        ; version
+        .if             (.VERSION & $0F) > 9
+        .byte           (.VERSION & $0F) / 10 + '0'
+        .byte           (.VERSION & $0F) .MOD 10 + '0'
+        .else
+        .byte           (.VERSION & $0F) + '0'
+        .endif
+        .byte           $00
+
+        ; machine
+        .asciiz         "Oric Telestrat"