Reverse a string: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add MACRO-11 |
|||
Line 2,529:
Output:
<pre>"gnirts-ym"</pre>
=={{header|MACRO-11}}==
<syntaxhighlight lang="macro11"> .TITLE REVERS
.MCALL .GTLIN,.PRINT,.EXIT
REVERS::.GTLIN #1$ ; READ STRING
MOV #1$,R0
JSR PC,REV ; REVERSE IT
.PRINT #1$ ; PRINT RESULT
.EXIT
1$: .BLKB 200
; REVERSE STRING AT R0
REV: MOV R0,R1
1$: TSTB (R1)+ ; FIND END OF STRING
BNE 1$
DEC R1 ; MOVE BACK TO LAST CHAR
2$: MOVB -(R1),R2 ; SWAP CHARS
MOVB (R0),(R1)
MOVB R2,(R0)+
CMP R0,R1 ; STOP WHEN POINTERS MEET
BLT 2$
RTS PC
.END REVERS</syntaxhighlight>
{{out}}
<pre>.revers
A man, a plan, a canal: Panama
amanaP :lanac a ,nalp a ,nam A</pre>
=={{header|Maple}}==
|