System information

a>ED SORT.ASM Make changes to original program
(the caret,^, indicates a control character)
*N,0^ZOTT Find next ,0
MVI M,0 ;I = 0
*- Up one line in text
LXI H,I ;ADDRESS INDEX
*- Up another line
MVI M, 1 ;SET TO 1 FOR FIRST ITERATION
*KT Kill line and type next line
LXI H,I ;ADDRESS INDEX
*I Insert new line
MVI M,0 ;ADDRESS INDEX
*NJNC^Z0T
JNC*T
CONT ;CONTINUE IF I <=(N-2)
*-2DIC^Z0LT
JC CONT ;CONTINUE IF I <= (N-2)
*E
A>ASM SORT.AAZ Source = A, HEX to disk A, Skip PRN
CP/M ASSEMBLER - VER 1.0
015C Next adress to assemble
0003H USE FACTOR
END OF ASSEMBLY
3.7 A Sample Session CP/M Operating System Manual
3-32