uxn-scm/hello.tal

|0000
    @x $1 @y $1 @z $1

|0100
    ;on-input #10 DEO2
    #0123 INC2 #45 INC POP2 POP
    LIT "h #18 DEO
    LIT "e #18 DEO
    LIT "l #18 DEO
    LIT "l #18 DEO
    LIT "o #18 DEO
    #0a18 DEO

    ;skip1 JMP2 LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO
    @skip1 LIT "o #18 DEO LIT "k #18 DEO LIT "1 #18 DEO #0a18 DEO

    ,skip2 JMP LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO
    @skip2 LIT "o #18 DEO LIT "k #18 DEO LIT "2 #18 DEO #0a18 DEO

    #01 ;skip3 JCN2 LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO
    @skip3 LIT "o #18 DEO LIT "k #18 DEO LIT "3 #18 DEO #0a18 DEO

    #01 ,skip4 JCN LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO
    @skip4 LIT "o #18 DEO LIT "k #18 DEO LIT "4 #18 DEO #0a18 DEO

    #01 ?{ LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO }
    LIT "o #18 DEO LIT "k #18 DEO LIT "5 #18 DEO #0a18 DEO

    ;print-ok JSR2 LIT "6 #18 DEO #0a18 DEO

    print-ok LIT "7 #18 DEO #0a18 DEO

    LIT "o .x STZ LIT "k .y STZ LIT "8 .z STZ
    .x LDZ #18 DEO .y LDZ #18 DEO .z LDZ #18 DEO #0a18 DEO

    #0a DUP INC MUL INC #18 DEO LIT "k #18 DEO LIT "9 #18 DEO #0a18 DEO

    !skip10 LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO
    @skip10 LIT "o #18 DEO LIT "k #18 DEO LIT "1 #18 DEO LIT "0 #18 DEO #0a18 DEO

    LIT "k LIT "o DUP2 NIP2 #18 DEO #18 DEO LIT "1 #18 DEOk DEO #0a18 DEO

    !&skip12 LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO
    &skip12 LIT "o #18 DEO LIT "k #18 DEO LIT "1 #18 DEO LIT "2 #18 DEO #0a18 DEO

    LIT "o .x STZ LIT "k .y STZ
    .x LDZk #18 DEO INC LDZ #18 DEO LIT "1 #18 DEO LIT "3 #18 DEO #0a18 DEO

    LIT "o .x STZ LIT "k .y STZ
    ;x LDAk #18 DEO INC2 LDA #18 DEO LIT "1 #18 DEO LIT "4 #18 DEO #0a18 DEO

    ;string/c1 LDA #18 DEO ;string/c2 LDA #18 DEO LIT "1 #18 DEO LIT "9 #18 DEO #0a18 DEO

    ,string/c1 LDR #18 DEO ,string/c2 LDR #18 DEO LIT "2 #18 DEO LIT "0 #18 DEO #0a18 DEO

    ( #830f DEO )
    BRK

@string "abc &c1 "o &c2 "k "xyz

@print-ok
    LIT "o #18 DEO LIT "k #18 DEO JMP2r

@on-input
    #17 DEI LIT "0 ADD #18 DEO
    #12 DEI #18 DEO
    BRK