mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-25 21:33:44 +00:00
Removed directory include/run6502
This commit is contained in:
parent
bc90e4a771
commit
627ce4df19
@ -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
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user