Anonymous user
Loops/While: Difference between revisions
→{{header|360 Assembly}}
Line 27:
XC WTOTXT,WTOTXT clear wto text
UNPK WTOTXT,PACKED packed decimal to zoned (printable)
WTO TEXT=(8) and write-to-operator
B LOOP loop.
RETURN PR , return to caller.
| |||