Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Make ASM-FUNCTION hold an address to be called

Browse source
This commit is contained in:
John Lorentzson 2025-07-03 16:53:00 +02:00
parent 3b8c906d75
commit f54e064fda
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
wip-duuqnd/user-side-compiler/asm-function.lisp
View file

@ -3,7 +3,9 @@
(defvar *asm-functions* (make-hash-table :test #'equalp)) (defvar *asm-functions* (make-hash-table :test #'equalp))
(defclass asm-function () (defclass asm-function ()
((%name :accessor name :initarg :name))) ((%name :accessor name :initarg :name)
(%address :accessor address :initarg :address
:initform #xFEC0)))
(define-transformation (token (token-name asm-function)) (define-transformation (token (token-name asm-function))
(multiple-value-bind (asm-function existsp) (multiple-value-bind (asm-function existsp)