use radix literals

[factor.git] / extra / cpu / 8080 / test / test.factor

diff --git a/extra/cpu/8080/test/test.factor b/extra/cpu/8080/test/test.factor
index 2fcb9434b70f46ce4259556f0464559c6bfd6986..a7b1624bda491f1ba9ef9c7a7e47704922bfaedd 100644 (file)
--- a/extra/cpu/8080/test/test.factor
+++ b/extra/cpu/8080/test/test.factor
@@ -19,7 +19,7 @@ IN: cpu.8080.test
   [ read-instruction ] keep ! n cpu\r
   over get-cycles over inc-cycles\r
   [ swap instructions nth call( cpu -- ) ] keep\r
-  [ pc>> HEX: FFFF bitand ] keep \r
+  [ pc>> 0xFFFF bitand ] keep \r
   [ pc<< ] keep \r
   process-interrupts ;\r
 \r
@@ -28,10 +28,10 @@ IN: cpu.8080.test
 \r
 : invaders ( -- seq )\r
   {\r
-    { HEX: 0000 "invaders/invaders.h" }\r
-    { HEX: 0800 "invaders/invaders.g" }\r
-    { HEX: 1000 "invaders/invaders.f" }\r
-    { HEX: 1800 "invaders/invaders.e" }\r
+    { 0x0000 "invaders/invaders.h" }\r
+    { 0x0800 "invaders/invaders.g" }\r
+    { 0x1000 "invaders/invaders.f" }\r
+    { 0x1800 "invaders/invaders.e" }\r
   } ;\r
 \r
 : test-cpu ( -- cpu )\r
@@ -54,7 +54,7 @@ IN: cpu.8080.test
     "1" print\r
     224 [\r
       32 [\r
-        over 32 * over +  HEX: 2400 + ! cpu h w addr\r
+        over 32 * over +  0x2400 + ! cpu h w addr\r
         [ pick ] dip swap ram>> nth [\r
           [\r
             " 0 0 0" write\r