BITS 16

boot:
    cli

    mov     ax, 07C0h
    mov     ds, ax
    mov     gs, ax
    mov     fs, ax
    mov     es, ax

    mov     ax, 07E0h
    mov     ss, ax
    mov     bp, ax
    mov     sp, 0FFh

    sti

 ;;;;;;;;;;;;;;; main(i){for(;i<101;i++)printf("Fizz\n\0Fizzz\bBuzz\n\0%d\n"+(!(i%5)^!!(i%3)*3)*6,i);}

fizzbuzz:                       ;(!(i%5)^!!(i%3)*3)*6
    xor     ax, ax

    mov     al, byte [i]        ;i%5
    mov     dl, 05h
    div     byte dl

    test    ah, 07h             ;!
    pushf
    pop     cx
    and     cx, 40h
    shr     cx, 06h

    xor     ah, ah
    mov     al, byte [i]        ;i%3
    mov     dl, 03h
    div     byte dl

    test    byte ah, 03h        ;!!
    push    cx
    pushf
    pop     cx
    and     cx, 40h
    shr     cx, 06h
    xor     cx, 01h
    mov     al, cl
    pop     cx

    mov     dx, 03h             ;*3
    mul     dx
    xor     al, cl              ;^
    mov     dl, 07h             ;*7 instead of 6 for extra char byte CrLf
    mul     dl

    xchg    bl, al
    lea     si, [bx + fbf]
    cmp     bl, 15h
    jnz     do_print

    mov     al, byte [i]        ;int to ascii
    mov     dl, 0Ah
    div     byte dl
    add     al, 30h
    add     ah, 30h
    mov     [si], ax

do_print:
    mov     cl, 01h
    call    print_string


    inc     byte [i]
    cmp     byte [i], 65h
    jnz     fizzbuzz

    cli
    hlt

    i   db 01h
    fbf db 'Fizz',13,10,0,'Fizzz',0x8,0x7,'Buzz',13,10,0, 0,0,13,10,0

print_string:
    mov     ah, 0Eh

.repeat:
    lodsb
    cmp     al, 0
    je      .done
    int     10h
    jmp     .repeat

.done:
    ret


    times 510-($-$$) db 0   ; pad
    dw 0xAA55               ; boot sig

    times 1024*1024 db 0       ;for Bochs