neo6502 BASIC

Author: varmfskii

neo6502/README.md

@@ -0,0 +1,4 @@
+Files for Neo6502 running neo6502-firmware
+
+Basic runs in approximately 9.11 seconds for characters and 9.37
+seconds for bitmap using native BASIC.

neo6502/m2bitmap.bsc

@@ -0,0 +1,21 @@
+1000 t0=time( )
+1010 cls
+1020 rect solid
+1030 for py=0 to 21
+1040 yz=py*2/22-1
+1050 for px=0 to 31
+1060 xz=px*3.5/32-2.5
+1070 x=0:y=0:i=0
+1080 while i<=14&x*x+y*y<=4
+1090 xt=x*x-y*y+xz
+1100 y=2*x*y+yz
+1110 x=xt
+1120 i=i+1
+1130 wend
+1140 rect ink i from px*10,py*10 by 9,9
+1150 next
+1160 next
+1170 ink 7,0
+1180 t= (time( ) -t0) /100
+1190 while inkey$( ) = "" :wend
+1200 print t

neo6502/m2hires.bsc

@@ -0,0 +1,20 @@
+1000 t0=time( )
+1010 cls
+1020 for py=0 to 239
+1030 yz=py*2.625/240-1.3125
+1040 for px=0 to 319
+1050 xz=px*3.5/320-2.5
+1060 x=0:y=0:i=0
+1070 while i<=47&x*x+y*y<=4
+1080 xt=x*x-y*y+xz
+1090 y=2*x*y+yz
+1100 x=xt
+1110 i=i+1
+1120 wend
+1130 plot ink i%16 to px,py
+1140 next
+1150 next
+1160 ink 7,0
+1170 t= (time( ) -t0) /100
+1180 while inkey$( ) = "" :wend
+1190 print t

neo6502/m2print.bsc

@@ -0,0 +1,23 @@
+1000 t0=time( )
+1010 cls
+1020 for py=0 to 21
+1030 yz=py*2/22-1
+1040 for px=0 to 31
+1050 xz=px*3.5/32-2.5
+1060 x=0:y=0:i=0
+1070 while i<=14&x*x+y*y<=4
+1080 xt=x*x-y*y+xz
+1090 y=2*x*y+yz
+1100 x=xt
+1110 i=i+1
+1120 wend
+1130 ink 7,i
+1140 print;
+1150 next
+1160 ink 7,0
+1170 print
+1180 next
+1190 ink 7,0
+1200 t= (time( ) -t0) /100
+1210 while inkey$( ) = "" :wend
+1220 print t