madpascal 65... und x16 ?

[funkheld]

Hi good afternoon.
I play with the madpascal and the c64-vice and the plus4-yape.
I have had good experiences with it at the age of 75.
madpascal produces super fast asm code and the prg are very small. madpascal is easy to learn and wonderfully expandable.
Could you exchange ideas with the madpascal team as to whether madpascal would also be something for the x16?


Thanks.

[MADRAFi]

Hi,
I am working on adding target for x16. However I am not asm coder so it is progressing slowly. I also do not know x16 architecture either.
Any help is appreciated.
Mad-Pascal fork until it is merged is located here: https://github.com/MADRAFi/Mad-Pascal/tree/x16

[funkheld]

Hello, thank you very much for the wonderful information.

There are definitely a lot of ASM experts here in the forum.
I think the madpascal with the mads is wonderful.

Thank you for the positive news.

Thanks.
greeting

[funkheld]

Hi good afternoon.
I have now recompiled mp with fpc according to your suggestion.
it works wonderfully.

Now the expansion of the x16 routines is missing.

Thanks.
greeting

[funkheld]

Hi good afternoon.

Do you please know what the variable should be called?
the error is in the diamond.a65?

; ------------------- ASM Block 00000059 -------------------

lda MAIN.SYSTEM.GraphMode
cmp #VGAHi
beq HiRes
cmp #VGAMed
beq Multi

jmp @exit

Thanks.
greeting

[MADRAFi]

Graph unit is not finished. you cant compile that example yet.

[funkheld]

hello thanks for info.

greeting.

[funkheld]

hello, great.

Another nice extension from madpascal for x16.
plasma.pas...great.

Thanks.
greeting

[funkheld]

Hi good afternoon.

I have already created a sprite with madpascal.....it's happening ...

I made a program here to load data into a bank with an address. works wonderfully.

Code: Select all

procedure veraBankLoad(filename: String ; bank : byte ; addr : word); assembler;
asm
        phx
		
	lda bank
        sta $00
		
        lda #1  
        ldx #8  
        ldy #2  
        jsr SETLFS

        lda #<(adr.filename+1)
        sta r12L
        lda #>(adr.filename+1)
        sta r12H

        lda adr.filename
        // get pointer into x,y registers
        ldx r12L
        ldy r12H
        jsr SETNAM
        
        lda #0
        ldx addr
        ldy addr+1
        jsr LOAD
        plx
end;

[funkheld]

here DrawLine and GraphisColor.

greeting

Code: Select all

procedure veraGraphisCol(x, y, z: byte); assembler;
asm
	phx
	
	lda x
	ldx y
	ldy z
	jsr GRPAH_set_colors
	
	plx
end;

procedure veraDrawLine(x, y, x1, y1: word); assembler;
asm
	phx
	
	lda x
	sta r0L
	lda x+1
	sta r0H
	
	lda y
	sta r1L
	lda y+1
	sta r1H
	
	lda x1
	sta r2L
	lda x1+1
	sta r2H
	
	lda y1
	sta r3L
	lda y1+1
	sta r3H
	
	jsr GRAPH_draw_line
	
	plx
end;