Added DEFINE VRAM READ. New examples brinquitos.bas and vramcopy.bas

Author: nanochess

README.md

@@ -50,6 +50,8 @@ The following files compose the compiler:
     README.md                   This file
 
     examples/bank.bas           Bank-switching example.
+    examples/brinquitos.bas     Jumping game.
+    examples/controller.bas     Controller test.
     examples/demo.bas           Demo of graphics.
     examples/face_joystick.bas  Moving face with joystick.
     examples/happy_face.bas     Bouncing face.
@@ -60,8 +62,10 @@ The following files compose the compiler:
     examples/space_attack.bas   Game example.
     examples/test1.bas          Moving stars.
     examples/test2.bas          Arithmetic test.
+    examples/varptr.bas         VARPTR example for redefining graphics.
     examples/vgm.bas            VGM audio player.
     examples/viboritas.bas      Game example.
+    examples/vramcopy.bas       VRAM copy example.
 
 
 ### Usage guide

cvbasic.c

@@ -3265,6 +3265,7 @@ void compile_statement(int check_for_else)
                 }
             } else if (strcmp(name, "DEFINE") == 0) {
                 int pletter = 0;
+                int vram_read = 0;
 
                 get_lex();
                 if (lex != C_NAME) {
@@ -3502,6 +3503,9 @@ void compile_statement(int check_for_else)
                     if (lex == C_NAME && strcmp(name, "PLETTER") == 0) {
                         pletter = 1;
                         get_lex();
+                    } else if (lex == C_NAME && strcmp(name, "READ") == 0) {
+                        vram_read = 1;
+                        get_lex();
                     }
                     target2 = evaluate_save_expression(1, TYPE_16);
                     if (lex == C_COMMA)
@@ -3636,7 +3640,11 @@ void compile_statement(int check_for_else)
                         } else {
                             cpuz80_1op("CALL", "nmi_off");
                         }
-                        generic_call("LDIRVM");
+                        if (vram_read) {
+                            generic_call("LDIRMV");
+                        } else {
+                            generic_call("LDIRVM");
+                        }
                         if (target == CPU_6502)
                             cpu6502_noop("CLI");
                         else if (target == CPU_9900)

cvbasic_6502_prologue.asm

@@ -12,6 +12,7 @@
 	; Revision date: Aug/21/2024. Added support for keypad.
 	; Revision date: Aug/30/2024. Changed mode bit to bit 3 (avoids collision
 	;                             with flicker flag).
+	; Revision date: Oct/15/2024. Added LDIRMV.
 	;
 
 	CPU 6502
@@ -158,6 +159,28 @@ FILVRM:
 	BNE .1		; 2/3/4
 	RTS	
 
+LDIRMV:
+	LDA temp
+	LDY temp+1
+	JSR SETRD
+	LDA temp2
+	BEQ .1
+	INC temp2+1
+.1:
+	LDY #0
+.2:
+	LDA $3000	; 4
+	STA (pointer),Y	; 5/6
+	INC pointer	; 5
+	BNE .3		; 2/3/4
+	INC pointer+1	; 5
+.3:
+	DEC temp2	; 5
+	BNE .2		; 2/3/4
+	DEC temp2+1	; 5
+	BNE .2		; 2/3/4
+	RTS
+
 LDIRVM:
 	LDA pointer
 	LDY pointer+1

cvbasic_9900_prologue.asm

@@ -17,6 +17,7 @@
 ; Revision date Aug/16/2024. Corrected bug in define_char_unpack.
 ; Revision date Aug/18/2024. Ported bugfixes to TMS9900 version
 ; Revision date Aug/30/2024. All samples except pletter and banking working on TMS9900 version
+; Revision date Oct/15/2024. Added LDIRMV.
 
 ;
 ; Platforms supported:
@@ -252,6 +253,21 @@ FILVRM
     jne -!1
     b *r11
 
+; Read VRAM - address in R0, CPU data at R2, count in R3
+; Inline address set to avoid needing to cache r11
+LDIRMV
+    swpb r2
+    movb r2,@VDPWADR
+    swpb r2
+    movb r2,@VDPWADR
+    swpb r2
+    swpb r2
+!1
+    movb @VDPDATA,*r0+
+    dec r3
+    jne -!1
+    b *r11
+
 ; Load VRAM - address in R0, CPU data at R2, count in R3
 ; Original: address in pointer, CPU address at temp, count in temp2
 ; Inline address set to avoid needing to cache r11

cvbasic_prologue.asm

@@ -36,6 +36,8 @@
 	;                             and Casio PV-2000.
 	; Revision date: Aug/30/2024. Changed mode bit to bit 3 (avoids collision
 	;                             with flicker flag).
+	; Revision date: Oct/15/2024. Added LDIRMV. Solved bug where asterisk and number
+	;                             keys values were inverted.
 	;
 
 JOYSEL:	equ $c0
@@ -286,6 +288,21 @@ FILVRM:
 			; 37 42
 	ret
 
+LDIRMV:
+	ex de,hl
+	call SETRD
+	ex (sp),hl
+	ex (sp),hl
+.1:
+	ld a,(VDP)
+	ld (de),a
+	inc de
+	dec bc
+	ld a,b
+	or c
+	jp nz,.1
+	ret
+
 LDIRVM:
         EX DE,HL
         CALL SETWRT
@@ -366,29 +383,51 @@ FILVRM:
 			; 35 40
 	ret
 
+LDIRMV:
+	ex de,hl
+	call SETRD
+	ex (sp),hl
+	ex (sp),hl
+.1:
+	in a,(VDP)
+	ld (de),a
+    if SORD
+	nop	
+    endif
+    if SG1000+MEMOTECH+EINSTEIN
+	nop	; SG1000 is 3.58 mhz, but SC3000 is 4 mhz.
+	nop
+    endif
+	inc de
+	dec bc
+	ld a,b
+	or c
+	jp nz,.1
+	ret
+
 LDIRVM:
-        EX DE,HL
-        CALL SETWRT
-        EX DE,HL
-        DEC BC
-        INC C
-        LD A,B
-        LD B,C
-        INC A
-        LD C,VDP
+        ex de,hl
+        call SETWRT
+        ex de,hl
+        dec bc
+        inc c
+        ld a,b
+        ld b,c
+        inc a
+        ld c,VDP
 .1:
     if SORD
-	NOP	
+	nop	
     endif
     if SG1000+MEMOTECH+EINSTEIN
-	NOP	; SG1000 is 3.58 mhz, but SC3000 is 4 mhz.
-	NOP
+	nop	; SG1000 is 3.58 mhz, but SC3000 is 4 mhz.
+	nop
     endif
-	OUTI
-        JP NZ,.1
-        DEC A
-        JP NZ,.1
-        RET
+	outi
+        jp nz,.1
+        dec a
+        jp nz,.1
+        ret
     endif
 
 LDIRVM3:
@@ -478,8 +517,8 @@ nmi_on:
 
     if COLECO
 keypad_table:
-        db $0f,$08,$04,$05,$0c,$07,$0a,$02
-        db $0d,$0b,$00,$09,$03,$01,$06,$0f
+        db $0f,$08,$04,$05,$0c,$07,$0b,$02
+        db $0d,$0a,$00,$09,$03,$01,$06,$0f
     endif
 
 cls: