#define PUSH_POP_OPT TRUE
/******************************************************************************/
/* */
/* Group 1 : load instructions */
/* */
/******************************************************************************/
C_loc ==> "mov ax, $1";
"push ax".
C_ldc ==> C_loc( $1>>16);
C_loc( $1).
C_lol ==> "push $1(bp)".
C_loe.. ==> "push ($1+$2)".
C_lil ==> "mov bx, $1(bp)";
"push (bx)".
C_lof ==> "pop bx";
"push $1(bx)".
C_lal ==> "lea ax, $1(bp)";
"push ax".
C_lae.. ==> "mov ax, $1+$2";
"push ax".
C_lxl
$1 == 0 ==> "push bp".
$1 == 1 ==> "push 4(bp)".
default ==> "mov cx, $1-1";
"mov bx, 4(bp)";
"1: mov bx, 4(bx)";
"loop 1b";
"push bx".
C_lxa
$1 == 0 ==> "lea ax, 4(bp)";
"push ax".
$1 == 1 ==> "mov ax, 4(bp)";
"add ax, 4";
"push ax".
default ==> "mov cx, $1-1";
"mov bx, 4(bp)";
"1: mov bx, 4(bx)";
"loop 1b";
"add bx, 4";
"push bx".
C_loi
$1 == 1 ==> "pop bx";
"xor ax, ax";
"movb al, (bx)";
"push ax".
$1 == 2 ==> "pop bx";
"push (bx)".
$1 == 4 ==> "pop bx";
"push 2(bx)";
"push (bx)".
default ==> "pop bx";
"mov cx, $1";
"call .loi".
C_los
$1 == 2 ==> "pop cx";
"pop bx";
"call .los".
default ==> arg_error( "C_los", $1).
C_los_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop cx";
"pop bx";
"call .loi".
C_ldl ==> "push $1+2(bp)";
"push $1(bp)".
C_lde.. ==> "push ($1+$2+2)";
"push ($1+$2)".
C_ldf ==> "pop bx";
"push $1+2(bx)";
"push $1(bx)".
C_lpi ==> "mov ax, $1";
"push ax".
/******************************************************************************/
/* */
/* Group 2 : store instructions */
/* */
/******************************************************************************/
C_stl ==> "pop $1(bp)".
C_ste.. ==> "pop ($1+$2)".
C_sil ==> "mov bx, $1(bp)";
"pop (bx)".
C_stf ==> "pop bx";
"pop $1(bx)".
C_sti
$1 == 1 ==> "pop bx";
"pop ax";
"movb (bx), al".
$1 == 2 ==> "pop bx";
"pop (bx)".
$1 == 4 ==> "pop bx";
"pop (bx)";
"pop 2(bx)".
default ==> "pop bx";
"mov cx, $1";
"call .sti".
C_sts
$1 == 2 ==> "pop cx";
"pop bx";
"call .sts".
default ==> arg_error( "C_sts", $1).
C_sts_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop cx";
"pop bx";
"call .sti".
C_sdl ==> "pop $1(bp)";
"pop $1+2(bp)".
C_sde.. ==> "pop ($1+$2)";
"pop ($1+$2+2)".
C_sdf ==> "pop bx";
"pop $1(bx)";
"pop $1+2(bx)".
/******************************************************************************/
/* */
/* Group 3 : integer arithmetic */
/* */
/******************************************************************************/
C_adi
$1 == 2 ==> "pop ax";
"pop bx";
"add ax, bx";
"push ax".
$1 == 4 ==> "pop ax";
"pop bx";
"pop cx";
"pop dx";
"add ax, cx";
"adc bx, dx";
"push bx";
"push ax".
default ==> "pop ax";
"mov cx, $1";
"call .adi";
"push ax".
C_adi_narg ==> "pop cx";
"pop ax";
"call .adi";
"push ax".
C_sbi
$1 == 2 ==> "pop bx";
"pop ax";
"sub ax, bx";
"push ax".
$1 == 4 ==> "pop ax";
"pop bx";
"pop cx";
"pop dx";
"sub cx, ax";
"sbb dx, bx";
"push dx";
"push cx".
default ==> "pop ax";
"mov cx, $1";
"call .sbi";
"push ax".
C_sbi_narg ==> "pop cx";
"pop ax";
"call .sbi";
"push ax".
C_mli
$1 == 2 ==> "pop ax";
"pop bx";
"mul bx";
"push ax".
$1 == 4 ==> "pop ax";
"pop dx";
"call .mli4";
"push dx";
"push ax".
default ==> arg_error( "C_mli", $1).
C_mli_narg ==> "pop ax";
"call .mli".
C_dvi
$1 == 2 ==> "pop bx";
"pop ax";
"cwd";
"idiv bx";
"push ax".
$1 == 4 ==> "call .dvi4";
"push dx";
"push ax".
default ==> arg_error( "C_dvi", $1).
C_dvi_narg ==> "pop ax";
"call .dvi".
C_rmi
$1 == 2 ==> "pop bx";
"pop ax";
"cwd";
"idiv bx";
"push dx".
$1 == 4 ==> "call .rmi4";
"push dx";
"push ax".
default ==> arg_error( "C_rmi", $1).
C_rmi_narg ==> "pop ax";
"call .rmi".
C_ngi
$1 == 2 ==> "pop ax";
"neg ax";
"push ax".
$1 == 4 ==> "pop bx";
"pop ax";
"neg ax";
"neg bx";
"sbb ax, 0";
"push ax";
"push bx".
default ==> "mov ax, $1";
"call .ngi".
C_ngi_narg ==> "pop ax";
"call .ngi".
C_sli
$1 == 2 ==> "pop cx";
"pop ax";
"sal ax, cl";
"push ax".
default ==> "mov ax, $1";
"call .sli".
C_sli_narg ==> "pop ax";
"call .sli".
C_sri
$1 == 2 ==> "pop cx";
"pop ax";
"sar ax, cl";
"push ax".
default ==> "mov ax, $1";
"call .sri".
C_sri_narg ==> "pop ax";
"call .sri".
/******************************************************************************/
/* */
/* Group 4 : Unsigned arithmetic */
/* */
/******************************************************************************/
C_adu ==> C_adi( $1).
C_adu_narg ==> C_adi_narg().
C_sbu ==> C_sbi( $1).
C_sbu_narg ==> C_sbi_narg().
C_mlu ==> C_mli( $1).
C_mlu_narg ==> C_mli_narg().
C_dvu
$1 == 2 ==> "pop bx";
"pop ax";
"xor dx, dx";
"div bx";
"push ax".
$1 == 4 ==> "call .dvu4";
"push dx";
"push ax".
default ==> "mov ax, $1";
"call .dvu".
C_dvu_narg ==> "pop ax";
"call .dvu".
C_rmu
$1 == 2 ==> "pop bx";
"pop ax";
"xor dx, dx";
"div bx";
"push dx".
$1 == 4 ==> "call .dvu4";
"push dx";
"push ax".
default ==> "mov ax, $1";
"call .rmu".
C_rmu_narg ==> "pop ax";
"call .rmu".
C_slu ==> C_sli( $1).
C_slu_narg ==> C_sli_narg().
C_sru
$1 == 2 ==> "pop cx";
"pop ax";
"shr ax, cl";
"push ax".
$1 == 4 ==> "pop cx";
"pop bx";
"pop ax";
"1 : shr ax, 1";
"rcr bx, 1";
"loop 1b";
"push ax";
"push bx".
default ==> arg_error( "C_sru", $1).
/******************************************************************************/
/* */
/* Group 5 : Floating point arithmetic */
/* */
/******************************************************************************/
C_adf
$1 == 4 ==> "call .adf4";
"pop bx";
"pop bx".
$1 == 8 ==> "call .adf8";
"add sp,8".
default ==> arg_error("C_adf", $1).
C_sbf
$1 == 4 ==> "call .sbf4";
"pop bx";
"pop bx".
$1 == 8 ==> "call .sbf8";
"add sp,8".
default ==> arg_error("C_sbf", $1).
C_mlf
$1 == 4 ==> "call .mlf4";
"pop bx";
"pop bx".
$1 == 8 ==> "call .mlf8";
"add sp,8".
default ==> arg_error("C_mlf", $1).
C_dvf
$1 == 4 ==> "call .dvf4";
"pop bx";
"pop bx".
$1 == 8 ==> "call .dvf8";
"add sp,8".
default ==> arg_error("C_dvf", $1).
C_ngf
$1 == 4 ==> "call .ngf4".
$1 == 8 ==> "call .ngf8".
default ==> arg_error("C_ngf", $1).
C_fif
$1 == 4 ==> C_lor((arith)1);
"call .fif4";
"pop bx".
$1 == 8 ==> C_lor((arith)1);
"call .fif8";
"pop bx".
default ==> arg_error("C_fif", $1).
C_fef
$1 == 4 ==> "mov ax,sp";
"sub ax,2";
"push ax";
"call .fef4".
$1 == 8 ==> "mov ax,sp";
"sub ax,2";
"push ax";
"call .fef8".
default ==> arg_error("C_fef", $1).
/******************************************************************************/
/* */
/* Group 6 : Pointer arithmetic */
/* */
/******************************************************************************/
C_adp
#ifndef PEEPHOLE_OPT
$1 == 0 ==> .
#endif
$1 == 1 ==> "pop ax";
"inc ax";
"push ax".
$1 == -1 ==> "pop ax";
"dec ax";
"push ax".
default ==> "pop ax";
"add ax, $1";
"push ax".
C_ads
$1 == 2 ==> "pop ax";
"pop bx";
"add ax, bx";
"push ax".
default ==> arg_error( "C_ads", $1).
C_ads_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop ax";
"pop bx";
"add ax, bx";
"push ax".
C_sbs
$1 == 2 ==> "pop bx";
"pop ax";
"sub ax, bx";
"push ax".
default ==> arg_error( "C_sbs", $1).
C_sbs_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop bx";
"pop ax";
"sub ax, bx";
"push ax".
/******************************************************************************/
/* */
/* Group 7 : Increment/decrement/zero */
/* */
/******************************************************************************/
C_inc ==> "pop ax";
"inc ax";
"push ax".
C_inl ==> "inc $1(bp)".
C_ine.. ==> "inc ($1+$2)".
C_dec ==> "pop ax";
"dec ax";
"push ax".
C_del ==> "dec $1(bp)".
C_dee.. ==> "dec ($1+$2)".
C_zrl ==> "mov $1(bp), 0".
C_zre.. ==> "mov ($1+$2), 0".
C_zer
$1 == 2 ==> "xor ax, ax";
"push ax".
$1 == 4 ==> "xor ax, ax";
"push ax";
"push ax".
$1 == 6 ==> "xor ax, ax";
"push ax";
"push ax";
"push ax".
$1 == 8 ==> "xor ax, ax";
"push ax";
"push ax";
"push ax";
"push ax".
$1 % 2 == 0 ==> "mov cx, $1/2";
"xor ax, ax";
"1: push ax";
"loop 1b".
default ==> arg_error( "C_zer", $1).
C_zrf ==> C_zer($1).
C_zer_narg ==> "pop cx";
"sar cx, 1";
"xor ax, ax";
"1: push ax";
"loop 1b".
/******************************************************************************/
/* */
/* Group 8 : Convert */
/* */
/******************************************************************************/
C_cii ==> "pop cx";
"pop dx";
"pop ax";
"call .cii";
"push ax".
C_cui ==> C_cuu().
C_ciu ==> C_cuu().
C_cuu ==> "pop cx";
"pop dx";
"pop ax";
"call .cuu";
"push ax".
C_cif ==> "call .cif".
C_cuf ==> "call .cuf".
C_cfi ==> "call .cfi";
"pop bx";
"pop cx";
"cmp bx,4";
"je 1f";
"add sp,cx";
"push ax";
"jmp 2f";
"1:add cx,4";
"add sp,cx";
"2:".
C_cfu ==> "call .cfu";
"pop bx";
"pop cx";
"cmp bx,4";
"je 1f";
"add sp,cx";
"push ax";
"jmp 2f";
"1:add cx,4";
"add sp,cx";
"2:".
C_cff ==> "pop ax";
"pop bx";
"cmp ax,bx";
"je 1f";
"cmp ax,4";
"je 2f";
"pop cx";
"pop bx";
"xor ax,ax";
"push ax";
"push ax";
"push bx";
"push cx";
"call .cff8";
"jmp 1f";
"2: call .cff4";
"pop bx";
"pop bx";
"1:".
/******************************************************************************/
/* */
/* Group 9 : Logical */
/* */
/******************************************************************************/
C_and
$1 == 2 ==> "pop ax";
"pop bx";
"and ax, bx";
"push ax".
$1 == 4 ==> "pop ax";
"pop bx";
"pop cx";
"pop dx";
"and ax, cx";
"and bx, dx";
"push bx";
"push ax".
default ==> "mov cx, $1";
"call .and".
C_and_narg ==> "pop cx";
"call .and".
C_ior
$1 == 2 ==> "pop ax";
"pop bx";
"or ax, bx";
"push ax".
$1 == 4 ==> "pop ax";
"pop bx";
"pop cx";
"pop dx";
"or ax, cx";
"or bx, dx";
"push bx";
"push ax".
default ==> "mov cx, $1";
"call .ior".
C_ior_narg ==> "pop cx";
"call .ior".
C_xor
$1 == 2 ==> "pop ax";
"pop bx";
"xor ax, bx";
"push ax".
$1 == 4 ==> "pop ax";
"pop bx";
"pop cx";
"pop dx";
"xor ax, cx";
"xor bx, dx";
"push bx";
"push ax".
default ==> "mov cx, $1";
"call .xor".
C_xor_narg ==> "pop cx";
"call .xor".
C_com
$1 == 2 ==> "pop ax";
"not ax";
"push ax".
$1 == 4 ==> "pop ax";
"pop bx";
"not ax";
"not bx";
"push bx";
"push ax".
default ==> "mov cx, $1";
"call .com".
C_com_narg ==> "pop cx";
"call .com".
C_rol
$1 == 2 ==> "pop cx";
"pop ax";
"rol ax, cl";
"push ax".
default ==> "mov cx, $1";
"call .rol".
C_rol_narg ==> "pop cx";
"call .rol".
C_ror
$1 == 2 ==> "pop cx";
"pop ax";
"ror ax, cl";
"push ax".
default ==> "mov cx, $1";
"call .ror".
C_ror_narg ==> "pop cx";
"call .ror".
/******************************************************************************/
/* */
/* Group 10 : Sets */
/* */
/******************************************************************************/
C_inn
$1 == 2 ==> "pop cx";
"pop ax";
"shr ax, cl";
"and ax, 1";
"push ax".
default ==> "pop ax";
"mov cx, $1";
"call .inn";
"push ax".
C_inn_narg ==> "pop cx";
"pop ax";
"call .inn";
"push ax".
C_set
$1 == 2 ==> "pop cx";
"mov ax, 1";
"shl ax, cl";
"push ax".
default ==> "pop ax";
"mov cx, $1";
"call .set".
C_set_narg ==> "pop cx";
"pop ax";
"call .set".
/******************************************************************************/
/* */
/* Group 11 : Array */
/* */
/******************************************************************************/
C_lar
$1 == 2 ==> "pop bx";
"pop ax";
"call .lar2".
default ==> arg_error( "C_lar", $1).
C_lar_narg ==> "call .ilar".
C_sar
$1 == 2 ==> "pop bx";
"pop ax";
"call .sar2".
default ==> arg_error( "C_sar", $1).
C_sar_narg ==> "call .isar".
C_aar
$1 == 2 ==> "pop bx";
"pop ax";
"pop cx";
"sub ax, (bx)";
"mul 4(bx)";
"add ax, cx";
"push ax".
default ==> arg_error( "C_aar", $1).
C_aar_narg ==> "call .iaar";
"push bx".
/******************************************************************************/
/* */
/* Group 12 : Compare */
/* */
/******************************************************************************/
C_cmi
$1 == 2 ==> /* bug : C_sbi( (arith) 2). */
"pop bx";
"pop cx";
"xor ax, ax";
"cmp cx, bx";
"je 2f";
"jl 1f";
"inc ax";
"jmp 2f";
"1: dec ax";
"2: push ax".
$1 == 4 ==> "call .cmi4";
"push ax".
default ==> arg_error( "C_cmi", $1).
C_cmu
$1 == 2 ==> C_cmp().
$1 == 4 ==> "call .cmu4";
"push ax".
default ==> arg_error( "C_cmu", $1).
C_cms
$1 == 2 ==> C_sbi( (arith) 2).
$1 == 4 ==> "pop ax";
"pop bx";
"pop cx";
"pop dx";
"sub cx, ax";
"sbb dx, bx";
"jne 1f";
"or dx, cx";
"1: push dx".
default ==> "mov cx, $1";
"call .cms";
"push cx".
C_cms_narg ==> "pop cx";
"call .cms";
"push cx".
C_cmp ==> "pop bx";
"pop cx";
"xor ax, ax";
"cmp cx, bx";
"je 2f";
"jb 1f";
"inc ax";
"jmp 2f";
"1: dec ax";
"2: push ax".
C_cmf
$1 == 4 ==> "call .cmf4";
"add sp,8";
"push ax".
$1 == 8 ==> "call .cmf8";
"add sp,16";
"push ax".
default ==> arg_error("C_cmf", $1).
C_tlt ==> "pop ax";
"xor bx, bx";
"test ax, ax";
"jge 1f";
"inc bx";
"1: push bx".
C_tle ==> "pop ax";
"xor bx, bx";
"test ax, ax";
"jg 1f";
"inc bx";
"1: push bx".
C_teq ==> "pop ax";
"xor bx, bx";
"test ax, ax";
"jne 1f";
"inc bx";
"1: push bx".
C_tne ==> "pop ax";
"xor bx, bx";
"test ax, ax";
"je 1f";
"inc bx";
"1: push bx".
C_tge ==> "pop ax";
"xor bx, bx";
"test ax, ax";
"jl 1f";
"inc bx";
"1: push bx".
C_tgt ==> "pop ax";
"xor bx, bx";
"test ax, ax";
"jle 1f";
"inc bx";
"1: push bx".
/******************************************************************************/
/* */
/* Group 13 : Branch */
/* */
/******************************************************************************/
C_bra ==> "jmp $1".
C_blt ==> "pop ax";
"pop bx";
"cmp bx, ax";
"jl $1".
C_ble ==> "pop ax";
"pop bx";
"cmp bx, ax";
"jle $1".
C_beq ==> "pop ax";
"pop bx";
"cmp bx, ax";
"je $1".
C_bne ==> "pop ax";
"pop bx";
"cmp bx, ax";
"jne $1".
C_bge ==> "pop ax";
"pop bx";
"cmp bx, ax";
"jge $1".
C_bgt ==> "pop ax";
"pop bx";
"cmp bx, ax";
"jg $1".
C_zlt ==> "pop ax";
"test ax, ax";
"jl $1".
C_zle ==> "pop ax";
"test ax, ax";
"jle $1".
C_zeq ==> "pop ax";
"test ax, ax";
"je $1".
C_zne ==> "pop ax";
"test ax, ax";
"jne $1".
C_zge ==> "pop ax";
"test ax, ax";
"jge $1".
C_zgt ==> "pop ax";
"test ax, ax";
"jg $1".
/******************************************************************************/
/* */
/* Group 14 : Procedure call instructions */
/* */
/******************************************************************************/
C_cai ==> "pop bx";
"call bx".
C_cal ==> "call $1".
C_lfr
$1 == 2 ==> "push ax".
$1 == 4 ==> "push dx";
"push ax".
$1 == 6 ==> "call .lfr6".
$1 == 8 ==> "call .lfr8".
default ==> arg_error( "C_lfr", $1).
C_ret
$1 == 0 ==> "mov sp, bp";
"pop bp";
"ret".
$1 == 2 ==> "pop ax";
"mov sp, bp";
"pop bp";
"ret".
$1 == 4 ==> "pop ax";
"pop dx";
"mov sp, bp";
"pop bp";
"ret".
$1 == 6 ==> "call .ret6";
"mov sp, bp";
"pop bp";
"ret".
$1 == 8 ==> "call .ret8";
"mov sp, bp";
"pop bp";
"ret".
default ==> arg_error( "C_ret", $1).
/******************************************************************************/
/* */
/* Group 15 : Miscellaneous instructions */
/* */
/******************************************************************************/
C_asp
$1 == 2 ==> "pop bx".
$1 == 4 ==> "pop bx";
"pop bx".
$1 == -2 ==> "push ax".
default ==> "add sp, $1".
C_ass
$1 == 2 ==> "pop ax";
"add sp, ax".
default ==> arg_error( "C_ass", $1).
C_ass_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop ax";
"add sp, ax".
C_blm
$1 % 2 == 0 ==> "mov cx, $1/2";
"call .blm".
default ==> arg_error( "C_blm", $1).
C_bls
$1 == 2 ==> "pop cx";
"sar cx,1";
"call .blm".
default ==> arg_error( "C_bls", $1).
C_bls_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop cx";
"sar cx, 1";
"call .blm".
C_csa
$1 == 2 ==> "pop bx";
"pop ax";
"jmp .csa2".
default ==> arg_error( "C_csa", $1).
C_csa_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop bx";
"pop ax";
"jmp .csa2".
C_csb
$1 == 2 ==> "pop bx";
"pop ax";
"jmp .csb2".
default ==> arg_error( "C_csb", $1).
C_csb_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop bx";
"pop ax";
"jmp .csb2".
C_dch ==> "mov bp, (bp)".
C_dup
$1 == 2 ==> "pop ax";
"push ax";
"push ax".
$1 == 4 ==> "pop ax";
"pop bx";
"push bx";
"push ax";
"push bx";
"push ax".
default ==> "mov cx, $1";
"call .dup".
C_dus
$1 == 2 ==> "pop cx";
"call .dup".
default ==> arg_error( "C_dus", $1).
C_dus_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop cx";
"call .dup".
C_exg ==> "mov cx, $1";
"call .exg".
C_exg_narg ==> "pop cx";
"call .exg".
C_fil.. ==> "mov (hol0+4), $1+$2".
C_gto.. ==> "mov bx, $1+$2";
"call .gto".
C_lim ==> "push (.ignmask)".
C_lin ==> "mov (hol0), $1".
C_lni ==> "inc (hol0)".
C_lor
$1 == 0 ==> "push bp".
$1 == 1 ==> "mov ax, sp";
"push ax".
$1 == 2 ==> "push (.reghp)".
default ==> arg_error( "C_lor", $1).
C_lpb ==> "pop ax";
"add ax,4";
"push ax".
C_mon ==> "pop ax";
"call .mon".
C_nop ==> .
C_rck
$1 == 2 ==> "pop bx";
"pop ax";
"call .rck";
"push ax".
default ==> arg_error( "C_rck", $1).
C_rck_narg ==> "pop ax";
"cmp ax, 2";
"jne .unknown";
"pop bx";
"pop ax";
"call .rck";
"push ax".
C_rtt ==> C_ret( (arith) 0).
C_sig ==> "pop ax";
"xchg (.trppc), ax";
"push ax".
C_sim ==> "pop (.ignmask)".
C_str
$1 == 0 ==> "pop bp".
$1 == 1 ==> "pop sp".
$1 == 2 ==> "pop (.reghp)".
default ==> arg_error( "C_str", $1).
C_trp ==> "pop ax";
"call .trp".
/******************************************************************************/
/* */
/* Storage-routines */
/* */
/******************************************************************************/
..icon
$2 == 1 ==> gen1( (ONE_BYTE) atoi( $1)).
$2 == 2 ==> gen2( (TWO_BYTES) atoi( $1)).
$2 == 4 ==> gen4( (FOUR_BYTES) atol( $1)).
default ==> arg_error( "..icon", $1).
..ucon
$2 == 1 ==> gen1( (ONE_BYTE) atoi( $1)).
$2 == 2 ==> gen2( (TWO_BYTES) atoi( $1)).
$2 == 4 ==> gen4( (FOUR_BYTES) atol( $1)).
default ==> arg_error( "..ucon", $1).
..fcon ==> con_float($1, $2).
/******************************************************************************/
/* */
/* Extra-routines */
/* */
/******************************************************************************/
#ifdef PUSH_POP_OPT
C_df_ilb ==> clean_push_buf();
symbol_definition( $1);
set_local_visible( $1).
#endif
C_jump ==> "jmp $1".
C_prolog ==> "push bp";
"mov bp, sp".
C_locals
$1 == 0 ==> .
$1 == 2 ==> "push ax".
$1 == 4 ==> "push ax";
"push ax".
default ==> "sub sp, $1".