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
|
