PDA

View Full Version : help with PL/M80



dwesti
December 15th, 2016, 07:44 AM
I took z80emu (http://www.shaels.net/index.php/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
December 16th, 2016, 05:30 AM
well. I missed a guide (http://www.autometer.de/unix4fun/z80pack/doc_isis_intro.html):


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

2>:f1:plm80 :f2:load.plm

how to link .obj?

retrogear
December 16th, 2016, 09:11 AM
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
December 16th, 2016, 10:19 PM
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!