ONE

.model small
.stack 100h
.data
MA1 DB 6 DUP (03h,04h,05h,06h,07h,08h)
motek DB 1h
.code
start : mov ax,@data
        mov ds, ax
        mov bx, 100h
        mov ax, 100h
        mul bx

        proc no1
          mov cx, 6h
          mov ax, 0h
          check1:
              mov dh, [bx]
              check2:
                  sal dh,1h
                  jnc con
                  inc ax
              con:
              mov dl, 0h
              cmp dl, dh
              jnz check2
              inc bx
              loop check1
        ret
        endp no1
        proc no2
         ; bx = Array's address
         ; cx = How many numbers the array includes?
         mov ax, 0h
         mov si, 200h
         mov dh, 0FEh
         mov [si], dh
         mov dl, 05ch
         check3:

            mov dh,[bx]
             cmp dh,dl
             jnz con1
             mov dh, 01h
             mov [si],dh
             con1: inc bx

                  loop check3
        ret
        endp no2
        proc no3
          ; bx = Array's address
         ; cx = How many numbers the array includes?
         mov al,0h
         mov si,200h
         check:
            mov dh,[bx]
            mov dl, dh
            rol dh, 4h
            cmp dh,dl
            jnz con2
            inc al
            con2: inc bx
            loop check
         mov [si],al
            ret
        endp no3
        proc no4
         ; bx = Array's address
         ; cx = How many numbers the array includes?
         mov al, 0h
         mov si,200h
            check5:
              mov dh, [bx]
              ror dh, 1h
              jc con3
              inc al
              con3:
                rol dh,1h
                inc bx
                loop check5
            ret
        endp no4
        proc no5 ; Multiple
        mov al, 2h
        mul dh
        mov dh, al


            ret
        endp no5
        proc no6

          mov bx,offset MA1
          check6:
             mov dh,[bx]
             call no5
             mov [bx],dh
             inc bx
             loop check6

        ret
        endp no6

        fucking proc
           mov bp, sp ; Return Address
           mov ax, [bp+2] ; Value
           push bp ; Insert Start Address
           mov cx,8h
             doit: shl al,1h
                   mov bx,0h
                   jnc over
                   inc bx
                   over: push bx ; Push char
                   loop doit
           mov bx, 1h
           mov [si],bx
           after: mov bp, sp
                  add bp, 6h ; Beginning Value
           mov cx, 4h
           looping: mov ax, [bp]
                    mov dx, [bp+[si]]
                    cmp ax, dx
                    jnz not1
                    dec bp
                    add bx,2h
                    mov [si],bx
                    loop looping
           yep: ; YEP - this is a POLINDROM NUMBER
                mov ax,1h
                jmp ending
           not1: ; Not POLINDROM
                mov ax,0h
           ending: mov cx, 9h
                   clear : pop dx
                           loop clear
           mov bp, sp
           mov [bp+4], ax

             ret 2
            fucking endp
sof :   mov ax, 4c00h
        int 21h