help with PL/M80

[dwesti]

I took z80emu and started compilation

Seems emulator hangs during process

Next, I installed files from plm80x86.zip How to start with isis.exe? Any command bring error message.


Is *any*working* emulator exists?

 

[dwesti]

well. I missed a guide:

:f0: CP/M drive a:
:f1: CP/M drive b:
:f2: CP/M drive c:
:f3: CP/M drive d:

2>:f1lm80 :f2:load.plm

how to link .obj?

 

[retrogear]

use the simh emulator here:
http://schorn.ch/altair.html
chose Programming Languages then scroll down to PLM
he's got the 4 disk setup to use ISIS emulator to run plm80

Larry G

 

[dwesti]

yes, it works

my.plm:

MY:
DO;

DECLARE
    ENDFILE LITERALLY '1AH',    /* END OF FILE MARK */
    JMP   LITERALLY '0C3H',     /* 8080 JUMP INSTRUCTION */
    RET   LITERALLY '0C9H';     /* 8080 RETURN */

MON1: PROCEDURE(F,A) EXTERNAL;
    DECLARE F BYTE,
    A ADDRESS;
    END MON1;

PRINTCHAR: PROCEDURE(CHAR);
    DECLARE CHAR BYTE;
    CALL MON1(2,CHAR AND 7FH);
    END PRINTCHAR;

CRLF: PROCEDURE;
    CALL PRINTCHAR(13);
    CALL PRINTCHAR(10);
    END CRLF;

PRINT: PROCEDURE(A);
    DECLARE A ADDRESS;
    /* PRINT THE STRING STARTING AT ADDRESS A UNTIL THE
    NEXT DOLLAR SIGN IS ENCOUNTERED */
    CALL CRLF;
    CALL MON1(9,A);
    END PRINT;

     CALL PRINT(.('HUJ$'));

END MY;

I took trint.src from simh

Compilation:

:f1:plm80 :f1:my.plm
:f2:asm80 :f1:trint.src
:f1:cpm
isx
:f1:link :f1:my.obj,:f1:trint.obj,:f1:x0100,:f1:plm80.lib to :f1:my.mod
:f1:locate :f1:my.mod code(0100H) stacksize(100)
:f1:cpm
objcpm d:my

All i need is correct exit from program.

thank you for help!