Based on RunCPM by Mockba the Borg
These are the commands needed to compile the CP/400 application
CRTDSPF FILE(RUNCPM/TERMINAL) SRCFILE(RUNCPM/QDDSSRC) SRCMBR(TERMINAL)
CRTCMOD MODULE(RUNCPM/MAIN) SRCFILE(RUNCPM/QCSRC) DBGVIEW(*ALL) SYSIFCOPT(*IFSIO)
CRTPGM PGM(RUNCPM/RUNCPM) MODULE(RUNCPM/MAIN)
To start an instance of CP/400 you need to pass the root path containing your CPM directory structure.
Example directory structure:
- CPM
- ZORK1
- AUTOEXEC.TXT
- A
- 0
- ZORK1.COM
- ZORK1.DAT
- 0
- ZORK1
Launching Zork:
CALL RUNCPM/RUNCPM PARM('/CPM/ZORK1')