Added the BASIC version of Geoff Phillips PAINT subroutine in the sample folder.
From the book "Oric Atmos and Oric 1 Graphics and Machine code techniques" available on the Oric library at https://library.defence-force.org/index.php?content=any&page=books&sort_by=name&freesearch=007084743
It is very slow, but it's an interesting example of how to use POINT, CURSET and manually do stack operations in BASIC.
Hopefully I'll managed to get the assembler version to run as well so we can compare the speed.
public/pc/tools/osdk/main/Osdk/_final_/sample/basic/paint/main.bas (diff)
public/pc/tools/osdk/main/Osdk/_final_/sample/basic/paint/osdk_build.bat (diff) public/pc/tools/osdk/main/Osdk/_final_/sample/basic/paint/osdk_config.bat (diff) public/pc/tools/osdk/main/Osdk/_final_/sample/basic/paint/osdk_execute.bat (diff)
public/pc/tools/osdk/main/Osdk/_final_/sample/basic/paint| @@ -0,0 +1,35 @@ | ||
| 1 | +@ECHO OFF | |
| 2 | + | |
| 3 | + | |
| 4 | +:: | |
| 5 | +:: Initial check. | |
| 6 | +:: Verify if the SDK is correctly configurated | |
| 7 | +:: | |
| 8 | +IF "%OSDK%"=="" GOTO ErCfg | |
| 9 | + | |
| 10 | + | |
| 11 | +:: | |
| 12 | +:: Set the build paremeters | |
| 13 | +:: | |
| 14 | +CALL osdk_config.bat | |
| 15 | + | |
| 16 | + | |
| 17 | +:: | |
| 18 | +:: Launch the compilation of files | |
| 19 | +:: | |
| 20 | +CALL %OSDK%\bin\make.bat %OSDKFILE% | |
| 21 | +GOTO End | |
| 22 | + | |
| 23 | + | |
| 24 | +:: | |
| 25 | +:: Outputs an error message | |
| 26 | +:: | |
| 27 | +:ErCfg | |
| 28 | +ECHO == ERROR == | |
| 29 | +ECHO The Oric SDK was not configured properly | |
| 30 | +ECHO You should have a OSDK environment variable setted to the location of the SDK | |
| 31 | +IF "%OSDKBRIEF%"=="" PAUSE | |
| 32 | +GOTO End | |
| 33 | + | |
| 34 | + | |
| 35 | +:End |
| @@ -0,0 +1,7 @@ | ||
| 1 | +@ECHO OFF | |
| 2 | + | |
| 3 | +:: | |
| 4 | +:: Set the build paremeters | |
| 5 | +:: | |
| 6 | +SET OSDKNAME=PAINT | |
| 7 | +SET OSDKFILE=main |
| @@ -0,0 +1,31 @@ | ||
| 1 | +@ECHO OFF | |
| 2 | + | |
| 3 | +:: | |
| 4 | +:: Initial check. | |
| 5 | +:: Verify if the SDK is correctly configurated, | |
| 6 | +:: | |
| 7 | +IF "%OSDK%"=="" GOTO ErCfg | |
| 8 | + | |
| 9 | +:: | |
| 10 | +:: Set the build paremeters | |
| 11 | +:: | |
| 12 | +CALL osdk_config.bat | |
| 13 | + | |
| 14 | +:: | |
| 15 | +:: Run the emulator using the common batch | |
| 16 | +:: | |
| 17 | +CALL %OSDK%\bin\execute.bat | |
| 18 | +GOTO End | |
| 19 | + | |
| 20 | +:: | |
| 21 | +:: Outputs an error message about configuration | |
| 22 | +:: | |
| 23 | +:ErCfg | |
| 24 | +ECHO == ERROR == | |
| 25 | +ECHO The Oric SDK was not configured properly | |
| 26 | +ECHO You should have a OSDK environment variable setted to the location of the SDK | |
| 27 | +ECHO =========== | |
| 28 | +IF "%OSDKBRIEF%"=="" PAUSE | |
| 29 | +GOTO End | |
| 30 | + | |
| 31 | +:End |
dbug