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

move pixel-draw code

Browse source
This commit is contained in:
hugova 2025-05-08 21:41:46 +02:00
parent d9673915a5
commit 3e063e9aaf
4 changed files with 9 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
wip-hugo/routines/line/line.inc
View file

@ -10,9 +10,6 @@
dx_2 = $F3 ; 16-bit value (uses F4) dx_2 = $F3 ; 16-bit value (uses F4)
V = $ED ; 16-bit value (uses EE) V = $ED ; 16-bit value (uses EE)
D = $EB ; 16-bit value (uses EC) D = $EB ; 16-bit value (uses EC)
;; These come from mem.inc ;; These come from pixel.inc
;; Takes up FF - F5 ;; Takes up FF - F5
X_pos = $FC .include "../pixel/pixel.inc"
Y_pos = $FB
byte_to_paint = $FE ; Byte with one 1 that corisponds to a pixel.
btp_mem_pos =$F9 ; 16-bit value (uses FA), byte to paint memory position

7
wip-hugo/routines/memory/mem.inc
View file

@ -4,10 +4,3 @@
A_start = $FA ; 16-bit value (uses FB) A_start = $FA ; 16-bit value (uses FB)
B_start = $FC ; 16-bit value (uses FD) B_start = $FC ; 16-bit value (uses FD)
B_end = $FE ; 16-bit value (uses FF) B_end = $FE ; 16-bit value (uses FF)
;;In use of by pixel_draw
Y_pos = $FB
X_pos = $FC ; 16-bit value (uses FD)
byte_to_paint = $FE
btp_mem_pos = $F9 ; 16-bit value (uses FA), byte to paint memory position
C = $F7 ; 16-bit value (uses F8)
B = $F5 ; 16-bit value (uses F6)

6
wip-hugo/routines/pixel/pixel.inc Normal file
View file

@ -0,0 +1,6 @@
Y_pos = $FB
X_pos = $FC ; 16-bit value (uses FD)
byte_to_paint = $FE
btp_mem_pos = $F9 ; 16-bit value (uses FA), byte to paint memory position
C = $F7 ; 16-bit value (uses F8)
B = $F5 ; 16-bit value (uses F6)

2
wip-hugo/routines/memory/pixel_draw.s → wip-hugo/routines/pixel/pixel_draw.s
View file

@ -3,7 +3,7 @@
;;Screen print. Draws a pixel at a specified position. ;;Screen print. Draws a pixel at a specified position.
.proc pixel_draw; user-procedure :clobbers (A X Y) :clobbers-arguments 0 .proc pixel_draw; user-procedure :clobbers (A X Y) :clobbers-arguments 0
;; Draws a pixel at Y_pos, X_pos se mem.inc ;; Draws a pixel at Y_pos, X_pos se mem.inc
.include "mem.inc" .include "pixel.inc"
Bitmap = $4000 Bitmap = $4000
Bitmap_end = $5F3F Bitmap_end = $5F3F
;; X = X_pos (mod 8) ;; X = X_pos (mod 8)