; Assembler test for DCPU
; by Markus Persson


SET C, bootinfo
JSR cout


:cout
            SET I, 0
            SET J, 0
            SET B, 0xf100
:next
            SET A, (C+I)
            IFE A, 0
                SET PC, end
            IFG A, 0xff
                SET PC, color
            BOR A, B
            SET (0x8000+J), A
            ADD I, 1
            ADD J, 1
            SET PC, next

:color
            SET B, A
            AND B, 0xff
            SHL B, 8
            IFG A, 0x1ff
                ADD B, 0x80
            ADD I, 1
            SET PC, next


:bootinfo
            DAT 0x170, "Hello ", 0x2e1, "world", 0x170, ", how are you?", 0

:end
            SET PC, end