mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-06-01 05:41:34 +00:00
35377b5807
commit ed00e1d1b5a9783a72dade3f3676b161a9cfe287
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 22:20:49 2018 -0400
Documented joystk, paddle, and lgtpen modules
commit ec0a5ede8d1b043fcf0094ea653255a808dbf8d3
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 20:31:11 2018 -0400
Added joystick, paddle, and lightpen test programs
commit 7b787f432e2f4f7ae5d7f0053ade1d3586a4fad1
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 20:30:03 2018 -0400
Updated Apple II and VIC-20 Batch Files
commit 50568294349d7e3c6b7d0d364aeaece73c9e4ab6
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 20:28:09 2018 -0400
Separated light pen code into separate files
commit d45e59f73d55eef1d30c591d19a043ad79cfd81a
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 19:28:56 2018 -0400
Moved code for paddles into separate include files
commit fc5c5472d758c960332ea14105d5ec4a7c8cbbfb
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 16:15:32 2018 -0400
Added system specific module 'joystk'
97 lines
2.8 KiB
Plaintext
97 lines
2.8 KiB
Plaintext
;Apple 1 program initialization code for c02 programs
|
|
|
|
;System Specific ASCII Key Mappings
|
|
DELKEY EQU $08 ;Delete/Backspace Key (Left Arrow)
|
|
ESCKEY EQU $1B ;Escape/Stop Key (Escape)
|
|
RTNKEY EQU $0D ;Return/Enter Key (Return)
|
|
|
|
;Zero Page Variables (*=System Variable)
|
|
DSTLO EQU $06 ;Destination Pointer
|
|
DSTHI EQU $07
|
|
BLKLO EQU $08 ;Block Segment Pointer (block.a02)
|
|
BLKHI EQU $09
|
|
STKLO EQU $1D ;Stack Pointer (stack.a02)
|
|
STKHI EQU $1E
|
|
RANDOM EQU $1F ;Random Number
|
|
INVFLG EQU $32 ;*Inverse Flag: $3F=Blinking, $7F=Inverse, $FF=Normal
|
|
SRCLO EQU $71 ;Source Pointer
|
|
SRCHI EQU $72
|
|
RDSEED EQU $E3 ;Random Seed
|
|
BLKSLO EQU $EB ;Block Start Address
|
|
BLKSHI EQU $ED
|
|
BLKELO EQU $ED ;Block End Address
|
|
BLKEHI EQU $EE
|
|
BLKLEN EQU $EF ;Block Segment Length
|
|
TEMP0 EQU $FC ;Temporary Storage
|
|
TEMP1 EQU $FD
|
|
TEMP2 EQU $FE
|
|
TEMP3 EQU $FF
|
|
|
|
;I/O Locations
|
|
KBD EQU $C000 ;Keyboard Data
|
|
AKD EQU $C010 ;Keyboard Strobe Register
|
|
|
|
;Monitor Routines
|
|
PRBYTE EQU $FDDA ;Print Accumulator as Hexadecimal Number
|
|
PRHEX EQU $FDE3 ;Print Low Nybble of Accumulator as Hex Digit
|
|
EXIT EQU $03D0 ;Return to Monitor - Jump Vector to DOS warm start
|
|
|
|
ORG $0C00 ;Safe Area for Machine Language
|
|
|
|
START: JSR NEWLIN ;Start On New Line
|
|
JMP MAIN ;Execute Program
|
|
|
|
;Poll Keyboard for Raw Character
|
|
POLKEY: INC RDSEED ;Cycle Random Seed
|
|
LDA #0 ;Clear Accumulator
|
|
BIT KBD ;Check Keyboard Strobe Bit
|
|
BPL POLKER ;If Key Pressed
|
|
LDA KBD ; Load Key Value
|
|
STA AKD ; Clear Strobe
|
|
POLKER: RTS
|
|
|
|
;Get ASCII Character from Keyboard
|
|
GETKEY: JSR POLKEY ;Poll Keyboard
|
|
AND #$7F ;Strip High Bit
|
|
RTS
|
|
|
|
;Wait for ASCII Character from Keyboard
|
|
GETCHR: JSR GETKEY ;Get Modified Key Code
|
|
BEQ GETCHR ;Loop if No Key
|
|
RTS
|
|
|
|
;Delete Previous Character
|
|
DELCHR: LDX #2 ;Two Characters Total
|
|
LDA #$88 ;Load Backspace Character
|
|
JSR $F94C ;Monitor Routine PRBLAX
|
|
LDA #DELKEY ;Load Backspace Character
|
|
;and Fall into PRCHR
|
|
|
|
;Print Character to Screen
|
|
PUTCHR: ORA #$80 ;Set High Bit
|
|
CMP #$E0 ;
|
|
BCC PRCHRX ;If Lower Case
|
|
AND #$1F ; Convert to Inverse
|
|
PRCHRX: JMP $FDF0 ;Call Monitor Routine COUT1
|
|
|
|
;Advance Character to Next line
|
|
NEWLIN EQU $FD8E ;Monitor Routine CROUT
|
|
|
|
;Clear the Screen
|
|
CLRSCR: EQU $FC58 ;Applesoft Routine HOME
|
|
|
|
;Move Cursor to Specified Coordinates
|
|
SETPOS: STA $24 ;Store Column in CH
|
|
TYA ;Transfer Row to Accumulator
|
|
JMP $FB5B ;Call Monitor Routine TABV
|
|
|
|
;Get Cursor Position
|
|
GETPOS: LDA $24 ;Load Column from CH
|
|
LDY $25 ;Load Row from CV
|
|
RTS
|
|
|
|
;Get Screen Size
|
|
GETSIZ: LDA $21 ;Load Width from WNDWDTH
|
|
LDY $23 ;Load Height from WNDBTM
|
|
RTS
|