6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-22 01:31:33 +00:00
Code Issues Projects Releases Wiki Activity

Removed directory include/run6502

Browse Source
This commit is contained in:
Curtis F Kaylor 2020-04-27 13:00:06 -04:00
parent bc90e4a771
commit 627ce4df19
1 changed files with 0 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
include/run6502/screen.a02
View File

@ -1,39 +0,0 @@
;Screen Control Assembly Lanuage Routines for C02
;Skeleton Code for Systems with no Screen Control
SUBROUTINE _SCREEN
SMTEXT EQU $00 ;Default Text Screen
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
;Set Screen Mode
SETSCR: CMP #SMTEXT ;If Not Default Text
BNE GETPOS ;Return Error
;Else Return 0
;Get Screen Mode
GETSCR: LDA #0 ;Return 0 (Default Text Mode)
RTS
;Clear the Screen
CLRSCR: RTS ;No Action
LDY #>.CLRSCS ;Execute System Call CLS
LDX #<.CLRSCS
JMP SYSTEM
.CLRSCS BYTE "CLS",0
;Move Cursor Home
CRSRHM RTS ;No Action
;Move Cursor to Specified Coordinates
SETPOS RTS ;No Action
;Get Cursor Position
GETPOS: LDA #$FF ;Return Error
TAY
RTS
;Get Screen Size
GETSIZ LDA #80 ;Return 80x25
LDY #25
RTS