295 lines
8.8 KiB
Plaintext
295 lines
8.8 KiB
Plaintext
global str screen_namespace = "/dev/screen/0";
|
|
global str mouse_namespace = "/dev/mouse/0";
|
|
global byte BLACK = 0;
|
|
global byte WHITE = 255;
|
|
global byte DARK_GRAY = 73;
|
|
global byte GRAY = 146;
|
|
global byte LIGHT_GRAY = 182;
|
|
global byte CHARCOAL = 36;
|
|
global byte DARK_RED = 128;
|
|
global byte RED = 224;
|
|
global byte DARK_YELLOW = 144;
|
|
global byte YELLOW = 252;
|
|
global byte DARK_TEAL = 9;
|
|
global byte TEAL = 18;
|
|
global byte DARK_GREEN = 12;
|
|
global byte GREEN = 16;
|
|
global byte LIME = 28;
|
|
global byte LIGHT_CYAN = 159;
|
|
global byte NAVY = 2;
|
|
global byte BLUE = 3;
|
|
global byte DEEP_SKY_BLUE = 10;
|
|
global byte LIGHT_BLUE = 19;
|
|
global byte PURPLE = 131;
|
|
global byte LIGHT_PURPLE = 147;
|
|
global byte DARK_MAGENTA = 130;
|
|
global byte MAGENTA = 227;
|
|
global byte PLUM = 129;
|
|
global byte PINK = 226;
|
|
global byte SADDLE_BROWN = 72;
|
|
global byte PERU = 141;
|
|
global byte SIENNA = 136;
|
|
global byte ORANGE = 241;
|
|
global byte DARK_ORANGE = 208;
|
|
global byte GOLD = 244;
|
|
global byte SELECTED_COLOR = 255;
|
|
|
|
function main ()
|
|
// Open screen
|
|
plex screen $0;
|
|
str screen_name $18;
|
|
int mode $11;
|
|
nat screen_buffer $21;
|
|
|
|
// use load immediate because it a pointer to a string, not a value
|
|
load_address screen_namespace -> screen_name;
|
|
load_immediate 0 -> mode;
|
|
syscall OPEN screen_name mode screen; // Screen screen = open("/dev/screen/0", 0);
|
|
|
|
nat width $20;
|
|
nat size $22;
|
|
load_offset_32 screen 8 -> width; // load width
|
|
load_offset_32 screen 12 -> size; // load size
|
|
load_immediate 16 -> $1; // offset for screen buffer
|
|
add_nat screen $1 -> screen_buffer;
|
|
|
|
// open mouse
|
|
plex mouse $15;
|
|
str mouse_name $16;
|
|
load_address mouse_namespace -> mouse_name;
|
|
syscall OPEN mouse_name mode mouse; // Mouse mouse = open("/dev/mouse/0", 0);
|
|
|
|
byte color $1;
|
|
nat x_pos $12;
|
|
nat y_pos $13;
|
|
|
|
load_absolute_8 BLACK -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 1 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 WHITE -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 1 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 CHARCOAL -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 21 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 DARK_GRAY -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 21 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 RED -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 41 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 ORANGE -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 41 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 YELLOW -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 61 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 GREEN -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 61 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 BLUE -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 81 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
load_absolute_8 PURPLE -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 81 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
|
|
// screen.draw
|
|
syscall WRITE screen screen_buffer size;
|
|
|
|
nat m_zero $11;
|
|
|
|
loop draw_loop
|
|
// load mouse click data
|
|
syscall REFRESH mouse;
|
|
|
|
byte left_down $9;
|
|
load_offset_8 mouse 16 -> left_down; // load btn1 pressed
|
|
|
|
jump_eq_nat draw_loop left_down m_zero;
|
|
|
|
nat mouse_x $7;
|
|
nat mouse_y $8;
|
|
load_offset_32 mouse 8 -> mouse_x; // load x
|
|
load_offset_32 mouse 12 -> mouse_y; // load y
|
|
|
|
nat box_size $14;
|
|
load_immediate 20 -> box_size;
|
|
|
|
// first row
|
|
load_absolute_8 BLACK -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 1 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 WHITE -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 1 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 CHARCOAL -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 21 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 DARK_GRAY -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 21 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 RED -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 41 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 ORANGE -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 41 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 YELLOW -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 61 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 GREEN -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 61 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 BLUE -> color;
|
|
load_immediate 1 -> x_pos;
|
|
load_immediate 81 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
load_absolute_8 PURPLE -> color;
|
|
load_immediate 21 -> x_pos;
|
|
load_immediate 81 -> y_pos;
|
|
call draw_outlined_swatch (screen_buffer color x_pos y_pos width);
|
|
call set_color_if_clicked (mouse_x mouse_y x_pos y_pos color box_size);
|
|
|
|
syscall WRITE screen screen_buffer size;
|
|
|
|
byte selected_color $25;
|
|
load_absolute_8 SELECTED_COLOR -> selected_color;
|
|
|
|
nat brush_size $19;
|
|
load_immediate 5 -> brush_size;
|
|
|
|
call draw_box (screen_buffer width selected_color mouse_x mouse_y brush_size brush_size);
|
|
|
|
jump draw_loop;
|
|
|
|
// Flush and exit
|
|
exit 0;
|
|
|
|
function set_color_if_clicked (int click_x $0, int click_y $1,
|
|
int box_x $2, int box_y $3, byte check_color $4, int bsize $5)
|
|
|
|
// Compute right
|
|
int right_edge $6;
|
|
add_int box_x bsize -> right_edge;
|
|
|
|
// Compute bottom = box_y + bsize
|
|
int bottom_edge $7;
|
|
add_int box_y bsize -> bottom_edge;
|
|
|
|
// Bounds check: x in [box_x, right] and y in [box_y, bottom]
|
|
jump_lt_int fail click_x box_x;
|
|
jump_gt_int fail click_x right_edge;
|
|
jump_lt_int fail click_y box_y;
|
|
jump_gt_int fail click_y bottom_edge;
|
|
|
|
store_absolute_8 check_color -> SELECTED_COLOR;
|
|
|
|
else fail
|
|
return;
|
|
|
|
function draw_outlined_swatch(nat dos_base $0,
|
|
byte swatch_color $1, int x $2, int y $3, int dos_width $4)
|
|
|
|
// Constants
|
|
nat background_color $5;
|
|
load_absolute_8 GRAY -> background_color;
|
|
|
|
byte dos_selected_color $10;
|
|
load_absolute_8 SELECTED_COLOR -> dos_selected_color;
|
|
|
|
jump_eq_int set_selected swatch_color dos_selected_color;
|
|
jump end_set_selected;
|
|
do set_selected
|
|
load_absolute_8 DARK_GRAY -> background_color;
|
|
else end_set_selected
|
|
|
|
nat outline_size $6;
|
|
load_immediate 20 -> outline_size;
|
|
|
|
nat fill_size $7;
|
|
load_immediate 17 -> fill_size;
|
|
|
|
nat dos_offset $8;
|
|
load_immediate 2 -> dos_offset;
|
|
|
|
call draw_box (dos_base dos_width background_color x y outline_size outline_size);
|
|
|
|
add_int x dos_offset -> $9; // x + 2
|
|
add_int y dos_offset -> $10; // y + 2
|
|
|
|
call draw_box (dos_base dos_width swatch_color $9 $10 fill_size fill_size);
|
|
|
|
return;
|
|
|
|
function draw_box (nat db_base $0, nat screen_width $1,
|
|
byte box_color $2, nat x_start $3, nat y_start $4,
|
|
nat db_width $5, nat height $6)
|
|
|
|
// Compute start address: base + y*640 + x
|
|
nat offset $15;
|
|
mul_int y_start screen_width -> offset;
|
|
add_int offset x_start -> offset;
|
|
add_nat offset db_base -> offset;
|
|
nat fat_ptr_size $25;
|
|
load_immediate 4 -> fat_ptr_size;
|
|
add_nat offset fat_ptr_size -> offset; // need to add offset for fat pointer size
|
|
|
|
int i $30;
|
|
load_immediate 1 -> i;
|
|
|
|
int zero $26;
|
|
load_immediate 0 -> zero;
|
|
|
|
loop draw_box_outer
|
|
memset_8 box_color db_width -> offset; // draw row
|
|
add_int offset screen_width -> offset; // next row += 640
|
|
sub_int height i -> height; // decrement row count
|
|
jump_gt_int draw_box_outer height zero;
|
|
return;
|