home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FILUTL / LDIFF12S.ARC / LDIFF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-17  |  1.5 KB  |  38 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*LDIFF.pas  LDIFF.MAIN          (C)KAZUHIKO MIKI  NIFTY SDR SDI00147 89/7/15*)
  3. (*---------------------------------------------------------------------------*)
  4. (*      To Compile:    make for Japanese,  make -DE for English version     *)
  5. (*    Tools Used:    tpc(5),optasm(1.5),make(2),link,exe2bin,binobj         *)
  6. (*    List of files:    makefile    lde16   .asm    lde18   .asm         *)
  7. (*                      ldd.asm         meg     .asm    ldiff   .pas         *)
  8. (*                      ldvari  .pas    ldhelp  .pas    ldinit  .pas         *)
  9. (*                      ldextr  .pas    ldrepl  .pas    mytool  .pas         *)
  10. (*                      mytype  .pas    minimac .inc    lms3    .inc         *)
  11. (*                      ldproc  .pas                                         *)
  12. (*    Compile Mode:                                *)
  13. (*        tpc /M/DG /$D+,L+,R-,S-,V-.N-,E-                ΓΌ@   *)
  14. (*---------------------------------------------------------------------------*)
  15. (*$A+,B-,N-,E-,F-,I-,O-,M$6000,$0000,$A0000                                  *)
  16. (*---------------------------------------------------------------------------*)
  17. PROGRAM LDIFF;
  18.  
  19.  
  20. USES
  21.    LDInit,    (* for Initialize *)
  22.    LDVari,    (* for CMD        *)
  23.    LDHelp,    (* for HelpJob    *)
  24.    LDExtr,    (* for ExtrJob    *)
  25.    LDRepl;    (* for ReplaceJob *)
  26.  
  27.  
  28. BEGIN
  29.    Initialize;
  30.    CASE CMD OF
  31.       'C'     : ReplaceJob;
  32.       'X','T' : ExtrJob;
  33.       'H'     : HelpJob;
  34.    ELSE
  35.                 UseJob;
  36.    END;
  37. END.
  38.