使用子程序分离偶数和质数的汇编语言程序。

我希望生成一个汇编语言程序,从一个给定的数字列表中分离出偶数和质数.该程序应该使用子程序,堆栈和间接寻址模式。

我所尝试的是

.model small
  .data
     num db 0,13,4,7,8,9,14,15,2,10,19,20
     even dw 20 dup ?
     prime dw 20 dup ?

 .code
   mov ax, @ data
   mov ds, ax
   LEA BX,num
   LEA SI, even
   LEA DI, prime
   mov dh,02
L1:
   mov ah,00
   mov al, [BX]
   mov dl, al
   div dh
    cmp ah,00
    JE EVEN
EVEN:
     mov [SI], dl
     INC SI
     INC BX
     LOOP L1

由于我是一个汇编语言的初学者,我希望知道上述要求的正确代码。任何帮助将是感激的。

解决方案:

该程序应该使用子程序,堆栈和间接寻址模式。

然后你的程序必须做的是在 数目 数组,并调用2个子程序,一个找出这个数字是否是质数,一个找出这个数字是否是偶数。目前你几乎得到了一个很好的循环,要不是你忘记初始化了 CX 登记 LOOP 指令依赖!

这已经是一个很好的循环了。

    lea     bx, num
    lea     si, even
    lea     di, prime
    mov     cx, 12         ; There are 12 numbers in the 'num' array
L1:
    mov     al, [bx]
    call    TestForEven
    call    TestForPrime
    inc     bx
    loop    L1

你测试一个数字是否为偶数时,用的是2的除法 这是个浪费的解决方案!你要做的就是检查数字的最低位是否为0。

TestForEven:
    test    al, 1         ; This tests the lowest bit
    jnz     NotEven
    mov     [si], al      ; Adding to the 'even' array
    inc     si
NotEven:
    ret

这里有一些技巧来完成任务。

  • {fnTahomafs10bord0shad01cH00FFFF}Like @Michael 在他的评论中写道,你应该有 甚至首要的 数组定义为字节。
  • 如果发现任何数字是偶数,那么它也不能是质数。这意味着你可以调用 TestForPrime 从内部 TestForEven 而不是从主循环中调用)。

    TestForEven:
        test    al, 1         ; This tests the lowest bit
        jnz     NotEven
        mov     [si], al      ; Adding to the 'even' array
        inc     si
        ret
    NotEven:
        call    TestForPrime
        ret
    

    因为这个内嵌调用现在已经变成了所谓的尾部调用,所以这个 call 指令已经不需要了。

    TestForEven:
        test    al, 1         ; This tests the lowest bit
        jnz     TestForPrime
        mov     [si], al      ; Adding to the 'even' array
        inc     si
        ret
    TestForPrime:
        ...
        ret
    
  • 如果你在这个论坛(或谷歌)上搜索,你一定会找到测试质数的好方法。好猎奇…

给TA打赏
共{{data.count}}人
人已打赏
解决方案

如何在Google Sheets中把导入的数据从小数改为逗号?

2022-4-21 6:00:10

解决方案

获取全路径中间件Koa-router的映射路径参数。

2022-4-21 6:00:12

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索