어셈블리어 게시판
(http://bi.snu.ac.kr/~skim/lecture/assem03)
알림: 편의상 제목에 몇반인지를 적어주세요. 예: [x반] 제목
| May 22, 2004 (02:57) from 211.191.246.62 | |
| Written by 선이 (skim@bi.snu.ac.kr) | Hits : 4188 , Lines : 86 |
| [실습] 키보드 입력을 숫자로 변환 (1반)(5/21) |
|---|
|
; 키보드로 입력받은 숫자로 구성된 x자리 문자열을 ; 실제의 숫자로 변환해 변수에 저장하는 프로그램 작성 .286 SSEG SEGMENT STACK DB 256 DUP(?) SSEG ENDS DSEG SEGMENT BUFFER DB 5 DUP(?) NUM DW ? MULS DW ? DSEG ENDS CSEG SEGMENT 'CODE' ASSUME CS:CSEG, SS:SSEG, DS:DSEG MAIN PROC FAR PUSH DS PUSH 0 ; 입력 루틴 MOV AX, DSEG MOV DS, AX MOV BUFFER, 4 ; 입력할 최대문자수(+1) MOV AH, 0AH LEA DX, BUFFER ; 오프셋 INT 21H ; 문자열 -> 숫자 (편의상 NUM, MULS 모두 WORD형) MOV NUM, 0 ; 결과 변수 초기화 MOV MULS, 1000 ; 곱셈에 대한 초기값 (*10) MOV CX, 3 ; 반복횟수 지정 MOV SI, 2 ; 버퍼 인덱스 초기화 L1: ; 숫자의 각 자리수에 곱해질 숫자 계산(1 or 10 or 100...) ; DIV operand(byte;제수) ; DIV 명령문 -> AX(word;피제수) / operand(byte) ; DIV 결과 -> AL(몫), AH(나머지) MOV BL, 10 ; 제수 세팅 MOV AX, MULS ; 피제수 세팅 DIV BL ; 몫은 AL에...저장 MOV AH, 0 ; AL->AX로 확장하기 위함. BUT, 이문제에서는 OPTIONAL MOV MULS, AX ; 곱해야 하는 수 MULS에 저장 ; 현재 처리할 자리의 문자를 숫자로 변환 SUB BUFFER[SI], '0' ; 현재 처리할 자리수에 위에 구한 숫자(1 or 10 or 100....)를 곱함 ; MUL operand(byte) ; MUL 명령문 -> operand * AL(operand) ; MUL 결과 -> AX(word) MOV AX, MULS MUL BUFFER[SI] ; AX = 변환된 숫자(BUFFER[SI]) * MULS ; 중간결과 계산(NUM = NUM + 곱셈 결과값) ADD NUM, AX ADD SI, 1 ; 다음 LOOP를 위해 버퍼 인덱스 증가 LOOP L1 ; 테스트(중요부분은 아님. 단순 체크용) MOV DL, 0DH MOV AH, 02H INT 21H MOV DL, 0AH MOV AH, 02H INT 21H MOV DL, BYTE PTR NUM MOV AH, 02H INT 21H RET MAIN ENDP CSEG ENDS END MAIN |
|
|