home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / prolog / epro23.ark / ERROR.MAC < prev    next >
Encoding:
Text File  |  1986-11-02  |  896 b   |  65 lines
  1.  
  2. ; ===========================================================
  3. ;ERROR.Z80
  4. ;    error routines for E-Prolog
  5. ;    May 20, 1985
  6.  
  7.     .Z80
  8.  
  9. FALSE    EQU    0
  10. TRUE    EQU    1
  11. EMPTY    EQU    -1
  12. UNDEF    EQU    -2
  13.  
  14. HT    EQU    9
  15. LF    EQU    10
  16. CR    EQU    13
  17. CTLZ    EQU    26
  18.  
  19. CPM    EQU        0000H
  20. BDOS    EQU    CPM+0005H
  21. CDMA    EQU    CPM+0080H
  22. TPA    EQU    CPM+0100H
  23.  
  24. ;errmsg(s)
  25. ;  char * s;
  26. ;  {
  27. ;  if (outfile != stdout && outfile != null)
  28. ;    {
  29. ;    fclose(outfile);
  30. ;    }
  31. ;  outfile == stdout;
  32. ;  msg(s);
  33. ;  }
  34. ERRMSG::
  35. ERROR::
  36.     PUSH    HL
  37.     LD    A,(OUTF##)
  38.     OR    A
  39.     JR    Z,ERR1
  40.     INC    A
  41.     JR    Z,ERR1
  42.     CALL    CLOSE##
  43. ERR1:    XOR    A
  44.     LD    (OUTF##),A
  45.     POP    HL
  46.     CALL    MSG##
  47.     RET
  48.  
  49. ;fatal(s)
  50. ;  char * s;
  51. FATAL::
  52.     CALL    ERROR
  53.     JP    CPM
  54.  
  55. ;imperr()
  56. IMPERR::
  57.     LD    HL,MSG1
  58.     JR    FATAL
  59.     DSEG
  60. MSG1:    DB      CR,LF,"IMPLEMENTATION ERROR.",0
  61.     CSEG
  62.  
  63.     END
  64.  
  65.