mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-28 10:51:14 +00:00
21 lines
455 B
Plaintext
21 lines
455 B
Plaintext
|
/***************************************
|
||
|
|
* BUFFER TEST - Test buffer routines *
|
||
|
|
* from file prdec.asm for Apple 1 *
|
||
|
|
***************************************/
|
||
|
|
|
||
|
|
#include <apple1.h>
|
||
|
|
|
||
|
|
#include <apple1.asm>
|
||
|
|
#include <prdec.asm>
|
||
|
|
#include <buffer.asm>
|
||
|
|
|
||
|
|
char n;
|
||
|
|
|
||
|
|
main:
|
||
|
|
n = getbfr(); //Read line into buffer
|
||
|
|
prdec(n); //Print line length
|
||
|
|
echo($20); //Print a space
|
||
|
|
putbfr(); //Print buffer contents
|
||
|
|
goto main; // and loop
|
||
|
|
|