funkheld
Members-
Posts
641 -
Joined
-
Last visited
Recent Profile Visitors
5,601 profile views
funkheld's Achievements
Dragonstomper (6/9)
26
Reputation
-
hello, thanks. greeting
-
hello zbyti, do you have new nice ideas for the Plus4? thanks.
-
fastbasic FastBasic 4.5 testing release
funkheld replied to dmsc's topic in Atari 5200 / 8-bit Programming
i don't use the language any more. had previously played with the cross, but this cc65 fails I have little freedom. greeting- 59 replies
-
- 3
-
emulation MAC/65 with DDT debugger, live emulator online.
funkheld replied to Elkino's topic in Atari 5200 / 8-bit Programming
Thank you. finally a new language with a breath of fresh air and the internet. greeting -
meta A new language for the Atari
funkheld replied to Kaj de Vos's topic in Atari 5200 / 8-bit Programming
why is another language being developed here that almost exists and is nothing new. I had already written once that the freshness is missing with rs232 and tcp. the other is only a partial copy of what has already been created. greetin- 252 replies
-
- programming language
- compiler
- (and 7 more)
-
fastbasic FastBasic 4.5 testing release
funkheld replied to dmsc's topic in Atari 5200 / 8-bit Programming
i find the programs boring. There is no connection to the outside with rs232 or tcp. In fact, there is nothing fundamentally new, but rather small defects are always eliminated that are actually not noticeable. the fresh wind with rs232 and tcp is missing greeting- 59 replies
-
FastBasic syntax highlighter for VS Code
funkheld replied to billyc's topic in Atari 5200 / 8-bit Programming
Hi good afternoon. i still miss that light asm inline. how it is currently done is cumbersome. greeting -
hello zbyti. Thanks for your new work for the new plus4 demos. Wonderful how you can do that. have already learned a lot. what I'm looking for is a key query, which key was pressed, which works in plus4. i can already receive data for rs232 from plus4. Thank you. greeting
-
Hello thanks für c+4 demo. greeting
-
will not be compiled -target:c64 -code:2000 -target: c64 -code: 2000 -target c64 -code 2000
-
Hi good afternoon. I would like to move the start of a program for the C64 to 4096, please. how is it going? Thank you.
-
how big is integer in madpascl for the c64?
funkheld replied to funkheld's topic in Atari 5200 / 8-bit Programming
hello zbyte works wonderfully with all types for the c64. Thank you. -
how big is integer in madpascl for the c64? which number types are there for the c64?? greeting ----------------------------------------------------------- program UpUpAndAway; const v = 53248; sprite : array[0..62] of Byte = ( 0,127,0,1,255,192,3,255,224,3,231,224, 7,217,240,7,223,240,7,217,240,3,231,224, 3,255,224,3,255,224,2,255,160,1,127,64, 1,62,64,0,156,128,0,156,128,0,73,0,0,73,0, 0,62,0,0,62,0,0,62,0,0,28,0 ); var i,d : Integer; begin -----------------------------------------------------------
-
hello, this is open , send , empfang , close mit madpas for c64. greeting seriell_send to A - Z , 2400baud : // KERNAL_SETLFS = $FFBA; // KERNAL_SETNAM = $FFBD; // KERNAL_OPEN = $FFC0; // KERNAL_CLOSE = $FFC3; // KERNAL_CHKIN = $FFC6; // KERNAL_CHKOUT = $FFC9; // KERNAL_CLRCHN = $FFCC; // KERNAL_CHRIN = $FFCF; // KERNAL_CHROUT = $FFD2; // KERNAL_LOAD = $FFD5; // KERNAL_READST = $FE07; program seriel; var i,z : byte; num : word absolute $fb; ascii : byte absolute $fd; procedure seriell_open(); assembler; asm { num = $fb lda #2 ldx #<(num) ldy #>(num) jsr $ffbd lda #$02 ldx #$02 ldy #$00 jsr $ffba jsr $ffc0 }; end; procedure seriell_send(); assembler; asm { buffer = $fd ldx #$02 jsr $ffc9 lda #$00 ldx buffer txa jsr $ffd2 jsr $ffcc }; end; procedure seriell_empfang(); assembler; asm { buffer = $fd jsr $ffcc ldx #$02 jsr $ffc6 bcs error jsr $ffcf tax jsr $fe07 cmp #$00 bne error stx buffer jsr $ffcc error: }; end; procedure seriell_close(); assembler; asm { lda #$02 jsr $ffc3 }; end; begin poke($fb,10); poke($fc,0); seriell_open; pause; while True do begin for i:=1 to 26 do begin ascii:=i; for z:=0 to 30 do begin pause; end; seriell_send; end; end; pause; seriell_close; end. seriell_empfang A - Z , 2400baud : char is the screen adresse $0400 // KERNAL_SETLFS = $FFBA; // KERNAL_SETNAM = $FFBD; // KERNAL_OPEN = $FFC0; // KERNAL_CLOSE = $FFC3; // KERNAL_CHKIN = $FFC6; // KERNAL_CHKOUT = $FFC9; // KERNAL_CLRCHN = $FFCC; // KERNAL_CHRIN = $FFCF; // KERNAL_CHROUT = $FFD2; // KERNAL_LOAD = $FFD5; // KERNAL_READST = $FE07; program seriel; var i : byte; num : word absolute $fb; ascii : byte absolute $fd; procedure seriell_open(); assembler; asm { num = $fb lda #2 ldx #<(num) ldy #>(num) jsr $ffbd lda #$02 ldx #$02 ldy #$00 jsr $ffba jsr $ffc0 }; end; procedure seriell_send(); assembler; asm { buffer = $fd ldx #$02 jsr $ffc9 lda #$00 ldx buffer txa jsr $ffd2 jsr $ffcc }; end; procedure seriell_empfang(); assembler; asm { buffer = $fd jsr $ffcc ldx #$02 jsr $ffc6 bcs error jsr $ffcf tax jsr $fe07 cmp #$00 bne error stx buffer jsr $ffcc error: }; end; procedure seriell_close(); assembler; asm { lda #$02 jsr $ffc3 }; end; begin poke($fb,10); poke($fc,0); seriell_open; pause; while True do begin seriell_empfang; pause; poke($0400,ascii); end; pause; seriell_close; end.
-
with open , send and close is ok , baud2400 : // KERNAL_SETLFS = $FFBA; // KERNAL_SETNAM = $FFBD; // KERNAL_OPEN = $FFC0; // KERNAL_CLOSE = $FFC3; // KERNAL_CHKIN = $FFC6; // KERNAL_CHKOUT = $FFC9; // KERNAL_CLRCHN = $FFCC; // KERNAL_CHRIN = $FFCF; // KERNAL_CHROUT = $FFD2; // KERNAL_LOAD = $FFD5; // KERNAL_READST = $FE07; program seriel; var i : byte; num : word absolute $fb; ascii : byte absolute $fd; procedure seriell_open(); assembler; asm { num = $fb lda #2 ldx #<(num) ldy #>(num) jsr $ffbd lda #$02 ldx #$02 ldy #$00 jsr $ffba jsr $ffc0 }; end; procedure send(); assembler; asm { buffer = $fd ldx #$02 jsr $ffc9 lda #$00 ldx buffer txa jsr $ffd2 jsr $ffcc }; end; procedure seriell_close(); assembler; asm { lda #$02 jsr $ffc3 }; end; begin poke($fb,10); poke($fc,0); seriell_open; pause; for i:=64 to 90 do begin ascii:=i; pause; send; end; pause; seriell_close; end.