mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-28 10:51:14 +00:00
85 lines
2.9 KiB
Plaintext
85 lines
2.9 KiB
Plaintext
; Program initialization code for C02 programs
|
|
; Template for System Specific Code
|
|
|
|
;System Specific ASCII Key Mappings
|
|
DELKEY EQU $7F ;Delete/Backspace Key ($08=Backspace, $7F=Delete)
|
|
ESCKEY EQU $1B ;Escape/Stop Key ($03=Ctrl-C, $1B=Escape)
|
|
RTNKEY EQU $0D ;Return/Enter Key ($0D=Carriage Return)
|
|
NULKEY EQU $00 ;No Key was Pressed ($00=Null)
|
|
|
|
;Zero Page Locations
|
|
SRCPTR EQU $00 ;Source Pointer
|
|
DSTPTR EQU $02 ;Destination Pointer
|
|
BFRLO EQU $04 ;Work Buffer Pointer
|
|
BFRHI EQU $05
|
|
|
|
STKSAV EQU $0D ;Stack Pointer Storage
|
|
RDSEED EQU $0E ;Pseudo-RANDOM Seed
|
|
RANDOM EQU $0F ;Pseudo-RANDOM Number Storage
|
|
TEMP0 EQU $10 ;Temporary Storage
|
|
TEMP1 EQU $11
|
|
TEMP2 EQU $12
|
|
TEMP3 EQU $12
|
|
|
|
BLKBGN EQU $20 ;Block Start Address
|
|
BLKEND EQU $22 ;Block End Address
|
|
BLKPTR EQU $24 ;Block Pointer
|
|
BLKLEN EQY $26 ;Block Segment Length
|
|
|
|
STKSLO EQU $28 ;Stack Start Address
|
|
STKSHI EQU $29
|
|
STKELO EQU $2A ;Stack End Address
|
|
STKEHI EQU $2B
|
|
STKLO EQU $2C ;Stack Pointer
|
|
STKHI EQU $2D
|
|
|
|
;Placeholders Labels for the Example Code Below
|
|
POLKEY EQU $FFFE ;ROM Read Key Routine
|
|
WSTART EQU $FFFF ;BASIC Warm Start Routine
|
|
|
|
ORG $0200 ;Program Start Address
|
|
|
|
START: NOP ;System specific initialization code
|
|
TXS ;If an RTS is used to return to the Operating System,
|
|
STX STKSAV ; the Stack Pointer should be preserved
|
|
JMP MAIN ;Execute Program
|
|
|
|
|
|
;Exit Program and Return to Operating System or Monitor
|
|
EXIT: BRK ;Usually BRK if returning to Monitor
|
|
LDX STKSAV ;If an RTS is used to return to the Operating System,
|
|
TXS ; the Stack Pointer should be restored to original state
|
|
RTS ; in case program exits in the middle of a Function
|
|
JMP WSTART ;Or it may just execute the BASIC Warm Start Routine
|
|
|
|
;Poll Character from Keyboard
|
|
PLKEY: INC RDSEED ;Cycle the Random Seed (if not provided by system)
|
|
NOP ;Code Read from Keyboad
|
|
RTS
|
|
|
|
;Read Character from Console
|
|
GETKEY; ;Usually Drops into RDKEY, but may need to call RDKEY
|
|
; then clean/convert returned value (e.g. Apple-1)
|
|
|
|
;Wait for Character from Console
|
|
GETCHR: JSR POLKEY ;Usually calls POLKEY
|
|
BEQ GETCHR ; until a non-zero is returned
|
|
RTS
|
|
|
|
;Delete Previous Character
|
|
DELCHR: RTS ;Code to move Cursor to left and clear that position
|
|
;May work differently on systems that don't support this
|
|
|
|
;Advance Cursor to Next line
|
|
NEWLIN: RTS ;Code to move Cursor to beginning of next line
|
|
;May emit Carriage Return, Line Feed, or both
|
|
|
|
;Print Character to Screen
|
|
PUTCHR RTS ;Code to write ASCII character to Screen
|
|
|
|
INCLUDE "prbyte.a02" ;PRBYTE and PRHEX routines
|
|
INCLUDE "putstr.a02" ;PUTSTR routine
|
|
|
|
;System Key Names
|
|
KNAMES BYTE "DELETE",0,"ESCAPE",0,"RETURN",0
|