home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / PASCALZ4.ZIP / D3 / DEFLT.SRC < prev    next >
Text File  |  1999-04-05  |  2KB  |  48 lines
  1. ; INITIALIZE SOME RUN-TIME PARAMETERS TO THEIR CORRECT DEFAULT VALUES
  2. ;
  3. ;
  4. .R:    SET    0FFFFH        ;DEFAULT FOR RANGE  CHECKING IS YES
  5. .C:    SET    0FFFFH        ;   "     "  CTRL-C     "     "  "
  6. .M:    SET    0FFFFH        ;   "     "  MATH       "     "  "
  7. .S:    SET    0FFFFH        ;   "     "  STACK      "     "  "
  8. .D:    SET    0FFFFH        ;   "     "  DIVIDE     "     "  "
  9. .E:    SET    00000H        ;   "     "  EXTENDED ERROR MESSAGES IS OFF
  10. .F:    SET    0FFFFH        ;DEFAULT FOR FLOATING POINT CHECKING IS ON.
  11. .T:    SET    00000H        ;   "     "  DEFAULT FOR TRACE OPTION IS OFF
  12. .VALID:    SET    00000H        ;STATEMENT NUMBER ISN'T VALID
  13. ;
  14. ;
  15. ; PASCAL DEFAULTS
  16. ;
  17. CR    EQU    13        ;CARRIAGE RETURN
  18. LF    EQU    10        ;LINE FEED
  19. EOFMRK    EQU    1AH        ; Enf of file marker.
  20. BUFLEN    EQU    80        ;SIZE OF PASCAL'S CONSOLE BUFFER.
  21. MARGIN    EQU    50        ;STACK OVERFLOW MARGIN
  22.  
  23. COMPILER EQU    00000H        ;TRUE IF ASSEMBLING THE COMPILER.
  24.  
  25. MAXDRV    EQU    16        ;MAXIMUM # OF DRIVES (USED BY FILNAM).
  26.  
  27. RESTRT    EQU    0        ;SYSTEM RESTART ADDRESS
  28. CPM    MACRO
  29.     CALL    5        ;CPM ENTRY ADDRESS
  30.     ENDMAC
  31.  
  32. FCB    EQU    0
  33. RANREC    EQU    33        ; OFFSET OF RAND.REC.BLOCK # LOW BYTE
  34. DEVNUM    EQU    36        ; OFFSET OF DEVICE NUMBER ENTRY.
  35. BYTPT    EQU    37        ; OFFSET OF BYTE POINTER/COUNTER ENTRY.
  36. LSBYT    EQU    38        ; OFFSET OF LAST BLOCK BYTE COUNT.
  37. DATAB    EQU    39        ; OFFSET OF DATA BUFFER ENTRY.
  38. SETRAN    EQU    36        ; SET RANDOM RECORD FUNCTION
  39.  
  40. FILCHR    EQU    EOFMRK        ; BYTE TO PAD END OF FILE WITH.
  41. ;
  42.  
  43. TXTBUF    EQU    BUFLEN+2+1+1
  44. GETP    EQU    TXTBUF        ; POINTS TO NEXT CHARACTER TO READ FROM BUFFER.
  45. PUTP    EQU    TXTBUF-1    ; Points to last character in buffer.
  46.  
  47. $FXDCVT    SET    0
  48.