printf    PROTO C :dword, :vararg

.data
printResult   byte    'result is % d, loop tot is %d', 0ah, 0

.code
start    proc
     push    eax
     push    ebx
     push    ecx
     push    edi
     push    esi
     xor     esi,    esi
     mov     ebx,    16
     mov     ecx,    10
a10:
     inc     esi
     mov     eax,    ebx
     mul     eax
     mov     edi,    eax
     mov     eax,    ecx
     mul     ecx
     sub     edi,    eax
     cmp     edi,    168
     jb     addEbx
     ja     addEcx
     sub     eax,    100
     jmp     showResult
addEbx:
     inc     ebx
     jmp     a10
addEcx:
     inc     ecx
     jmp     a10
showResult:
     invoke    printf,    offset printResult, eax, esi
     pop     eax
     pop     ebx
     pop     ecx
     pop     edi
     pop     esi
     ret
start    endp
end     start

printf    PROTO C :dword, :vararg

.data
showNum    byte    '%d', 0
newLine    byte    0ah, 0
iArray    dword    1, 2, 3, 4
COUNT    EQU     ($ - iArray) / 4

.code
start    proc
     push    ebx
     push    esi
     push    eax
     
     mov     esi,    0
     mov     ebx,    esp
L1:     
     push    esi
     cmp     esi,    COUNT
     jz     endShow
     xor     esi,    esi
L2: 
     cmp     [ebx - 4],   esi
     jz     addEsiL1
     push    esi
     xor     esi,    esi
L3:
     cmp     [ebx - 4],   esi
     jz     addEsiL2
     cmp     [ebx - 8],   esi
     jz     addEsiL2
     mov     eax,    [ebx - 4]
     mov     eax,    iArray[eax * 4]
     invoke    printf,    offset showNum, eax 
     mov     eax,    [ebx - 8]
     mov     eax,    iArray[eax * 4]
     invoke    printf,    offset showNum, eax 
     mov     eax,    iArray[esi * 4]
     invoke    printf,    offset showNum, eax
     invoke    printf,    offset newLine      
     inc     esi
     cmp     esi,    COUNT
     jnz     L3
     pop     esi
     inc     esi
     jmp     L2     
addEsiL1:    
     inc     esi
     cmp     esi,    COUNT
     jnz     L2
     jmp     resetL1
addEsiL2:    
     inc     esi
     cmp     esi,    COUNT
     jnz     L3
     jmp     resetL2
resetL1:    
     pop     esi
     inc     esi
     cmp     esi,    COUNT
     jz     endShow
     jmp     L1
resetL2:    
     pop     esi
     inc     esi
     cmp     esi,    COUNT
     jz     resetL1
     jmp     L2
endShow:
     pop     eax
     pop     esi
     pop     ebx
     ret
start    endp
end     start

printf   PROTO C :dword, :vararg
scanf   PROTO C :dword, :vararg

.data
outputStart  byte   'input ten num', 0ah, 0
outputCount  byte   'input the %d num', 0ah, 0
input   byte   '%d', 0
outputResult byte   'the max num is %d', 0ah, 0
iArray   dword   5 dup (?) 

.code
start   proc
    mov    ebx,   offset iArray
    mov    ecx,   5
    xor    esi,   esi
startInput:                 
    invoke   printf,   offset outputCount, esi
    invoke   scanf,   offset input, ebx
    add    ebx,   4
    inc    esi
    cmp    esi,   5
    jnz    startInput
    
    mov    esi,   1
    mov    eax,   dword ptr iArray
    mov    ebx,   offset iArray
getMax:
    cmp    eax,   dword ptr [ebx + esi * 4]  
    jl    updateMax
    inc    esi
    cmp    esi,   5
    jz    output
    jmp    getMax
updateMax:  
    mov    eax,   dword ptr [ebx + esi * 4]
    inc    esi
    cmp    esi,   5
    jnz    getMax
output:
    invoke   printf,   offset outputResult, eax
    ret
start   endp
end    start  

printf   PROTO C :dword, :dword

.data
result   byte   'the result is %d', 0ah, 0

.code
start   proc
    mov    ecx,   100
    xor    eax,   eax
addNum:  
    add    eax,   ecx
    loop   addNum
    invoke   printf, offset result, eax
    ret
start   endp
end    start