Hello, World! в Assembler

/ Hello World на ассемблере для DEC PDP-8
*200
hello,    cla cll
        tls            / tls устанавливает флаг печати.
        tad charac    / создает индексный регистр
        dca ir1        / для получения символов
        tad m6        / настроить счетчик для
        dca count    / ввода символов.
next,    tad i ir1    / получить символ.
        jms type    / его тип.
        isz count    / сделать что нибудь еще?
        jmp next    / нет, ввести другой символ 
        hlt

type,    0            / подпрограмма type
        tsf
        jmp .-1
        tls
        cla
        jmp i type
charac,    .            / используется в качестве начального значения ir1.
        310 / H
        305 / E
        314 / L
        314 / L
        317 / O
        254 / ,
        240 /
        327 / W
        317 / O
        322 / R
        314 / L
        304 / D
        241 / !
m6,        -15
count,    0
ir1 = 10
$