home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #8 / Commodore_Disk_User_Vol.3_8_1990_-.d64 / prob2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  655b  |  24 lines
  1. 10  *=$c000           _!start of code
  2. 20  setlfs=$ffba      _!kernal routines
  3. 30  setnam=$ffbd       !
  4. 40  do(NULL)=$ffd5       !
  5. 50  device=8          _!device number
  6. 60  fileno=1          _!file number
  7. 70  secadd=255        _!secondary addr.
  8. 80  ;
  9. 100 lda #fileno
  10. 110 ldx #device
  11. 120 ldy #secadd
  12. 130 jsr setlfs        _!set up file
  13. 140 lda #name1-name   _!filename length
  14. 150 ldx #<name        _!lo/hi byte of
  15. 160 ldy #>name         ! start of name
  16. 170 jsr setnam        _!set filename
  17. 180 lda #0            _!flag for load
  18. 190 jsr do(NULL)        _!do the load
  19. 200 jmp start         _!start of prog.
  20. 210 ;
  21. 220 name byt "filename"
  22. 230 name1 ;
  23. 240 start rts
  24.