home *** CD-ROM | disk | FTP | other *** search
/ ftp.elysium.pl / ftp.elysium.pl.tar / ftp.elysium.pl / gnu-generation / YTM / burst-loader.src.gz / burst-loader.src
Text File  |  2001-07-29  |  2KB  |  135 lines
  1.  
  2. ;BURST-TRANSFER-LOADER
  3. ;LOADS A FILE BY STARTING TRACK+SECTOR
  4. ;(SEE LABEL BELOW)
  5. ;USES 8BIT PARALLEL BURST CABLE
  6.  
  7. ;IN DRIVE CODE LDX #9 - SMALLEST
  8. ;POSSIBLE DELAY
  9.  
  10.  
  11.  
  12.          *= $2000
  13.  
  14.          LDA #8
  15.          JSR $FFB1
  16.          LDA #$6F
  17.          JSR $FF93
  18.          LDX #0
  19. LP1      LDA KOD,X
  20.          JSR $FFA8
  21.          INX
  22.          CPX #7
  23.          BNE LP1
  24.          JSR $FFAE
  25.  
  26.          LDA #0
  27.          STA $DD03
  28.          STA $FE
  29.          LDA #$12
  30.          STA $FF
  31.  
  32.          LDA $DD0D
  33.          BEQ *-3
  34.  
  35.          SEI
  36.          LDY #0
  37. MAI      LDA $DD0D
  38.          BEQ *-3
  39.          LDA $DD01
  40.          STA ($FE),Y
  41.          STA $0500,Y
  42.          INC $D020
  43.          INY
  44.          BNE MAI
  45.          INC $FF
  46.          LDA $0500
  47.          BEQ FINI
  48.          JMP MAI
  49. FINI
  50.          CLI
  51.          RTS
  52.  
  53.  
  54. KOD      .TEXT "M-E"
  55.          .BYTE 3,4
  56. TRACK    .BYTE $12
  57. SECTOR   .BYTE 0
  58.  
  59.          *= $1000
  60. HERE
  61.          *= $0400
  62.          .OFFS HERE-$0400
  63.  
  64.          JMP IRQ
  65.  
  66.          LDA #$10
  67.          STA $1C07
  68.  
  69.          LDX #$38
  70. COPYROM  LDA $F4D1,X
  71.          STA $0150,X
  72.          DEX
  73.          BPL COPYROM
  74.          LDA #$60
  75.          STA $0184
  76.          LDA #$01
  77.          STA $6A
  78.          LDA #$FF
  79.          STA $1803
  80.          LDA #$0B
  81.          STA $180C
  82.  
  83. LOAD     LDA $0205
  84.          BEQ INITVIA
  85.          STA $08
  86.          LDA $0206
  87.          STA $09
  88.  
  89. CONT2    LDA #$E0
  90. ROM      LDX #1
  91.          STA $0298
  92.          JSR $D57D
  93.          JSR $D599
  94.          JMP LOAD
  95.  
  96. INITVIA  LDY #$3A
  97.          STY $1C07
  98.          RTS
  99.  
  100. IRQ      LDA #$03
  101.          STA $31
  102.          LDA $08
  103.          STA $06
  104.          LDA $09
  105.          STA $07
  106.  
  107.          LDA $1C00
  108.          EOR #8
  109.          STA $1C00
  110.  
  111.          JSR $0150
  112.  
  113.          LDA $1C00
  114.          EOR #8
  115.          STA $1C00
  116.  
  117.          SEI
  118.          LDY #0
  119.  
  120. MAIN     LDA $0300,Y
  121.          STA $1801
  122.  
  123.          LDX #9
  124.          DEX
  125.          BNE *-1
  126.  
  127.          INY
  128.          BNE MAIN
  129.          LDA $0300
  130.          STA $0205
  131.          LDA $0301
  132.          STA $0206
  133.          JMP $F505
  134.  
  135.