DEV Community

钟智强
钟智强

Posted on

从 COBOL 到汇编：用个税计算器带你扒光 60 年老古董语言

#cobol #assembly

你可能觉得 COBOL 是上世纪的产物，但事实是，今天全球 70% 的金融交易依然运行在 COBOL 上。本文将通过实现一个中国个人所得税计算器，展示 COBOL 的写法，并附上对应的汇编对照，让你看清楚这门“像英语”的语言如何落地到最底层的指令。

为了让大家更直观地理解 COBOL，我在这篇文章里不仅会系统讲解 COBOL 的四大 Division、数据类型、语句和内置函数，还会拿出相应的 汇编 (Assembly) 代码来做 对比。

你将会看到：

  • COBOL 的 MOVE / COMPUTE / DISPLAY，在底层汇编里就是 MOV、ADD、CMP 这些指令。
  • 数据定义里的 PIC 9(4) V99，在汇编里就对应一块固定大小的内存空间。
  • COBOL 的 EVALUATE 语句，其实就类似于汇编中的条件跳转和比较。

换句话说，这篇文章不是单纯地教 COBOL，而是用汇编来对照，帮你更深刻地理解这门经典语言背后的底层逻辑。

一、COBOL 程序的基本结构

COBOL 的层级逻辑十分严格，基本单位如下：

Division → Section → Paragraph → Sentence → Statement
Enter fullscreen mode Exit fullscreen mode

类比到现代编程语言：

  • Division ≈ 模块
  • Section ≈ 子模块
  • Paragraph ≈ 函数
  • Statement ≈ 语句

COBOL 的语义化极强，看起来像文档，但编译结果完全是底层机器码。

二、数据声明：Picture Clause

COBOL 使用 PIC（Picture Clause）描述数据的格式。例如：

01 COUNTER PIC S9(4) COMP-4.
Enter fullscreen mode Exit fullscreen mode

对应汇编：

mov eax, 1234
mov [COUNTER], eax
Enter fullscreen mode Exit fullscreen mode

在金融系统中，COMP-3（packed decimal）用得尤其多，因为它能保证十进制精度。

三、完整案例：中国个税计算器

下面分步骤给出 COBOL 程序和汇编对照。

1. IDENTIFICATION DIVISION 

IDENTIFICATION DIVISION.
PROGRAM-ID. CHINESE-TAX-SYSTEM.
AUTHOR. LING-ER.
DATE-WRITTEN. 2025-07-14.
Enter fullscreen mode Exit fullscreen mode

汇编：

; 元信息，不编译为指令
; 程序名: CHINESE-TAX-SYSTEM
Enter fullscreen mode Exit fullscreen mode

2. ENVIRONMENT DIVISION 

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
Enter fullscreen mode Exit fullscreen mode

汇编：

; 编译目标平台声明
Enter fullscreen mode Exit fullscreen mode

3. DATA DIVISION 

01 INPUT-FIELDS.
   05 GROSS-INCOME     PIC 9(7)V99.
   05 SOCIAL-INSURANCE PIC 9(5)V99.
   05 HOUSING-FUND     PIC 9(5)V99.
   05 OTHER-DEDUCTIONS PIC 9(5)V99.
Enter fullscreen mode Exit fullscreen mode

汇编：

SECTION .data
GROSS_INCOME     dd 0
SOCIAL_INSURANCE dd 0
HOUSING_FUND     dd 0
OTHER_DEDUCTIONS dd 0
Enter fullscreen mode Exit fullscreen mode

4. PROCEDURE DIVISION 

MAIN-LOGIC.
    DISPLAY "中国个人所得税计算器".
    PERFORM GET-USER-INPUT.
    PERFORM CALCULATE-TAX.
    PERFORM DISPLAY-RESULTS.
    STOP RUN.
Enter fullscreen mode Exit fullscreen mode

汇编：

call print_banner
call get_user_input
call calculate_tax
call display_results
mov eax, 1
int 0x80
Enter fullscreen mode Exit fullscreen mode

计算税额：

COMPUTE TOTAL-DEDUCTIONS = SOCIAL-INSURANCE + HOUSING-FUND
                         + OTHER-DEDUCTIONS + STANDARD-DEDUCTION.
COMPUTE TAXABLE-INCOME = GROSS-INCOME - TOTAL-DEDUCTIONS.
Enter fullscreen mode Exit fullscreen mode

汇编：

mov eax, [SOCIAL_INSURANCE]
add eax, [HOUSING_FUND]
add eax, [OTHER_DEDUCTIONS]
add eax, [STANDARD_DEDUCTION]
mov [TOTAL_DEDUCTIONS], eax

mov eax, [GROSS_INCOME]
sub eax, [TOTAL_DEDUCTIONS]
mov [TAXABLE_INCOME], eax
Enter fullscreen mode Exit fullscreen mode

5. 条件分支 (EVALUATE) 

EVALUATE TRUE
   WHEN TAXABLE-INCOME <= BRACKET-1
        COMPUTE TAX-AMOUNT = TAXABLE-INCOME * RATE-1
   WHEN OTHER
        COMPUTE TAX-AMOUNT = ...
END-EVALUATE.
Enter fullscreen mode Exit fullscreen mode

汇编：

mov eax, [TAXABLE_INCOME]
cmp eax, [BRACKET_1]
jg  next_case

; case 1
mov ebx, [RATE_1]
imul eax, ebx
mov [TAX_AMOUNT], eax
jmp end_eval

next_case:
; case 2 ...
end_eval:
Enter fullscreen mode Exit fullscreen mode

四、总结

  • COBOL 的 MOVE 对应汇编的 mov
  • COMPUTE 对应 add/sub/imul
  • EVALUATE 对应 cmp + jmp
  • 金融系统选择 COBOL 的原因：语义清晰，编译稳定，执行结果高度可预测

五、作者评论

为什么 2025 年了我们还要关心 COBOL？因为大量金融与政府系统依旧运行在它之上。对于业务逻辑清晰、对精度要求极高的应用，COBOL 仍然是值得信赖的选择。

本文代码仅供学习和研究，请勿将其用于破坏或非法用途。

Top comments (0)