funkheld
Members-
Posts
641 -
Joined
-
Last visited
Content Type
Profiles
Forums
Blogs
Gallery
Events
Store
Everything posted by funkheld
-
-
hello, is ok. greeting
- 287 replies
-
- Mad Pascal
- Mad Assembler
- (and 4 more)
-
Sourcegenerator to ACTION! not Correkt (Grafik 7, picture01.mic) : ------------------------------------------------ PROC MAIN() BYTE I, ; COUNTER >>>>>>>>>>>>>>>>>>>>>counter muss CARD !!!!!!!!!!!!!!!!! DATA ; BYTE OF DATA CARD SCR=88 ; SCREEN DISPLAY BYTE CH=764 ; KEY SCAN REGISTER GRAPHICS(7+16) SCR=PEEKC(88) CLOSE(1) OPEN(1,"picture01.mic",4,0) FOR I=0 TO 3839 DO DATA=GETD(1) POKEC(SCR+I,DATA) OD CLOSE(1) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> close(1) not here !!!!!!!!!!!! DATA=GETD(1) POKE(712,DATA) DATA=GETD(1) POKE(708,DATA) DATA=GETD(1) POKE(709,DATA) DATA=GETD(1) POKE(710,DATA) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>close(1) muss here !!!!!!!!!!!!!!!!! CH=255 DO UNTIL CH#255 OD CH=255 RETURN ------------------------------------------------
- 287 replies
-
- Mad Pascal
- Mad Assembler
- (and 4 more)
-
I have here the source code of ACTION! In ASM. With which compiler a new ACTION! Compile Thank you. greeting
-
hello thanks. this is ok : http://atariage.com/...-image-31-0685/ greeting
-
Hi good afternoon. Where can I get the two files from? RTSCAN.COM RTWRITE.COM Thank you. greeting ------------------------------------------- Here is Jeff Reister's PD Runtime package for the Action! 8 bit language. To use it in the simplest form, simply add to the beginning of your Action! program the line INCLUDE "D:RUNTIME.ACT" and compile as normal. If the compile is successful, the resulting file can be run as a binary file (No Action! cartridge necessary). Additional programs not included here because they are binaries: RTSCAN.COM - run against your source file to produce a listing showing which RUNTIME.ACT routines are actually required by your program. Allows you to trim out unneeded routines to save symbol table space, etc. RTWRITE.COM - If you send the output from RTSCAN.COM to a disk file, you can then run RTWRITE on that file -- it in turn outputs the trimmed down version of RUNTIME.ACT for you. These should be available from any respectable Atari club library. Of course, you don't need them for most programs, just include the full RUNTIME.ACT and don't get fancy. The whole works is on the computer services GEnie, Delphi, Compuserve. ------------------------------------------------------------------
-
Hello, I am from Germany and am 68 years old. I play with the MISTR FPGA and the Atari800 core. I tried it first with MadPascal. Is a wonderful language (see forum). Then I have for the ACTION! decided. ACTION! Is a nice challenge for the Atari800 (see forum). For this there is a detailed manual and a lot of tool programs. The programs are very efficient. Greeting
-
MIST FPGA works with me : - 256 Compy - 512 Compy - 1024 RAM Programm : ACTION! My code of ACTION! is not in the range of $4000 - $7FFF For larger programs, the Codeaddress of ACTION! to adjust. 256-Compy : module byte array compy = [$23 $27 $2B $2F $63 $67 $6B $6F $A3 $A7 $AB $AF $E3 $E7 $EB $EF] proc delay(card z) card i for i=0 to z do od return proc main () card savmsc=$58, co, i byte c, k, co1 co=54017 graphics (24) Color=1 zero(savmsc,7680) plot(0,0) drawto(159,95) c=peek(compy) poke(co,c) zero(16384,7680) moveblock(16384,savmsc,7680) poke(co,253) zero(savmsc,7680) plot(159,0) drawto(0,95) c=peek(compy+1) poke(co,c) zero(16384,7680) moveblock(16384,savmsc,7680) poke(co,253) zero(savmsc,7680) delay(50000) delay(50000) c=peek(compy) poke(co,c) moveblock (savmsc,16384,7680) poke(co,253) delay(50000) delay(50000) c=peek(compy+1) poke(co,c) moveblock (savmsc,16384,7680) poke(co,253) do od return 512-Compy: byte array compy = [$23 $27 $2B $2F $63 $67 $6B $6F $61 $29 $65 $25 $69 $2D $6D $21 $A1 $A3 $A5 $A7 $A9 $AB $AD $AF $E1 $E3 $E5 $E7 $E9 $EB $ED $EF] 1024-RAM: byte array ram = [$03 $07 $0B $0F $23 $27 $2B $2F $21 $09 $25 $05 $29 $0D $2D $01 $41 $43 $45 $47 $49 $4B $4D $4F $61 $63 $65 $67 $69 $6B $6D $6F $81 $83 $85 $87 $89 $8B $8D $8F $A1 $A3 $A5 $A7 $A9 $AB $AD $AF $C1 $C3 $C5 $C7 $C9 $CB $CD $CF $E1 $E3 $E5 $E7 $E9 $EB $ED $EF] Testet on the MIST-FPGA with : RDFIND.atr RDFIND.atr
-
Simple draw routine sinus / cosinus to draw for ACTION. Sinus / cosinus from the turtle.act. Greeting INT TG_Phi CARD TG_CurX, TG_CurY CARD ARRAY TG_SinTab(91)=[ 0 2 4 7 9 11 13 16 18 20 22 24 27 29 31 33 35 37 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 73 75 77 79 81 82 84 86 87 89 91 92 94 95 97 98 99 101 102 104 105 106 107 109 110 111 112 113 114 115 116 117 118 119 119 120 121 122 122 123 124 124 125 125 126 126 126 127 127 127 128 128 128 128 128 128] CARD FUNC TG_ISin(CARD theta) INT sign sign=1 IF theta>180 THEN theta=360-theta sign=-1 FI IF theta>90 THEN theta=180-theta FI RETURN(sign*TG_SinTab(theta)) CARD FUNC TG_ICos(CARD theta) INT sign sign=1 IF theta>180 THEN theta=360-theta FI IF theta>90 THEN theta=180-theta sign=-1 FI RETURN(sign*TG_SinTab(90-theta)) PROC xyrawi(INT x,y,length,theta ) INT deltaX, deltaY TG_CurX=x LSH 7 TG_CurY=y LSH 7 TG_Phi=theta deltaX=length*TG_ICos(TG_Phi) deltaY=length*TG_ISin(TG_Phi) TG_CurX==+deltaX TG_CurY==-deltaY plot(x,y) drawto(TG_CurX RSH 7,TG_CurY RSH 7) RETURN PROC drawdemo() Int i Color=1 Graphics(24) FOR i=0 TO 360 DO xyrawi(160,96,90,i) OD do od RETURN
-
hello, here is 29x action-atr.-tools. greeting action-atr.zip
-
Hi good afternoon. With which graphics program for the pc can one produce the format MIC? thank you greeting
-
Hello, good day. Madpascal output in the xex not obx. thanks greeting
-
MadPascal... wonderfull. greeting
-
is nonsense. none created more programs with the cc65 for atari800. too much time spent on a working or still has other things on his mind. cc65 is a waste of time from life. greeting
-
cc65 is deprecated. it is out. since neither programmed with more. greeting