用keil4汇编语言实现杨辉三角形

下面是用keil4汇编语言实现杨辉三角形的代码：

AREA    |.text|, CODE, READONLY
        ENTRY

        MOV     R1, #0          ; R1为行数
LOOP1   ADD     R1, #1
        MOV     R0, #0          ; R0为当前行第一个数的值
        MOV     R2, #1          ; R2为上一行第一个数的值
LOOP2   CMP     R0, R1
        BGT     END_LOOP2
        MOV     R3, R2          ; R3为上一行第一个数的值
        ADD     R2, R2, R2      ; R2为上一行第二个数的值
        MOV     R4, R0          ; R4为当前行第一个数的值
        ADD     R0, R3, R2      ; R0为当前行下一个数的值
        MOV     R2, R3          ; R2为上一行第一个数的值
        MOV     R3, R4          ; R3为当前行第一个数的值
        BL      PRINT_NUM
        B       LOOP2
END_LOOP2
        B       LOOP1

PRINT_NUM
        PUSH    {LR}
        MOV     R5, R0
        MOV     R0, #10
        BL      DIV
        ADD     R0, R1, #'0'
        BL      PUTCHAR
        MOV     R0, #0x0D
        BL      PUTCHAR
        MOV     R0, #0x0A
        BL      PUTCHAR
        POP     {PC}

DIV
        PUSH    {LR}
        MOV     R2, #0
        CMP     R1, R0
        BGT     DIV_LOOP
        SUB     R0, R0, R1
        ADD     R2, R2, #1
        B       DIV
DIV_LOOP
        MOV     R0, R2
        POP     {PC}

PUTCHAR
        PUSH    {LR}
        LDR     R1, =0x4000C000
        LDR     R0, [SP, #4]
        STRB    R0, [R1]
        POP     {PC}

        END

该程序通过两层循环来计算杨辉三角形的值，并通过调用PRINT_NUM函数来输出每个数。DIV函数实现了两个数字的除法，PUTCHAR函数在串口终端上输出一个字符。