home *** CD-ROM | disk | FTP | other *** search
/ ArachnoPhobia 34 / ArachnoPhobia_34_2005-04-16_Spiders-Crew_ROLE.d64 / 38mmcdrv.s < prev    next >
Text File  |  2023-02-26  |  9KB  |  406 lines
  1. ;    c64 mmc iNTERFACE v1.38 
  2.  
  3. ;    tESTPROGRAM READS sECTOR AFTER sECTOR WHEN YOU PRESS sPACE kEY
  4.  
  5. ;    FROM YOUR fat16 FORMATED mmc cARD
  6.  
  7. ;    a RED bOARDER SHOWS YOU AN eRROR WITH cARD OR rEADER 
  8.  
  9. ;
  10.  
  11. ;
  12.  
  13. ;    cOPYRIGHT (c) 2005 mARC sCHWARZBURG
  14.  
  15. ;
  16.  
  17. ;    tHIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
  18.  
  19. ;    IT UNDER THE TERMS OF THE gnu gENERAL pUBLIC lICENSE AS PUBLISHED BY
  20.  
  21. ;    THE fREE sOFTWARE fOUNDATION; EITHER VERSION 2 OF THE lICENSE, OR
  22.  
  23. ;    (AT YOUR OPTION) ANY LATER VERSION.
  24.  
  25. ;
  26.  
  27. ;    tHIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL,
  28.  
  29. ;    BUT without any warranty; WITHOUT EVEN THE IMPLIED WARRANTY OF
  30.  
  31. ;    merchantability OR fitness for a particular purpose.  sEE THE
  32.  
  33. ;    gnu gENERAL pUBLIC lICENSE FOR MORE DETAILS.
  34.  
  35. ;
  36.  
  37. ;    yOU SHOULD HAVE RECEIVED A COPY OF THE gnu gENERAL pUBLIC lICENSE
  38.  
  39. ;    ALONG WITH THIS PROGRAM; IF NOT, WRITE TO THE fREE sOFTWARE
  40.  
  41. ;    fOUNDATION, iNC., 59 tEMPLE pLACE, sUITE 330, bOSTON, ma  02111-1307  usa
  42.  
  43. ;
  44.  
  45. ;    mmc lOWlEVEL dRIVER v1.37 (c64asm source)
  46.  
  47. ;    (c) 2004 mARC sCHWARZBURG wIEN 
  48.  
  49. ;    cONTACT ME : ROBTHECAT@FREENET.DE
  50.  
  51. ;    
  52.  
  53. ;
  54.  
  55. ; tEST SYSTEM
  56.  
  57. ; 
  58.  
  59. ; 3.2 nEUES spi iNTERFACE, INPUT SCHIEBT NICHT RICHTIG
  60.  
  61. ; 3.3 port dEBUGGER AUF $4000 EINGERICHTET
  62.  
  63. ; SOME GLOBALS
  64.  
  65. ; 3.4 rCKWERT WIEDER AUSGEWWRTET
  66.  
  67. ; 3.5 bROWSE SOME bLOCKS (512  bYTE), eRRORPRINT AT cmd
  68.  
  69. ; 3.6 sECTOREN PASSEN NICHT, pROTOCOL FEHLER
  70.  
  71. ; kONZEPT ZUM lOADER DES cmd UND spi mODIFICATIONS  !!
  72.  
  73. ; 3.7 sTIMMT JETZT WENN MAN SICHS RICHTIG AUSRECCHNET WO EIN sEKTOR BEGINNT
  74.  
  75. ; 3.8 oPTIMIZED FOR sPEED, ALLE sLEEPS RAUS !
  76.  
  77. ;
  78.  
  79. ; dIESES sYSTEM IST NOCH nicht sPEEDoPTIMIERT !!!
  80.  
  81. ; wER zEIT HAT KANN DIE pORT wRITES oPTIMIEREN 
  82.  
  83. ; iCH GEHE JEDE pEGEL{$e4}NDERUNG ALS JSR STORE AN DIE hARDWARE WEITER !!
  84.  
  85. ; ALSO:
  86.  
  87. ;LDA OUT         
  88.  
  89. ;AND #$FD
  90.  
  91. ;               STA OUT
  92.  
  93. ;JSR STORE
  94.  
  95. ; mETHODE sTORE:
  96.  
  97. ; {CBM--}BERNEHME wERT IM aKKUMULATOR UND iNVERTIERE ALLE bITS (WEGEN DEM tREIBERBAUSTEIN, DER nEGIERT ALLES !)
  98.  
  99. ; sCHREIBE WERT NACH $DD01 !!
  100.  
  101. ;
  102.  
  103. ; gEHT ALS:
  104.  
  105. ;
  106.  
  107. ; LDA PORT
  108.  
  109. ; ORA #$02
  110.  
  111. ; STA PORT
  112.  
  113. ; 
  114.  
  115.  
  116.  
  117. SETNAM = $FFBD
  118.  
  119. SETLFS = $FFBA
  120.  
  121. OPEN   = $FFC0
  122.  
  123. CLOSE  = $FFC3
  124.  
  125. CHKIN  = $FFC6
  126.  
  127. CHRIN  = $FFCF
  128.  
  129. BSOUT  = $FFD2
  130.  
  131. CLRCH  = $FFCC
  132.  
  133. PORTD  = $DD03
  134.  
  135. PORT   = $DD01
  136.  
  137. OUT    = $02
  138.  
  139. MMCMDRESET = $40
  140.  
  141. MMCMDINIT  = $41
  142.  
  143. WAIT=5
  144.  
  145. * = $C000
  146.  
  147. JMP MAIN
  148.  
  149. ;
  150.  
  151. ;    yOU cAN USE THIS pROGRAM AT YOUR OWN rISK OF DAMAGING YOUR dATA,hARDWARE,
  152.  
  153. ;    sOFTWARE, bRAIN OR WHATEVER !
  154.  
  155. ;    i{$e1}M NOT RESPONSIBLE FOR THIS.
  156.  
  157. ;    iF YOU WANT TO DO SOMETHING WITH THAT WORK, I.E COMPILE IT, YOU *HAVE TO* LET THE cOPYRIGHT 
  158.  
  159. ;    AND MY nAME INSIDE YOUR sOURCE *AND bINARY* fILES.
  160.  
  161.  
  162.  
  163. .TEXT "mmc/sd cARD iNTERFACE v1.38"
  164.  
  165. .TEXT "(c) mARC sCHWARZBURG/vIENNA mAILTO: ROBTHECAT@FREENET.DE"
  166.  
  167. ;O PB0 = /CS
  168.  
  169. ;O PB1 DATA
  170.  
  171. ;O PB2 CLK
  172.  
  173. ;I PB3 READ
  174.  
  175. ;
  176.  
  177. ; XXXX0---
  178.  
  179. ; lADEN WIR MAL LOS
  180.  
  181. ;
  182.  
  183. INIT            LDA #7
  184.  
  185. STA PORTD
  186.  
  187. LDA #0
  188.  
  189. LDA #%0000001
  190.  
  191. STA OUT
  192.  
  193. JSR STORE
  194.  
  195. RTS
  196.  
  197.  
  198.  
  199. ; STORE BYTE INVERTED TO PORT
  200.  
  201.  
  202.  
  203. STORE           EOR #$07 ; iNVERTIERE ALLE bITS, WEGEN tREIBERIC
  204.  
  205. STA PORT
  206.  
  207. ; DEBUG
  208.  
  209. ;JSR DEBUGGER
  210.  
  211. RTS
  212.  
  213.  
  214.  
  215. ; READ bYTE AND INVERTS IT 
  216.  
  217.  
  218.  
  219. READ            LDA PORT
  220.  
  221. EOR #$FF
  222.  
  223. LSR
  224.  
  225. LSR
  226.  
  227. LSR
  228.  
  229. AND #$01
  230.  
  231. RTS
  232.  
  233.  
  234.  
  235. ; sLEEPLOOP IF YOUR WIRES TO MMC ARE TO LONG !
  236.  
  237. SLEEP           TXA
  238.  
  239. PHA
  240.  
  241. LDX #WAIT
  242.  
  243. SLEEP1          DEX
  244.  
  245. BNE SLEEP1
  246.  
  247. PLA
  248.  
  249. TAX
  250.  
  251. RTS
  252.  
  253.  
  254.  
  255. ;------------------ spi ----------------------------
  256.  
  257. SPI             STA $03 ; BUFFER OUPUT REGISTER
  258.  
  259. LDA#0
  260.  
  261. STA $FA ; BUFFER INPUT REGISTER
  262.  
  263. ; 
  264.  
  265. LDX #0
  266.  
  267. SPI2            ;
  268.  
  269. LDA OUT         ; CLK =0 FB    1011
  270.  
  271. AND #$FB                 
  272.  
  273. STA OUT                  
  274.  
  275. JSR STORE                
  276.  
  277. ;           
  278.  
  279. ; bIT 7 TO OUTPUT
  280.  
  281. CLC
  282.  
  283. ASL $03
  284.  
  285. BCS SPI3
  286.  
  287. LDA OUT         ; dATA = 0
  288.  
  289. AND #$FD
  290.  
  291. SPI4            STA OUT
  292.  
  293. JSR STORE
  294.  
  295. ; 
  296.  
  297. ;
  298.  
  299. CLC
  300.  
  301. ASL $FA         ; sHIFT INPUT LEFT
  302.  
  303. LDA OUT         ; CLK = 1
  304.  
  305. ORA #$04
  306.  
  307. STA OUT
  308.  
  309. JSR STORE       
  310.  
  311. ;
  312.  
  313. ;
  314.  
  315. ; LESEN
  316.  
  317. JSR READ        ; rEAD DATAIN pIN TO BIT0
  318.  
  319. ORA $FA         ; CONNECT IT
  320.  
  321. STA $FA
  322.  
  323. ; oNE BIT OUT, ONE BIT IN, SAME TIME
  324.  
  325. INX
  326.  
  327. CPX #08
  328.  
  329. BNE SPI2
  330.  
  331. ; 3.6
  332.  
  333. ; AT THE eND SEND dATA = h !!
  334.  
  335. LDA OUT         ; dATA = 1
  336.  
  337. ORA #$02
  338.  
  339. STA OUT
  340.  
  341. JSR STORE
  342.  
  343. ;
  344.  
  345. LDA $FA
  346.  
  347. RTS
  348.  
  349.  
  350.  
  351.  
  352.  
  353. ;
  354.  
  355. SPI3            LDA OUT         ; dATA = 1
  356.  
  357. ORA #$02
  358.  
  359. JMP SPI4
  360.  
  361.  
  362.  
  363.  
  364.  
  365. ; -------------------- cOMMAND -----------------
  366.  
  367. CMD             ; 3.6 cs = h
  368.  
  369. LDA OUT
  370.  
  371. ORA #01
  372.  
  373. STA OUT
  374.  
  375. JSR STORE
  376.  
  377. ;
  378.  
  379. ; 3.6- sEND 8  cLOCKS
  380.  
  381. LDA #$FF
  382.  
  383. JSR SPI
  384.  
  385. ; cs = l
  386.  
  387. LDA OUT
  388.  
  389. AND #$FE
  390.  
  391. STA OUT
  392.  
  393. JSR STORE
  394.  
  395. ;
  396.  
  397. ;
  398.  
  399. ; COMMAND
  400.  
  401. LDA $0502
  402.  
  403. JSR SPI
  404.  
  405. ; 32BIT ADDRESS
  406.  
  407. LDA $0503
  408.  
  409. JSR SPI
  410.  
  411. LDA $0504
  412.  
  413. JSR SPI
  414.  
  415. LDA $0505
  416.  
  417. JSR SPI
  418.  
  419. LDA $0506
  420.  
  421. JSR SPI
  422.  
  423. ; cHECKSUM nEEDED
  424.  
  425. LDA $0507
  426.  
  427. JSR SPI
  428.  
  429. ; rESPONSE hi
  430.  
  431. ; 3.6 READ WHILE INPUT = FF
  432.  
  433. CMD1            LDA #$FF
  434.  
  435. JSR SPI
  436.  
  437. CMP #$FF
  438.  
  439. BEQ CMD1
  440.  
  441. ;LDA #$FF
  442.  
  443. ;JSR SPI
  444.  
  445. NOP
  446.  
  447. ;LESE R{$fc}CKGABEWERT
  448.  
  449. RTS
  450.  
  451. ; ------------------- mmc iNIT --------------
  452.  
  453. MMCINIT         LDA OUT         ; cs = 1
  454.  
  455. ORA #$01
  456.  
  457. STA OUT
  458.  
  459. JSR STORE
  460.  
  461. ; sTART mmc IN spi mODE 
  462.  
  463. LDY #$00
  464.  
  465. MMCINIT1        LDA #$FF
  466.  
  467. JSR SPI
  468.  
  469. INY
  470.  
  471. CPY #12
  472.  
  473. BNE MMCINIT1
  474.  
  475. LDA OUT         ; cs = 0
  476.  
  477. AND #$FE
  478.  
  479. STA OUT
  480.  
  481. JSR STORE
  482.  
  483.  
  484.  
  485. ; cmd 0 = rESET
  486.  
  487. LDA #MMCMDRESET
  488.  
  489. STA $0502
  490.  
  491. LDA #0
  492.  
  493. STA $0503
  494.  
  495. STA $0504
  496.  
  497. STA $0505
  498.  
  499. STA $0506
  500.  
  501. LDA #$95
  502.  
  503. STA $0507
  504.  
  505. JSR CMD           
  506.  
  507. STA $D021       ; sHOW ME IN BORDER  
  508.  
  509. ; ---- cARD READY ??
  510.  
  511. CMP #$01
  512.  
  513. BNE fEHLER      ; nO cARD = <>1
  514.  
  515. ;
  516.  
  517. LDA #MMCMDINIT   ; lOOP WHILE NOT READY
  518.  
  519. STA $0502       ;  sEND init TO mmc cARD
  520.  
  521. LDA #$FF
  522.  
  523. STA $0507       ; dUMMY cHECKSUM
  524.  
  525. MMCINIT2        JSR CMD
  526.  
  527. STA $D021       ;  sHOW ME IN BORDER  
  528.  
  529. CMP #$00
  530.  
  531. BNE MMCINIT2
  532.  
  533. ; 3.6 cs = h
  534.  
  535. LDA OUT
  536.  
  537. ORA #$01
  538.  
  539. STA OUT
  540.  
  541. JSR STORE
  542.  
  543. ;
  544.  
  545. RTS
  546.  
  547. ;
  548.  
  549. fEHLER          LDA #02
  550.  
  551. STA $D020
  552.  
  553. LDA #<ERROR2
  554.  
  555. LDY #>ERROR2
  556.  
  557. JSR $AB1E
  558.  
  559. RTS
  560.  
  561.  
  562.  
  563. ERROR2           .BYTE $0D
  564.  
  565. .TEXT "nO cARD FOUND, INSERT AGAIN."
  566.  
  567. ;.TEXT "nkEINE kARTE VORHANDEN - bITTE NOCHMAL REINSTECKEN." ;GERMAN
  568.  
  569. .BYTE 0
  570.  
  571.  
  572.  
  573. ; cOMMAND eRRPR : ZB. oUT OF aDRESS, WRONG pARAMETER, INTERFACE NOT SYNCHRON.
  574.  
  575. fEHLER2         PHA
  576.  
  577. LDA #02
  578.  
  579. STA $D021
  580.  
  581. LDA #<ERROR
  582.  
  583. LDY #>ERROR
  584.  
  585. JSR $AB1E
  586.  
  587. PLA
  588.  
  589. PHA
  590.  
  591. LSR
  592.  
  593. LSR
  594.  
  595. LSR
  596.  
  597. LSR
  598.  
  599. TAX
  600.  
  601. LDA HEXCODE,X
  602.  
  603. JSR $FFD2
  604.  
  605. PLA
  606.  
  607. AND #$0F
  608.  
  609. TAX
  610.  
  611. LDA HEXCODE,X
  612.  
  613. JSR $FFD2
  614.  
  615. LDA #$0D
  616.  
  617. JSR $FFD2
  618.  
  619. ;
  620.  
  621. RTS
  622.  
  623. HEXCODE         .TEXT "0123456789ABCDEF"                
  624.  
  625. ERROR           .BYTE $0D
  626.  
  627. .TEXT "CMD-ERROR: "
  628.  
  629. ;.TEXT "kOMMANDO FEHLGESCHLAGEN - fEHLER: " ; GERMAN
  630.  
  631. .BYTE 0
  632.  
  633.  
  634.  
  635.    
  636.  
  637. ; ------------------------------------
  638.  
  639.  
  640.  
  641. MAIN            JSR INIT
  642.  
  643. JSR MMCINIT
  644.  
  645. ;
  646.  
  647. ; lESE MAL 512 BYTES NACH 0600
  648.  
  649. ; wIE FUNKTIONIERTS ??
  650.  
  651. ; aLS eRSTERS WANDELST dU dEINE ADRESSE UM
  652.  
  653. ; cOMMAND 51, hh,hl,lh,ll,ff
  654.  
  655. ; DIE VIER bYTES hh,hl,lh,ll STELLEN DIE 32 bIT aDRESSE DA
  656.  
  657. ; dAS SIND aDRESSEN UND keine sECTOREN ODER GAR cLUSTER !!
  658.  
  659. ; eIN rEADsECTOR = IMMER 512 bYTE D.H DIE vARIABLE ll = IMMER
  660.  
  661. ; lEER, DIE vARIABLE lh = GERADER wERT (0,2,4,6,8)
  662.  
  663. ; vARIABLE hl GEHT VVON 0-255
  664.  
  665. ; vARIABLE hh GEHT VON 0-1 BEI MEINER 32 mb tESTKARTE
  666.  
  667. ;  wEIL MEHR GIBTS NICHT -> ERROR 20 (WRONG aDRESS)
  668.  
  669. ;
  670.  
  671. ; UM BEISPIELSWEISE ALLE sEKTOREN ZU ZEIGEN,
  672.  
  673. ; LADE 0,0,0,0 IN DEN cmd51
  674.  
  675. ; INC lh
  676.  
  677. ; INC lh
  678.  
  679. ;BNE WEITER
  680.  
  681. ; INC hl
  682.  
  683. ; BNE WEITER
  684.  
  685. ; INC hh
  686.  
  687. ; JMP rEADsECTOR
  688.  
  689. ;
  690.  
  691. ; IT MEANS:
  692.  
  693. ; yOU HAVE TO CALCULATE THE aDDRESS FROM AN SECTOR VIEW
  694.  
  695. ; rEMEMBER: aDDRESS = sECTORNUMBER * 512
  696.  
  697. ; tHIS IS A 32 bIT vALUE (hh,hl,lh,ll)
  698.  
  699. ;
  700.  
  701. LDA #$51
  702.  
  703. STA $0502       ; cOMMAND
  704.  
  705. LDA #$00        ; sECTOR hi h
  706.  
  707. STA $0503
  708.  
  709. LDA #$00        ; sECTOR hi l
  710.  
  711. STA $0504
  712.  
  713. LDA #$50        ; sECTOR lo h vALUES ONLY even !!
  714.  
  715. STA $0505
  716.  
  717. LDA #$00        ; sECTOR lo l ALWAYS 00
  718.  
  719. STA $0506
  720.  
  721. LDA #$FF        ; dUMMY crc
  722.  
  723. STA $0507
  724.  
  725. NEXTBLOCK       JSR CMD ; sECTOR rEAD cOMMAND
  726.  
  727. ;
  728.  
  729. CMP #0
  730.  
  731. BNE fEHLER2
  732.  
  733.  
  734.  
  735. MAIN2           LDA #$FF
  736.  
  737. JSR SPI
  738.  
  739. CMP #$FE
  740.  
  741. BNE MAIN2       ; WAIT TILL  ok ($fe)
  742.  
  743. LDY #0
  744.  
  745. MAIN3           LDA #$FF
  746.  
  747. JSR SPI
  748.  
  749. STA $0600,Y
  750.  
  751. INY
  752.  
  753. BNE MAIN3
  754.  
  755.  
  756.  
  757. MAIN4           LDA #$FF
  758.  
  759. JSR SPI
  760.  
  761. STA $0700,Y
  762.  
  763. INY
  764.  
  765. BNE MAIN4
  766.  
  767. ;               2 BYTE DONT CARE
  768.  
  769. LDA #$FF
  770.  
  771. JSR SPI
  772.  
  773. LDA #$FF
  774.  
  775. JSR SPI
  776.  
  777. ; GIVE A SPARE OF 8 CYCLES BETWEEN cOMMANDS
  778.  
  779. LDA #$FF
  780.  
  781. JSR SPI
  782.  
  783. ;
  784.  
  785. KEY             LDA $DC01
  786.  
  787. CMP #$EF
  788.  
  789. BNE KEY
  790.  
  791. INC $0505 ; sECTOR +1
  792.  
  793. INC $0505
  794.  
  795. BNE MAIN5
  796.  
  797. INC $0504
  798.  
  799. BNE MAIN5
  800.  
  801. INC $0503
  802.  
  803. MAIN5           JMP NEXTBLOCK
  804.  
  805. RTS
  806.  
  807.  
  808.  
  809. ; -------------------------------------------------------
  810.  
  811.