討論區快速選單
知識庫快速選單
網路投保旅行平安險 最完整AWS雲端解決方案培訓 開發App該選哪個平台?
[ 回上頁 ] [ 討論區發言規則 ]
可以輸入(正 負數)同時顯示出輸入內容(正 負數)的參考範列
更改我的閱讀文章字型大小
作者 : changtenchun(qq) 貼文超過200則人氣指數超過30000點
[ 貼文 376 | 人氣 36017 | 評價 1040 | 評價/貼文 2.77 | 送出評價 69 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/10/31 下午 01:28:12
TITLE
COMMENT | use
| file: read num
.MODEL SMALL
;----------------------------------------
.CODE
;********
 PRINT:;*
;********
  PUSH AX
  MOV AH,2
  INT 21H
  POP AX
  RET
;-------------------------------
 PRINTF proc near uses ax bx dx
  MOV DL,' '
  mov bx,10
  OR AX,AX ;<========若 AX為正數
 JNL NEGATIVE;<====則跳到 NEGATIVE
NEG AX;<============將負數前加NEG
MOV DL,'-';<===========輸出負號
NEGATIVE:
  call print
  call disp
  ret
  PRINTF ENDP
 ;------------------------------
 ;************
  disp proc
;************
;***IN AX, OUT ANSWER
XOR DX,DX
DIV BX
OR AX,AX
JZ disp_END
PUSH DX
CALL disp
POP DX
disp_END:
ADD DL,'0'
call print
RET
;**************
  disp ENDP ;*
;**************
;------------------------------------------
 read proc near uses ax bx cx DI
 ;in num
   MOV CX,10
  xor BX,bx
;--------------
back:
   MOV AH,01H
   INT 21H
   CMP AL,'0'
   JB skip
   CMP AL,'9'
   JA skip
   SUB AL,'0'
   PUSH AX
   MOV AX,BX
   MUL CX
   MOV BX,AX
   POP AX
   MOV AH,00
   ADD BX,AX
   JMP back
skip:
;--------------
   .IF AL == '-'
MOV DI,'-'
JMP BACK
   .ENDIF
;---------------
.IF DI == '-'
     XOR AX,AX
SUB AX,BX
MOV num,AX
     RET
.ENDIF
;---------------
   MOV num,BX
   RET
  read ENDP
;-----------------------------------
 show proc near uses ax
 mov ah,09h
 int 21h
 RET
 show ENDP ;*
;----------------
.STARTUP
     mov dx,offset msg1
     call show
     call read
;---------------
mov dx,offset msg2
     call show
mov ax,num
     call PRINTF
;----------------
.exit
     .Data
     num dw ?
msg1 db 'input_num: $'
     msg2 db 'you input_num is:$'
  .Stack 100H
END
    
 板主 : 徵求中
 > 組合語言 - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - 組合語言 - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
組合語言
1 H 2220 
2 liaoo 990 
3 青衫 970 
4 牧童哥 940 
5 史努比 920 
6 qq 480 
7 GHOST-JACKY 330 
8 ]CALL-151 310 
9 harrison 300 
10 掌握文武半邊天 280 
組合語言
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.046875