0001   0000             CLRCODE:   .EQU     $10
0002   0000             MAINDISP:  .EQU     $F031
0003   0000             
0004   0000             
0005   4000                        .ORG $4000
0006   4000 90 10                  LDA     CLRCODE
0007   4002 99 F0 31               STA     [MAINDISP]
0008   4005 A0 00 00               BLDX    0
0009   4008 92 40 15    LOOP:      LDA     [MESSAGE,X]
0010   400B D1 40 0B               JZ      [$]
0011   400E 99 F0 31    STORE:     STA     [MAINDISP]
0012   4011 82                     INCX
0013   4012 C1 40 08               JMP     [LOOP]
0014   4015             
0015   4015 48 65 6C 6C MESSAGE:  .BYTE "Hello World!", 0
0015   4019 6F 20 57 6F 
0015   401D 72 6C 64 21 
0015   4021 00 
0016   4022                       .END
0017   4022             
tasm: Number of errors = 0