print mov dx, no Otherwise, print NOT OK. out: test cl, cl Interim digit should be zero at the end ret. out sub al, ' 0 ' Make ASCII digit mov ah, cl Table lookup, AH = interim digit aad AL += AH * 10 (such handy instructions the 8086 has) cs xlatb AL = CS:table mov cl, al CL = new interim digit jmp. dgt: lodsb Get next string byte test al, al If it is zero, we're done jz. damm: xor cl, cl Interim digit starts out at 0 mov bx. Returns with zero flag set if it matches. text org 100 h jmp demo Given a 0-terminated ASCII string containing digits in, see if the check digit matches.

Lxi d,82h Command line argument, skipping first spaceĬpu 8086 bits 16 section.

ĝemo code: see if the argument on the CP/M command line Mov a,c Calculate C*10 (interim digit row index)Īdd l Table lookup (assuming H doesn't change, i.e. Jnz $+5 If not, go look up interim digitĬmp c But if so, see if the interim digit is also zero Returns with zero flag setĭamm: mvi c,0 Interim digit in C, starts off at 0. Given an 0-terminated ASCII string containing digits in , 68.1 Functional, (tail) recursive, concise and clean.

Xor checksum calculator excel