home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / DHRNOTE.SC3.txt < prev    next >
Text File  |  2020-08-13  |  6KB  |  277 lines
  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.          PHA
  103.          AND #$7F
  104.          STA XOFFSET
  105.          PLA
  106.          BPL DCONT2
  107. ;
  108.          STA $C054
  109.          LDA XOFFSET
  110.          TAX
  111.          CLC
  112.          ADC LEFTADD,X
  113.          TAY
  114.          LDX DBLVEL
  115.          LDA VELBYTEL,X
  116.          AND #$FE
  117.          STA (HGRPTRL),Y
  118.          LDA XOFFSET
  119.          TAX
  120.          CLC
  121.          ADC RIGHTADD,X
  122.          TAY
  123.          LDX DBLVEL
  124.          LDA VELBYTER,X
  125.          STA (HGRPTRL),Y
  126.          STA $C055
  127.          CLV
  128.          BVC SETX1D
  129. ;
  130. DCONT2   STA $C055
  131.          LDA XOFFSET
  132.          TAX
  133.          CLC
  134.          ADC LEFTADD,X
  135.          TAY
  136.          LDX DBLVEL
  137.          LDA VELBYTEL,X
  138.          AND #$FE
  139.          STA (HGRPTRL),Y
  140.          LDA XOFFSET
  141.          TAX
  142.          CLC
  143.          ADC RIGHTADD,X
  144.          TAY
  145.          LDX DBLVEL
  146.          LDA VELBYTER,X
  147.          STA (HGRPTRL),Y
  148.          STA $C054
  149. ;
  150. SETX1D   LDA #$04
  151.          STA CHEIGHT
  152.          LDX DCHRA
  153.          LDA NOTEMAP,X
  154.          TAX       
  155. DCHRLOO  LDY DCHRY
  156.          LDA HGRLINEL,Y
  157.          STA HGRPTRL
  158.          LDA HGRLINEH,Y
  159.          STA HGRPTRH
  160.          LDA LETTERA,X 
  161.          LDY XOFFSET
  162.          STA (HGRPTRL),Y
  163.          INX
  164.          INC DCHRY
  165.          DEC CHEIGHT
  166.          LDA CHEIGHT
  167.          BNE DCHRLOO
  168. ;        
  169.          RTS
  170. ;
  171. LEFTADD  DFB $0,$0,$FF,$0,$0,$0,$FF,$0,$FF,$0
  172.          DFB $0,$0,$FF,$0,$0,$0,$FF,$0,$FF,$0
  173.          DFB $0,$0,$FF,$0,$0,$0,$FF,$0,$FF,$0
  174.          DFB $0,$0,$FF,$0,$0,$0,$FF,$0,$FF,$0
  175.          DFB $0,$0,$FF,$0,$0,$0,$FF,$0,$FF,$0
  176.          DFB $0,$0,$FF,$0,$0,$0,$FF,$0,$FF,$0
  177.          DFB $0,$0,$FF,$0,$0,$0,$FF,$0,$FF,$0
  178.          DFB $0,$0,$FF,$0,$0,$0,$FF,$0,$FF,$0
  179. ;
  180. RIGHTADD DFB $0,$01,$0,$01,$0,$0,$0,$01,$0,$0
  181.          DFB $0,$01,$0,$01,$0,$0,$0,$01,$0,$0
  182.          DFB $0,$01,$0,$01,$0,$0,$0,$01,$0,$0
  183.          DFB $0,$01,$0,$01,$0,$0,$0,$01,$0,$0
  184.          DFB $0,$01,$0,$01,$0,$0,$0,$01,$0,$0
  185.          DFB $0,$01,$0,$01,$0,$0,$0,$01,$0,$0
  186.          DFB $0,$01,$0,$01,$0,$0,$0,$01,$0,$0
  187.          DFB $0,$01,$0,$01,$0,$0,$0,$01,$0,$0
  188. ;
  189. ;
  190. ;
  191. ;         LDX DBLCPOS
  192. ;         INX
  193. ;         INX
  194. ;         LDA DHRXMAP,X       ;LOOK UP X COORDINATE TO GET OFFSET
  195. ;         STA $C054
  196. ;         BPL SETX1B 
  197. ;         STA $C055
  198. ;SETX1B   AND #$7F
  199. ;         STA XOFFSET
  200. ;         TAY
  201. ;         LDX DBLVEL
  202. ;         LDA VELBYTEL,X
  203. ;         AND #$FE
  204. ;         STA (HGRPTRL),Y
  205. ;         INY
  206. ;         LDA VELBYTER,X
  207. ;         STA (HGRPTRL),Y
  208. ;         RTS
  209. ;
  210. ;         LDX DBLCPOS
  211. ;         INX
  212. ;         INX
  213. ;         INX
  214. ;         LDA DHRXMAP,X       ;LOOK UP X COORDINATE TO GET OFFSET
  215. ;         STA $C054
  216. ;         BPL SETX1C 
  217. ;         STA $C055
  218. ;SETX1C   AND #$7F
  219. ;         STA XOFFSET
  220. ;         TAY
  221. ;         LDX DBLVEL       
  222. ;         LDA VELBYTER,X
  223. ;         STA (HGRPTRL),Y
  224. ;         RTS
  225. ;
  226. ;DBLPBEND AND #$0F
  227. ;         ASL A
  228. ;         STA DBLCHNL
  229. ;         STX DBLNOTE
  230. ;         STY DBLVEL
  231. ;         LDX #191
  232. ;         LDA HGRLINEL,X
  233. ;         CLC
  234. ;         ADC DBLCHNL
  235. ;         STA HGRPTRL 
  236. ;         LDA HGRLINEH,X
  237. ;         ADC #$00
  238. ;         STA HGRPTRH
  239. ;         LDY #$00
  240. ;         LDX DBLVEL
  241. ;         CPX #$40
  242. ;         BCC DPBLEFT
  243. ;         BNE DPBRIGHT
  244. ;         LDA #$00
  245. ;         STA (HGRPTRL),Y
  246. ;         INY
  247. ;         LDA #$00
  248. ;         STA (HGRPTRL),Y
  249. ;         RTS
  250. ;DPBRIGHT TXA
  251. ;         SEC
  252. ;         SBC #$40
  253. ;         ASL A
  254. ;         TAX
  255. ;         LDA #$00
  256. ;         STA (HGRPTRL),Y
  257. ;         INY
  258. ;         LDA VELBYTER,X
  259. ;         STA (HGRPTRL),Y
  260. ;         RTS
  261. ;DPBLEFT  TXA
  262. ;         ASL A
  263. ;         TAX
  264. ;         LDA VELBYTER,X
  265. ;         EOR #$7F
  266. ;         STA (HGRPTRL),Y
  267. ;         INY
  268. ;         LDA #$00
  269. ;         STA (HGRPTRL),Y
  270. ;        RTS
  271. ;
  272. DBLCHNL  DFB $00
  273. DBLNOTE  DFB $00
  274. DBLVEL   DFB $00
  275. ;
  276.          CHN DANCNOTE.SC4
  277.