[Wisp-cvs] wisp/wa cupid.wth,1.2,1.3

[<di...@us...>]

Update of /cvsroot/wisp/wisp/wa
In directory usw-pr-cvs1:/tmp/cvs-serv25684/wa

Modified Files:
	cupid.wth 
Log Message:
Created the beginnings of Worth-level assemblying.

Index: cupid.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/wa/cupid.wth,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- cupid.wth	8 Sep 2002 11:27:24 -0000	1.2
+++ cupid.wth	30 Sep 2002 18:24:56 -0000	1.3
@@ -9,6 +9,8 @@
 (include io)
 (include linux)
 
+(macro .cpuid. #o017 byte# #o242 byte#)
+
 (macro cpu_vendor
   ,(cpu 586)
   (register %ecx)
@@ -16,7 +18,7 @@
   (register %ebx)
   (register %eax)
   ,(xor %eax %eax)
-  ,(cpuid)
+  .cpuid.
   drop)
 
 (macro cpuid_level
@@ -26,7 +28,7 @@
   (register %ebx)
   (register %eax)
   ,(xor %eax %eax)
-  ,(cpuid)
+  .cpuid.
   nip nip nip)
 
 (macro cpu_version
@@ -34,7 +36,7 @@
   (register %eax)
   (register %edx)
   ,(mov %eax 1)
-  ,(cpuid)
+  .cpuid.
   drop)
 
 (macro cpu_features
@@ -42,7 +44,7 @@
   (register %eax)
   (register %edx)
   ,(mov %eax 1)
-  ,(cpuid)
+  .cpuid.
   nip)
 
 (defun _start