; TBM
; Claudio
;
START  JMN   3     <20
       SUB  #8      19
       DJN   -2     18
       JMN   0     <17
       ADD  #15     16
       MOV   17    <15
       DJN   -1     15
       MOV  #5      13
       MOV  #2000   13
       MOV   12    @11
       ADD  #1      10
       MOV   11    @9
       ADD  #3      8
       DJN   -4     8
       MOV  #7      6
       MOV  #2000   6
       JMP   -7
       DAT          0
       DAT          0
       DAT          0
       DAT          8000
       DAT          20
       SPL          0
