home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / pascal-p / pp319upd.lbr / PASCPREP.JZB / PASCPREP.JOB
Encoding:
Text File  |  1987-01-15  |  2.1 KB  |  43 lines
  1. ;;pascprep          ,    nul,            ,         ,  z
  2. ;    sourcefile^^ listfile^^    ^^>errlisting   ^^options ^^assylist
  3. ; Creates a COM file from Pascal source, leaving relocatable file
  4. ; --- You will want to strip most of the following comment lines ---
  5. ; --- Edit this job stream file to suit your own preferances     ---
  6. ; --- (each 8 lines requires 1k of disk space for $$$$$$.SUB)    ---
  7. ; --- Assumes use of JOB.COM (see JOB15.LBR and IFSKIP21.LBR)    ---
  8. ; --- Modify "kill" below (or create kill.com) if not using DOS+. --
  9. ;
  10. ; set assylist = dskletter, x, y, or z for disk, con, lst, none
  11. ; set options = 128 for commented assembly listing (source.lst)
  12. ; (use sum)      64 for Z80 mnemnonics (change SLRMAC to Z80ASM)
  13. ;                       & change "mac" to "z80" below)
  14. ;                 8 for cross-compile (to word machines). no ASSM
  15. ;                 4 to continue if compilation errors
  16. ;                 2 for procedure tracing information at runtime
  17. ; This requires all files except listfiles on default disk
  18. ; Typical time ratios 10:2:1:0.5  pascalp:assmap:slrmac:slrnk
  19. ; Assume you need about 5 to 10 times source size disk space available
  20. ; Put PASCALP.PCD on the fastest available drive. Swaps segments.
  21. ;
  22. ; EX1: "job pascprep filename"       (uses all default parameters)
  23. ; EX2: "job pascprep filename lst"   (for Pascal listing on printer)
  24. ; EX3: "job pascprep filename, , >errors, 128, b"
  25. ;         (creates intermixed Pascal/assy listing on b:filename.lst.
  26. ;          saves any compilation errors on "errors")
  27. ;
  28. ; source is always "filename.PAS" for this job stream.  
  29. ;
  30. //if $1 :2
  31. //skip 1; All well, no source extension specified
  32. kill (the job) (on DOS+) (or era a0:$$$$$$.sub) (else SELF ERASES)
  33. runpcdi pascalp ($1.pas, $2, $1.tic) [$4] $3
  34. assmap ($1.tic, $1.mac) [$4]
  35. era $1.tic
  36. ; Note - 2 pass assembly takes longer, but requires less memory.
  37. slrmac $1.@@$5/fr
  38. era $1.mac
  39. era extrnls
  40. ; Note: Use SLRNK+ if insufficient memory available.
  41. ; Note: Can specify drives for CPMLINK and PASCLIB
  42. slrnk /a:100,cpmlink,$1,pasclib/s,$1/n,/e
  43. c+