mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-07-13 11:28:58 +00:00
35377b5807
commit ed00e1d1b5a9783a72dade3f3676b161a9cfe287
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 22:20:49 2018 -0400
Documented joystk, paddle, and lgtpen modules
commit ec0a5ede8d1b043fcf0094ea653255a808dbf8d3
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 20:31:11 2018 -0400
Added joystick, paddle, and lightpen test programs
commit 7b787f432e2f4f7ae5d7f0053ade1d3586a4fad1
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 20:30:03 2018 -0400
Updated Apple II and VIC-20 Batch Files
commit 50568294349d7e3c6b7d0d364aeaece73c9e4ab6
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 20:28:09 2018 -0400
Separated light pen code into separate files
commit d45e59f73d55eef1d30c591d19a043ad79cfd81a
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 19:28:56 2018 -0400
Moved code for paddles into separate include files
commit fc5c5472d758c960332ea14105d5ec4a7c8cbbfb
Author: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sun Sep 9 16:15:32 2018 -0400
Added system specific module 'joystk'
84 lines
2.0 KiB
Plaintext
84 lines
2.0 KiB
Plaintext
/*****************************************************
|
|
* Screen Control Functions and Constants for VIC-20 *
|
|
*****************************************************/
|
|
|
|
/* Display Colors */
|
|
enum {BLACK, WHITE, RED, CYAN, MAGENT, GREEN, BLUE, YELLOW};
|
|
|
|
/* PETSCII Color Code Table */
|
|
const char clrtbl = {144, 5, 28, 159, 156, 30, 32, 158};
|
|
|
|
;PETSCII Screen Control Characters
|
|
CHRCLR EQU 147 Clear (CLR)
|
|
CHRDEL EQU 20 Delete (DEL)
|
|
CHRDN EQU 17 Cursor Down
|
|
CHRRTN EQU 13 Return
|
|
CHRFN1 EQU 133 Function Key 1 (F1)
|
|
CHRFN2 EQU 137 Function Key 2 (F2)
|
|
CHRFN3 EQU 134 Function Key 3 (F3)
|
|
CHRFN4 EQU 138 Function Key 4 (F4)
|
|
CHRFN5 EQU 135 Function Key 5 (F5)
|
|
CHRFN6 EQU 139 Function Key 6 (F6)
|
|
CHRFN7 EQU 136 Function Key 7 (F7)
|
|
CHRFN8 EQU 140 Function Key 8 (F8)
|
|
CHRHOM EQU 19 Home
|
|
CHRINS EQU 148 Insert
|
|
CHRLFT EQU 157 Cursor Left
|
|
CHRRGT EQU 29 Cursor Left
|
|
CHRRVF EQU 146 Reverse Off
|
|
CHRRVN EQU 18 Reverse On
|
|
CHRUP EQU 145 Cursor Up
|
|
|
|
|
|
/* PETSCII Box Drawing Characters */
|
|
#define BOXBLC = 173 //Bottom Left Corner
|
|
#define BOXBRC = 189 //Bottom Right Corner
|
|
#define BOXBCT = 177 //Bottom to Cetter Tee
|
|
#define BOXCTR = 123 //Center Cross
|
|
#define BOXHLN = 96 //Horizontal Line
|
|
#define BOXLCT = 171 //Left To Center T
|
|
#define BOXRCT = 179 //Right To Center T
|
|
#define BOXTLC = 176 //Top Left Corner
|
|
#define BOXTRC = 174 //Top Right Corner
|
|
#define BOXTCT = 178 //Top to Center T
|
|
#define BOXVLN = 98 //Verical Line
|
|
|
|
/* Set Background Color *
|
|
* Args: c - color */
|
|
char scrbkg();
|
|
|
|
/* Clear Screen*/
|
|
char scrclr();
|
|
|
|
/* Move Cursor Down */
|
|
char scrdwn();
|
|
|
|
/* Move Cursor Home */
|
|
char scrhom();
|
|
|
|
/* Move Cursor Left */
|
|
char scrlft();
|
|
|
|
/* Move Cursor *
|
|
* Args: col - column *
|
|
* row - row */
|
|
char scrmov();
|
|
|
|
/* Get Cursor Position *
|
|
* Returns: column, row */
|
|
char scrpos();
|
|
|
|
/* Move Cursor Right */
|
|
char scrrgt();
|
|
|
|
/* Get Screen Size *
|
|
* Returns: width, height */
|
|
char scrsiz();
|
|
|
|
/* Set Text Color *
|
|
* Args: c - color */
|
|
char scrtxt();
|
|
|
|
/* Move Cursor Upt */
|
|
char scrup();
|