Input olarak harf alıp bunu memoryde saklayan daha sonra enter a basılması ile polindrom olup olmadıgını kontrol eden program PHP Code:
org 100hmov AX, 00hmov DS, AX return:mov BX, 00hinput: mov AX, 00hint 16hmov [1000h+BX], ALmov AH, 0Ehint 10h inc BLcmp AL, 0Dhjne input dec BL ;right to left mov CX, BXdec BL ;right to leftmov DI, 00h ;left to rightcheck:mov AH, [1000h+DI]mov AL, [1000h+BX]cmp AH, ALjne writeNot:dec BLinc DIcmp BX, DIje writeloop check write:mov AH, 0Eh;mov AL, 0Ah; New Lineint 10h mov AL, 0Dh; Move Line to Left int 10h mov AL, 50h ;Pint 10h mov AL, 41h ;Aint 10h mov AL, 4Ch ;Lint 10h mov AL, 49h ;Iint 10h mov AL, 4Eh ;Nint 10h mov AL, 44h ;Dint 10h mov AL, 52h ;Rint 10h mov AL, 4Fh ;Oint 10h mov AL, 4Dh ;Mint 10h mov AL, 49h ;Iint 10h mov AL, 4Bh ;Kint 10h jmp halt:;;;;;;;;;;;;;;;;;;;;;;;;;writeNot:mov AH, 0Eh;mov AL, 0Ah; New Lineint 10h mov AL, 0Dh; Move Line to Left int 10h mov AL, 4Eh ;Nint 10h mov AL, 4Fh ;Oint 10h mov AL, 54h ;Tint 10h mov AL, 20h ;SPACEint 10hmov AL, 50h ;Pint 10h mov AL, 41h ;Aint 10h mov AL, 4Ch ;Lint 10h mov AL, 49h ;Iint 10h mov AL, 4Eh ;Nint 10h mov AL, 44h ;Dint 10h mov AL, 52h ;Rint 10h mov AL, 4Fh ;Oint 10h mov AL, 4Dh ;Mint 10h mov AL, 49h ;Iint 10h mov AL, 4Bh ;Kint 10h halt: mov AL, 0Ah; New Lineint 10h mov AL, 0Dh; Move Line to Left int 10hjmp returnhlt

__________________