Hi i am doing a 16 bit assembly language code for a POS system and even tho after running there is no error my balance after the calculations are wrong

.MODEL SMALL
.STACK 100
.DATA
; Variables
USER_ID DB 0 ; User ID
MEMBERSHIP DB 0 ; Membership status (0 = not a member, 1 = member)
ACCOMODATION_TYPE DB 0 ; House type (1 = Bungalow, 2 = Cottage, 3 = Duplex, 4 = Apartment, 5 = Cabin)
ROOM_AMT DB 0 ; Room amount (0 = 3 rooms, 1 = 4 rooms, 2 = 5 rooms)
QTY1 DB 0 ; Quantity digit 1
QTY2 DB 0 ; Quantity digit 2
QTY DB 0 ; days staying quantity
PRICE DW 0 ; accomodation price
SUBTOTAL DW 0 ; Subtotal price
DISCOUNT DW 0 ; Discount amount
TOTAL DW 0 ; Total price
MBSTATUS DB 0 ; Membership status
PAYAMOUNT DW 0 ; Payment amount
BALANCE DW 0 ; Balance amount
Q1 DB 0 ; Quotient 1
Q2 DB 0 ; Quotient 2
Q3 DB 0 ; Quotient 3
Q4 DB 0 ; Quotient 4
R1 DW 0 ; Remainder 1
R2 DB 0 ; Remainder 2
R3 DB 0 ; Remainder 3
R4 DB 0 ; Remainder 4
INAME DB 3 DUP (0)
IPSW DB 7 DUP (0)
ARRPAYMENT DB 7 DUP (0)
F2_DIGIT DB 0 ; First 2 digits of payment amount
N3_DIGIT DW 0 ; Next 3 digits of payment amount

; Constants
Bungalow_3ROOMS DW 2000
Bungalow_4ROOMS DW 2500
Bungalow_5ROOMS DW 3000
Cottage_3ROOMS DW 1500
Cottage_4ROOMS DW 2000
Cottage_5ROOMS DW 2500
Duplex_3ROOMS DW 1300
Duplex_4ROOMS DW 1800
Duplex_5ROOMS DW 2300
Apartment_3ROOMS DW 1000
Apartment_4ROOMS DW 1500
Apartment_5ROOMS DW 2000
Cabin_3ROOMS DW 1200
Cabin_4ROOMS DW 2700
Cabin_5ROOMS DW 2200
DISCOUNT_RATE DW 10 ; Discount rate for members
TEN DB 10 ; Divisor
HUN DB 100 ; Divisor
THOU DW 1000 ; Divisor
UNAME1 DB “GUR”
UPSW1 DB “2314691”
UNAME2 DB “LIM”
UPSW2 DB “2315560”
UNAME3 DB “SAM”
UPSW3 DB “2315569”

