host/mainloop.s

@@ -1,45 +0,0 @@
-;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
-.scope mainsetup
-	USERPROG	=	$C000
-	.repeat 4, I
-	ldy #$00
-:
-	lda batch_userprog+(I*256),Y
-	sta USERPROG+(I*256),Y
-	dey
-	bne :-
-	.endrep
-.endscope
-
-.scope mainloop
-ml:
-	USERPROG	=	$C000
-	RASTER		=	$D012
-	;; Currently no code for fetching new programs, since we're testing with
-	;; batch compiled version of the whole to begin with.
-
-	;; Bank in character ROM
-	lda #%11111011
-	and $01
-	sta $01
-
-	jsr USERPROG
-
-	;; Bank out character ROM, I/O in
-	lda #%00000100
-	ora $01
-	sta $01
-@framewait:
-	ldy RASTER
-	cpy #$66
-	beq @framewait
-	inc FRAMECOUNT
-	jmp ml
-.endscope
-
-.proc time			; user-procedure
-	lda FRAMECOUNT
-	rts
-.endproc
-
-FRAMECOUNT:	.byte 0

wip-duuqnd/user-side-compiler/backend/code-generator.lisp

@@ -50,8 +50,8 @@
   ;; TODO: Handle case of too many arguments (? not realistically needed)
   t)
 
-(defparameter +argvec-offset+ #xF0)
-(defparameter +varvec-offset+ #x20)
+(defparameter +argvec-offset+ #x00)
+(defparameter +varvec-offset+ #x08)
 
 (defmacro with-variable-allocations (allocations &body body)
   `(let ((*variable-allocations* (make-hash-table)))

wip-duuqnd/user-side-compiler/populate-asm-functions.lisp

@@ -68,8 +68,8 @@
                          (parse-asm-declaration main-text)
                        (list name address declaration)))))
 
-(defparameter *program-listing-filepath* #P"../host/build/program.lst")
-(defparameter *program-build-filepath* #P"../host/build.sh")
+(defparameter *program-listing-filepath* #P"../../wip-hugo/program.lst")
+(defparameter *program-build-filepath* #P"../../wip-hugo/build.sh")
 
 (defun check-for-asm-build-script ()
   (do ((path *program-build-filepath*))

wip-hugo/build.sh

@@ -1,6 +1,6 @@
 # !/bin/bash
 #Note that program start at $080D
-cl65 -o build/host.prg -u __EXEHDR__ -t c64 -C c64-asm.cfg -l build/program.lst source.s -Ln build/program.lbl \
+cl65 -o build/file.prg -u __EXEHDR__ -t c64 -C c64-asm.cfg -l build/program.lst source.s -Ln build/program.lbl \
 
 #VICE do not like -
 sed -i 's/-/m/g' program.lbl