用彙編語言隨機產生字母的子程序

randomchar proc far
         mov di,0
         mov bx,78           ；產生78個字母
      rec:
         push cx                ；寄存器入棧
         push dx
         push ax
         sti
         mov ah,0     
         in al,40h                 ；從40H號端口獲得隨機數原始值
         and ah,3
         mov dl,26               
         div dl                          ；用26除所獲得的隨機數原始值
         add ah,97                         
         mov letters[di],ah                 ；letters是數據段中定義的一個存儲單元
         inc di
         pop ax                         ；寄存器出棧
         pop dx
         pop cx
         dec bx
         jnz rec                          ；循環
         ret
randomchar endp