mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-12-01 14:51:52 +00:00
35 lines
1.2 KiB
Plaintext
35 lines
1.2 KiB
Plaintext
|
;Apple 1 program initialization code for c02 programs
|
||
|
|
|
||
|
|
;Locations used by Operating System
|
||
|
|
PROMPT EQU $33 ;ASCII character for INPUT prompt symbol
|
||
|
|
LOMEM EQU $4A ;
|
||
|
|
HIMEM EQU $4C
|
||
|
|
BASIC $67 ;Start of BASIC program
|
||
|
|
VARBLS $69 ;End of BASIC program and start of variable space
|
||
|
|
ARRAYS $6B ;Start of defined array space
|
||
|
|
ARRAYE $6D ;End of defined array space
|
||
|
|
STRNGS $6F ;Start of string storag
|
||
|
|
|
||
|
|
TIMEDM EQU $BF90 ;Day/month
|
||
|
|
TIMEYR EQU $BF91 ;Year
|
||
|
|
TIMEMN EQU $BF92 ;Minute
|
||
|
|
TIMEHR EQU $BF93 ;Hour
|
||
|
|
|
||
|
|
;ROM Routines
|
||
|
|
EXIT EQU $3D0 ;Return to BASIC
|
||
|
|
RDKEY EQU $FD0C ;Waits for keypress and return in A
|
||
|
|
KEYIN EQU $FD1B ;Waits for keypress and cycle random-number generator
|
||
|
|
RDCHAR EQU $FD35 ;Read keyboard (processing escapes)
|
||
|
|
GETLIN EQU $FD6A ;Get Line from Keyboard into Input Buffer
|
||
|
|
CROUT EQU $FD8E ;Performs a carriage return
|
||
|
|
PRBYTE EQU $FDDA ;Print Accumulator as Hexadecimal Number
|
||
|
|
PRHEX EQU $FDE3 ;Print Low Nybble of Accumulator as Hex Digit
|
||
|
|
COUT EQU $FDED ;Print Character in Accumulator
|
||
|
|
BELL EQU $FF3A ;Ring Bell through COUT
|
||
|
|
|
||
|
|
ORG $0C00 ;Safe Area for Machine Language
|
||
|
|
|
||
|
|
START: JMP MAIN ;Execute Program
|
||
|
|
|
||
|
|
|