2018-02-14 00:55:25 +00:00
|
|
|
/* Apple 1 Header File */
|
|
|
|
|
2018-08-19 22:24:02 +00:00
|
|
|
//Platform Specific Constants
|
|
|
|
#define DELKEY $5F //Delete/Backspace Key
|
|
|
|
#define ESCKEY $1B //Escape/Stop Key
|
|
|
|
#define RTNKEY $0D //Return/Enter Key
|
2020-10-11 18:45:01 +00:00
|
|
|
#define SYSBFL 128 //System Buffer Length
|
2018-08-19 22:24:02 +00:00
|
|
|
|
2018-02-14 00:55:25 +00:00
|
|
|
/* Standard Library Variables */
|
2020-10-16 02:58:12 +00:00
|
|
|
zeropage int srcptr, dstptr, bfrptr, blkptr;
|
2018-08-19 22:24:02 +00:00
|
|
|
char stklo,skthi; //System Pointer
|
2018-02-14 00:55:25 +00:00
|
|
|
|
2020-10-16 02:58:12 +00:00
|
|
|
int blkbgn, blkend; //Block Start and End Address
|
|
|
|
char blklen; //Block Segment Length
|
2018-02-14 00:55:25 +00:00
|
|
|
|
2018-08-19 22:24:02 +00:00
|
|
|
char stkslo, stkshi; //Stack Start Address
|
|
|
|
char stkelo, stkehi; //Stack End Address
|
2020-10-11 18:45:01 +00:00
|
|
|
char random, rdseed; //Pseudo-Random Number Generator
|
2018-02-14 00:55:25 +00:00
|
|
|
char temp0, temp1, temp2, temp3; //Temporary Variables
|
2020-10-11 18:45:01 +00:00
|
|
|
char sysbfr[], sysbfp; //System String Buffer and Position
|
2018-02-14 00:55:25 +00:00
|
|
|
|
|
|
|
//Monitor Subroutines
|
|
|
|
void echo(); //Print Character in Accumulator
|
|
|
|
void prbyte(); //Print Accumulator as Hexadadecimal number
|
|
|
|
void prhex(); //Print Low Nybble of Accumulator as Hex Digit
|
|
|
|
|
|
|
|
//System Subroutines
|
2018-09-12 13:54:54 +00:00
|
|
|
void delchr(); //Delete previous character
|
2018-02-14 00:55:25 +00:00
|
|
|
char getkey(); //Read ASCII character from Console
|
|
|
|
void newlin(); //Advance cursor to beginning of next line
|
2018-09-12 13:54:54 +00:00
|
|
|
char polkey(); //Poll Console for character
|
|
|
|
char putchr(); //Print ASCII character to Console
|
|
|
|
char getchr(); //Wait for character from Console
|
2019-05-19 02:27:09 +00:00
|
|
|
|
|
|
|
//System Labels
|
|
|
|
start: //Start of Code
|
|
|
|
exit: //Return to Operating System
|