Question

Please, Could someone please write me an assembly language program for PEP8 which outputs the perimeter of a rectangle? perim=(width+length)*2 ?

Answer 1

BR main

;******* void rect (int& p, int w, int h)

p: .EQUATE 6 ;formal parameter

w: .EQUATE 4 ;formal parameter

h: .EQUATE 2 ;formal parameter

rect: LDA w,s ;p = (w + h) * 2

ADDA h,s

ASLA

STA p,sf

endIf: RET0 ;pop retAddr

;

;******* main ()

perim: .EQUATE 4 ;local variable

width: .EQUATE 2 ;local variable

height: .EQUATE 0 ;local variable

main: SUBSP 6,i ;allocate locals

STRO msg1,d

DECI width,s

STRO msg2,d

DECI height,s

MOVSPA ;push address of perim

ADDA perim,i

STA -2,s

LDA width,s ;push value of width

STA -4,s

LDA height,s ;push value of height

STA -6,s

SUBSP 6,i ;push params

CALL rect ;rect (perim, width, height)

ra1: ADDSP 6,i ;pop params

STRO msg3,d

DECO perim,s

CHARO '\n',i

ADDSP 6,i ;deallocate locals

STOP

msg1: .ASCII "Enter width: \x00"

msg2: .ASCII "Enter height: \x00"

msg3: .ASCII "perim = \x00"

.END