Add powers of ten table
This commit is contained in:
1 parent
168465caba
commit
fa617b3f92
3 files changed
+32
-1
No files matched your search
@@ -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
@@ -29,7 +29,7 @@ unsigned short microsoft_basic_chunks[NUM_CHUNKS * 2] = {
|
||||
0xB983, 0xB9BB,
|
||||
0xBA28, 0xBCF2,
|
||||
0xBD7E, 0xBD90,
|
||||
0xBF11, 0xBF15,
|
||||
0xBF11, 0xBF39,
|
||||
0xBFB4, 0xBFBE,
|
||||
};
|
||||
|
||||
|
||||
Reference in new issue
Block a user