1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-29 16:51:10 +00:00
C02/include/vic/screen.a02

23 lines
600 B
Plaintext
Raw Normal View History

;Screen Control Assembly Lanuage Routines for VIC-20
;Clear the Screen
CLRSCR EQU $E55F ;Aliased to CLSR Routine
;Move Cursor To Home Position
CRSRHM EQU $E581 ;Aliased to HOME Routine
;Move Cursor to Specified Coordinates
SETPOS: STA $D3 ;Save Cursor Column
STY $D6 ;Save Cursor Row
JMP $E587 ;Set Screen Poiners and Return
;Get Cursor Position
GETPOS: LDY $D6 ;Load Cursor Row
LDA $D3 ;Load Cursor Column
RTS
;Get Screen Size
GETSIZ: JSR $FFED ;Call SCREEN Kernal Routine
TXA ;Transfer Width to Accumulator
RTS