TITLE A$14$SPRED $($EXE$)$ Spreadsheet arithmetic

$.$MODEL SMALL

$.$STACK $64$

; $-----------------------------------------------$

$.$DATA

SPRD$\_$TBL DW $05,03,06,04,10,00$ ;Data rows

DW $04,05,01,09,06,00$

DW $06,02,00,10,11,00$

DW $10,07,03,05,02,00$

DW $00,00,00,00,00,00$ ;Total row

COUNT DB $?$

COLS EQU $12$ ;$6$ cols X $2$ bytes

ROWS EQU $10$ ;$5$ rows X $2$ bytes

NOCOLS EQU $06$ ;No$.$ of columns

NOROWS EQU $05$ ;No$.$ of rows

COLTOT EQU NOCOLS$*($NOROWS$-1)*2$ ;$6$ cols X $4$ rows X $2$

$\mathrm{.}386$ ; $------------------------------------------------$

$.$CODE

A$10$MAIN PROC FAR

MOV AX $,$@data ;Initialize

MOV DS$,$AX ; segment

MOV ES$,$AX ; registers

CALL B$10$HORZL ;Call horizontal addition

CALL C$10$VERTL ;Call vertical addition

MOV AX$,4$C$00$H ;End processing

INT $21$H

A$10$MAIN ENDP

; Add horizontal totals $($rows$)$:

B$10$HORZL PROC NEAR

PUSHA ;Preserve registers

MOV COUNT,NOROWS$-1$ ;Count to add row cells

LEA DI$,$SPRD$\_$TBL ;Initialize table

LEA SI$,$SPRD$\_$TBL ; addresses

ADD SI$,$ROWS

B$10$: MOV CX$,$NOCOLS$-1$ ;Count for columns

B$20$: MOV AX$,[$DI$]$ ;Get amount from cell

ADD $[$SI$],$AX ;Add it to row total

ADD DI$,02$ ;Next cell in row

LOOP B$20$ ;Repeat thru all cells in row ADD DI$,02$ ;First cell in next row

ADD SI$,$COLS ;Next row total

DEC COUNT ;Repeat thru all rows

JNZ B$10$

POPA ;Restore registers

RET

B$10$HORZL ENDP

; Add vertical totals $($columns$)$:

C$10$VERTL PROC NEAR

PUSHA ;Preserve registers

MOV COUNT,NOCOLS$-1$ ;Count to add column cells

MOV BX$,00$

LEA SI$,[$SPRD$\_$TBL$+$COLTOT$]$ ;Initialize column total

C$10$: LEA DI$,$SPRD$\_$TBL ;Initialize top cell

ADD DI$,$BX

MOV CX$,$NOROWS$-1$ ;Count for rows

C$20$: MOV AX$,[$DI$]$ ;Get amount from cell

ADD $[$SI$],$AX ;Add it to column total

ADD DI$,$COLS ;Next cell in column

LOOP C$20$ ;Repeat thru all cells in column

ADD BX$,02$ ;Next cell in row

ADD SI$,02$ ;Next column total

DEC COUNT ;Repeat thru all cols

JNZ C$10$

POPA ;Restore registers

RET

C$10$VERTL ENDP

END A$10$MAIN

Revise the program: A$14$SPRED $($EXE$)$ Spreadsheet arithmetic so that it adds the totals of

$($a$)$ at the right of each row $($vertically$)$

$($b$)$ at the bottom of each column $($horizontally$).$

$($c$)$ Display the spreadsheet on the screen.