.program vga_free_run

entrypoint_vga_free_run:
    pull
loop:
    out pins, 1 [2]
    jmp loop

.program vga_sync

entrypoint_vga_sync:
loop:
    pull
    mov x, osr
    set pins, 0
hsync_pulse:
    jmp x-- hsync_pulse

    pull
    mov x, osr
    set pins, 1
hsync_idle:
    jmp x-- hsync_idle
    jmp loop