diff --git a/apple2/a2chars.c02 b/apple2/a2chars.c02 new file mode 100644 index 0000000..0ed85a2 --- /dev/null +++ b/apple2/a2chars.c02 @@ -0,0 +1,24 @@ +/* C02 Apple II Test Program */ + +#include + +char h,i; + +main: + prchr(' '); + for (i=0; i<16; i++) + prhex(i); + h=0; i=0; + do { + if (!i&15) { + newlin(); + prhex(h); + h++; + prchr(' '); + } + if (i&$F0==$80) echo($A0); + else echo(i); + i++; + } while(i); +goto exit; + diff --git a/apple2/a2echo.c02 b/apple2/a2echo.c02 new file mode 100644 index 0000000..90c5de2 --- /dev/null +++ b/apple2/a2echo.c02 @@ -0,0 +1,18 @@ +/* C02 Apple II Test Program */ + +#include + +char c; + +main: + +loop: + c = plkey(); + if (!c) goto loop; + newlin(); + prbyte(c); + prchr(' '); + echo(c); + prchr(' '); + prchr(c); + goto loop; diff --git a/apple2/a2keys.c02 b/apple2/a2keys.c02 new file mode 100644 index 0000000..94db8b7 --- /dev/null +++ b/apple2/a2keys.c02 @@ -0,0 +1,16 @@ +/* C02 Apple II Test Program */ + +#include + +char c; + +main: + +loop: + c = getkey(); + if (c=$1B) goto exit; + newlin(); + prbyte(c); + prchr(' '); + prchr(c); + goto loop; diff --git a/apple2/a2test.dsk b/apple2/a2test.dsk deleted file mode 100644 index 5877c32..0000000 Binary files a/apple2/a2test.dsk and /dev/null differ diff --git a/apple2/c02.bat b/apple2/c02.bat index 87be0d0..0fb448c 100644 --- a/apple2/c02.bat +++ b/apple2/c02.bat @@ -1,16 +1,18 @@ -@echo Compiling File %1.c02 -..\c02.exe %1 >%1.out -@if ERRORLEVEL 1 exit /b +@echo off +echo Compiling File %1.c02 +..\c02.exe %1 >%1.dbg +if ERRORLEVEL 1 exit /b -@echo Assembling File %1.asm +echo Assembling File %1.asm dasm %1.asm -f3 -o%1.bin -l%1.lst -s%1.sym -@if ERRORLEVEL 1 exit /b +if ERRORLEVEL 1 exit /b -@echo Building Disk Image +echo Building Disk Image copy /Y boot.dsk %1.dsk echo BRUN %1 |a2tools in t %1.dsk command a2tools in b.0C00 %1.dsk %1 %1.bin -@if ERRORLEVEL 1 exit /b +if ERRORLEVEL 1 exit /b +del %1.bin -@echo Starting Emulator +echo Starting Emulator start C:\Programs\AppleWin\applewin -d1 %1.dsk