version 0.81

[asm2wsl.git] / samples-with-macros / array-sum-input.asm

diff --git a/samples-with-macros/array-sum-input.asm b/samples-with-macros/array-sum-input.asm
new file mode 100644 (file)
index 0000000..57d3883
--- /dev/null
+++ b/samples-with-macros/array-sum-input.asm
@@ -0,0 +1,194 @@
+.model small\r
+;make a sum of an array - version with loading values\r
+;predefined array size\r
+\r
+;#macro-commands-start\r
+end_execution macro\r
+; finish the execution\r
+    mov ax, 4c02h\r
+    int 21h\r
+endm \r
+\r
+print_str macro s\r
+; print a s string on screen\r
+    push ax\r
+    push dx  \r
+    mov dx, offset s\r
+    mov ah, 09\r
+    int 21h\r
+    pop dx\r
+    pop ax\r
+endm\r
+\r
+inttostr macro num1 str1\r
+; convert num1 to str1\r
+   push ax\r
+   push bx\r
+   push cx\r
+   push dx\r
+   push si\r
+   mov ax, num1\r
+   mov dl, '$'\r
+   push dx\r
+   mov si, 10\r
+itosloop:\r
+   mov dx, 0\r
+   div si\r
+   add dx, 48\r
+   push dx\r
+   cmp ax, 0\r
+   jne itosloop\r
+   \r
+   mov bx, offset str1\r
+itosloopa:      \r
+   pop dx\r
+   mov [bx], dl\r
+   inc bx\r
+   cmp dl, '$'\r
+   jne itosloopa\r
+   pop si  \r
+   pop dx\r
+   pop cx\r
+   pop bx\r
+   pop ax \r
+endm\r
+\r
+print_num macro num\r
+    ;convert num, print str\r
+    inttostr num,tempStr\r
+    print_str tempStr\r
+endm      \r
+\r
+; new line\r
+print_new_line macro\r
+    push ax\r
+    push bx\r
+    push dx\r
+    mov ah,03\r
+    mov bh,0\r
+    int 10h\r
+    inc dh\r
+    mov dl,0\r
+    mov ah,02\r
+    int 10h\r
+    pop dx\r
+    pop bx\r
+    pop ax\r
+endm\r
+\r
+read_num macro num\r
+        read_str tempStr,6\r
+        strtoint tempStr,num\r
+endm\r
+\r
+;read into a buffer, inc the special 0 and 1 bytes\r
+;fixes it into a $ terminated string\r
+read_str macro strbuff, strlen\r
+    LOCAL copystr\r
+    push ax\r
+    push bx\r
+    push cx\r
+    push dx\r
+    push si\r
+    mov bp, sp\r
+    mov dx, offset strbuff\r
+    mov bx, dx\r
+    mov ax, strlen\r
+    mov byte [bx] ,al\r
+    mov ah, 0Ah\r
+    int 21h\r
+    mov si, dx     \r
+    mov cl, [si+1] \r
+    mov ch, 0\r
+copystr:\r
+    mov al, [si+2]\r
+    mov [si], al\r
+    inc si\r
+    loop copystr     \r
+    mov [si], '$'\r
+    pop si  \r
+    pop dx\r
+    pop cx\r
+    pop bx\r
+    pop ax\r
+endm\r
+\r
+;ascii to actual number\r
+strtoint macro inStr,outNum\r
+    LOCAL mainloop,end\r
+    push ax\r
+    push bx\r
+    push cx\r
+    push dx\r
+    push si\r
+    mov bp, sp\r
+    mov bx, offset inStr\r
+    mov ax, 0\r
+    mov cx, 0\r
+    mov si, 10\r
+mainloop:\r
+    mov cl, [bx]\r
+    cmp cl, '$'\r
+    je end\r
+    mul si\r
+    sub cx, 48\r
+    add ax, cx\r
+    inc bx  \r
+    jmp mainloop\r
+end:\r
+    mov outNum, ax \r
+    pop si  \r
+    pop dx\r
+    pop cx\r
+    pop bx\r
+    pop ax\r
+endm\r
+;#macro-commands-end\r
+\r
+.code\r
+start:\r
+        mov dx, @data\r
+        mov ds, dx \r
+        print_str prompt\r
+        read_num n\r
+        mov ax, 0\r
+        mov cx, n\r
+        cmp maxn, cx\r
+        jae normal\r
+        print_str errorN\r
+        end_execution\r
+normal:          \r
+loadloop:\r
+        print_str prompt\r
+        read_num t\r
+        mov ax,t\r
+        mov bx,n\r
+        sub bx,cx\r
+        mov niz[bx],al\r
+        loop loadloop\r
+        print_new_line\r
+        ; now sum up\r
+        mov cx, n\r
+        xor ax,ax\r
+mainloop:              \r
+        mov bx, cx\r
+        add al, niz[bx-1]   ; get array memeber, byte\r
+        ; store sum in al\r
+        loop mainloop         ; end calc if done\r
+        print_num ax\r
+        end_execution\r
+\r
+data segment\r
+n       dw  7\r
+t       dw  0\r
+maxn    dw  20\r
+niz     db  1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0     \r
+tempStr db "        "\r
+prompt db "Number?$"\r
+errorN db "Number too large!$"\r
+ends\r
+end start\r
+\r
+\r
+\r
+\r