Программирование на УКНЦ как?

[shattered]

Что-то получается. Если так пойдет и дальше, продолжим в ветке про кросс-системы :-)

var s: [uint8] := "ello, world!";
var c: uint8 := 'H';

 @ASm ".ttyout", c;
 @ASm ".print", s;

->

        .mcall  .exit, .print, .ttyout
        .radix  10

start: 
        call    f41
exit:
        .exit
        .even
c28xc0:
        .byte   101,108,108,111,44,32,119,111,114,108,100,33,0

        ; __main workspace at ws+0 length ws+3
        .even
f41:
        MOV     #c28xc0, R4
        MOV     R4, ws+0
        MOVB    #+72, r4
        MOVB    r4, ws+2
        .ttyout ws+2 
        .print ws+0 
endf41:
        RTS     PC

        .even
ws:     .blkb   3
        .end    start