[ASM] Ferdehajítás, paraméterkezelés

Code    Segment
    assume CS:Code, DS:Data, SS:Stack

Start:
    ;mov di, 82h
    mov di, 80h

    mov dl, [di]
    cmp dl, 0
    jz Default

    mov di, 82h

    mov cx, 10
Keres:
    mov dl, [di]
    cmp dl, "/"
    jz ParamKezdet

    inc di
    loop Keres
    jmp Default

ParamKezdet:

    inc di
    mov bl, [di]

    cmp bl, "?"
    jz Help_Iside

    sub bl, 48

    mov cx, 10
    xor ax, ax
    mov ax, 0

LoopParam1:
    cmp bl, al
    jnz Hiba
    inc ax
    loop LoopParam1

    inc di
    mov bh, [di]
    sub bh, 48

    xor ax, ax
    mov ax, 0

LoopParam2:
    cmp bh, ah
    jnz Hiba
    inc ax
    loop LoopParam2

    mov ax, 10
    mul bl

    add al, bh
    mov cx, ax

    jmp Init

Help_Iside:
    jmp Help

Hiba:
    mov ax, Code
    mov DS, AX

    mov dx, offset Segitseg
    mov ah, 09h
    int 21h

    xor ax, ax
    int 16h

    jmp Default

Default:
    mov cx, 10 ; alap v0

Init:
    mov ax, Code
    mov DS, AX

    xor di, di ;golyo
    xor si, si ;sor

    xor dx, dx
    push dx ;verembe az idő, ami most

    mov ax, 03h
    int 10h

Rajz:
    mov bx, di ; dx koord
    mov dh, bl ;di alsó bájt
    mov bx, si ; oszlop koord
    mov dl, bl
    xor bh, bh
    mov ah, 02h
    int 10h

    mov dx, offset Labda
    mov ah, 09h
    int 21h

    ;Sy kiszámítása
    pop ax
    push ax

    mul al
    shr ax, 1

    mov di, ax

    ;sx számítás
    pop ax
    inc ax
    push ax
    dec ax

    mul cl
    mov si, ax

    cmp si, 80
    jnc Var

    cmp di, 25
    jnc Var

    jmp Rajz

Var:
    xor ax, ax
    int 16h

Program_Vege:
    pop cx
    mov ax, 4c00h
    int 21h

Help:
    mov ax, Code
    mov DS, AX

    mov ax, 03h
    int 10h

    mov dx, offset Segitseg
    mov ah, 09h
    int 21h

    jmp Var


Labda:
    db"*$"

Segitseg:
    db"Segítseg a helyes hasznalathoz$"

Code    Ends

Data    Segment

Data    Ends

Stack   Segment

Stack   Ends
    End Start