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