AMOS BASIC tokenized file - Revision history

Kyz: add.w instead of add.l

2024-10-31T22:37:03Z

add.w instead of add.l

2023-12-28T04:16:19Z

‎Sample files

2023-12-28T04:15:46Z

‎Sample files

2021-09-06T20:29:34Z

‎Links and references

2020-07-29T14:18:22Z

‎Sample files

2020-07-26T19:58:15Z

‎Sample files

2019-01-18T02:29:41Z

‎Specially sized tokens

2019-01-18T02:28:45Z

‎AMOS source code

2018-10-13T17:47:25Z

2018-05-09T08:46:46Z

‎Encrypted procedures

@@ Line 288: / Line 288: @@
               *line++ ^= (key >> 8) & 0xFF;
               *line++ ^=  key       & 0xFF;
-              key  += key2;
+              key = (key & 0xFFFF0000) | ((key + key2) & 0xFFFF);
-              key2 += key3;
+              key2 = (key2 + key3) & 0xFFFF;
               key = (key >> 1) | (key << 31); /* rotate right one bit */
+          }

@@ Line 314: / Line 314: @@
 == Sample files ==
 * http://cd.textfiles.com/amospd/SourceCode/
-* {{DexvertSamples|archive/amos}}
+* {{DexvertSamples|archive/amosSrc}}
 == Links and references ==

@@ Line 314: / Line 314: @@
 == Sample files ==
 * http://cd.textfiles.com/amospd/SourceCode/
-* https://telparia.com/fileFormatSamples/archive/amos/
+* {{DexvertSamples|archive/amos}}
 == Links and references ==

@@ Line 318: / Line 318: @@
 == Links and references ==
 * [https://www.exotica.org.uk/wiki/AMOS_file_formats AMOS file formats - ExoticA]
 * [http://www.amigacoding.com/index.php/AMOS:Extensions AMOS Extensions - Amiga Coding wiki]
 * [http://www.triumphoverchallenges.com/stos-and-amos-game-creators/ STOS and AMOS publishing history]
 [[Category:Amiga]]

@@ Line 314: / Line 314: @@
 == Sample files ==
 * http://cd.textfiles.com/amospd/SourceCode/
-* https://telparia.com/fileFormatSamples/archive/amos/recuento.amos
+* https://telparia.com/fileFormatSamples/archive/amos/
 == Links and references ==

@@ Line 190: / Line 190: @@
 * 1 byte: unused
 * 1 byte: length of ISO-8859-1 string to follow
-* variable length: ISO-8859-1 string, with the above-given length. The string is null terminated and its length is rounded up to a multiple of two. The string should be printed after the remark token
+* variable length: ISO-8859-1 string, with the above-given length.
 |-
 |0x0652

@@ Line 223: / Line 223: @@
 If you should find a procedure (0x0376) token with the "is encrypted" bit set, run this C function on the code and it will decrypt the contents of the procedure.
   void decrypt_procedure(unsigned char *src) {
       unsigned char *line, *next, *endline;
@@ Line 233: / Line 228: @@
       /* ensure src is a pointer to a line with the PROCEDURE token on it */
-      if (EndGetM16(&src[2]) != 0x0376) return;
+      if (src[2] != 0x03 || src[3] != 0x76) return;
       /* do not operate on compiled procedures */
@@ Line 239: / Line 234: @@
       /* size + 8 + 6 is the start of the line after END PROC */
-      size = EndGetM32(&src[4]);
+      size = (src[4] << 24) | (src[5] << 16) | (src[6] << 8) | src[7];
       endline = &src[size + 8 + 6];
       line = next = &src[src[0] * 2];
@@ Line 246: / Line 241: @@
       key = (size << 8) | src[11];
       key2 = 1;
-      key3 = EndGetM16(&src[8]);
+      key3 = (src[8] << 8) | src[9];
       while (line < endline) {