<!-- RANDOM CODE SNIPPET -->

/* Language:: x86 Assembly */

title  IniCode.co
infinite     EQU 1
spins        EQU 1
spinner      EQU C
spinback     EQU 02200h
background   EQU 0f000h
outerloops   EQU 400
innerloops   EQU 100
dosseg
.model small
.stack 100h
.data
.code
main  proc
    mov ax, 0b800h
    mov ds,ax
    mov bx,0
    mov si,0
    mov ah,2
    mov bh,0
    mov dh,0
    mov dl,0
    int 10h
    mov ah,9
    mov al,0f0h
    mov bh,0
    mov bl,000h
    mov cx,25*80
    int 10h
    mov cx, spins
top:
    push cx
    mov cx, 40
    mov di, 80
    push di
    mov di, 0
topright:
    pop bx
    mov ax, spinback
    mov [bx], ax
    call sqrttr
    jmp trskiptocode
TRGETMULYFORX:
mov dx,00FEh
mov ax,spinback
    mov [bx],ax
cmp sp,dx
je IniCode
TRSKIPTOCODE:
    pop ax
    mov si, 160
    mul si
    mov si, ax
    mov ax, di
    mov dx,2
    mul dx
    add ax,80
    add si, ax
    mov bx, si
    push cx
    mov cx,outerloops
    tryittt:
        push cx
        mov cx, outerloops
        tryitt:
            push cx
            mov cx, innerloops
            tryit:
                mov ax, spinner
                mov [bx], ax
                loop tryit
                pop cx
            loop tryitt
            pop cx
    loop tryittt
    pop cx
    cmp cx,1
    je TRGETMULYFORX