; Banner
TTL DB 13,10,” _______ _______ ________ _______ _______ ”
DB 13,10,” | /| ( )( ) ( ) ( ) ( )”
DB 13,10,” ( / ) | || | | | | _____| | _____|”
DB 13,10,” () / | | | |____ / / | |_____ | |_____ ”
DB 13,10,” / | )| ) / / | ) | )”
DB 13,10,” ) ( | | | | / / | | | |___ ”
DB 13,10,” | | | || | | | | | | |”
DB 13,10,” _/ ()() () () (_______)$”

; Menu
MENU DB 13,10,”——————————————————————————-”
DB 13,10,” MENU”
DB 13,10,”——————————————————————————–”
DB 13,10,” 1. Bungalow RM 20.00″
DB 13,10,” 2. Cottage RM 15.00″
DB 13,10,” 3. Duplex RM 13.00″
DB 13,10,” 4. Apartment RM 10.00″
DB 13,10,” 5. Cabin RM 12.00″
DB 13,10,” ”
DB 13,10,” Amount of Rooms : 1. 3 Rooms, 2. 4 Rooms, 3. 5 Rooms”
DB 13,10,” Price : (+RM 0.00) (+RM 5.00) (+RM 10.00)”
DB 13,10,”——————————————————————————–$”

; Receipt
OLIST DB 13,10,”——————————————————————————-”
DB 13,10,” Booking LIST$”
LIST DB 13,10,”——————————————————————————-”
DB 13,10,”No. Accomodation TYPE Rooms Days Staying Price”
DB 13,10,”——————————————————————————-$”
LIST1 DB 13,10,” 1. $”
LIST2 DB 13,10,” 2. $”
LIST3 DB 13,10,” 3. $”
LIST4 DB 13,10,” 4. $”
LIST5 DB 13,10,” 5. $”
LINE DB 13,10,”——————————————————————————-$”

BUN DB "Bungalow        $"
COT DB "Cottage         $"
DUPL    DB "Duplex          $"
APA DB "Apartment       $"
ESP DB "Cabin       $"
S   DB "3   $"
M   DB "4   $"
L   DB "5   $"
RM  DB "RM $"

ACCOMO1 DB 0
ACCOMO2 DB 0
ACCOMO3 DB 0
ACCOMO4 DB 0
ACCOMO5 DB 0
I1AMT   DB 0
I2AMT   DB 0
I3AMT   DB 0
I4AMT   DB 0
I5AMT   DB 0
I1QTY1  DB 0
I1QTY2  DB 0
I2QTY1  DB 0
I2QTY2  DB 0
I3QTY1  DB 0
I3QTY2  DB 0
I4QTY1  DB 0
I4QTY2  DB 0
I5QTY1  DB 0
I5QTY2  DB 0
I1PRICE DW 0
I2PRICE DW 0
I3PRICE DW 0
I4PRICE DW 0
I5PRICE DW 0

; Messages
PAUSE_MESSAGE DB 13,10,” Press any Key to Continue…$”
SELECTION_MESSAGE DB 13,10,” Your selection : $”
WELCOME_MESSAGE DB 13,10,” Welcome to Yeezee Check-Ins!$”
ENJOY_MESSAGE DB 13,10,” Thanks for purchasing. Enjoy your Stay!$”
INVALID_MESSAGE DB 13,10,” Invalid input! Please enter again.$”
EXIST_Booking DB 13,10,” Booking already exists! Kindly choose other accomodations.$”
SUCCESS_LOGIN DB 13,10,” Successfully login!$”
OPTIONS_MESSAGE DB 13,10,” 1 – Login”
DB 13,10,” 2 – Continue as guests”
DB 13,10,” 3 – Exit$”
USERNAME_MESSAGE DB 13,10,” Please enter your username: $”
PASSWORD_MESSAGE DB 13,10,” Please enter your password: $”
INVALID_LOGIN DB 13,10,” Invalid username or password!”
DB 13,10,” 1 – Retry 2 – Back$”
CONTINUE_MESSAGE DB 13,10,” Do you want to continue Booking?”
DB 13,10,” 1 – Yes”
DB 13,10,” 2 – Proceed to payment”
DB 13,10,” 3 – Cancel Booking$”
CONFIRM_MESSAGE DB 13,10,” Are you sure to cancel Booking?”
DB 13,10,” 1 – Yes 2 – No$”
Booking_CANCELED DB 13,10,” Booking canceled.”
DB 13,10,” 1 – Back to menu 2 – Exit$”

ACCOMODATION_TYPE_MESSAGE   DB 13,10,"      Please select accomodation type : $"
ROOM_AMT_MESSAGE    DB 13,10,"      Please select amount of rooms   : $"
QUANTITY_MESSAGE    DB 13,10,"      Please enter days staying(1 - 10)   : $"

SUBTOTAL_MESSAGE    DB 13,10,"      Subtotal        : RM $"
DISCOUNT_MESSAGE    DB 13,10,"      Membership Discount(10%): RM $"
TOTAL_MESSAGE       DB 13,10,"      Total           : RM $"
PAYMENT_MESSAGE DB 13,10,"      Enter payment amount    : RM $"
BALANCE_MESSAGE DB "        Your balance        : RM $"
DISCOUNT0       DB 13,10,"      Membership Discount(10%): RM 0.00$"

NL          DB 13,10," $"
TABX2           DB "        $"

.CODE
MAIN PROC
MOV AX,@DATA
MOV DS,AX

START:
; Display welcome message and options
CALL DISPLAY_WELCOME_MESSAGE
CALL DISPLAY_OPTIONS

L1:
; Get user option
CALL GET_OPTION

; Determine path
CALL PATH

L2:
; Display menu and get user Booking
CALL DISPLAY_MENU
CALL Booking_TYPE
CALL Booking_AMT
CALL Booking_QTY

; Store Booking info for receipt display
CALL SAVE_Booking

; Determine the price considering the accomodation type and amount of room
CALL DETERMINE_PRICE

; Calculate (multiply quantity) and display subtotal
CALL CALCULATE_SUBTOTAL

L3:
; Display Booking list
CALL DISPLAY_Booking_LIST

; Display subtotal price
CALL DISPLAY_SUBTOTAL

; Ask whether to continue Booking or proceed to payment
CALL ADD_CART

; Payment page
CALL PAYMENT

; Check membership status and calculate discount amount
CALL CALCULATE_DISCOUNT

; Calculate and display total price
CALL CALCULATE_GRAND_TOTAL

; Ask for payment and calculate balance
CALL ASK_FOR_PAYMENT
CALL CALCULATE_BALANCE

; Display enjoy message
CALL DISPLAY_ENJOY_MESSAGE

; Exit program
CALL EXIT

DISPLAY_WELCOME_MESSAGE:
; Clear screen
MOV AX, 3
INT 10H
MOV AH, 09H
LEA DX, TTL
INT 21H
MOV AH, 09H
LEA DX, NL
INT 21H
MOV AH, 09H
LEA DX, WELCOME_MESSAGE
INT 21H

RET

DISPLAY_OPTIONS:
MOV AH, 09H
LEA DX, OPTIONS_MESSAGE
INT 21H

RET

GET_OPTION:
MOV AH, 09H
LEA DX, SELECTION_MESSAGE
INT 21H
MOV AH, 01H
INT 21H

RET

PATH:
; Determine path
CMP AL, “1”
JE LOGIN
JB INVALID_L1
CMP AL, “3”
JE JMP_EXIT
JA INVALID_L1

RET

INVALID_L1:
MOV AH, 09H
LEA DX, INVALID_MESSAGE
INT 21H

JMP L1

JMP_EXIT:
JMP EXIT

LOGIN:
; Clear screen
MOV AX, 3
INT 10H

MOV AH, 09H
LEA DX, TTL
INT 21H
MOV AH, 09H
LEA DX, NL
INT 21H

; Username input
MOV AH,09H
LEA DX, USERNAME_MESSAGE
INT 21H

MOV CX,3
MOV SI,0

GETINAME:
MOV AH,01H
INT 21H
MOV INAME[SI], AL
INC SI
LOOP GETINAME

MOV AH,09H
LEA DX, PASSWORD_MESSAGE
INT 21H

MOV CX,7
MOV SI,0

GETIPSW:
MOV AH,07H
INT 21H
MOV IPSW[SI], AL
INC SI
LOOP GETIPSW

; Validation
MOV SI,0
CHKNAME1:
CMP SI,3
JE RESETSI
MOV AL,UNAME1[SI]
CMP AL,INAME[SI]
JE CONT
JNE RESET1
CONT:
INC SI
JMP CHKNAME1
RESET1:
; Reset SI
MOV SI,0
JMP CHKNAME2
CHKNAME2:
CMP SI,3
JE RESETSI
MOV AL,UNAME2[SI]
CMP AL,INAME[SI]
JE CONT2
JNE RESET2
CONT2:
INC SI
JMP CHKNAME2
RESET2:
; Reset SI
MOV SI,0
JMP CHKNAME3
CHKNAME3:
CMP SI,3
JE RESETSI
MOV AL,UNAME3[SI]
CMP AL,INAME[SI]
JE CONT3
JNE ERROR
CONT3:
INC SI
JMP CHKNAME3
RESETSI:
MOV SI,0
JMP CHKPSW1
CHKPSW1:
CMP SI,7
JE SUCCESS
MOV AL,UPSW1[SI]
CMP AL,IPSW[SI]
JE CONT4
JNE RESET3
CONT4:
INC SI
JMP CHKPSW1
RESET3:
; Reset SI
MOV SI,0
JMP CHKPSW2
CHKPSW2:
CMP SI,7
JE SUCCESS
MOV AL,UPSW2[SI]
CMP AL,IPSW[SI]
JE CONT5
JNE RESET4
CONT5:
INC SI
JMP CHKPSW2
RESET4:
; Reset SI
MOV SI,0
JMP CHKPSW3
CHKPSW3:
CMP SI,7
JE SUCCESS
MOV AL,UPSW3[SI]
CMP AL,IPSW[SI]
JE CONT6
JNE ERROR
CONT6:
INC SI
JMP CHKPSW3
ERROR:
; Retry or Back
MOV AH,09H
LEA DX, INVALID_LOGIN
INT 21H
MOV AH, 09H
LEA DX, NL
INT 21H
LP_ERROR:
MOV AH,09H
LEA DX, SELECTION_MESSAGE
INT 21H
MOV AH,01H
INT 21H
CMP AL,”1″
JE JMP_LOGIN
JB LP_ERROR
CMP AL,”2″
JE JMP_START
JA LP_ERROR

JMP_LOGIN:
JMP LOGIN

JMP_START:
; Clear screen
MOV AX, 3
INT 10H
JMP START

SUCCESS:
MOV AH,09H
LEA DX,SUCCESS_LOGIN
INT 21H
; Set membership status to true
MOV AL, 1
MOV MBSTATUS, AL
; Press any key to continue
MOV AH,09H
LEA DX,PAUSE_MESSAGE
INT 21H
MOV AH,01H
INT 21H

RET

DISPLAY_MENU:
; Clear screen
MOV AX, 3
INT 10H
MOV AH, 09H
LEA DX, MENU
INT 21H

RET

; Get user Booking
Booking_TYPE:
; Type
MOV AH, 09H
LEA DX, ACCOMODATION_TYPE_MESSAGE
INT 21H
MOV AH, 01H
INT 21H
CMP AL, “1”
JB Booking_TYPE
CMP AL, “5”
JA Booking_TYPE
MOV ACCOMODATION_TYPE, AL

; Check whether the accomodation type Booking already exists
JMP CHK_Booking

RET

CHK_Booking:
CMP AL, ACCOMO1
JE Booking_EXIST
CMP AL, ACCOMO2
JE Booking_EXIST
CMP AL, ACCOMO3
JE Booking_EXIST
CMP AL, ACCOMO4
JE Booking_EXIST
CMP AL, ACCOMO5
JE Booking_EXIST

RET

Booking_EXIST:
MOV AH, 09H
LEA DX, NL
INT 21H
MOV AH, 09H
LEA DX, EXIST_Booking
INT 21H
MOV AH, 09H
LEA DX, NL
INT 21H
; Press any key to continue
MOV AH,09H
LEA DX,PAUSE_MESSAGE
INT 21H
MOV AH,01H
INT 21H
JMP L2

Booking_AMT:
MOV AH, 09H
LEA DX, ROOM_AMT_MESSAGE
INT 21H
MOV AH, 01H
INT 21H
CMP AL, “1”
JB Booking_AMT
CMP AL, “3”
JA Booking_AMT
MOV ROOM_AMT, AL

RET

Booking_QTY:
MOV AH, 09H
LEA DX, QUANTITY_MESSAGE
INT 21H
MOV AH, 01H
INT 21H
MOV QTY1, AL
MOV AH, 01H
INT 21H
MOV QTY2, AL

; Check quantity (not more than 10 / less than 1)
CHK01:
    CMP QTY1, "0"
    JNE CHK10
    CMP QTY2, "0"
    JE Booking_QTY

    JMP CAL_QTY
CHK10:
    CMP QTY1, "1"
    JA Booking_QTY
    CMP QTY2, "0"
    JA Booking_QTY

CAL_QTY:
SUB QTY1, 30H
SUB QTY2, 30H
MOV AL, QTY1
MUL TEN
ADD AL, QTY2
MOV QTY, AL

; Press any key to continue
MOV AH, 09H
LEA DX, NL
INT 21H
MOV AH, 09H
LEA DX, PAUSE_MESSAGE
INT 21H
MOV AH, 01H
INT 21H

RET

SAVE_Booking:
CMP ACCOMO1, 0
JE STORE_Booking1
CMP ACCOMO2, 0
JE STORE_Booking2
CMP ACCOMO3, 0
JE STORE_Booking3
CMP ACCOMO4, 0
JE JMP_STORE_Booking4
CMP ACCOMO5, 0
JE JMP_STORE_Booking5

JMP_STORE_Booking4:
JMP STORE_Booking4
JMP_STORE_Booking5:
JMP STORE_Booking5

STORE_Booking1:
MOV AL, ACCOMODATION_TYPE
MOV ACCOMO1, AL
MOV AL, ROOM_AMT
MOV I1AMT, AL
MOV AL, QTY1
MOV I1QTY1, AL
MOV AL, QTY2
MOV I1QTY2, AL
ADD I1QTY1, 30H
ADD I1QTY2, 30H
RET
STORE_Booking2:
MOV AL, ACCOMODATION_TYPE
MOV ACCOMO2, AL
MOV AL, ROOM_AMT
MOV I2AMT, AL
MOV AL, QTY1
MOV I2QTY1, AL
MOV AL, QTY2
MOV I2QTY2, AL
ADD I2QTY1, 30H
ADD I2QTY2, 30H
RET
STORE_Booking3:
MOV AL, ACCOMODATION_TYPE
MOV ACCOMO3, AL
MOV AL, ROOM_AMT
MOV I3AMT, AL
MOV AL, QTY1
MOV I3QTY1, AL
MOV AL, QTY2
MOV I3QTY2, AL
ADD I3QTY1, 30H
ADD I3QTY2, 30H
RET
STORE_Booking4:
MOV AL, ACCOMODATION_TYPE
MOV ACCOMO4, AL
MOV AL, ROOM_AMT
MOV I4AMT, AL
MOV AL, QTY1
MOV I4QTY1, AL
MOV AL, QTY2
MOV I4QTY2, AL
ADD I4QTY1, 30H
ADD I4QTY2, 30H
RET
STORE_Booking5:
MOV AL, ACCOMODATION_TYPE
MOV ACCOMO5, AL
MOV AL, ROOM_AMT
MOV I5AMT, AL
MOV AL, QTY1
MOV I5QTY1, AL
MOV AL, QTY2
MOV I5QTY2, AL
ADD I5QTY1, 30H
ADD I5QTY2, 30H
RET

DETERMINE_PRICE:
MOV AX, 0
CMP ACCOMODATION_TYPE, “1”
JE Bungalow_PRICE
CMP ACCOMODATION_TYPE, “2”
JE Cottage_PRICE
CMP ACCOMODATION_TYPE, “3”
JE JMP_DUPL
CMP ACCOMODATION_TYPE, “4”
JE JMP_APA
CMP ACCOMODATION_TYPE, “5”
JE JMP_ESP
RET

Bungalow_PRICE:
CMP ROOM_AMT, “1”
JE BUN_3ROOMS
CMP ROOM_AMT, “2”
JE BUN_4ROOMS
CMP ROOM_AMT, “3”
JE BUN_5ROOMS

RET

BUN_3ROOMS:
    MOV AX, Bungalow_3ROOMS
    MOV PRICE, AX
    RET
BUN_4ROOMS:
    MOV AX, Bungalow_4ROOMS
    MOV PRICE, AX
    RET
BUN_5ROOMS:
    MOV AX, Bungalow_5ROOMS
    MOV PRICE, AX
    RET

Cottage_PRICE:
CMP ROOM_AMT, “1”
JE COT_3ROOMS
CMP ROOM_AMT, “2”
JE COT_4ROOMS
CMP ROOM_AMT, “3”
JE COT_5ROOMS

RET

COT_3ROOMS:
    MOV AX, Cottage_3ROOMS
    MOV PRICE, AX
    RET
COT_4ROOMS:
    MOV AX, Cottage_4ROOMS
    MOV PRICE, AX
    RET
COT_5ROOMS:
    MOV AX, Cottage_5ROOMS
    MOV PRICE, AX
    RET

JMP_DUPL:
JMP Duplex_PRICE
JMP_APA:
JMP Apartment_PRICE
JMP_ESP:
JMP Cabin_PRICE

Duplex_PRICE:
CMP ROOM_AMT, “1”
JE DUPL_3ROOMS
CMP ROOM_AMT, “2”
JE DUPL_4ROOMS
CMP ROOM_AMT, “3”
JE DUPL_5ROOMS

RET

DUPL_3ROOMS:
    MOV AX, Duplex_3ROOMS
    MOV PRICE, AX
    RET
DUPL_4ROOMS:
    MOV AX, Duplex_4ROOMS
    MOV PRICE, AX
    RET
DUPL_5ROOMS:
    MOV AX, Duplex_5ROOMS
    MOV PRICE, AX
    RET

Apartment_PRICE:
CMP ROOM_AMT, “1”
JE APA_3ROOMS
CMP ROOM_AMT, “2”
JE APA_4ROOMS
CMP ROOM_AMT, “3”
JE APA_5ROOMS

RET

APA_3ROOMS:
    MOV AX, Apartment_3ROOMS
    MOV PRICE, AX
    RET
APA_4ROOMS:
    MOV AX, Apartment_4ROOMS
    MOV PRICE, AX
    RET
APA_5ROOMS:
    MOV AX, Apartment_5ROOMS
    MOV PRICE, AX
    RET

Cabin_PRICE:
CMP ROOM_AMT, “1”
JE ESP_3ROOMS
CMP ROOM_AMT, “2”
JE ESP_4ROOMS
CMP ROOM_AMT, “3”
JE ESP_5ROOMS

RET

ESP_3ROOMS:
    MOV AX, Cabin_3ROOMS
    MOV PRICE, AX
    RET
ESP_4ROOMS:
    MOV AX, Cabin_4ROOMS
    MOV PRICE, AX
    RET
ESP_5ROOMS:
    MOV AX, Cabin_5ROOMS
    MOV PRICE, AX
    RET

CALCULATE_SUBTOTAL:
; Calculate ACCOMO price
MOV AX, 0
MOV AL, QTY
MUL PRICE
; Store ACCOMO price
CMP I1PRICE, 0
JE STORE_PRICE1
CMP I2PRICE, 0
JE STORE_PRICE2
CMP I3PRICE, 0
JE STORE_PRICE3
CMP I4PRICE, 0
JE STORE_PRICE4
CMP I5PRICE, 0
JE STORE_PRICE5

; Calculate subtotal
CALC_SUB:
MOV AX, 0
MOV AL, QTY
MUL PRICE
ADD AX, SUBTOTAL
MOV SUBTOTAL, AX

RET

STORE_PRICE1:
MOV I1PRICE, AX
JMP CALC_SUB
STORE_PRICE2:
MOV I2PRICE, AX
JMP CALC_SUB
STORE_PRICE3:
MOV I3PRICE, AX
JMP CALC_SUB
STORE_PRICE4:
MOV I4PRICE, AX
JMP CALC_SUB
STORE_PRICE5:
MOV I5PRICE, AX
JMP CALC_SUB

DISPLAY_Booking_LIST:
; Clear screen
MOV AX, 3
INT 10H

MOV AH, 09H
LEA DX, OLIST
INT 21H
MOV AH, 09H
LEA DX, LIST
INT 21H

DISPLAY_ACCOMO:
FIRST_ACCOMO:
CMP ACCOMO1, 0
JNE DISPLAY_ACCOMO1
RET
DISPLAY_ACCOMO1:
CALL ACCOMO1_NAME
CALL DISPLAY_AMT1
CALL DISPLAY_I1QTY
CALL DISPLAY_PRICE1
JMP SECOND_ACCOMO
ACCOMO1_NAME:
MOV AH, 09H
LEA DX, LIST1
INT 21H
CMP ACCOMO1, ‘1’
JE JMP1_DISPLAY_BUN
CMP ACCOMO1, ‘2’
JE JMP1_DISPLAY_COT
CMP ACCOMO1, ‘3’
JE JMP1_DISPLAY_DUPL
CMP ACCOMO1, ‘4’
JE JMP1_DISPLAY_APA
CMP ACCOMO1, ‘5’
JE JMP1_DISPLAY_ESP
DISPLAY_AMT1:
CMP I1AMT, ‘1’
JE JMP1_DISPLAY_S
CMP I1AMT, ‘2’
JE JMP1_DISPLAY_M
CMP I1AMT, ‘3’
JE JMP1_DISPLAY_L
DISPLAY_I1QTY:
CMP I1QTY1, ‘0’
JE SPACE
JNE DISPLAY_I1QTY1
SPACE:
MOV AH, 02H
MOV DL, ” ”
INT 21H
JMP DISPLAY_I1QTY2
DISPLAY_I1QTY1:
MOV AH, 02H
MOV DL, I1QTY1
INT 21H
DISPLAY_I1QTY2:
MOV AH, 02H
MOV DL, I1QTY2
INT 21H
; Display 2 tabs
MOV AH, 09H
LEA DX, TABX2
INT 21H
RET
DISPLAY_PRICE1:
MOV AX, 0
MOV DX, 0
MOV AX, I1PRICE
JMP DISPLAY_ACCOMO_PRICE

JMP1_DISPLAY_BUN:
JMP DISPLAY_BUN
JMP1_DISPLAY_COT:
JMP DISPLAY_COT
JMP1_DISPLAY_DUPL:
JMP DISPLAY_DUPL
JMP1_DISPLAY_APA:
JMP DISPLAY_APA
JMP1_DISPLAY_ESP:
JMP DISPLAY_ESP

JMP1_DISPLAY_S:
JMP DISPLAY_S
JMP1_DISPLAY_M:
JMP DISPLAY_M
JMP1_DISPLAY_L:
JMP DISPLAY_L

SECOND_ACCOMO:
    CMP ACCOMO2, 0
    JNE DISPLAY_ACCOMO2
    RET
    DISPLAY_ACCOMO2:
    CALL ACCOMO2_NAME
    CALL DISPLAY_AMT2
    CALL DISPLAY_I2QTY
    CALL DISPLAY_PRICE2
    JMP THIRD_ACCOMO
    ACCOMO2_NAME:
        MOV AH, 09H
        LEA DX, LIST2
        INT 21H
        CMP ACCOMO2, '1'
        JE JMP1_DISPLAY_BUN
        CMP ACCOMO2, '2'
        JE JMP1_DISPLAY_COT
        CMP ACCOMO2, '3'
        JE JMP1_DISPLAY_DUPL
        CMP ACCOMO2, '4'
        JE JMP1_DISPLAY_APA
        CMP ACCOMO2, '5'
        JE JMP1_DISPLAY_ESP
    DISPLAY_AMT2:
        CMP I2AMT, '1'
        JE JMP1_DISPLAY_S
        CMP I2AMT, '2'
        JE JMP1_DISPLAY_M
        CMP I2AMT, '3'
        JE JMP1_DISPLAY_L
    DISPLAY_I2QTY:
        CMP I2QTY1, '0'
        JE SPACE2
        JNE DISPLAY_I2QTY1
        SPACE2:
            MOV AH, 02H
            MOV DL, " "
            INT 21H
            JMP DISPLAY_I2QTY2
        DISPLAY_I2QTY1:
            MOV AH, 02H
            MOV DL, I2QTY1
            INT 21H
        DISPLAY_I2QTY2:
            MOV AH, 02H
            MOV DL, I2QTY2
            INT 21H
        ; Display 2 tabs
        MOV AH, 09H
        LEA DX, TABX2
        INT 21H
        RET
    DISPLAY_PRICE2:
        MOV AX, 0
        MOV DX, 0
        MOV AX, I2PRICE
        JMP DISPLAY_ACCOMO_PRICE

THIRD_ACCOMO:
    CMP ACCOMO3, 0
    JNE DISPLAY_ACCOMO3
    RET
    DISPLAY_ACCOMO3:
    CALL ACCOMO3_NAME
    CALL DISPLAY_AMT3
    CALL DISPLAY_I3QTY
    CALL DISPLAY_PRICE3
    JMP FORTH_ACCOMO
    ACCOMO3_NAME:
        MOV AH, 09H
        LEA DX, LIST3
        INT 21H
        CMP ACCOMO3, '1'
        JE JMP2_DISPLAY_BUN
        CMP ACCOMO3, '2'
        JE JMP2_DISPLAY_COT
        CMP ACCOMO3, '3'
        JE JMP2_DISPLAY_DUPL
        CMP ACCOMO3, '4'
        JE JMP2_DISPLAY_APA
        CMP ACCOMO3, '5'
        JE JMP2_DISPLAY_ESP
    DISPLAY_AMT3:
        CMP I3AMT, '1'
        JE JMP2_DISPLAY_S
        CMP I3AMT, '2'
        JE JMP2_DISPLAY_M
        CMP I3AMT, '3'
        JE JMP2_DISPLAY_L
    DISPLAY_I3QTY:
        CMP I3QTY1, '0'
        JE SPACE3
        JNE DISPLAY_I3QTY1
        SPACE3:
            MOV AH, 02H
            MOV DL, " "
            INT 21H
            JMP DISPLAY_I3QTY2
        DISPLAY_I3QTY1:
            MOV AH, 02H
            MOV DL, I3QTY1
            INT 21H
        DISPLAY_I3QTY2:
            MOV AH, 02H
            MOV DL, I3QTY2
            INT 21H
        ; Display 2 tabs
        MOV AH, 09H
        LEA DX, TABX2
        INT 21H
        RET
    DISPLAY_PRICE3:
        MOV AX, 0
        MOV DX, 0
        MOV AX, I3PRICE
        JMP DISPLAY_ACCOMO_PRICE

JMP2_DISPLAY_BUN:
JMP DISPLAY_BUN
JMP2_DISPLAY_COT:
JMP DISPLAY_COT
JMP2_DISPLAY_DUPL:
JMP DISPLAY_DUPL
JMP2_DISPLAY_APA:
JMP DISPLAY_APA
JMP2_DISPLAY_ESP:
JMP DISPLAY_ESP

JMP2_DISPLAY_S:
JMP DISPLAY_S
JMP2_DISPLAY_M:
JMP DISPLAY_M
JMP2_DISPLAY_L:
JMP DISPLAY_L

FORTH_ACCOMO:
    CMP ACCOMO4, 0
    JNE DISPLAY_ACCOMO4
    RET
    DISPLAY_ACCOMO4:
    CALL ACCOMO4_NAME
    CALL DISPLAY_AMT4
    CALL DISPLAY_I4QTY
    CALL DISPLAY_PRICE4
    JMP FIFTH_ACCOMO
    ACCOMO4_NAME:
        MOV AH, 09H
        LEA DX, LIST4
        INT 21H
        CMP ACCOMO4, '1'
        JE JMP2_DISPLAY_BUN
        CMP ACCOMO4, '2'
        JE JMP2_DISPLAY_COT
        CMP ACCOMO4, '3'
        JE JMP2_DISPLAY_DUPL
        CMP ACCOMO4, '4'
        JE JMP2_DISPLAY_APA
        CMP ACCOMO4, '5'
        JE JMP2_DISPLAY_ESP
    DISPLAY_AMT4:
        CMP I4AMT, '1'
        JE JMP2_DISPLAY_S
        CMP I4AMT, '2'
        JE JMP2_DISPLAY_M
        CMP I4AMT, '3'
        JE JMP2_DISPLAY_L
    DISPLAY_I4QTY:
        CMP I4QTY1, '0'
        JE SPACE4
        JNE DISPLAY_I4QTY1
        SPACE4:
            MOV AH, 02H
            MOV DL, " "
            INT 21H
            JMP DISPLAY_I4QTY2
        DISPLAY_I4QTY1:
            MOV AH, 02H
            MOV DL, I4QTY1
            INT 21H
        DISPLAY_I4QTY2:
            MOV AH, 02H
            MOV DL, I4QTY2
            INT 21H
        ; Display 2 tabs
        MOV AH, 09H
        LEA DX, TABX2
        INT 21H
        RET
    DISPLAY_PRICE4:
        MOV AX, 0
        MOV DX, 0
        MOV AX, I4PRICE
        JMP DISPLAY_ACCOMO_PRICE

FIFTH_ACCOMO:
    CMP ACCOMO5, 0
    JNE DISPLAY_ACCOMO5
    RET
    DISPLAY_ACCOMO5:
    CALL ACCOMO5_NAME
    CALL DISPLAY_AMT5
    CALL DISPLAY_I5QTY
    CALL DISPLAY_PRICE5
    RET
    ACCOMO5_NAME:
        MOV AH, 09H
        LEA DX, LIST5
        INT 21H
        CMP ACCOMO5, '1'
        JE JMP3_DISPLAY_BUN
        CMP ACCOMO5, '2'
        JE JMP3_DISPLAY_COT
        CMP ACCOMO5, '3'
        JE JMP3_DISPLAY_DUPL
        CMP ACCOMO5, '4'
        JE JMP3_DISPLAY_APA
        CMP ACCOMO5, '5'
        JE JMP3_DISPLAY_ESP
    DISPLAY_AMT5:
        CMP I5AMT, '1'
        JE JMP3_DISPLAY_S
        CMP I5AMT, '2'
        JE JMP3_DISPLAY_M
        CMP I5AMT, '3'
        JE JMP3_DISPLAY_L
    DISPLAY_I5QTY:
        CMP I5QTY1, '0'
        JE SPACE5
        JNE DISPLAY_I5QTY1
        SPACE5:
            MOV AH, 02H
            MOV DL, " "
            INT 21H
            JMP DISPLAY_I5QTY2
        DISPLAY_I5QTY1:
            MOV AH, 02H
            MOV DL, I5QTY1
            INT 21H
        DISPLAY_I5QTY2:
            MOV AH, 02H
            MOV DL, I5QTY2
            INT 21H
        ; Display 2 tabs
        MOV AH, 09H
        LEA DX, TABX2
        INT 21H
        RET
    DISPLAY_PRICE5:
        MOV AX, 0
        MOV DX, 0
        MOV AX, I5PRICE
        JMP DISPLAY_ACCOMO_PRICE

JMP3_DISPLAY_BUN:
JMP DISPLAY_BUN
JMP3_DISPLAY_COT:
JMP DISPLAY_COT
JMP3_DISPLAY_DUPL:
JMP DISPLAY_DUPL
JMP3_DISPLAY_APA:
JMP DISPLAY_APA
JMP3_DISPLAY_ESP:
JMP DISPLAY_ESP

JMP3_DISPLAY_S:
JMP DISPLAY_S
JMP3_DISPLAY_M:
JMP DISPLAY_M
JMP3_DISPLAY_L:
JMP DISPLAY_L

DISPLAY_BUN:
MOV AH, 09H
LEA DX, BUN
INT 21H
RET
DISPLAY_COT:
MOV AH, 09H
LEA DX, COT
INT 21H
RET
DISPLAY_DUPL:
MOV AH, 09H
LEA DX, DUPL
INT 21H
RET
DISPLAY_APA:
MOV AH, 09H
LEA DX, APA
INT 21H
RET
DISPLAY_ESP:
MOV AH, 09H
LEA DX, ESP
INT 21H
RET

DISPLAY_S:
MOV AH, 09H
LEA DX, S
INT 21H
RET
DISPLAY_M:
MOV AH, 09H
LEA DX, M
INT 21H
RET
DISPLAY_L:
MOV AH, 09H
LEA DX, L
INT 21H
RET

DISPLAY_ACCOMO_PRICE:
DIV THOU
MOV Q1, AL ; Q1 = 12
MOV R1, DX ; R1 = 500

; Whole number
MOV AX, 0
MOV AL, Q1
DIV TEN
MOV Q2, AL      ; Q2 = 1
MOV R2, AH      ; R2 = 2

MOV AX, 0
MOV AX, R1
DIV HUN
MOV Q3, AL      ; Q3 = 5
MOV R3, AH      ; R3 = 00

; Decimal
MOV AX, 0
MOV AL, R3
DIV TEN
MOV Q4, AL      ; Q4 = 0
MOV R4, AH      ; R4 = 0

ADD Q2, 30H
ADD R2, 30H
ADD Q3, 30H
ADD Q4, 30H
ADD R4, 30H

; Display accomodation price
MOV AH, 09H
LEA DX, RM
INT 21H
CMP Q2, "0"
JE N1
MOV AH, 02H
MOV DL, Q2
INT 21H
MOV AH, 02H
MOV DL, R2
INT 21H
JMP N2

N1:
    CMP R2, "0"
    JE N2
    MOV AH, 02H
    MOV DL, R2
    INT 21H

N2:
    MOV AH, 02H
    MOV DL, Q3
    INT 21H
    MOV AH, 02H
    MOV DL, "."
    INT 21H
    MOV AH, 02H
    MOV DL, Q4
    INT 21H
    MOV AH, 02H
    MOV DL, R4
    INT 21H

RET

DISPLAY_SUBTOTAL:
MOV AH, 09H
LEA DX, LINE
INT 21H
MOV AH, 09H
LEA DX, NL
INT 21H
MOV AH, 09H
LEA DX, SUBTOTAL_MESSAGE
INT 21H

MOV AX, 0
MOV DX, 0
MOV AX, SUBTOTAL    ; SUBTOTAL = 12500
DIV THOU
MOV Q1, AL      ; Q1 = 12
MOV R1, DX      ; R1 = 500

; Whole number
MOV AX, 0
MOV AL, Q1
DIV TEN
MOV Q2, AL      ; Q2 = 1
MOV R2, AH      ; R2 = 2

MOV AX, 0
MOV AX, R1
DIV HUN
MOV Q3, AL      ; Q3 = 5
MOV R3, AH      ; R3 = 00

; Decimal
MOV AX, 0
MOV AL, R3
DIV TEN
MOV Q4, AL      ; Q4 = 0
MOV R4, AH      ; R4 = 0

ADD Q2, 30H
ADD R2, 30H
ADD Q3, 30H
ADD Q4, 30H
ADD R4, 30H

; Display subtotal
CMP Q2, "0"
JE NEXT
MOV AH, 02H
MOV DL, Q2
INT 21H
MOV AH, 02H
MOV DL, R2
INT 21H
JMP NEXT2

NEXT:
    CMP R2, "0"
    JE NEXT2
    MOV AH, 02H
    MOV DL, R2
    INT 21H

NEXT2:
    MOV AH, 02H
    MOV DL, Q3
    INT 21H
    MOV AH, 02H
    MOV DL, "."
    INT 21H
    MOV AH, 02H
    MOV DL, Q4
    INT 21H
    MOV AH, 02H
    MOV DL, R4
    INT 21H

RET

ADD_CART:
MOV AH, 09H
LEA DX, NL
INT 21H
MOV AH, 09H
LEA DX, CONTINUE_MESSAGE
INT 21H

L4:
MOV AH, 09H
LEA DX, SELECTION_MESSAGE
INT 21H
MOV AH, 01H
INT 21H
CMP AL, “1”
JE JMP_L2
JB INVALID_L4
CMP AL, “3”
JE CONFIRM_CANCEL
JA INVALID_L4

RET

JMP_L2:
; Clear screen
MOV AX, 3
INT 10H

JMP L2

INVALID_L4:
MOV AH, 09H
LEA DX, INVALID_MESSAGE
INT 21H
JMP L4

CONFIRM_CANCEL:
MOV AH, 09H
LEA DX, CONFIRM_MESSAGE
INT 21H
L5:
MOV AH, 09H
LEA DX, SELECTION_MESSAGE
INT 21H
MOV AH, 01H
INT 21H
CMP AL, “1”
JE CANCEL_Booking
JB INVALID_L5
CMP AL, “2”
JE JMP_L3
JA INVALID_L5

INVALID_L5:
MOV AH, 09H
LEA DX, INVALID_MESSAGE
INT 21H
JMP L5

JMP_L3:
; Clear screen
MOV AX, 3
INT 10H
JMP L3

CANCEL_Booking:
; Clear data
MOV SUBTOTAL, 0
MOV ACCOMO1, 0
MOV ACCOMO2, 0
MOV ACCOMO3, 0
MOV ACCOMO4, 0
MOV ACCOMO5, 0
MOV I1AMT, 0
MOV I2AMT, 0
MOV I3AMT, 0
MOV I4AMT, 0
MOV I5AMT, 0
MOV I1QTY1, 0
MOV I1QTY2, 0
MOV I2QTY1, 0
MOV I2QTY2, 0
MOV I3QTY1, 0
MOV I3QTY2, 0
MOV I4QTY1, 0
MOV I4QTY2, 0
MOV I5QTY1, 0
MOV I5QTY2, 0
MOV I1PRICE, 0
MOV I2PRICE, 0
MOV I3PRICE, 0
MOV I4PRICE, 0
MOV I5PRICE, 0

; Clear screen
MOV AX, 3
INT 10H
MOV AH, 09H
LEA DX, Booking_CANCELED
INT 21H

L6:
MOV AH, 09H
LEA DX, SELECTION_MESSAGE
INT 21H
MOV AH, 01H
INT 21H
CMP AL, “1”
JE JMP2_L2
JB INVALID_L6
CMP AL, “2”
JE JMP_EXIT2
JA INVALID_L6

INVALID_L6:
MOV AH, 09H
LEA DX, INVALID_MESSAGE
INT 21H
JMP L5

JMP2_L2:
; Clear screen
MOV AX, 3
INT 10H
JMP L2
JMP_EXIT2:
JMP EXIT

DISPLAY0:
MOV AH, 09H
LEA DX, DISCOUNT0
INT 21H
RET

PAYMENT:
; Clear screen
MOV AX, 3
INT 10H
CALL DISPLAY_Booking_LIST
CALL DISPLAY_SUBTOTAL
RET

CALCULATE_DISCOUNT:
; Check membership status
CMP MBSTATUS, 1
JNE DISPLAY0

MOV AH, 09H
LEA DX, NL
INT 21H
MOV AH, 09H
LEA DX, DISCOUNT_MESSAGE
INT 21H

; Calculate discount
SUB Q2, 30H
SUB R2, 30H
SUB Q3, 30H
SUB Q4, 30H

MOV AX, 0
MOV AL, Q2
MUL TEN
ADD AL, R2
MUL TEN
ADD AL, Q3
MUL TEN
ADD AL, Q4

MOV DISCOUNT, AX

ADD Q2, 30H
ADD R2, 30H
ADD Q3, 30H
ADD Q4, 30H

; Display discount
CMP Q2, "0"
JE NEXT3
MOV AH, 02H
MOV DL, Q2
INT 21H

NEXT3:
    MOV AH, 02H
    MOV DL, R2
    INT 21H
    MOV AH, 02H
    MOV DL, "."
    INT 21H
    MOV AH, 02H
    MOV DL, Q3
    INT 21H
    MOV AH, 02H
    MOV DL, Q4
    INT 21H

RET

CALCULATE_GRAND_TOTAL:
MOV AH, 09H
LEA DX, TOTAL_MESSAGE
INT 21H

; Calculate grand total
MOV AX, 0
MOV DX, 0
MOV AX, SUBTOTAL
SUB AX, DISCOUNT    ; AX = 06500
MOV TOTAL, AX

DIV THOU
MOV Q1, AL      ; Q1 = 06
MOV R1, DX      ; R1 = 500

MOV AX, 0
MOV AL, Q1
DIV TEN
MOV Q2, AL      ; Q2 = 0
MOV R2, AH      ; R2 = 6

MOV AX, 0
MOV AX, R1
DIV HUN
MOV Q3, AL      ; Q3 = 5
MOV R3, AH      ; R3 = 00

MOV AX, 0
MOV AL, R3
DIV TEN
MOV Q4, AL      ; Q4 = 0
MOV R4, AH      ; R4 = 0

ADD Q2, 30H
ADD R2, 30H
ADD Q3, 30H
ADD Q4, 30H
ADD R4, 30H

; Display grand total
CMP Q2, "0"
JE NEXT4
MOV AH, 02H
MOV DL, Q2
INT 21H
MOV AH, 02H
MOV DL, R2
INT 21H
JMP NEXT5

NEXT4:
    CMP R2, "0"
    JE NEXT5
    MOV AH, 02H
    MOV DL, R2
    INT 21H

NEXT5:
    MOV AH, 02H
    MOV DL, Q3
    INT 21H
    MOV AH, 02H
    MOV DL, "."
    INT 21H
    MOV AH, 02H
    MOV DL, Q4
    INT 21H
    MOV AH, 02H
    MOV DL, R4
    INT 21H

RET

ASK_FOR_PAYMENT:
MOV AX, 0
MOV AH, 09H
LEA DX, PAYMENT_MESSAGE
INT 21H

MOV AX, 0
MOV SI, 0
MOV DX, 0
IPAYMENT:
    MOV AH, 01H
    INT 21H
    CMP AL, 13
    JE CALC_PAYAMOUNT
    JMP SAVEDIGIT

SAVEDIGIT:
    MOV ARRPAYMENT[SI], AL
    SUB ARRPAYMENT[SI], 30H
    INC SI
    JMP IPAYMENT

CALC_PAYAMOUNT:
    MOV AX, 0
    MOV AL, ARRPAYMENT[0]
    MUL TEN
    ADD AL, ARRPAYMENT[1]
    MOV F2_DIGIT, AL

    MOV AX, 0
    MOV AL, ARRPAYMENT[2]
    MUL TEN
    ADD AL, ARRPAYMENT[4]
    MUL TEN
    ADD AL, ARRPAYMENT[5]
    MOV N3_DIGIT, AX

    MOV AX, 0
    MOV AL, F2_DIGIT
    MUL THOU
    ADD AX, N3_DIGIT
    MOV PAYAMOUNT,  AX

RET

CALCULATE_BALANCE:
MOV AH, 09H
LEA DX, BALANCE_MESSAGE
INT 21H

MOV DX, 0
MOV AX, 0
MOV AX, PAYAMOUNT
SUB AX, TOTAL
MOV BALANCE, AX

DIV THOU
MOV Q1, AL
MOV R1, DX

MOV AX, 0
MOV AL, Q1
DIV TEN
MOV Q2, AL
MOV R2, AH

MOV AX, 0
MOV AX, R1
DIV HUN
MOV Q3, AL
MOV R3, AH

MOV AX, 0
MOV AL, R3
DIV TEN
MOV Q4, AL
MOV R4, AH

ADD Q2, 30H
ADD R2, 30H
ADD Q3, 30H
ADD Q4, 30H
ADD R4, 30H

; Display balance
CMP Q2, "0"
JE NEXT6
MOV AH, 02H
MOV DL, Q2
INT 21H
JMP NEXT7

NEXT6:
    CMP R2, "0"
    JE NEXT8
    MOV AH, 02H
    MOV DL, R2
    INT 21H
    JMP NEXT8

NEXT7:
    MOV AH, 02H
    MOV DL, R2
    INT 21H

NEXT8:
    MOV AH, 02H
    MOV DL, Q3
    INT 21H
    MOV AH, 02H
    MOV DL, "."
    INT 21H
    MOV AH, 02H
    MOV DL, Q4
    INT 21H
    MOV AH, 02H
    MOV DL, R4
    INT 21H

RET

DISPLAY_ENJOY_MESSAGE:
MOV AH, 09H
LEA DX, ENJOY_MESSAGE
INT 21H

RET

EXIT:
MOV AH,4CH
INT 21H
MAIN ENDP
END MAIN

So im not very good with this language and my code has been helped by many others. After inputing the amount you wanna pay the balance should show 0 if the amount inputed was enough however im getting a random value, how can i fix this