Question

Someone could help me to make in assembler 8086 (MASM), a program that does the SHELL SORT, I would be grateful to help me :)

Answer 1

QI write a assembler 8086 (MASM) program that does the SHELL SORT. Ans ) Code Shell sort SHELLSRT CSECT Using S HELLSRT , RIZ base register B 72(R15) Skip Savearea DC 17F 'O Savearea STM R14, Ria, 12(R13) prolog ST R13,4 CR15) prolog ST RIS, 8CR 13) prolog LR R13, RIS Prolog L RK, N incr=n SRA RK, inco=0/2 DO WHILE - (LTR, RK, P, RK) do while (incr>0) LA RI,(RK) i altinco DO WHILE =(C, RI, LEIN) do ialtinco ton LR RJ ,RI ง

i LR RI, RI SLA R1, 2 L RT, A-4 CRI) temp = QCŮ) LR Ra, Rk Pner LA Ra , (P2) 82 = incoal LR R3, RJ j SR R3, RK ů - incr SLA R3,2 *. LA R3, A-4CR3) 83 -@alj- inex) LR Ru, RR incy SLA R4,2 84=inc8*4 LR RS, RJ j SLA R5,2 LA RS A-4 (R5) @acji do while y-incoa = 1 and acj-incy) > temp DO WHILE - CCR, RJ, GEIRQ, AND, CIRT, LT, OCR3)) Ľ R0,0 (R3) a lj-incr) ST RO,O(RS) a cjs = afp-incro SR RJ IRK ů =j-inco LR RS, R3 @acj) SR R3 ,RY @alj-inco) @ ENODO a Cj-incri-inco*4 d .

end do if incr=a ENDDO IF C,RR, EQ : 562 LA Rkil incr=1 ELSE else 1 LR inco M M * 5 RS, RK Ry, = F's! R4,-F'll D 111 LR RK, R5 incr=incr*5/11 ENOIE 1 endif ENDDO LA LA RII go enddo R3, PGT Pgi - 0 i= WHILE = (C, RI ,LE, N) do i=1 to n RIIRI i R1Q RQ, A-4 (RI) acil LR SLA L acis XDECO R2, XDEC edit Acil 004, R3) , XDEC +8 Muc LA Output aci) R3,4CR3) RI,ICRI) pgi = pgity i = i + 1 LA ENDDO , end do X PRAT PG, L'PG L ㄴ R 13,4 10,R13) RI4.R12112(R13) print buffer epilog epilog LM

XR RISIRIS epilog BR Rly exit A DC F'M',F'65',F'd', F'-31', Flo', F'99', F'2',F'83) AIN-A/L'A) number of items of a N DC RPG DC CL80' 1 XDEC buffer DS CLIQ temp for adeco YREGS RI EQU 6 1 RJ EQU 7 RK COU & ง incr RT EQU 9 temp END SHELL SRT output -31 0 o a Q 4 65 83 99