const SOURCE:&'static str =
// "
// %SCREEN-SHUNT 00;
// %SCREEN-DRAW 00;

// @draw_horizontal_line  ( len* clr -- )
// (1)  PSHr                       ( len*    | clr )
// (4)  PSH:41 STD:SCREEN-SHUNT    ( len*    | clr )
//       &loop
// (2)   SKDr:SCREEN-DRAW          ( len*    | clr )
// (4)   DEC* JKC*:~loop           ( len*    | clr )
// (2)  STD:SCREEN-SHUNT
// (3)  POP POPr JMPr*
// ";

"
%RED 1234;
%GREEN 5678 @test;
%BLUE 9ABC;

@start
    RED
    start
    GREEN
    BLUE
    $4
    @end
";

use bedrock_asm::*;

fn main() {
    println!("------- PROGRAM START -------");
    for line in SOURCE.lines() {
        println!("{line}");
    }
    println!("-------- PROGRAM END --------");
    println!();

    parse(SOURCE);
}