Jump to content

funkheld

Members
  • Posts

    641
  • Joined

  • Last visited

Everything posted by funkheld

  1. Hi good afternoon. I am looking for a text editor for atari800. Thank you. greeting
  2. Hi good afternoon. Where is the LIGHTSPEED? Thank you. greeting
  3. 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 ------------------------------------------------
  4. Hi good afternoon. How can you put the startadresse of mad pascal to $4000? Thank you. greeting
  5. Hi good afternoon. http://atariage.com/forums/topic/262451-how-can-you-put-the-startadresse-of-mad-pascal-to-4000/ Thank you. greeting
  6. I have here the source code of ACTION! In ASM. With which compiler a new ACTION! Compile Thank you. greeting
  7. What commands are in action! Permanently installed? You can also write program / compile without the runtime if the commands from the runtime are not used. Thank you. greeting
  8. hello thanks. this is ok : http://atariage.com/...-image-31-0685/ greeting
  9. 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. ------------------------------------------------------------------
  10. 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
  11. 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
  12. How can you write and read the 1088 kb ext Ram in the Altirra (800xl) with Action! ? thank you. greeting
  13. 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
  14. Hi, Thank You. How can I make a picture with ags in the "MIC" 160x96 Pixel with 4 Color? thank you. Greeting
  15. Hi good afternoon. With which graphicstool-program for the pc, can one produce the graphicsformat MIC usw for the Atarixl ? thank you greeting
  16. hello, here is 29x action-atr.-tools. greeting action-atr.zip
  17. Hi good afternoon. With which graphics program for the pc can one produce the format MIC? thank you greeting
  18. Hello, good day. Madpascal output in the xex not obx. thanks greeting
  19. MadPascal... wonderfull. greeting
  20. 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
  21. cc65 is deprecated. it is out. since neither programmed with more. greeting
×
×
  • Create New...