mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-12-01 14:51:52 +00:00
18 lines
362 B
Plaintext
18 lines
362 B
Plaintext
|
;Screen Control Assembly Lanuage Routines for Apple 1
|
||
|
|
|
||
|
|
;Clear the Screen
|
||
|
|
CLRSCR: RTS ;Do Nothing (Drop to RTS)
|
||
|
|
|
||
|
|
;Move Cursor to Specified Coordinates
|
||
|
|
SETPOS EQU CLRSCR ;No Action
|
||
|
|
|
||
|
|
;Get Cursor Position
|
||
|
|
GETPOS: LDA #$FF ;Return Error
|
||
|
|
TAY
|
||
|
|
RTS
|
||
|
|
|
||
|
|
;Get Screen Size
|
||
|
|
GETSIZ: LDA #40 ;40 Columns
|
||
|
|
LDY #24 ;24 Lines
|
||
|
|
RTS
|