mirror of https://github.com/RevCurtisP/C02.git
103 lines
3.2 KiB
Plaintext
103 lines
3.2 KiB
Plaintext
;Apple 1 program initialization code for c02 programs
|
|
|
|
SUBROUTINE _APPLE1
|
|
|
|
;System Specific ASCII Key Mappings
|
|
DELKEY EQU $5F ;Delete/Backspace Key (Left Arrow/Underscore)
|
|
ESCKEY EQU $1B ;Escape/Stop Key (Escape)
|
|
RTNKEY EQU $0D ;Return/Enter Key (Carriage Return)
|
|
|
|
;Locations used by Monitor
|
|
.XAML EQU $24 ;Examine Index
|
|
.XAMH EQU $25 ;
|
|
.STL EQU $26 ;Store Index
|
|
.STH EQU $27 ;
|
|
.HEXL EQU $28 ;Hex Data
|
|
.HEXH EQU $29 ;
|
|
.YSAVE EQU $2A ;Y Register Storage
|
|
.MODE EQU $2B ;Mode: Store, Examine, Block Examine
|
|
.IN EQU $200 ;Input Buffer
|
|
|
|
;Standard Library Variables
|
|
SRCPTR EQU $30 ;Source String Pointer
|
|
DSTPTR EQU $32 ;Destination Pointer
|
|
BLKPTR EQU $34 ;Block Segment Pointer
|
|
STKPTR EQU $36 ;Stack Pointer
|
|
BLKBGN EQU $38 ;Block Start Address
|
|
BLKEND EQU $3A ;Block End Address
|
|
STKBGN EQU $3C ;Stack Start Address
|
|
STKEND EQU $3E ;Stack End Address
|
|
BLKLEN EQU $40 ;Block Segment Length
|
|
SYSBFP EQU $41 ;Position in System Buffer
|
|
RDSEED EQU $42 ;Pseudo-RANDOM Seed
|
|
RANDOM EQU $43 ;Pseudo-RANDOM Number Storage
|
|
TEMP0 EQU $44 ;Temporary Storage
|
|
TEMP1 EQU $45
|
|
TEMP2 EQU $46
|
|
TEMP3 EQU $47
|
|
TMPPTR EQU $48 ;Temporary Pointer
|
|
USRPTR EQU $4A ;User Pointer
|
|
; $4C-$4F ;Unused
|
|
; $50-$FF ;Free Zero Page for Applications
|
|
|
|
|
|
|
|
|
|
SYSBFL EQU 128 ;System Buffer Size (128 Bytes)
|
|
SYSBFR EQU .IN ;System Buffer (Input Buffer
|
|
|
|
;PIA 6820 Registers
|
|
.KBD EQU $D010 ;Keyboard Data
|
|
.KBDCR EQU $D011 ;Keyboard Control Register
|
|
.DSP EQU $D012 ;Display Data
|
|
.DSPCR EQU $D013 ;Display Control Register
|
|
|
|
EXIT EQU $FF00 ;Monitor Entry Point
|
|
.ECHO EQU $FFEF ;Subroutine - Print Character in Accumulator
|
|
PRBYTE EQU $FFDC ;Subroutine - Print Accumulator as Hexadecimal Number
|
|
PRHEX EQU $FFE5 ;Subroutine - Print Low Nybble of Accumulator as Hex Digit
|
|
|
|
ORG $0300 ;Start one page above Monitor input buffer
|
|
|
|
START: LDX #$FF ;Reset stack - the monitor doesn't do this
|
|
TXS ; (probably because of lack of space)
|
|
JSR NEWLIN ;Move cursor to next line before executing program
|
|
JMP MAIN ;Execute Program
|
|
|
|
|
|
;Subroutine Poll Keyboard
|
|
PLKEY: INC RDSEED ;Cycle Keypress Counter
|
|
LDA #0 ;Set Return Value to 0
|
|
BIT .KBDCR ;Check the Keyboard Control Register
|
|
BPL .PLKEYX ;If No Key Pressed, Return 0
|
|
LDA .KBD ;Else Read Key and Return
|
|
.PLKEYX RTS
|
|
|
|
GETKEY: JSR PLKEY ;Read Keyboard
|
|
AND #$7F ;Strip High Bit
|
|
RTS
|
|
|
|
BIT .GETKEM ;If Character is in
|
|
BEQ .GETKEX ; Alpha Block ($40-$74)
|
|
AND #$5F ; Strip Bit 5
|
|
.GETKEX RTS
|
|
.GETKEM DC $40 ;Character Block Bit Mask
|
|
|
|
GETCHR: JSR GETKEY ;Get Keypress
|
|
BEQ GETCHR ;Loop if No Key Pressed
|
|
RTS
|
|
|
|
PUTCHR EQU .ECHO ;Alias to Monitor Routine
|
|
|
|
;Delete Previous Character
|
|
DELCHR: LDA #DELKEY ;Load Underscore Character
|
|
JMP PUTCHR ; and Print it
|
|
|
|
;Advance Character to Next line
|
|
NEWLIN: LDA #$0D ;Load C/R into Accumulator
|
|
JMP PUTCHR ; and Print it
|
|
|
|
INCLUDE "putstr.a02" ;PUTSTR routine
|
|
|
|
ENDSUBROUTINE
|