John Delmark Aguilar

Delmark - Profiling
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in

Share | 
 

 Get Name and 4 grades to average it :D

View previous topic View next topic Go down 
AuthorMessage
dElmARk
Admin
Admin
avatar

Posts : 92
Join date : 09/04/2012

PostSubject: Get Name and 4 grades to average it :D   Sun Apr 07, 2013 6:31 am

Code:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;    Corlang Requirement    ;;;
;;; By: John Delmark Aguilar  ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

include 'emu8086.inc'
org 100h

define_print_string
define_scan_num
define_print_num
define_print_num_uns

.MODEL SMALL
.DATA
    M1  DB  'Enter name: $'
    M2  DB  'Enter prelim grade: $'
    M3  DB  'Enter midterm grade: $'
    M4  DB  'Enter pre-final grade: $'
    M5  DB  'Enter final grade: $'
    M6  DB  'Your average grade is: $'
    NEWLINE DB 10,13,"$"
    num1 Dw ?
    result dw 0       
.CODE
START:  MOV AX, @daTA ;[Initialize]
        MOV DS, AX    ; data segment
        MOV AH, 09H
        MOV DX, OFFSET M1
        INT 21H      ; print M1
        MOV AH, 0AH  ; input string
       
        INT 21H 
        MOV AH,09H
        LEA DX,NEWLINE
        INT 21H
       
        MOV DX, OFFSET M2
        INT 21H      ; print M2
         
        call scan_num
        mov num1,cx
        add bx,  num1 ; add input
       
        MOV AH,09H
        LEA DX,NEWLINE
        INT 21H      ; print nextline
       
        MOV DX, OFFSET M3
        INT 21H      ; print M3
       
        call scan_num
        mov num1,cx
        add bx,  num1 ; add input
       
       
        MOV AH,09H
        LEA DX,NEWLINE
        INT 21H      ; print nextline
       
        MOV DX, OFFSET M4
        INT 21H      ; print M4
       
        call scan_num
        mov num1,cx
        add bx,  num1 ; add input
       
        MOV AH,09H
        LEA DX,NEWLINE
        INT 21H      ; print nextline
       
        MOV DX, OFFSET M5
        INT 21H      ; print M5
           
        call scan_num
        mov num1,cx
        add bx,  num1 ;add input
       
        MOV AH, 09H
        LEA DX, NEWLINE
        INT 21H      ; print nextline
       
        MOV DX, OFFSET M6
        INT 21H      ; print M6 
       
        mov result,bx
       
        call display_result

        display_result proc
       
        mov ax,result
        shr ax, 2    ; divide grade by 4

        call print_num

        MOV AH, 09H
        LEA DX, NEWLINE
        INT 21H      ; print nextline
       
        display_result endp
       
        MOV AH, 4CH      ;kill
        INT 21H          ;exit to DOS
END START                               
Back to top Go down
View user profile http://delmark.meabout.com
 
Get Name and 4 grades to average it :D
View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
John Delmark Aguilar :: dElmARk Productions :: Assembly Language-
Jump to: