.model small
.code
org 100h
s: jmp main
;—-Coded by Catzie Keng of http://catzie.net
;—- VARIABLES —-

m01 db “ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»”,10,13,”$”
m02 db “º M Y S T O R E º”,10,13,”$”
m03 db “º º”,10,13,”$”
m04 db “º ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ º”,10,13,”$”
m05 db “º ³ ³ ³ ³ ³ ³ ³ ³ º”,10,13,”$”
m06 db “º ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ º”,10,13,”$”
m07 db “º A B C D º”,10,13,”$”
m08 db “º º”,10,13,”$”
m09 db “ºÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĺ”,10,13,”$”
m10 db “º º”,10,13,”$”
m11 db “º º”,10,13,”$”
m12 db “º Buy:( ) Qty:( ) Try Again?[Y/N]:( ) º”,10,13,”$”
m13 db “º º”,10,13,”$”
m14 db “º º”,10,13,”$”
m15 db “º º”,10,13,”$”
m16 db “ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ”,10,13,”$”

A db 39H,”$”
B db 39H,”$”
C db 39H,”$”
D db 39H,”$”

spacer1 db ” $”

vBelowZERO db “Not enough items to sell.$”
vClose db “All items sold out! Thank you.$”

main proc near
mov ax,03
int 10h

cls1: cmp A,”0″
je cls2
jne clsNOT
cls2: cmp B,”0″
je cls3
jne clsNOT
cls3: cmp C,”0″
je cls4
jne clsNOT
cls4: cmp D,”0″
je cls5
jne clsNOT

cls5: call closeProg
call exit

clsNOT:
call dispMenu

call qtyA
call qtyB
call qtyC
call qtyD

call clrError

call buyCursor
call input ;input for Buy
cmp al,”A”
je inA
cmp al,”B”
je inB
cmp al,”C”
je in_C
cmp al,”D”
je inD

inA:call inputA
call tryAgain

inB:call inputB
call tryAgain

in_C:call inputC
call tryAgain

inD:call inputD
call tryAgain

call exit

;—-Coded by Catzie Keng of http://catzie.net
;——- inputA, inputB, inputC, inputD ——-
inputA proc
call qtyCursor
call input ;input for Qty
add A,30h
sub A,al
call qtyA
call tryAgain
inputA endp

inputB proc
call qtyCursor
call input ;input for Qty
add B,30h
sub B,al
call qtyB
call tryAgain
inputB endp

inputC proc
call qtyCursor
call input ;input for Qty
add C,30h
sub C,al
call qtyC
call tryAgain
inputC endp

inputD proc
call qtyCursor
call input ;input for Qty
add D,30h
sub D,al
call qtyD
call tryAgain
inputD endp

;————————————-

closeProg proc
mov ah,2
mov bh,0
mov dl,4
mov dh,13
int 10h
mov ah,9
lea dx,vClose
int 21h
ret
closeProg endp

tryAgain proc
call tryAgainCursor
call input
cmp al,”N”
je exit1
cmp al,”Y”
je again
again: call main
exit1:call exit
ret
tryAgain endp

;——- qtyA, qtyB, qtyC, qtyD ——-
qtyA proc
mov cl, al
mov ah,2
mov bh,0
mov dl,6
mov dh,4
int 10h
cmp A,30h ;30h is 0
jb belowZEROA

mov ah,9
lea dx,A
int 21h
ret
belowZEROA: call pBelowZERO
add A,cl
sub A, 30h
ret
qtyA endp

qtyB proc
mov cl, al
mov ah,2
mov bh,0
mov dl,17
mov dh,4
int 10h
cmp B,30h ;30h is 0
jb belowZEROB

mov ah,9
lea dx,B
int 21h
ret
belowZEROB: call pBelowZERO
add B,cl
sub B, 30h
ret
qtyB endp

qtyC proc
mov cl, al
mov ah,2
mov bh,0
mov dl,28
mov dh,4
int 10h
cmp C,30h ;30h is 0
jb belowZEROC

mov ah,9
lea dx,C
int 21h
ret
belowZEROC: call pBelowZERO
add C,cl
sub C, 30h
ret
qtyC endp

qtyD proc
mov cl, al
mov ah,2
mov bh,0
mov dl,38
mov dh,4
int 10h
cmp D,30h ;30h is 0
jb belowZEROD

mov ah,9
lea dx,D
int 21h
ret
belowZEROD: call pBelowZERO
add D,cl
sub D,30h
ret
qtyD endp

;—————————————-
pBelowZERO proc
mov ah,2
mov bh,0
mov dl,4
mov dh,13
int 10h
mov ah,9
lea dx,vBelowZERO
int 21h
ret
pBelowZERO endp

