Page 1 of 1
madpascal 65... und x16 ?
Posted: Tue Feb 27, 2024 6:26 pm
by 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.
Re: madpascal 65... und x16 ?
Posted: Wed Feb 28, 2024 7:58 pm
by 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
Re: madpascal 65... und x16 ?
Posted: Thu Feb 29, 2024 8:46 am
by funkheld
Re: madpascal 65... und x16 ?
Posted: Fri Mar 01, 2024 7:37 am
by 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
Re: madpascal 65... und x16 ?
Posted: Fri Mar 01, 2024 1:44 pm
by 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
Re: madpascal 65... und x16 ?
Posted: Fri Mar 01, 2024 1:57 pm
by MADRAFi
Graph unit is not finished. you cant compile that example yet.
Re: madpascal 65... und x16 ?
Posted: Fri Mar 01, 2024 9:52 pm
by funkheld
hello thanks for info.
greeting.
Re: madpascal 65... und x16 ?
Posted: Mon Apr 01, 2024 6:29 pm
by funkheld
hello, great.
Another nice extension from madpascal for x16.
plasma.pas...great.
Thanks.
greeting
Re: madpascal 65... und x16 ?
Posted: Mon Apr 01, 2024 6:41 pm
by 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;
Re: madpascal 65... und x16 ?
Posted: Wed Apr 03, 2024 1:43 pm
by 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;