MYNOP=7000 / . = 200 FIELD 1 *400 hello, TAD message / Initialize message pointer DCA ptr loop, TAD I ptr / Get a character ISZ ptr SNA HLT / '\0' terminates the string TLS TSF JMP .-1 CLA JMP loop ptr, DATA . message,.+1 ASCII "Hello World",15,12,0 PAGE MYNOP DECIMAL 10 OCTAL 10;20 $