; MENUPROG.ASM
; (C)opyright Erdogan Tan. 12/12/2000

CODE_SEG_1	segment para public
		assume  CS:CODE_SEG_1, DS:CODE_SEG_1, SS:CODE_SEG_1, ES:CODE_SEG_1


                org    100h


;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
;±
;±		ENTRY POINT
;±
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±


;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
;±
;±		PROCEDURE proc_start
;±
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

proc_start	proc	far

Start:
    push cs
    pop ds
    call proc_clear_screen

loc_cursor_save:
         mov ah, 3
         int 10h
         mov word ptr [Cursor], cx

loc_cursor_off:
         mov ah, 1
         mov ch, 1
         mov cl, 0
         int 10h

    mov si, offset Pencere
    call proc_printmsg

    mov bx, 170h
    mov dl, 34
    mov dh, 7
    mov cl, 11
    mov ch, 80
    mov di, 0B800h
    mov ax, 01A1h
    int 18h

    mov dh, 10
    mov dl, 29
    mov byte ptr [Cursor_Line], dh
    mov bl, 112
    mov cl, 21
    mov ax, 01A1h
    int 18h

loc_repeat_get_char:
    xor ah, ah
    int 16h
    and al, 31
    jnz short loc_check_ascii_code
    cmp ah, 72
    je  short loc_cursor_up
    cmp ah, 80
    je  short loc_cursor_down
    jmp short loc_repeat_get_char
loc_check_ascii_code:
    cmp al, 27
    je short loc_end_of_program
    cmp al, 13
    jne short loc_repeat_get_char

    mov ax, 0E07h
    mov bx, 7
    int 10h

loc_end_of_program:

    mov cx, word ptr [Cursor]
    mov ah, 1
    int 10h

    int 20h

loc_cursor_up:
    cmp byte ptr [Cursor_Line], 10
    jna short loc_repeat_get_char
    mov dh, byte ptr [Cursor_Line]
    mov bx, 107h
    mov dl, 29
    mov cl, 21
    mov ch, 80
    mov di, 0B800h
    mov ax, 01A1h
    int 18h

    dec byte ptr [Cursor_Line]

    mov dh, byte ptr [Cursor_Line]
    mov bl, 112
    mov ax, 01A1h
    int 18h

    jmp short loc_repeat_get_char

loc_cursor_down:
    cmp byte ptr [Cursor_Line], 16
    jnb short loc_repeat_get_char
    mov dh, byte ptr [Cursor_Line]
    mov bx, 107h
    mov dl, 29
    mov cl, 21
    mov ch, 80
    mov ax, 01A1h
    int 18h

    inc byte ptr [Cursor_Line]

    mov dh, byte ptr [Cursor_Line]
    mov bl, 112
    mov ax, 01A1h
    int 18h

    jmp loc_repeat_get_char

proc_start      endp

proc_clear_screen proc near
    mov ah, 0Fh
    int 10h
    mov ah, 0
    int 10h

    retn

proc_clear_screen endp


proc_printmsg   proc    near

loc_5:		; N-Ref=1
		lodsb				; Load byte at DS:SI to AL
		and	AL,AL			
		je	loc_6			; Jump if equal ( = )
		mov	AH,0Eh			
		mov	BX,7			
		int	10h			; BIOS Service func ( ah ) = 0Eh
						; Write char as TTY
						;AL-char BH-page BL-color
		jmp	short loc_5		
loc_6:		; N-Ref=1
		retn				

proc_printmsg         endp

Pencere:

dw 7 dup (0A0Dh)
db 25 dup (20h)
db "ÚÄÄÄÄÄÄÄÄ MAIN MENU ÄÄÄÄÄÄÄÄ¿"
db 0Ah, 0Dh
db 25 dup (20h)
db "³                           ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ³  SYSTEM COMMAND LINE  ³ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ³  BORLAND C++          ³ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ³  VISUAL BASIC         ³ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ³  AUTOCAD R12          ³ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ³  PC TOOLS             ³ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ³  WINDOWS              ³ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ³  VISUAL BASIC         ³ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ³"
db 0Ah, 0Dh
db 25 dup (20h)
db "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
db 0Ah, 0Dh, 0Dh, 0

Cursor:
dw 0

Cursor_Line:
db 0

CODE_SEG_1	ends

                end     start