:'(

gistfile1.dasm16

JSR init_hardware
JSR main

:monitor
        DAT 0x0000

:init_hardware
        HWN I
:hw_loop
        SUB I, 1
        HWQ I
        
        IFE B, 0x7349
        IFE A, 0xF615
        SET [monitor], I
        
        IFN I, 0
        SET PC, hw_loop
        
:init_monitor
        SET A, 0
        SET B, 0xF000
        HWI [monitor]

        SET PC, POP

:main
        SET [0xF000], 50
        SET PC, main