mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-05 12:06:10 +00:00
25 lines
674 B
Plaintext
25 lines
674 B
Plaintext
|
;Screen Control Assembly Lanuage Routines for Apple II
|
||
|
|
|
||
|
|
;Clear the Screen
|
||
|
|
CLRSCR: EQU $FC58 ;Applesoft Routine HOME
|
||
|
|
|
||
|
|
;Move Cursor To Home Position
|
||
|
|
CRSRHM LDA #0 ;Set Column to 0
|
||
|
|
TAY ;Set Row to 0
|
||
|
|
;and Fall into SETPOS
|
||
|
|
|
||
|
|
;Move Cursor to Specified Coordinates
|
||
|
|
SETPOS: STA $24 ;Store Column in CH
|
||
|
|
TYA ;Transfer Row to Accumulator
|
||
|
|
JMP $FB5B ;Exectute 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
|