home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / S1FILEIO.Z80 < prev    next >
Text File  |  2000-06-30  |  2KB  |  77 lines
  1. ;
  2. ; SYSLIB Module Name:  S1FILE
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.2
  6.  
  7.     public    fi1$open,f1$get,fi1$close
  8.     public    fo1$open,f1$put,fo1$close
  9.  
  10. ;  Date:     2 May 85
  11. ;  Revised: Al Dunsmuir
  12. ;  Changes:    - Table organization completely changed.
  13. ;        - Extensive code optimization performed.
  14. ;            
  15. ;   Previous Version:    1.0 (16 Jan 84)
  16.  
  17.  
  18. ;  EXTERNAL DECLARATIONS
  19. ;
  20.     EXT    FI$OPEN
  21.     EXT    FO$OPEN
  22.     EXT    FI$CLOSE
  23.     EXT    FO$CLOSE
  24.     EXT    F$GET
  25.     EXT    F$PUT
  26.  
  27. ;
  28. ;  MAIN ROUTINES FOR F1
  29. ;
  30. FI1$OPEN:
  31.     PUSH    HL        ;Save user REG
  32.     LD    HL,FI1$TBL    ;Get FI1 table address.
  33.     JP    FI$OPEN        ;Perform function
  34.  
  35. FO1$OPEN:
  36.     PUSH    HL        ;Save user REG
  37.     LD    HL,FO1$TBL    ;Get FO1 table address.
  38.     JP    FO$OPEN        ;Perform function
  39.  
  40. F1$GET:
  41.     PUSH    HL        ;Save user REG
  42.     LD    HL,FI1$TBL    ;Get FI1 table address.
  43.     JP    F$GET        ;Perform function
  44.  
  45. F1$PUT:
  46.     PUSH    HL        ;Save user REG
  47.     LD    HL,FO1$TBL    ;Get FO1 table address.
  48.     JP    F$PUT        ;Perform function
  49.  
  50. FI1$CLOSE:
  51.     PUSH    HL        ;Save user REG
  52.     LD    HL,FI1$TBL    ;Get FI1 table address.
  53.     JP    FI$CLOSE    ;Perform function
  54.  
  55. FO1$CLOSE:
  56.     PUSH    HL        ;Save user REG
  57.     LD    HL,FO1$TBL    ;Get FO1 table address.
  58.     JP    FO$CLOSE    ;Perform function
  59.  
  60. ;  Init Table and Buffers for F1 Routines
  61. ;
  62. FI1$TBL:
  63. I1$FLG:    DB    0        ;Input file opened flag (0=NO)
  64. I1$CNT:    DS    1        ;Input char count
  65. I1$PTR:    DS    2        ;Input char ptr
  66. I1$FCB:    DS    36        ;Input file FCB
  67. I1$BUF:    DS    128        ;Input Buffer
  68.  
  69. FO1$TBL:
  70. O1$FLG:    DB    0        ;Output file opened flag (0=NO)
  71. O1$CNT:    DS    1        ;Output char count
  72. O1$PTR:    DS    2        ;Output char ptr
  73. O1$FCB:    DS    36        ;Output file FCB
  74. O1$BUF:    DS    128        ;Output Buffer
  75.  
  76.     END
  77.