funkheld Posted November 8, 2016 Share Posted November 8, 2016 (edited) 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 Edited November 8, 2016 by funkheld Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.