asm zh

.data
    igen BYTE "Palindroma",0ah, 0
    nem BYTE " nem palind",0ah, 0

.code
main PROC
    CALL faktor
    CALL WriteInt
    INVOKE palindroma, offset string
    INVOKE Exitprocess, 0
faktor PROC
    MOV     EAX, B
    ADD     EAX, 0

    MOV ECX, EAX
    MOV EAX, 1
////////////////
main PROC
paradigma PROC, strptr:DWORD
;páros esetén mindent csere
;páratlan esetén középsőt nem

;eloszor vegig olvassuk a stringet
    MOV     ESI, strptr

vegkeres: ;veget akarja megtalalni a stringnek
    CMP byte ptr [ESI], 0
    JE tovabb
    ;kulonben
    INC ESI
    JMP vegkeres
tovabb:
    DEC ESI

    MOV EDI, strptr
hasonlit:
    MOV AL, DS:[EDI]
    CMP AL, [ESI]
    JNE nem_palind
    INC EDI
    DEC ESI
    CMP EDI, ESI
    JL hasonlit

    MOV EDX, offset igen
    CALL WriteString
    RET ; Vagy: JMP vege

nem_palind:
    MOV EDX, offset nem
    CALL WriteString



    RET
paradigma ENDP