home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / VISION2C.SFX / ldfile.s < prev    next >
Text File  |  1994-11-18  |  915b  |  44 lines
  1.  ;MOZART TUE14DEC93 ML FILE LOAD
  2.  ;
  3.  ;FILE OPEN, FILE CLOSE AND ERROR
  4.  ;CHECKING DONE BY BASIC
  5.  ;
  6.  ;DEFINE ASSEMBLER CONSTANTS
  7.  ;
  8. CHKIN  = $FFC6 ;DESIGNATE INPUT FILE
  9. CHRIN  = $FFCF ;READ A BYTE
  10. CLRCHN = $FFCC ;CLEAR ALL CHANNELS
  11. GENPTR = $FD ;ZERO PAGE POINTER
  12. SOV    = $2D ;BASIC START OF VARS
  13. STATUS = $90 ;BASIC STATUS BYTE
  14. TEMP   = $57 ;TEMPORARY BYTE DUMP
  15.  ;
  16. *=$0ACA ;SYS 2762
  17.  ;
  18.  JSR CLRCHN ;CLEAR ALL I/O CHANNELS
  19.  LDY #3 ;GET BASIC IL% VALUE
  20.  LDA (SOV),Y ;IS LOGICAL FILE
  21.  TAX
  22.  JSR CHKIN ;DESIGNATE AS INPUT FILE
  23.  ;
  24.  JSR CHRIN ;GET LO BYTE HEADER
  25.  STA GENPTR
  26.  JSR CHRIN ;GET HI BYTE HEADER
  27.  STA GENPTR+1
  28.  ;
  29. RDLOOP JSR CHRIN ;GET DATA BYTE
  30.  LDX STATUS ;GET I/O STATUS BYTE
  31.  STX TEMP ;SAVE FOR LATER
  32.  ;
  33.  LDY #0
  34.  STA (GENPTR),Y ;STORE DATA BYTE
  35.  INC GENPTR ;INCREMENT POINTER
  36.  BNE SKIP
  37.  INC GENPTR+1
  38. SKIP LDA TEMP ;TEST STATUS NOW
  39.  BEQ RDLOOP ;ZERO MEANS GET MORE
  40.  ;
  41.  JSR CLRCHN ;CLEAR I/O CHANNELS
  42.  RTS
  43. .END
  44.