clrError proc
mov ah,2
mov bh,0
mov dl,1
mov dh,13
int 10h
mov ah,9
lea dx, spacer1
int 21h
ret
clrError endp

tryAgainCursor proc
mov ah,2
mov bh,0
mov dl,39
mov dh,11
int 10h
ret
tryAgainCursor endp

qtyCursor proc
mov ah,2
mov bh,0
mov dl,17
mov dh,11
int 10h
ret
qtyCursor endp

input proc
mov ah,1
int 21h
ret
input endp

buyCursor proc
mov ah,2
mov bh,0
mov dl,7
mov dh,11
int 10h
ret
buyCursor endp

dispMenu proc
mov ah,9
lea dx,m01
int 21h
lea dx,m02
int 21h
lea dx,m03
int 21h
lea dx,m04
int 21h
lea dx,m05
int 21h
lea dx,m06
int 21h
lea dx,m07
int 21h
lea dx,m08
int 21h
lea dx,m09
int 21h
lea dx,m10
int 21h
lea dx,m11
int 21h
lea dx,m12
int 21h
lea dx,m13
int 21h
lea dx,m14
int 21h
lea dx,m15
int 21h
lea dx,m16
int 21h
ret
dispMenu endp

exit:
;—-Coded by Catzie Keng of http://catzie.net
int 20h
main endp
end s

;—Program coded by Catzie Keng of http://catzie.net

.model small
.code
org 100h

start: jmp main

;——– VARS ———
header db “Input a number (0-9): $”
footer db “Press Q to quit.$”
vOdd db “O D D $”
vEven db “E V E N $”

main proc near
mov ax,03 ;clear screen
int 10h

repeat:
call cursor ;header
mov dl,0
mov dh,0
int 10h
mov ah,9
lea dx,header
int 21h

call cursor ;footer
mov dl,4
mov dh,8
int 10h
mov ah,9
lea dx,footer
int 21h

call dispODD
call dispEVEN

call cursor ;input
mov dl,23
mov dh,0
int 10h
call input

cmp al,30h ;0
je pEven
cmp al,31h ;1
je pOdd
cmp al,32h ;2
je pEven
cmp al,33h ;3
je pOdd
cmp al,34h ;4
je pEven
cmp al,35h ;5
je pOdd
cmp al,36h ;6
je pEven
cmp al,37h ;7
je pOdd
cmp al,38h ;8
je pEven
cmp al,39h ;9
je pOdd
cmp al,’Q’
je terminate
cmp al,’q’
je terminate

pEven:
call prEven
jmp repeat
call exit

pOdd:
call prOdd
jmp repeat
call exit

terminate:
call endCursor
call exit

dispODD proc
call cursor ;display ODD
mov dl,10
mov dh,3
int 10h
mov ah,9
lea dx,vOdd
int 21h
ret
dispODD endp

dispEVEN proc
call cursor ;display EVEN
mov dl,9
mov dh,5
int 10h
mov ah,9
lea dx,vEven
int 21h
ret
dispEVEN endp

prEven proc
mov al,’ ‘
mov cx,1
mov bl,2fh
mov dh,5
x: mov dl,8
mov ah,2
int 10h
push cx
mov ah,9
mov cx,9
int 10h
pop cx
inc dh
loop x
call dispEVEN

mov al,’ ‘ ;cover odd
mov cx,1
mov bl,07h
mov dh,3
a: mov dl,8
mov ah,2
int 10h
push cx
mov ah,9
mov cx,9
int 10h
pop cx
inc dh
loop a
call dispODD
ret
prEven endp

prOdd proc
mov al,’ ‘
mov cx,1
mov bl,2fh
mov dh,3
y: mov dl,8
mov ah,2
int 10h
push cx
mov ah,9
mov cx,9
int 10h
pop cx
inc dh
loop y
call dispODD

mov al,’ ‘ ;cover even
mov cx,1
mov bl,07h
mov dh,5
b: mov dl,8
mov ah,2
int 10h
push cx
mov ah,9
mov cx,9
int 10h
pop cx
inc dh
loop b
call dispEVEN
ret
prOdd endp
main endp

;—Program coded by Catzie Keng of http://catzie.net

cursor proc
mov ah,2
mov bh,0
ret
cursor endp

input proc
mov ah,1
int 21h
ret
input endp

endCursor proc
call cursor
mov dl,0
mov dh,15
int 10h
endCursor endp

exit proc
int 20h
exit endp

end start
;—Program coded by Catzie Keng of http://catzie.net