home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / PIANO2800.SRC.txt < prev    next >
Text File  |  2020-08-13  |  1KB  |  44 lines
  1.  
  2.  
  3. 2C00:
  4. ADRSTBL  DFB       $00,$80,$00,$80,$00,$80,$00,$80
  5.          DFB       $28,$A8,$28,$A8,$28,$A8,$28,$A8
  6.          DFB       $50,$D0,$50,$D0,$50,$D0,$50,$D0
  7.  
  8. 2C18:
  9. ADRSTBH  DFB       $04,$04,$05,$05,$06,$06,$07,$07
  10.          DFB       $04,$04,$05,$05,$06,$06,$07,$07
  11.          DFB       $04,$04,$05,$05,$06,$06,$07,$07
  12.  
  13. 2C30
  14. IMAGADRH DFB       $28,$28,$29,$29,$2A,$2A,$2B,$2B
  15.          DFB       $28,$28,$29,$29,$2A,$2A,$2B,$2B
  16.          DFB       $28,$28,$29,$29,$2A,$2A,$2B,$2B
  17.  
  18.  
  19. 2C70-   A9 A0       LDA   #$A0
  20. 2C72-   8D 00 28    STA   $2800
  21. 2C75-   8D 01 28    STA   $2801
  22. 2C78-   8D 02 28    STA   $2802
  23. 2C7B-   20 00 C3    JSR   $C300
  24. 2C7E-   A9 11       LDA   #$11
  25. 2C80-   20 ED FD    JSR   $FDED
  26.  
  27. 2C50-   A2 17       LDX   #$17
  28. 2C52-   BD 00 2C    LDA   $2C00,X
  29. 2C55-   85 19       STA   $19
  30. 2C57-   85 1B       STA   $1B
  31. 2C59-   BD 18 2C    LDA   $2C18,X
  32. 2C5C-   85 1A       STA   $1A
  33. 2C5E-   BD 30 2C    LDA   $2C30,X
  34. 2C61-   85 1C       STA   $1C
  35. 2C63-   A0 27       LDY   #$27
  36. 2C65-   B1 1B       LDA   ($1B),Y
  37. 2C67-   91 19       STA   ($19),Y
  38. 2C69-   88          DEY   
  39. 2C6A-   10 F9       BPL   $2C65
  40. 2C6C-   CA          DEX   
  41. 2C6D-   10 E3       BPL   $2C52
  42. 2C6F-   60          RTS   
  43.  
  44.