DOSBox获取随机数的思路

我是智障

16位汇编好像没有得到随机数的方法，然后我想到了个替代方法，用当前时间来模拟随机数。
但考虑到第二次调用时随机性不够大，所以再加了个假随机数表的方式来模拟，双重随机，使得每次调用都能获得较为合理的随机数。
效果：每调用一次就在屏幕显示一个$$，想看到效果最好是调用+延时的方式，这样可以在屏幕上不断地出现$$



代码↓↓↓

1. rand      : jmp short sr
   
2.             seat db 0,0,0,0,0              ;第一个是列的随机数表的指向位置,四为果子x，五为果子y
   
3.             table1 db 5,2,7,1,8,0,5,9,4,3,6,7,8,1,9,2,6,0,3,4           ;x坐标的个位
   
4.                         table2 db 0ah,14h,0,14h,1dh,0ah,1dh,0ah,0,14h,0,1dh         ;x坐标的十位，0,10,20,30
   
5.                         table3 db 2,15,22,16,13,0,12,9,19,11,1,7,21,18,6,16,17,8,4,12,14,20,3,10,5,18   ;y坐标
   
6.     sr    : push ax
   
7.             push ds
   
8.                         push bx
   
9.                         push cx
   
10.                         push es
    
11.                         mov ax,cs
    
12.                         mov ds,ax            ;这是写在代码段的
    
13.                         mov al,0
    
14.                         out 70h,al           
    
15.                     in al,71h            ;获取时间秒，下面处理秒
    
16.                         mov ah,al
    
17.                         mov cl,4
    
18.                         shr ah,cl
    
19.                         and al,00001111b
    
20.                        
    
21.                         mov cl,seat[0]
    
22.                         mov bl,cl
    
23.                         add bl,al
    
24.                         cmp bl,13h
    
25.                         jna bz1
    
26.                         sub bl,14h
    
27.                 bz1:mov seat[0],bl
    
28.                         mov bh,0
    
29.                         mov bh,table1[bx]
    
30. 
    
31.                     mov cl,seat[1]
    
32.                     mov bl,cl
    
33.                         add bl,ah
    
34.                         cmp bl,0bh
    
35.                         jna bz2
    
36.                     sub bl,0ch                       
    
37.                 bz2:mov seat[1],bl
    
38.                     mov cl,bh
    
39.                         mov bh,0
    
40.                     mov bh,table2[bx]
    
41.                         add bh,cl
    
42.                        
    
43.                     cmp bh,25h
    
44.                         jna bz3
    
45.                         sub bh,al
    
46.                         sub bh,ah
    
47.                         sub bh,al
    
48.                 bz3:mov seat[3],bh
    
49.                
    
50.                     mov al,2
    
51.                         out 70h,al
    
52.                     in al,71h          ;获取时间分，下面处理分
    
53.                         and al,00001111b
    
54.                         mov cl,seat[2]
    
55.                         mov bl,cl
    
56.                         add bl,al
    
57.                         cmp bl,16h         ;判断是否超过16h
    
58.                         jna bz4
    
59.                         sub bl,17h
    
60.                 bz4:mov seat[2],bl
    
61.                         mov bh,0
    
62.                     mov bh,table3[bx]
    
63.                         mov seat[4],bh
    
64.                        
    
65.                         mov ax,0b800h                ;下面是显示$
    
66.                         mov es,ax
    
67.                         mov al,seat[4]
    
68.                         add al,1
    
69.                         mov ah,0
    
70.                         mov bl,160                   ;y坐标*160
    
71.                         mul bl
    
72.                         mov bl,seat[3]
    
73.                         mov bh,0
    
74.                         add bx,bx
    
75.                         add bx,bx
    
76.                         add ax,bx
    
77.                         add ax,4
    
78.                         mov bx,ax
    
79.                         mov al,'
    
80.                         mov ah,46h
    
81.                         mov es:[bx],al
    
82.                         mov es:[bx+1],ah
    
83.                         mov es:[bx+2],al
    
84.                         mov es:[bx+3],ah
    
85.                         pop es
    
86.                         pop cx
    
87.                         pop bx
    
88.                         pop ds
    
89.                         pop ax
    
90.                         ret

复制代码

bitravel

这个跟数学太相关了，调用API就行了。

我是智障

bitravel 发表于 2019-9-19 18:45
这个跟数学太相关了，调用API就行了。

啊？DOS汇编有API么，这我不知道啊