home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / PROJECT / SOURCE / DANCNOTE.SC3 < prev    next >
Encoding:
Text File  |  1996-06-01  |  4.0 KB  |  214 lines  |  [04] ASCII Text (0x0000)

  1. ; DANCNOTE.SC3 - DOUBLE HIRES
  2. ;-------------------------
  3. ; DBLGRPH ROUTINE
  4. ; A=STATUS BYTE (9X,8X,EX)
  5. ; X=NOTE 
  6. ; Y=VELOCITY
  7. ;--------------------------
  8. ;
  9. DBLGRPH  CMP #$80
  10.          BCC DBLEXIT
  11.          CMP #$90
  12.          BCC DBLNOFF
  13.          CMP #$A0
  14.          BCC DBLNON
  15.          CMP #$E0
  16.          BCC DBLEXIT
  17.          CMP #$F0
  18.          BCC DBLPBJMP
  19. DBLEXIT  RTS
  20. DBLPBJMP RTS
  21. ;DBLPBJMP JMP DBLPBEND
  22. ;
  23. DBLHPOS  DFB $00
  24. DBLVPOS  DFB $00
  25. DBLNCHR  DFB $00
  26. DOFFSET  DFB $00
  27. DBLCPOS  DFB $00
  28. ;
  29. DBLNOFF  LDY #$00
  30. DBLNON   AND #$0F
  31.          STA DBLCHNL
  32.          STX DBLNOTE
  33.          STY DBLVEL
  34.          LDA DBLNOTE
  35.          CMP #36
  36.          BCC DBLEXIT
  37.          CMP #96
  38.          BCS DBLEXIT
  39.          SEC
  40.          SBC #36
  41.          STA DOFFSET
  42.          ASL A
  43.          CLC
  44.          ADC DOFFSET
  45.          TAX
  46.          LDA DISPMODE
  47.          BEQ DBLUCS
  48.          LDA LCFPOS,X
  49.          STA DBLHPOS
  50.          INX
  51.          LDA LCFPOS,X
  52.          STA DBLVPOS
  53.          INX
  54.          LDA LCFPOS,X
  55.          STA DBLNCHR
  56.          LDA DBLVEL
  57.          BNE VELOK1
  58.          LDA DBLHPOS
  59.          ROR A
  60.          ROR A
  61.          ORA #$7F
  62.          STA DBLNCHR
  63. VELOK1   CLV
  64.          BVC DBL1
  65. DBLUCS   LDA UCSPOS,X
  66.          STA DBLHPOS
  67.          INX 
  68.          LDA UCSPOS,X
  69.          STA DBLVPOS
  70.          INX
  71.          LDA UCSPOS,X
  72.          STA DBLNCHR
  73.          LDA DBLVEL
  74.          BNE DBL1
  75.          LDA DBLHPOS
  76.          ROR A
  77.          ROR A
  78.          ORA #$7F
  79.          STA DBLNCHR
  80. DBL1     LDA DBLCHNL
  81.          ASL A
  82.          ASL A
  83.          CLC
  84.          ADC DBLCHNL
  85.          STA DBLCPOS
  86.          CLC
  87.          ADC DBLHPOS
  88.          STA DBLHPOS
  89.          TAX
  90.          LDY DBLVPOS
  91.          LDA DBLNCHR
  92.          CPX #79             ;DRAWCHAR
  93.          BCS DCHREX
  94.          CPY #188
  95.          BCS DCHREX
  96.          BCC DCONT
  97. DCHREX   RTS
  98. DCONT    STA DCHRA
  99.          STX DCHRX
  100.          STY DCHRY
  101.          LDA DHRXMAP,X       ;LOOK UP X COORDINATE TO GET OFFSET
  102.          STA $C054
  103.          BPL SETX1D 
  104.          STA $C055
  105. SETX1D   AND #$7F
  106.          STA XOFFSET
  107.          LDA #$04
  108.          STA CHEIGHT
  109.          LDX DCHRA
  110.          LDA NOTEMAP,X
  111.          TAX       
  112. DCHRLOO  LDY DCHRY
  113.          LDA HGRLINEL,Y
  114.          STA HGRPTRL
  115.          LDA HGRLINEH,Y
  116.          STA HGRPTRH
  117.          LDA LETTERA,X 
  118.          LDY XOFFSET
  119.          STA (HGRPTRL),Y
  120.          INX
  121.          INC DCHRY
  122.          DEC CHEIGHT
  123.          LDA CHEIGHT
  124.          BNE DCHRLOO
  125. ;
  126.          RTS
  127. ;
  128. ;         LDX DBLCPOS
  129. ;         INX
  130. ;         INX
  131. ;         LDA DHRXMAP,X       ;LOOK UP X COORDINATE TO GET OFFSET
  132. ;         STA $C054
  133. ;         BPL SETX1B 
  134. ;         STA $C055
  135. ;SETX1B   AND #$7F
  136. ;         STA XOFFSET
  137. ;         TAY
  138. ;         LDX DBLVEL
  139. ;         LDA VELBYTEL,X
  140. ;         AND #$FE
  141. ;         STA (HGRPTRL),Y
  142. ;         INY
  143. ;         LDA VELBYTER,X
  144. ;         STA (HGRPTRL),Y
  145. ;         RTS
  146. ;
  147. ;         LDX DBLCPOS
  148. ;         INX
  149. ;         INX
  150. ;         INX
  151. ;         LDA DHRXMAP,X       ;LOOK UP X COORDINATE TO GET OFFSET
  152. ;         STA $C054
  153. ;         BPL SETX1C 
  154. ;         STA $C055
  155. ;SETX1C   AND #$7F
  156. ;         STA XOFFSET
  157. ;         TAY
  158. ;         LDX DBLVEL       
  159. ;         LDA VELBYTER,X
  160. ;         STA (HGRPTRL),Y
  161. ;         RTS
  162. ;
  163. ;DBLPBEND AND #$0F
  164. ;         ASL A
  165. ;         STA DBLCHNL
  166. ;         STX DBLNOTE
  167. ;         STY DBLVEL
  168. ;         LDX #191
  169. ;         LDA HGRLINEL,X
  170. ;         CLC
  171. ;         ADC DBLCHNL
  172. ;         STA HGRPTRL 
  173. ;         LDA HGRLINEH,X
  174. ;         ADC #$00
  175. ;         STA HGRPTRH
  176. ;         LDY #$00
  177. ;         LDX DBLVEL
  178. ;         CPX #$40
  179. ;         BCC DPBLEFT
  180. ;         BNE DPBRIGHT
  181. ;         LDA #$00
  182. ;         STA (HGRPTRL),Y
  183. ;         INY
  184. ;         LDA #$00
  185. ;         STA (HGRPTRL),Y
  186. ;         RTS
  187. ;DPBRIGHT TXA
  188. ;         SEC
  189. ;         SBC #$40
  190. ;         ASL A
  191. ;         TAX
  192. ;         LDA #$00
  193. ;         STA (HGRPTRL),Y
  194. ;         INY
  195. ;         LDA VELBYTER,X
  196. ;         STA (HGRPTRL),Y
  197. ;         RTS
  198. ;DPBLEFT  TXA
  199. ;         ASL A
  200. ;         TAX
  201. ;         LDA VELBYTER,X
  202. ;         EOR #$7F
  203. ;         STA (HGRPTRL),Y
  204. ;         INY
  205. ;         LDA #$00
  206. ;         STA (HGRPTRL),Y
  207. ;        RTS
  208. ;
  209. DBLCHNL  DFB $00
  210. DBLNOTE  DFB $00
  211. DBLVEL   DFB $00
  212. ;
  213.          CHN DANCNOTE.SC4
  214.