Add powers of ten table

This commit is contained in:
Rikard Nordgren authored and FeralChild64 committed 2026-04-12 13:13:18 +02:00
1 parent 168465caba
commit fa617b3f92
3 files changed
+32 -1

No files matched your search

+7
View File
@@ -136,3 +136,10 @@
bvc *+5
jmp @dst
} }
; 32-bit integer constant in big endian order
!macro be32 @val {
!byte (@val >> 24) & $FF, (@val >> 16) & $FF, (@val >> 8) & $FF, (@val) & $FF
}
@@ -0,0 +1,24 @@
;; #LAYOUT# STD * #TAKE
;; #LAYOUT# X16 BASIC_0 #TAKE-OFFSET 2000
;; #LAYOUT# * BASIC_0 #TAKE
;; #LAYOUT# * * #IGNORE
; This file is under the MIT license, it contains code released by Microsoft Corporation.
; See LICENSE for more information.
; Math package - table of powers of ten
;
; This is verified to be identical to the original Microsoft implementation where it was named FOUTBL
FOUTBL:
+be32 -100000000
+be32 10000000
+be32 -1000000
+be32 100000
+be32 -10000
+be32 1000
+be32 -100
+be32 10
+be32 -1
FDCEND:
+1 -1
View File
@@ -29,7 +29,7 @@ unsigned short microsoft_basic_chunks[NUM_CHUNKS * 2] = {
0xB983, 0xB9BB,
0xBA28, 0xBCF2,
0xBD7E, 0xBD90,
0xBF11, 0xBF15,
0xBF11, 0xBF39,
0xBFB4, 0xBFBE,
};