home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Information / 256KB.ROS-V1.SFX / rdisc.a < prev    next >
Encoding:
Text File  |  1993-04-28  |  881 b   |  77 lines
  1. ;
  2. ; LOADER FOR RAMDISC
  3. ;
  4.  .OPT NOL
  5. INDEX =$22
  6. SETLFS =$FFBA
  7. SETNAM =$FFBD
  8. LOAD =$FFD5
  9. CHROUT =$FFD2
  10. PIA =$DFC0
  11. ;
  12. *=$0801
  13.  .WORD EOP,1987
  14.  .BYT $9E,' 2062',0
  15. EOP .WORD 0
  16. ;
  17.  LDX #11
  18. LOADE0 LDA LOADE5,X
  19.  STA PIA,X
  20.  DEX
  21.  BPL LOADE0
  22. ;
  23.  LDX #<FNAME
  24.  LDY #>FNAME
  25.  LDA #FNAME1-FNAME
  26.  JSR SETNAM
  27.  LDX #8
  28.  LDY #1
  29.  JSR SETLFS
  30.  LDA #0
  31.  JSR LOAD
  32.  LDX #<FNAME1
  33.  LDY #>FNAME1
  34.  LDA #FNAME2-FNAME1
  35.  JSR SETNAM
  36.  LDX #8
  37.  LDY #0
  38.  JSR SETLFS
  39.  LDA #0
  40.  LDX #0
  41.  LDY #$E0
  42.  JSR LOAD
  43. ;
  44.  LDA #$A0
  45.  STA INDEX+1
  46.  LDA #0
  47.  STA INDEX
  48.  TAY
  49.  LDX #$20
  50. LOADE1 LDA (INDEX),Y
  51.  STA (INDEX),Y
  52.  INY
  53.  BNE LOADE1
  54.  INC INDEX+1
  55.  DEX
  56.  BNE LOADE1
  57.  LDA #$35
  58.  STA 1
  59.  JSR $EE30 ;RESET RAMDRIVE
  60.  LDX #0
  61. LOADE2 LDA TEXT,X
  62.  JSR CHROUT
  63.  INX
  64.  ORA #0
  65.  BNE LOADE2
  66.  RTS
  67. ;
  68. FNAME .BYT 'RAM.C'
  69. FNAME1 .BYT 'RAM.K'
  70. FNAME2
  71. ;
  72. TEXT .BYT 13,13,'RAMDISC IS ACTIVATED.',0
  73. LOADE5 .BYT $0C,$34,$FE,$04
  74.  .BYT $FF,$00,$FF,$00
  75.  .BYT $DC,$04,$FE,$04
  76.  .END
  77.