编译器 pascal写成 V11

和V10比较处理了，换行这样难以处理的情况，用next()来取代look的处理。 eg, PROGRAM VAR A，C，D BEGIN IF A>C D=1 ENDIF END. 输出是： code segment byte public code A dw 0 C dw 0 D dw 0 main: mov ax, A push ax mov ax, C pop bx cmp ax, bx pop bx cmp ax, bx xor ax, ax jle L0 mov ax, -1 L0: or ax, ax je L1 mov ax, 1 lea bx, D mov [bx], ax L1: code ends end main