puts    equ     9
        org     100h
spam:   mvi     c,puts
        lxi     d,msg
        call    5
        jmp     spam
msg:    db      'SPAM',13,10,'$'