+ jmp mainloop
+
+textout:
+ mov al, [si]
+ and al, al
+ jz .done
+ mov ah, 0eh
+ mov bx, 82
+ int 10h
+ inc si
+ jmp textout
+.done: ret
+
+
+tintr:
+ pusha
+ mov ax, [nticks]
+ inc ax
+ mov [nticks], ax
+
+ mov bx, [musptr]
+ cmp bx, 22*3
+ jnz .skiploop
+ xor bx, bx
+ mov [tmoffs], ax
+.skiploop:
+ xor cx, cx
+ mov cl, [music + bx]
+ shl cx, 4
+ sub ax, [tmoffs]
+ cmp ax, cx
+ jb .end
+
+ mov ax, [music + 1 + bx]
+ add bx, 3
+ mov [musptr], bx
+ test ax, ax
+ jz .off
+
+ mov bx, ax
+ shr bx, 9
+ sub bx, 13
+ imul bx, bx, 3
+ mov byte [cmap + bx], 3fh
+ mov word [cmap + bx + 1], 2f2fh
+
+ mov bx, ax
+ stimer 2, bx
+ spkon
+ jmp .end
+
+.off: spkoff
+
+.end: test word [nticks], 1
+ jnz .eoi
+ mov cx, 16 * 3
+ mov si, cmap
+.fadecol:
+ lodsb
+ test al, al
+ jz .skipdec
+ dec al
+ mov [si-1], al
+.skipdec:
+ dec cx
+ jnz .fadecol
+
+.eoi: mov al, 20h
+ out 20h, al
+ popa
+ iret
+
+str1: db 'Michael ',3,' Athena',0
+
+music: dd 0a2f8f00h, 0a11123a1h, 23a11423h, 28000023h, 0be322f8fh, 25c0391fh
+ dd 4b23a13ch, 8f500000h, 23a15a2fh, 641ab161h, 476e1ab1h, 1fbe751ch
+ dd 8223a178h, 0a18925c0h, 1fbe8c23h, 0aa0000a0h
+ dw 0
+
+w5: dw 5
+w30: dw 30
+
+ times 446-($-$$) db 0
+ dd 00212080h
+ dd 0820280ch
+ dd 00000800h
+ dd 0001f800h