---

.model small
.stack 100h

.data
M db ?

MsgM db 'Input month number (1-9): $'
MsgWinter db 10, 'Winter$'
MsgSpring db 10, 'Spring$'
MsgSummer db 10, 'Summer$'
MsgAutumn db 10, 'Autumn$'
MsgError  db 10, 'Error$'

.code

Start:

mov ax, @data
mov ds, ax

; Вывод приглашения
mov ah, 09h
lea dx, MsgM
int 21h

; Ввод символа
mov ah, 01h
int 21h

sub al, '0'
mov M, al

; Проверка зимы
cmp al, 1
je winter

cmp al, 2
je winter

; Проверка весны
cmp al, 3
jb error
cmp al, 5
jbe spring

; Проверка лета
cmp al, 6
jb error
cmp al, 8
jbe summer

; Проверка осени
cmp al, 9
je autumn

jmp error

winter:
mov ah, 09h
lea dx, MsgWinter
int 21h
jmp finish

spring:
mov ah, 09h
lea dx, MsgSpring
int 21h
jmp finish

summer:
mov ah, 09h
lea dx, MsgSummer
int 21h
jmp finish

autumn:
mov ah, 09h
lea dx, MsgAutumn
int 21h
jmp finish

error:
mov ah, 09h
lea dx, MsgError
int 21h

finish:
mov ax, 4C00h
int 21h

end Start