; bare-bones test to locate, activate, and write to a display

HWN [num]
:loop
    SUB [num], 1
    HWQ [num]
    IFE B, 0x7349
        SET PC, found
    SET PC, loop

:found
    ; located the first display, power it on
    SET B, 0x8000
    SET A, 0
    HWI [num]

    ; set border
    SET B, 0x0003
    SET A, 3
    HWI [num]

    ; show some text
    SET I, string
    SET J, 0x8000
    ; color
    SET Z, 0x1e00
:print
    BOR [i], Z
    STI [j], [i]
    IFN [I], 0
        SET PC, print

:wait
    SET PC, wait

:num dat 0x0000
:string dat "yerf!", 0