Move further code to common, rename to assembler (last restructure I promise)

2025-09-05 09:58:11 -05:00
parent 4e8e3ef8c4
commit 2d868bb581
6 changed files with 163 additions and 85 deletions
--- a/scmvm/vm.scm
+++ b/scmvm/vm.scm
@@ -13,7 +13,7 @@
 		       vm-data-stack vm-ret-stack
 		       vm-debugger vm-debugger-set!
 		       vm-pc vm-pc-set!
-		       *instruction-set* instruction-type instruction-code))
+		       *instruction-set* instruction-name instruction-code))

 ;;; Data Structures
 (define *stack-size* 512)
@@ -118,6 +118,7 @@
    (not    #x1a)
    (bye    #xff)))

+(define instruction-name car)
 (define instruction-code cadr)

 (define (op-lookup code)