Вот исходник на plm/
Код:
MY:
DO;
PUTCH: PROCEDURE(A) EXTERNAL;
DECLARE A BYTE;
END;
DECLARE (S,F) ADDRESS;
DECLARE (C BASED S) byte;
S=.('HELLO PLM',0,0);
DO WHILE C<>0;
CALL PUTCH(C);
S=S+1;
END;
DO WHILE 1=1;
END;
END;
А вот выходной асм
Код:
org 00000H
.text HELLO PLM
.db 0,0
lxi sp,X00A1
lxi h,00000H
shld X00A1
L0014:
lhld X00A1
mov a,m
cpi 000H
jz L002E
lhld X00A1
mov c,m
call L003A
lhld X00A1
inx h
shld X00A1
jmp L0014
;
L002E:
mvi a,001H
cpi 001H
jnz L0038
jmp L002E
;
L0038:
ei
hlt
L003A:
jmp LF809