API tools faq
paste
Advertisement
Guest User

PONG.ASM V3.03

a guest
Dec 21st, 2012
252
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 71.19 KB | None | 0 0
raw download clone embed print report
  1. ;---------------------------------------------------;
  2. ;---------------------------------------------------;
  3. ; Name: PONG.ASM ;
  4. ; Use: DTI's version of the PONG game ;
  5. ;---------------------------------------------------;
  6. ; Copyright: (C)2012 DTI ;
  7. ; Dysfunctional Technologies, Inc. ;
  8. ; All Rights Reserved ;
  9. ;---------------------------------------------------;
  10. ; Author: Timothy S. Carlson ;
  11. ; Dysfunctional Technologies, Inc. ;
  12. ; Date: December 21, 2012 ;
  13. ; Version: V3.03 ;
  14. ;---------------------------------------------------;
  15. ;---------------------------------------------------;
  16. ; WEBSITE: www.dysfunctionaltechnologies.com ;
  17. ; EMAIL: tscarlson@gmail.com ;
  18. ; ;
  19. ; You are welcome to use this code as you see fit, ;
  20. ; however - not to be used in for-profit products ;
  21. ; unless we have come to a monetary agreement. ;
  22. ; ;
  23. ; If this code is used, credit given is appreciated ;
  24. ;---------------------------------------------------;
  25. ;---------------------------------------------------;
  26. ; VERSION LOG: ;
  27. ; V3.00: Modified characters, character placement, ;
  28. ; and field to look more like the real PONG ;
  29. ; V3.01: Renamed to PIC-PONG ;
  30. ; - Added 64x224 mode for copyright message ;
  31. ; - Added piezo speaker for sounds ;
  32. ; - Added ball 'slow-down' method ;
  33. ; - Added special dot as court divider ;
  34. ; V3.02: Fixed my program memory page issues. ;
  35. ; - Revamped _Draw_Scores. Cleaner, faster. ;
  36. ; - Redid title - "PONG FOR THE 12F1840" ;
  37. ; - Added _DEBUG_ turns on/off GP2 VSYNC Pulse;
  38. ; - Moved some procs to high page: ;
  39. ; - _Draw_Title ;
  40. ; - _Clear_Court ;
  41. ; - _Copyright ;
  42. ; - _Initialize_System ;
  43. ; - More comments ;
  44. ; - Modified comments discussing the number of;
  45. ; lines, what they do, and how long (in ms) ;
  46. ; for a complete video frame. ;
  47. ; 260 lines * 64us each = 16.64ms per frame ;
  48. ; The current timing is ~16.645ms per frame ;
  49. ; - General Cleanup ;
  50. ; - Added the software version number at the ;
  51. ; bottom right of the screen, in the copy- ;
  52. ; right strip. ;
  53. ; V3.03: Updated version number display to V3.03 ;
  54. ; - Adding more comments ;
  55. ; - Changed references to 'Half_Line' and ;
  56. ; 'Full_Line' in some proc titles to ;
  57. ; '30us_Line' and '60us_Line' respectively. ;
  58. ; (_Blank_Half_Line => _Blank_30us_Line) ;
  59. ; - Moved some line generation procs to high ;
  60. ; page, added PAGESELs, adjusted timings. ;
  61. ; - _Blank_60us_Line ;
  62. ; - _Blank_30us_Line ;
  63. ; - _Special_30us_Line ;
  64. ; - _Inverted_30us_Line ;
  65. ; - Everything possible has been moved to the ;
  66. ; high page of memory, with the exceptions: ;
  67. ; - _Update_Paddle_1 ;
  68. ; - _Update_Paddle_2 ;
  69. ; - _Update_Ball ;
  70. ; I am only using 655 words in the low page ;
  71. ; of program memory now (H'000'-H'28E') out ;
  72. ; of 4096 bytes (2048 words). The high page ;
  73. ; is packed - H'800'-H'D92'. I left the ;
  74. ; above procs in the low page as I will be ;
  75. ; making modifications / enhancements to ;
  76. ; these routines in the near future. ;
  77. ; - NOTE: If you see what appears to be stray ;
  78. ; NOPs strewn about in the code - DON'T ;
  79. ; REMOVE THEM. They are there for video ;
  80. ; timings purposes. Remove them and DOOM! ;
  81. ;---------------------------------------------------;
  82. ;---------------------------------------------------;
  83.  
  84. ;---------------------------------------------------;
  85. ; Project Defines ;
  86. ;---------------------------------------------------;
  87. #DEFINE _PONG.ASM_ ;
  88. #DEFINE _MAIN_MODULE_ ;
  89. ;---------------------------------------------------;
  90. #DEFINE _DEBUG_ FALSE ;
  91. #DEFINE _USE_THUMBSTICKS_ TRUE ;
  92. ;---------------------------------------------------;
  93.  
  94. ;---------------------------------------------------;
  95. ; Includes ;
  96. ;---------------------------------------------------;
  97. #INCLUDE Common.INC ;
  98. ;---------------------------------------------------;
  99.  
  100. ;---------------------------------------------------;
  101. ; Macros ;
  102. ;---------------------------------------------------;
  103. DELAY MACRO DTIME ;
  104. ;-----------------------------------------------;
  105. ; The time munger used EVERYWHERE ;
  106. ;-----------------------------------------------;
  107. MOVLW DTIME ;
  108. MOVWF DTemp ;
  109. DECFSZ DTemp, F ;
  110. GOTO $-1 ;
  111. ;-----------------------------------------------;
  112. ENDM ;
  113. ;
  114. DO_BIT MACRO THISBIT, NOPS ;
  115. ;-----------------------------------------------;
  116. ; Sets the DAC either WHITE or BLACK ;
  117. ; Does a specified delay in NOPs ;
  118. ;-----------------------------------------------;
  119. ; Note that a WHITE bit check is done first and ;
  120. ; then a BLACK bit check. If you reverse the ;
  121. ; order, things look a bit differently on the ;
  122. ; screen. That is because there is a two ;
  123. ; instruction delay and reversing the order ;
  124. ; causes black 'gaps'. This order is most ;
  125. ; visually appealing, at least to me. ;
  126. ;-----------------------------------------------;
  127. BTFSC INDF1, THISBIT ;
  128. BSF PORTA, VIDEO_0_BIT ;
  129. BTFSS INDF1, THISBIT ;
  130. BCF PORTA, VIDEO_0_BIT ;
  131. #IF NOPS > 0 ;
  132. NOP ;
  133. #ENDIF ;
  134. #IF NOPS > 1 ;
  135. NOP ;
  136. #ENDIF ;
  137. #IF NOPS > 2 ;
  138. NOP ;
  139. #ENDIF ;
  140. #IF NOPS > 3 ;
  141. NOP ;
  142. #ENDIF ;
  143. #IF NOPS > 4 ;
  144. NOP ;
  145. #ENDIF ;
  146. #IF NOPS > 5 ;
  147. NOP ;
  148. #ENDIF ;
  149. #IF NOPS > 6 ;
  150. NOP ;
  151. #ENDIF ;
  152. #IF NOPS > 7 ;
  153. NOP ;
  154. #ENDIF ;
  155. #IF NOPS > 8 ;
  156. NOP ;
  157. #ENDIF ;
  158. #IF NOPS > 9 ;
  159. NOP ;
  160. #ENDIF ;
  161. ;-----------------------------------------------;
  162. ENDM ;
  163. ;
  164. SET_SIGNAL MACRO COLOR ;
  165. ;-----------------------------------------------;
  166. ; Sets the 2bit DAC to the desired color ;
  167. ; Both bits are done at once, or else some weird;
  168. ; transitions on the DAC can be seen. Okay if ;
  169. ; just colors (WHITE, GRAY, BLACK), but if a ;
  170. ; sync pulse shows up out context, it can really;
  171. ; mess up the video timings ;
  172. ;-----------------------------------------------;
  173. MOVFW PORTA ;
  174. ANDLW ~(VIDEO_0 | VIDEO_1) ;
  175. IORLW COLOR ;
  176. MOVWF PORTA ;
  177. ;-----------------------------------------------;
  178. ENDM ;
  179. ;
  180. NEG_SYNC_4US MACRO ;
  181. ;-----------------------------------------------;
  182. ; 4us Negative Sync Generation ;
  183. ;-----------------------------------------------;
  184. ; Not only does this do a 4us negative sync, it ;
  185. ; also handles the sound generation during the ;
  186. ; game. Sounds are produced by toggling GPIO1 ;
  187. ; during HSYNCs - if it is toggled during ALL ;
  188. ; HSYNCs, you get a high freq (around 7800hz). ;
  189. ; If every other HSYNC, the freq is around lower;
  190. ;-----------------------------------------------;
  191. ; Don't touch this unless you really understand ;
  192. ; it. I am trying to keep the number of cycles ;
  193. ; equal even when playing sounds. If this is ;
  194. ; changed, it could cause 'tearing' of the ;
  195. ; video when a sound is playing. ;
  196. ;-----------------------------------------------;
  197. SET_SIGNAL COLOR_SYNC ;
  198. BTFSS System_Status, BUZZ_BIT ;
  199. GOTO $+16 ;
  200. DECFSZ Buzz_Count, F ;
  201. GOTO $+16 ;
  202. MOVFW Buzz_Reload ;
  203. MOVWF Buzz_Count ;
  204. BANKSEL TRISA ;
  205. BCF TRISA, RBUTT_BIT ; Set as OUTPUT
  206. BANKSEL MEMORY ;
  207. MOVLW RBUTT ;
  208. XORWF PORTA, F ;
  209. DECFSZ Buzz_Dur_LO, F ;
  210. GOTO $+16 ;
  211. DECFSZ Buzz_Dur_HI, F ;
  212. GOTO $+16 ;
  213. BCF System_Status, BUZZ_BIT ;
  214. GOTO $+15 ;
  215. NOP ;
  216. NOP ;
  217. NOP ;
  218. NOP ;
  219. NOP ;
  220. NOP ;
  221. NOP ;
  222. NOP ;
  223. NOP ;
  224. NOP ;
  225. NOP ;
  226. NOP ;
  227. NOP ;
  228. NOP ;
  229. MOVLW 3 ;
  230. MOVWF DTemp ;
  231. DECFSZ DTemp, F ;
  232. GOTO $-1 ;
  233. NOP ;
  234. ;-----------------------------------------------;
  235. ENDM ;
  236. ;
  237. NEG_SYNC_2US MACRO ;
  238. ;-----------------------------------------------;
  239. ; 2us Negative Sync Generation ;
  240. ;-----------------------------------------------;
  241. ; Used during VSYNC only. ;
  242. ;-----------------------------------------------;
  243. SET_SIGNAL COLOR_SYNC ;
  244. MOVLW 3 ;
  245. MOVWF DTemp ;
  246. DECFSZ DTemp, F ;
  247. GOTO $-1 ;
  248. NOP ;
  249. NOP ;
  250. ;-----------------------------------------------;
  251. ENDM ;
  252. ;
  253. POS_SYNC_2US MACRO ;
  254. ;-----------------------------------------------;
  255. ; 2us Positive Sync Generation ;
  256. ;-----------------------------------------------;
  257. ; Using during VSYNC only. ;
  258. ;-----------------------------------------------;
  259. SET_SIGNAL COLOR_BLACK ;
  260. MOVLW 3 ;
  261. MOVWF DTemp ;
  262. DECFSZ DTemp, F ;
  263. GOTO $-1 ;
  264. NOP ;
  265. NOP ;
  266. ;-----------------------------------------------;
  267. ENDM ;
  268. ;
  269. PLAY_SOUND MACRO FREQUENCY, DURATION ;
  270. ;-----------------------------------------------;
  271. ; This will play a sound of a specified ;
  272. ; frequency for a specified duration ;
  273. ; The lower the frequency number, the higher ;
  274. ; the frequency. Duration is also a function ;
  275. ; of the frequency number, so if frequency goes ;
  276. ; up, adjust the duration down. ;
  277. ;-----------------------------------------------;
  278. ; Sound is played during 4us HORIZONTAL SYNC ;
  279. ; times of the video signal. There is a short ;
  280. ; period during VERTICAL SYNC where nothing is ;
  281. ; done with sound because there ARE no 4us ;
  282. ; HSYNCs. There are 2us HSYNCs during VSYNC, but;
  283. ; there isn't enough time to process the sound ;
  284. ; code without stretching out the 2us HSYNCs ;
  285. ; beyond 2us, and that will mess up the video ;
  286. ; timings. The total time between the last 4us ;
  287. ; HSYNC before VSYNC and the first 4us HSYNC ;
  288. ; after VSYNC is only ~512us, so it's barely ;
  289. ; noticable. After all, it's only a game... ;
  290. ;-----------------------------------------------;
  291. ; NOTE that a FREQUENCY of 0 is treated as a ;
  292. ; frequency of 256. 0<=Freq<=255. The count is ;
  293. ; decremented BEFORE it is checked to be 0, so ;
  294. ; starting with 0 will dec, see 255, continue ;
  295. ; loop. Just so you are warned. ;
  296. ;-----------------------------------------------;
  297. MOVLW FREQUENCY ;
  298. MOVWF Buzz_Count ;
  299. MOVWF Buzz_Reload ;
  300. MOVLW LOW DURATION ;
  301. MOVWF Buzz_Dur_LO ;
  302. MOVLW HIGH DURATION ;
  303. MOVWF Buzz_Dur_HI ;
  304. BSF System_Status, BUZZ_BIT ;
  305. ;-----------------------------------------------;
  306. ENDM ;
  307. ;---------------------------------------------------;
  308.  
  309. ;---------------------------------------------------;
  310. ; Defines ;
  311. ;---------------------------------------------------;
  312. ; You have to chose between using all buttons, ;
  313. ; or using a thumbstick with a button. I might ;
  314. ; be able to figure out a way to automatically ;
  315. ; determine which is connected, but for now you ;
  316. ; will just have to decide which you want, set ;
  317. ; _USE_THUMBSTICKS_ to either TRUE or FALSE, and;
  318. ; re-compile the project. ;
  319. ;-----------------------------------------------;
  320. #IF _USE_THUMBSTICKS_ ;
  321. #DEFINE RJOY H'01' ; Right THUMBSTICK
  322. #DEFINE RJOY_BIT 0 ; GPIO 0 - PIN 7
  323. #DEFINE RBUTT H'02' ; Right BUTTON
  324. #DEFINE RBUTT_BIT 1 ; GPIO 1 - PIN 6
  325. #DEFINE LJOY H'04' ; Left THUMBSTICK
  326. #DEFINE LJOY_BIT 2 ; GPIO 2 - PIN 5
  327. #DEFINE LBUTT H'08' ; Left BUTTON
  328. #DEFINE LBUTT_BIT 3 ; GPIO 3 - PIN 4
  329. #ELSE ;!_USE_THUMBSTICKS_ ;
  330. #DEFINE RBUTT_1 H'01' ; Right BUTTON 1
  331. #DEFINE RBUTT_1_BIT 0 ; GPIO 0 - PIN 7
  332. #DEFINE RBUTT_2 H'02' ; Right BUTTON 2
  333. #DEFINE RBUTT_2_BIT 1 ; GPIO 1 - PIN 6
  334. #DEFINE LBUTT_2 H'04' ; Left BUTTON 2
  335. #DEFINE LBUTT_2_BIT 2 ; GPIO 2 - PIN 5
  336. #DEFINE LBUTT_1 H'08' ; Left BUTTON 1
  337. #DEFINE LBUTT_1_BIT 3 ; GPIO 3 - PIN 4
  338. #ENDIF ;_USE_THUMBSTICKS_ ;
  339. ;-----------------------------------------------;
  340. ;
  341. ;-----------------------------------------------;
  342. ; 2bit DAC definitions. The 2bit DAC is just a ;
  343. ; pair of resistors on two GPIOs, which feeds ;
  344. ; the VIDEO out. ;
  345. ;-----------------------------------------------;
  346. #DEFINE VIDEO_1 H'10' ; 1K ohm
  347. #DEFINE VIDEO_1_BIT 4 ; GPIO 5 - PIN 2
  348. #DEFINE VIDEO_0 H'20' ; 470 ohm
  349. #DEFINE VIDEO_0_BIT 5 ; GPIO 4 - PIN 3
  350. ;
  351. #DEFINE COLOR_WHITE (VIDEO_0 + VIDEO_1) ;
  352. #DEFINE COLOR_BLACK VIDEO_1 ;
  353. #DEFINE COLOR_SYNC 0 ;
  354. ;-----------------------------------------------;
  355. ;
  356. ;-----------------------------------------------;
  357. ; There are 224 lines created during _Data_Lines;
  358. ; However, because of memory limitations, I ;
  359. ; cannot allocate enough memory for the video ;
  360. ; buffer. So - I do have enough memory for 56 ;
  361. ; lines - 1/4 of 224 - so we display each line ;
  362. ; of data 4 times. ;
  363. ;-----------------------------------------------;
  364. #DEFINE MAX_LINES 56 ;
  365. ;-----------------------------------------------;
  366. ;
  367. ;-----------------------------------------------;
  368. ; This is my method of making the game easier or;
  369. ; harder - either I update and draw the ball ;
  370. ; every frame (fast ball), or every other frame ;
  371. ; (not as fast), or every 3rd frame (normal ;
  372. ; ball) or higher for slower. Set MAX_BALL_WAIT ;
  373. ; to the desired speed (1=fast, 2=not as fast, ;
  374. ; 3=normal, 4=slower, etc.). This is hardcoded ;
  375. ; right now, a change requires a recompile. I ;
  376. ; have plans to allocate another precious byte ;
  377. ; of data memory so that the ball speed can be ;
  378. ; changed by a menu item. ;
  379. ;-----------------------------------------------;
  380. #DEFINE DRAW_BALL_BIT 0 ;
  381. #DEFINE MAX_BALL_WAIT 3 ;
  382. ;
  383. ;-----------------------------------------------;
  384. ; Just a bunch of hardcoded starting points, ;
  385. ; sizes, and bit-munching stuff for the various ;
  386. ; graphics. ;
  387. ;-----------------------------------------------;
  388. ; I use the PIC's LINEAR MEMORY scheme to create;
  389. ; a contiguous video buffer. Grab the MicroChip ;
  390. ; documentation and read up. Then go search on ;
  391. ; the web for some docs that will really explain;
  392. ; it for you. ;
  393. ;-----------------------------------------------;
  394. #DEFINE VIDEO_BUFFER_START H'2010' ;
  395. #DEFINE LEFT_SCORE_START H'01' ;
  396. #DEFINE RIGHT_SCORE_START H'02' ;
  397. #DEFINE LEFT_PADDLE_START H'00' ;
  398. #DEFINE LEFT_PADDLE_BIT H'40' ;
  399. #DEFINE LEFT_PADDLE_MASK H'BF' ;
  400. #DEFINE RIGHT_PADDLE_START H'03' ;
  401. #DEFINE RIGHT_PADDLE_BIT H'02' ;
  402. #DEFINE RIGHT_PADDLE_MASK H'FD' ;
  403. #DEFINE PADDLE_SIZE 8 ;
  404. ;---------------------------------------------------;
  405.  
  406. ;---------------------------------------------------;
  407. ;---------------------------------------------------;
  408. USER_DATA_1 UDATA H'020' ;
  409. ;---------------------------------------------------;
  410. Ball_X res 1 ; 20
  411. Ball_Y res 1 ; 21
  412. Ball_Dir_X res 1 ; 22
  413. Ball_Dir_Y res 1 ; 23
  414. Paddle_1_Y res 1 ; 24
  415. Paddle_2_Y res 1 ; 25
  416. Score_1 res 1 ; 26
  417. Score_2 res 1 ; 27
  418. Ball_Wait res 1 ; 28
  419. ;---------------------------------------------------;
  420. ; Bit definitions for System_Status ;
  421. ;---------------------------------------------------;
  422. #DEFINE BUZZ H'01' ;
  423. #DEFINE BUZZ_BIT 0 ;
  424. ;---------------------------------------------------;
  425. System_Status res 1 ; 29
  426. ;---------------------------------------------------;
  427. ; Only 6 bytes left - 2A-2F ;
  428. ;---------------------------------------------------;
  429. ;---------------------------------------------------;
  430.  
  431. ;---------------------------------------------------;
  432. ;---------------------------------------------------;
  433. USER_DATA_2 UDATA_SHR H'070' ;
  434. ;---------------------------------------------------;
  435. Temp1 res 1 ; 70
  436. Temp2 res 1 ; 71
  437. DTemp res 1 ; 72
  438. DL_Count res 1 ; 73
  439. Line_Data res 4 ; 74-77
  440. Byte_Count res 1 ; 78
  441. Line_Count res 1 ; 79
  442. Repeat_Count res 1 ; 7A
  443. Buzz_Count res 1 ; 7B
  444. Buzz_Reload res 1 ; 7C
  445. Buzz_Dur_HI res 1 ; 7D
  446. Buzz_Dur_LO res 1 ; 7E
  447. ;---------------------------------------------------;
  448. ; Only 1 bytes left! - 7F ;
  449. ;---------------------------------------------------;
  450. ;---------------------------------------------------;
  451.  
  452. ;---------------------------------------------------;
  453. ; Reset Vector Code - Entry point from reset ;
  454. ;---------------------------------------------------;
  455. RESET_VECT CODE H'000' ;
  456. ;---------------------------------------------------;
  457. ; Initialize the hardware and memory elements. ;
  458. ; This is a FAR CALL to a proc in the high ;
  459. ; page of Program Memory, so it needs the ;
  460. ; PAGESEL before and after the CALL to properly ;
  461. ; set the upper 2 bits in the program counter. ;
  462. ; I am slowly converting ALL CALLs (and some ;
  463. ; GOTOs) to having PAGESEL before and after, but;
  464. ; the added instruction cycles mess up the video;
  465. ; timings in some spots. To be done slowly and ;
  466. ; surely. ;
  467. ;-----------------------------------------------;
  468. PAGESEL _Initialize_System ;
  469. CALL _Initialize_System ;
  470. PAGESEL $ ;
  471. ;-----------------------------------------------;
  472. ; _Next_Frame is in the high page of Program ;
  473. ; Memory. This is the only GOTO that is in the ;
  474. ; code that requires PAGESEL. ;
  475. ;-----------------------------------------------;
  476. PAGESEL _Next_Frame ;
  477. GOTO _Next_Frame ;
  478. ;---------------------------------------------------;
  479.  
  480. ;---------------------------------------------------;
  481. ; Interrupt Vector Code ;
  482. ; Since we are not using or desire to use interrupts;
  483. ; this is not needed. ;
  484. ;---------------------------------------------------;
  485. ; INT_VECT CODE H'004' ;
  486. ;---------------------------------------------------;
  487.  
  488. ;---------------------------------------------------;
  489. ; User Code in the low page of Program Memory ;
  490. ; More user code (USER_CODE_2) can be found in the ;
  491. ; high page of Program Memory, starting at H'800' ;
  492. ;---------------------------------------------------;
  493. USER_CODE_1 CODE ;
  494. ;---------------------------------------------------;
  495. _Update_Paddle_1: ;
  496. ;---------------------------------------------------;
  497. ; Note: This is a 60us line routine. ;
  498. ;---------------------------------------------------;
  499. NOP ;
  500. ;-----------------------------------------------;
  501. ; 4us Negative Sync Generation ;
  502. ;-----------------------------------------------;
  503. NEG_SYNC_4US ;
  504. ;-----------------------------------------------;
  505. ;
  506. ;-----------------------------------------------;
  507. ; 60us Blank Signal Generation ;
  508. ; But with lots of calculations going on ;
  509. ;-----------------------------------------------;
  510. SET_SIGNAL COLOR_BLACK ;
  511. ;
  512. BANKSEL OPTION_REG ;
  513. BCF OPTION_REG, PSA ;
  514. BANKSEL TMR0 ;
  515. CLRF TMR0 ;
  516. ;
  517. _UP1_Clear_Paddle: ;
  518. MOVFW Paddle_1_Y ;
  519. ADDWF Paddle_1_Y, W ;
  520. ADDWF Paddle_1_Y, W ;
  521. ADDWF Paddle_1_Y, W ;
  522. ADDLW LOW VIDEO_BUFFER_START + LEFT_PADDLE_START;
  523. MOVWF FSR1L ;
  524. MOVLW HIGH VIDEO_BUFFER_START ;
  525. MOVWF FSR1H ;
  526. MOVIW 0[INDF1] ;
  527. ANDLW LEFT_PADDLE_MASK ;
  528. MOVWI 0[INDF1] ;
  529. MOVIW 4[INDF1] ;
  530. ANDLW LEFT_PADDLE_MASK ;
  531. MOVWI 4[INDF1] ;
  532. MOVIW 8[INDF1] ;
  533. ANDLW LEFT_PADDLE_MASK ;
  534. MOVWI 8[INDF1] ;
  535. MOVIW 12[INDF1] ;
  536. ANDLW LEFT_PADDLE_MASK ;
  537. MOVWI 12[INDF1] ;
  538. MOVIW 16[INDF1] ;
  539. ANDLW LEFT_PADDLE_MASK ;
  540. MOVWI 16[INDF1] ;
  541. MOVIW 20[INDF1] ;
  542. ANDLW LEFT_PADDLE_MASK ;
  543. MOVWI 20[INDF1] ;
  544. MOVIW 24[INDF1] ;
  545. ANDLW LEFT_PADDLE_MASK ;
  546. MOVWI 24[INDF1] ;
  547. MOVIW 28[INDF1] ;
  548. ANDLW LEFT_PADDLE_MASK ;
  549. MOVWI 28[INDF1] ;
  550. ;
  551. #IF _USE_THUMBSTICKS_ ;
  552. _UP1_Update: ;
  553. ;-----------------------------------------------;
  554. ; ADC Magic (Channel 0) ;
  555. ;-----------------------------------------------;
  556. BANKSEL ADCON1 ;
  557. MOVLW H'60' ; Left Justified
  558. MOVWF ADCON1 ; FOSC/64, VREF
  559. MOVLW B'00001011' ; AN2, ADC GO, ADC On
  560. MOVWF ADCON0 ;
  561. BTFSC ADCON0, GO ; Wait for conversion
  562. GOTO $-1 ;
  563. MOVFW ADRESH ; Get result
  564. BANKSEL MEMORY ;
  565. ;-----------------------------------------------;
  566. ;
  567. MOVWF Temp1 ;
  568. MOVLW H'60' ;
  569. SUBWF Temp1, W ;
  570. BTFSS STATUS, C ;
  571. DECF Paddle_1_Y, F ;
  572. MOVLW H'9F' ;
  573. SUBWF Temp1, W ;
  574. BTFSC STATUS, C ;
  575. INCF Paddle_1_Y, F ;
  576. BTFSC Paddle_1_Y, MSB ;
  577. CLRF Paddle_1_Y ;
  578. MOVLW 48 ;
  579. SUBWF Paddle_1_Y, W ;
  580. BTFSS STATUS, C ;
  581. GOTO _UP1_Update_Done ;
  582. MOVLW 48 ;
  583. MOVWF Paddle_1_Y ;
  584. _UP1_Update_Done: ;
  585. #ELSE ;!_USE_THUMBSTICKS_ ;
  586. _UP1_Check_Up: ;
  587. CLRW ;
  588. XORWF Paddle_1_Y, W ;
  589. BTFSC STATUS, Z ;
  590. GOTO _UP1_Check_Down ;
  591. BTFSS PORTA, LBUTT_1_BIT ;
  592. DECF Paddle_1_Y, F ;
  593. _UP1_Check_Down: ;
  594. MOVLW 48 ;
  595. XORWF Paddle_1_Y, W ;
  596. BTFSC STATUS, Z ;
  597. GOTO _UP1_Draw_Paddle ;
  598. BTFSS PORTA, LBUTT_2_BIT ;
  599. INCF Paddle_1_Y, F ;
  600. #ENDIF ;_USE_THUMBSTICKS_ ;
  601. ;
  602. _UP1_Draw_Paddle: ;
  603. MOVFW Paddle_1_Y ;
  604. ADDWF Paddle_1_Y, W ;
  605. ADDWF Paddle_1_Y, W ;
  606. ADDWF Paddle_1_Y, W ;
  607. ADDLW LOW VIDEO_BUFFER_START + LEFT_PADDLE_START;
  608. MOVWF FSR1L ;
  609. MOVLW HIGH VIDEO_BUFFER_START ;
  610. MOVWF FSR1H ;
  611. MOVIW 0[INDF1] ;
  612. IORLW LEFT_PADDLE_BIT ;
  613. MOVWI 0[INDF1] ;
  614. MOVIW 4[INDF1] ;
  615. IORLW LEFT_PADDLE_BIT ;
  616. MOVWI 4[INDF1] ;
  617. MOVIW 8[INDF1] ;
  618. IORLW LEFT_PADDLE_BIT ;
  619. MOVWI 8[INDF1] ;
  620. MOVIW 12[INDF1] ;
  621. IORLW LEFT_PADDLE_BIT ;
  622. MOVWI 12[INDF1] ;
  623. MOVIW 16[INDF1] ;
  624. IORLW LEFT_PADDLE_BIT ;
  625. MOVWI 16[INDF1] ;
  626. MOVIW 20[INDF1] ;
  627. IORLW LEFT_PADDLE_BIT ;
  628. MOVWI 20[INDF1] ;
  629. MOVIW 24[INDF1] ;
  630. IORLW LEFT_PADDLE_BIT ;
  631. MOVWI 24[INDF1] ;
  632. MOVIW 28[INDF1] ;
  633. IORLW LEFT_PADDLE_BIT ;
  634. MOVWI 28[INDF1] ;
  635. ;
  636. MOVFW TMR0 ;
  637. SUBLW 228 ;
  638. BTFSC STATUS, C ;
  639. GOTO $-3 ;
  640. NOP ;
  641. NOP ;
  642. NOP ;
  643. ;
  644. RETURN ;
  645. ;---------------------------------------------------;
  646.  
  647. ;---------------------------------------------------;
  648. _Update_Paddle_2: ;
  649. ;---------------------------------------------------;
  650. ; Note: This is a 60us line routine. ;
  651. ;---------------------------------------------------;
  652. ;-----------------------------------------------;
  653. ; 4us Negative Sync Generation ;
  654. ;-----------------------------------------------;
  655. NEG_SYNC_4US ;
  656. ;-----------------------------------------------;
  657. ;
  658. ;-----------------------------------------------;
  659. ; 60us Blank Signal Generation ;
  660. ; But with lots of calculations going on ;
  661. ;-----------------------------------------------;
  662. SET_SIGNAL COLOR_BLACK ;
  663. ;
  664. BANKSEL OPTION_REG ;
  665. BCF OPTION_REG, PSA ;
  666. BANKSEL TMR0 ;
  667. CLRF TMR0 ;
  668. ;
  669. _UP2_Clear_Paddle: ;
  670. MOVFW Paddle_2_Y ;
  671. ADDWF Paddle_2_Y, W ;
  672. ADDWF Paddle_2_Y, W ;
  673. ADDWF Paddle_2_Y, W ;
  674. ADDLW LOW VIDEO_BUFFER_START + RIGHT_PADDLE_START;
  675. MOVWF FSR1L ;
  676. MOVLW HIGH VIDEO_BUFFER_START ;
  677. MOVWF FSR1H ;
  678. MOVIW 0[INDF1] ;
  679. ANDLW RIGHT_PADDLE_MASK ;
  680. MOVWI 0[INDF1] ;
  681. MOVIW 4[INDF1] ;
  682. ANDLW RIGHT_PADDLE_MASK ;
  683. MOVWI 4[INDF1] ;
  684. MOVIW 8[INDF1] ;
  685. ANDLW RIGHT_PADDLE_MASK ;
  686. MOVWI 8[INDF1] ;
  687. MOVIW 12[INDF1] ;
  688. ANDLW RIGHT_PADDLE_MASK ;
  689. MOVWI 12[INDF1] ;
  690. MOVIW 16[INDF1] ;
  691. ANDLW RIGHT_PADDLE_MASK ;
  692. MOVWI 16[INDF1] ;
  693. MOVIW 20[INDF1] ;
  694. ANDLW RIGHT_PADDLE_MASK ;
  695. MOVWI 20[INDF1] ;
  696. MOVIW 24[INDF1] ;
  697. ANDLW RIGHT_PADDLE_MASK ;
  698. MOVWI 24[INDF1] ;
  699. MOVIW 28[INDF1] ;
  700. ANDLW RIGHT_PADDLE_MASK ;
  701. MOVWI 28[INDF1] ;
  702. ;
  703. #IF _USE_THUMBSTICKS_ ;
  704. _UP2_Update: ;
  705. ;-----------------------------------------------;
  706. ; ADC Magic (Channel 0) ;
  707. ;-----------------------------------------------;
  708. BANKSEL ADCON1 ;
  709. MOVLW H'60' ; Left Justified
  710. MOVWF ADCON1 ; FOSC/64, VREF
  711. MOVLW B'00000011' ; AN0, ADC GO, ADC On
  712. MOVWF ADCON0 ;
  713. BTFSC ADCON0, GO ; Wait for conversion
  714. GOTO $-1 ;
  715. MOVFW ADRESH ; Get result
  716. BANKSEL MEMORY ;
  717. ;-----------------------------------------------;
  718. ;
  719. MOVWF Temp1 ;
  720. MOVLW H'60' ;
  721. SUBWF Temp1, W ;
  722. BTFSS STATUS, C ;
  723. DECF Paddle_2_Y, F ;
  724. MOVLW H'9F' ;
  725. SUBWF Temp1, W ;
  726. BTFSC STATUS, C ;
  727. INCF Paddle_2_Y, F ;
  728. BTFSC Paddle_2_Y, MSB ;
  729. CLRF Paddle_2_Y ;
  730. MOVLW 48 ;
  731. SUBWF Paddle_2_Y, W ;
  732. BTFSS STATUS, C ;
  733. GOTO _UP2_Update_Done ;
  734. MOVLW 48 ;
  735. MOVWF Paddle_2_Y ;
  736. _UP2_Update_Done: ;
  737. #ELSE ;!_USE_THUMBSTICKS_ ;
  738. _UP2_Check_Up: ;
  739. CLRW ;
  740. XORWF Paddle_2_Y, W ;
  741. BTFSC STATUS, Z ;
  742. GOTO _UP2_Check_Down ;
  743. BTFSS PORTA, RBUTT_1_BIT ;
  744. DECF Paddle_2_Y, F ;
  745. _UP2_Check_Down: ;
  746. MOVLW 40 ;
  747. XORWF Paddle_2_Y, W ;
  748. BTFSC STATUS, Z ;
  749. GOTO _UP2_Draw_Paddle ;
  750. BTFSS PORTA, RBUTT_2_BIT ;
  751. INCF Paddle_2_Y, F ;
  752. #ENDIF ;_USE_THUMBSTICKS_ ;
  753. ;
  754. _UP2_Draw_Paddle: ;
  755. MOVFW Paddle_2_Y ;
  756. ADDWF Paddle_2_Y, W ;
  757. ADDWF Paddle_2_Y, W ;
  758. ADDWF Paddle_2_Y, W ;
  759. ADDLW LOW VIDEO_BUFFER_START + RIGHT_PADDLE_START;
  760. MOVWF FSR1L ;
  761. MOVLW HIGH VIDEO_BUFFER_START ;
  762. MOVWF FSR1H ;
  763. MOVIW 0[INDF1] ;
  764. IORLW RIGHT_PADDLE_BIT ;
  765. MOVWI 0[INDF1] ;
  766. MOVIW 4[INDF1] ;
  767. IORLW RIGHT_PADDLE_BIT ;
  768. MOVWI 4[INDF1] ;
  769. MOVIW 8[INDF1] ;
  770. IORLW RIGHT_PADDLE_BIT ;
  771. MOVWI 8[INDF1] ;
  772. MOVIW 12[INDF1] ;
  773. IORLW RIGHT_PADDLE_BIT ;
  774. MOVWI 12[INDF1] ;
  775. MOVIW 16[INDF1] ;
  776. IORLW RIGHT_PADDLE_BIT ;
  777. MOVWI 16[INDF1] ;
  778. MOVIW 20[INDF1] ;
  779. IORLW RIGHT_PADDLE_BIT ;
  780. MOVWI 20[INDF1] ;
  781. MOVIW 24[INDF1] ;
  782. IORLW RIGHT_PADDLE_BIT ;
  783. MOVWI 24[INDF1] ;
  784. MOVIW 28[INDF1] ;
  785. IORLW RIGHT_PADDLE_BIT ;
  786. MOVWI 28[INDF1] ;
  787. ;
  788. NOP ;
  789. MOVFW TMR0 ;
  790. SUBLW 226 ;
  791. BTFSC STATUS, C ;
  792. GOTO $-3 ;
  793. NOP ;
  794. NOP ;
  795. ;
  796. RETURN ;
  797. ;---------------------------------------------------;
  798.  
  799. ;---------------------------------------------------;
  800. _Update_Ball: ;
  801. ;---------------------------------------------------;
  802. ; Note: This is a 60us line routine. ;
  803. ;---------------------------------------------------;
  804. ;-----------------------------------------------;
  805. ; 4us Negative Sync Generation ;
  806. ;-----------------------------------------------;
  807. NEG_SYNC_4US ;
  808. ;
  809. ;-----------------------------------------------;
  810. ; 60us Blank Signal Generation ;
  811. ; But with lots of calculations going on ;
  812. ;-----------------------------------------------;
  813. SET_SIGNAL COLOR_BLACK ;
  814. ;
  815. BANKSEL OPTION_REG ;
  816. BCF OPTION_REG, PSA ;
  817. BANKSEL TMR0 ;
  818. CLRF TMR0 ;
  819. ;
  820. _UB_Check_Wait: ;
  821. DECFSZ Ball_Wait, F ;
  822. GOTO _UB_Exit ;
  823. ;
  824. MOVLW MAX_BALL_WAIT ;
  825. MOVWF Ball_Wait ;
  826. ;
  827. CLRW ;
  828. XORWF Ball_Dir_X, W ;
  829. BTFSS STATUS, Z ;
  830. GOTO _UB_Clear_Ball ;
  831. CLRW ;
  832. XORWF Ball_Dir_Y, W ;
  833. BTFSS STATUS, Z ;
  834. GOTO _UB_Clear_Ball ;
  835. ;
  836. _UB_Check_L_Serve: ;
  837. BTFSC PORTA, LBUTT_BIT ;
  838. GOTO _UB_Check_R_Serve ;
  839. MOVLW 1 ;
  840. MOVWF Ball_Dir_X ;
  841. MOVLW 1 ;
  842. MOVWF Ball_Dir_Y ;
  843. MOVLW 16 ;
  844. MOVWF Ball_X ;
  845. MOVLW 27 ;
  846. MOVWF Ball_Y ;
  847. GOTO _UB_Service ;
  848. _UB_Check_R_Serve: ;
  849. BTFSC System_Status, BUZZ_BIT ;
  850. GOTO _UB_Exit ;
  851. BANKSEL TRISA ;
  852. BSF TRISA, RBUTT_BIT ;
  853. BANKSEL PORTA ;
  854. BTFSC PORTA, RBUTT_BIT ;
  855. GOTO _UB_Exit ;
  856. BANKSEL TRISA ;
  857. BCF TRISA, RBUTT_BIT ;
  858. BANKSEL PORTA ;
  859. MOVLW -1 ;
  860. MOVWF Ball_Dir_X ;
  861. MOVLW -1 ;
  862. MOVWF Ball_Dir_Y ;
  863. MOVLW 15 ;
  864. MOVWF Ball_X ;
  865. MOVLW 27 ;
  866. MOVWF Ball_Y ;
  867. _UB_Service: ;
  868. PAGESEL _Clear_Court ;
  869. CALL _Clear_Court ;
  870. PAGESEL $ ;
  871. MOVLW H'11' ;
  872. XORWF Score_1, W ;
  873. BTFSC STATUS, Z ;
  874. GOTO $+5 ;
  875. MOVLW H'11' ;
  876. XORWF Score_2, W ;
  877. BTFSS STATUS, Z ;
  878. GOTO _UB_Draw_Ball ;
  879. CLRF Score_1 ;
  880. CLRF Score_2 ;
  881. GOTO _UB_Draw_Ball ;
  882. ;
  883. _UB_Clear_Ball: ;
  884. MOVFW Ball_Y ;
  885. ADDWF Ball_Y, W ;
  886. ADDWF Ball_Y, W ;
  887. ADDWF Ball_Y, W ;
  888. ADDLW LOW VIDEO_BUFFER_START ;
  889. MOVWF FSR1L ;
  890. RRF Ball_X, W ;
  891. MOVWF Temp1 ;
  892. RRF Temp1, F ;
  893. RRF Temp1, W ;
  894. ANDLW H'1F' ;
  895. ADDWF FSR1L, F ;
  896. MOVLW HIGH VIDEO_BUFFER_START ;
  897. MOVWF FSR1H ;
  898. ;
  899. MOVFW Ball_X ;
  900. ANDLW H'07' ;
  901. MOVWF Temp1 ;
  902. MOVLW H'7F' ;
  903. MOVWF DTemp ;
  904. MOVLW 0 ; ;
  905. XORWF Temp1, W ;
  906. BTFSC STATUS, Z ;
  907. GOTO $+5 ;
  908. DECF Temp1, F ;
  909. RRF DTemp, F ;
  910. BSF DTemp, MSB ;
  911. GOTO $-7 ;
  912. ;
  913. MOVFW DTemp ;
  914. ANDWF INDF1, F ;
  915. ;
  916. MOVLW H'04' ;
  917. ADDWF FSR1L, F ;
  918. MOVFW DTemp ;
  919. ANDWF INDF1, F ;
  920. ;
  921. _UB_Update_Ball_X: ;
  922. MOVFW Ball_Dir_X ; Update Ball X Position
  923. ADDWF Ball_X, F ;
  924. ;
  925. _UB_Update_Ball_X_Min: ;
  926. MOVLW 0 ;
  927. XORWF Ball_X, W ;
  928. BTFSS STATUS, Z ;
  929. GOTO _UB_Update_Ball_X_Max ;
  930. MOVLW 1 ;
  931. MOVWF Ball_Dir_X ;
  932. ;
  933. INCF Score_2, F ;
  934. PLAY_SOUND 20, H'017F' ; Frequency, Duration
  935. MOVLW 0 ;
  936. MOVWF Ball_Dir_X ;
  937. MOVWF Ball_Dir_Y ;
  938. MOVLW 15 ;
  939. MOVWF Ball_X ;
  940. MOVLW 27 ;
  941. MOVWF Ball_Y ;
  942. MOVFW Score_2 ;
  943. ANDLW H'0F' ;
  944. XORLW H'0A' ;
  945. BTFSS STATUS, Z ;
  946. GOTO _UB_BXMin_Exit ;
  947. MOVFW Score_2 ;
  948. ANDLW H'F0' ;
  949. ADDLW H'10' ;
  950. MOVWF Score_2 ;
  951. MOVLW H'A0' ;
  952. XORWF Score_2, W ;
  953. BTFSC STATUS, Z ;
  954. CLRF Score_2 ;
  955. _UB_BXMin_Exit: ;
  956. MOVLW H'11' ;
  957. XORWF Score_2, W ;
  958. BTFSS STATUS, Z ;
  959. GOTO _UB_Exit ;
  960. PAGESEL _Clear_Court ;
  961. CALL _Clear_Court ;
  962. PAGESEL _Draw_Title ;
  963. CALL _Draw_Title ;
  964. PAGESEL $ ;
  965. GOTO _UB_Exit ;
  966. ;
  967. _UB_Update_Ball_X_Max: ;
  968. MOVLW 31 ;
  969. XORWF Ball_X, W ;
  970. BTFSS STATUS, Z ;
  971. GOTO _UB_Update_Ball_Y ;
  972. MOVLW -1 ;
  973. MOVWF Ball_Dir_X ;
  974. ;
  975. INCF Score_1, F ;
  976. PLAY_SOUND 20, H'017F' ; Frequency, Duration
  977. MOVLW 0 ;
  978. MOVWF Ball_Dir_X ;
  979. MOVWF Ball_Dir_Y ;
  980. MOVLW 15 ;
  981. MOVWF Ball_X ;
  982. MOVLW 27 ;
  983. MOVWF Ball_Y ;
  984. MOVFW Score_1 ;
  985. ANDLW H'0F' ;
  986. XORLW H'0A' ;
  987. BTFSS STATUS, Z ;
  988. GOTO _UB_BXMax_Exit ;
  989. MOVFW Score_1 ;
  990. ANDLW H'F0' ;
  991. ADDLW H'10' ;
  992. MOVWF Score_1 ;
  993. MOVLW H'A0' ;
  994. XORWF Score_1, W ;
  995. BTFSC STATUS, Z ;
  996. CLRF Score_1 ;
  997. _UB_BXMax_Exit: ;
  998. MOVLW H'11' ;
  999. XORWF Score_1, W ;
  1000. BTFSS STATUS, Z ;
  1001. GOTO _UB_Exit ;
  1002. PAGESEL _Clear_Court ;
  1003. CALL _Clear_Court ;
  1004. PAGESEL _Draw_Title ;
  1005. CALL _Draw_Title ;
  1006. PAGESEL $ ;
  1007. GOTO _UB_Exit ;
  1008. ;
  1009. _UB_Update_Ball_Y: ;
  1010. MOVFW Ball_Dir_Y ; Update Ball Y Position
  1011. ADDWF Ball_Y, F ;
  1012. ;
  1013. _UB_Update_Ball_Y_Min: ;
  1014. MOVLW 0 ;
  1015. XORWF Ball_Y, W ;
  1016. BTFSS STATUS, Z ;
  1017. GOTO _UB_Update_Ball_Y_Max ;
  1018. MOVLW 1 ;
  1019. MOVWF Ball_Dir_Y ;
  1020. PLAY_SOUND 13, H'013F' ; Frequency, Duration
  1021. GOTO _UB_Paddle_Detect ;
  1022. ;
  1023. _UB_Update_Ball_Y_Max: ;
  1024. MOVLW 55 ;
  1025. XORWF Ball_Y, W ;
  1026. BTFSS STATUS, Z ;
  1027. GOTO _UB_Paddle_Detect ;
  1028. MOVLW -1 ;
  1029. MOVWF Ball_Dir_Y ;
  1030. PLAY_SOUND 13, H'013F' ; Frequency, Duration
  1031. ;
  1032. _UB_Paddle_Detect: ;
  1033. _UB_Paddle_Detect_Left: ;
  1034. MOVLW -1 ;
  1035. XORWF Ball_Dir_X, W ;
  1036. BTFSS STATUS, Z ;
  1037. GOTO _UB_Paddle_Detect_Right ;
  1038. ;
  1039. MOVLW 2 ;
  1040. XORWF Ball_X, W ;
  1041. BTFSS STATUS, Z ;
  1042. GOTO _UB_Draw_Ball ;
  1043. ;
  1044. MOVFW Paddle_1_Y ;
  1045. SUBWF Ball_Y, W ;
  1046. BTFSS STATUS, C ;
  1047. GOTO _UB_Draw_Ball ;
  1048. MOVFW Paddle_1_Y ;
  1049. ADDLW 8 ;
  1050. SUBWF Ball_Y, W ;
  1051. BTFSC STATUS, C ;
  1052. GOTO _UB_Draw_Ball ;
  1053. MOVLW 1 ;
  1054. MOVWF Ball_Dir_X ;
  1055. PLAY_SOUND 15, H'013F' ; Frequency, Duration
  1056. GOTO _UB_Draw_Ball ;
  1057. ;
  1058. _UB_Paddle_Detect_Right: ;
  1059. MOVLW 1 ;
  1060. XORWF Ball_Dir_X, W ;
  1061. BTFSS STATUS, Z ;
  1062. GOTO _UB_Draw_Ball ;
  1063. ;
  1064. MOVLW 29 ;
  1065. XORWF Ball_X, W ;
  1066. BTFSS STATUS, Z ;
  1067. GOTO _UB_Draw_Ball ;
  1068. ;
  1069. MOVFW Paddle_2_Y ;
  1070. SUBWF Ball_Y, W ;
  1071. BTFSS STATUS, C ;
  1072. GOTO _UB_Draw_Ball ;
  1073. MOVFW Paddle_2_Y ;
  1074. ADDLW 8 ;
  1075. SUBWF Ball_Y, W ;
  1076. BTFSC STATUS, C ;
  1077. GOTO _UB_Draw_Ball ;
  1078. MOVLW -1 ;
  1079. MOVWF Ball_Dir_X ;
  1080. PLAY_SOUND 15, H'013F' ; Frequency, Duration
  1081. ;
  1082. _UB_Draw_Ball: ;
  1083. MOVFW Ball_Y ;
  1084. ADDWF Ball_Y, W ;
  1085. ADDWF Ball_Y, W ;
  1086. ADDWF Ball_Y, W ;
  1087. ADDLW LOW VIDEO_BUFFER_START ;
  1088. MOVWF FSR1L ;
  1089. RRF Ball_X, W ;
  1090. MOVWF Temp1 ;
  1091. RRF Temp1, F ;
  1092. RRF Temp1, W ;
  1093. ANDLW H'1F' ;
  1094. ADDWF FSR1L, F ;
  1095. MOVLW HIGH VIDEO_BUFFER_START ;
  1096. MOVWF FSR1H ;
  1097. ;
  1098. MOVFW Ball_X ;
  1099. ANDLW H'07' ;
  1100. MOVWF Temp1 ;
  1101. MOVLW H'80' ;
  1102. MOVWF DTemp ;
  1103. MOVLW 0 ; ;
  1104. XORWF Temp1, W ;
  1105. BTFSC STATUS, Z ;
  1106. GOTO $+5 ;
  1107. DECF Temp1, F ;
  1108. RRF DTemp, F ;
  1109. BCF DTemp, MSB ;
  1110. GOTO $-7 ;
  1111. ;
  1112. MOVFW DTemp ;
  1113. IORWF INDF1, F ;
  1114. ;
  1115. MOVLW H'04' ;
  1116. ADDWF FSR1L, F ;
  1117. MOVFW DTemp ;
  1118. IORWF INDF1, F ;
  1119. ;
  1120. _UB_Exit: ;
  1121. BANKSEL TRISA ;
  1122. BSF TRISA, RBUTT_BIT ;
  1123. BANKSEL PORTA ;
  1124. ;
  1125. NOP ;
  1126. MOVFW TMR0 ;
  1127. SUBLW 227 ;
  1128. BTFSC STATUS, C ;
  1129. GOTO $-3 ;
  1130. NOP ;
  1131. ;
  1132. RETURN ;
  1133. ;---------------------------------------------------;
  1134.  
  1135. ;---------------------------------------------------;
  1136. USER_CODE_2 CODE H'800' ;
  1137. ;---------------------------------------------------;
  1138. _Next_Frame: ;
  1139. ;---------------------------------------------------;
  1140. ;-----------------------------------------------;
  1141. ; VERTICAL SYNC PULSE Time ;
  1142. ; This consists of 5 blank half lines, ;
  1143. ; 4 inverted half lines, and 5 more blank half ;
  1144. ; lines. This totals 7 full lines of 64us each. ;
  1145. ; --------------------------------------------- ;
  1146. ; NOTE: Timing is CRITICAL for a nice, clean ;
  1147. ; display. If you notice the top part of the ;
  1148. ; display is skewed or "tearing", your timings ;
  1149. ; are wrong and need to be adjusted. Make sure ;
  1150. ; you haven't inadvertently dropped a half frame;
  1151. ;-----------------------------------------------;
  1152. ; First, a special blank 30us line. If _DEBUG_ ;
  1153. ; is enabled, it will produce a pulse on the ;
  1154. ; GPIO2 pin for debugging purposes (checking the;
  1155. ; time elapsed for a single video frame). ;
  1156. ;-----------------------------------------------;
  1157. PAGESEL _Special_30us_Line ;
  1158. CALL _Special_30us_Line ;
  1159. PAGESEL $ ;
  1160. ;-----------------------------------------------;
  1161. ;
  1162. ;-----------------------------------------------;
  1163. ; 4 blank 30us lines ;
  1164. ;-----------------------------------------------;
  1165. MOVLW 4 ;
  1166. MOVWF Line_Count ;
  1167. _NF_Next_Blank_30us_Line1: ;
  1168. PAGESEL _Blank_30us_Line ;
  1169. CALL _Blank_30us_Line ;
  1170. PAGESEL $ ;
  1171. DECFSZ Line_Count, F ;
  1172. GOTO _NF_Next_Blank_30us_Line1 ;
  1173. ;-----------------------------------------------;
  1174. ;
  1175. ;-----------------------------------------------;
  1176. ; Timing fix for transition from 30us lines to ;
  1177. ; inverted 30us lines. ;
  1178. ;-----------------------------------------------;
  1179. NOP ;
  1180. ;-----------------------------------------------;
  1181. ;
  1182. ;-----------------------------------------------;
  1183. ; 4 inverted 30us lines ;
  1184. ;-----------------------------------------------;
  1185. MOVLW 4 ;
  1186. MOVWF Line_Count ;
  1187. _NF_Next_Inverted_30us_Line: ;
  1188. PAGESEL _Inverted_30us_Line ;
  1189. CALL _Inverted_30us_Line ;
  1190. PAGESEL $ ;
  1191. DECFSZ Line_Count, F ;
  1192. GOTO _NF_Next_Inverted_30us_Line ;
  1193. ;-----------------------------------------------;
  1194. ;
  1195. ;-----------------------------------------------;
  1196. ; 5 blank 30us lines ;
  1197. ;-----------------------------------------------;
  1198. MOVLW 5 ;
  1199. MOVWF Line_Count ;
  1200. _NF_Next_Blank_30us_Line2: ;
  1201. PAGESEL _Blank_30us_Line ;
  1202. CALL _Blank_30us_Line ;
  1203. PAGESEL $ ;
  1204. DECFSZ Line_Count, F ;
  1205. GOTO _NF_Next_Blank_30us_Line2 ;
  1206. ;-----------------------------------------------;
  1207. ;
  1208. ;-----------------------------------------------;
  1209. ; Just a bunch of BLANK LINES, so that the video;
  1210. ; data doesn't start in the non-display area. ;
  1211. ; Add or remove lines to adjust the vertical ;
  1212. ; position of your video. If you add or remove, ;
  1213. ; make sure to adjust the number of BLANK LINES ;
  1214. ; which follow the data lines, so that the video;
  1215. ; stays at 60hz ;
  1216. ;-----------------------------------------------;
  1217. MOVLW 15 ;
  1218. MOVWF Line_Count ;
  1219. _NF_Next_Blank_60us_Line: ;
  1220. PAGESEL _Blank_60us_Line ;
  1221. CALL _Blank_60us_Line ;
  1222. PAGESEL $ ;
  1223. DECFSZ Line_Count, F ;
  1224. GOTO _NF_Next_Blank_60us_Line ;
  1225. ;-----------------------------------------------;
  1226. ;
  1227. ;-----------------------------------------------;
  1228. ; 224 Data lines + 2 Blank Lines (1 before and ;
  1229. ; one after) for timing fixes ;
  1230. ;-----------------------------------------------;
  1231. PAGESEL _Data_Lines ;
  1232. CALL _Data_Lines ;
  1233. PAGESEL $ ;
  1234. ;-----------------------------------------------;
  1235. ;
  1236. ;-----------------------------------------------;
  1237. ; 8 lines for the copyright. So, to summarize: ;
  1238. ; (note - I needed four full 60us frames for ;
  1239. ; the game processing (paddles, ball, scores, ;
  1240. ; etc.), so I moved four blank line there for ;
  1241. ; use for those routines) ;
  1242. ; ;
  1243. ; - 7 VERTICAL SYNC lines ;
  1244. ; - 15 BLANK LINES ;
  1245. ; - 1 BLANK LINE (for timing fixes) ;
  1246. ; - 224 DATA LINES ;
  1247. ; - 1 BLANK LINE (for timing fixes) ;
  1248. ; - 8 LINES FOR COPYRIGHT ;
  1249. ; - 4 BLANK LINES (game processing) ;
  1250. ; ;
  1251. ; For a total of 260 lines at 64us each, or ;
  1252. ; 16.664ms, or approximately 60hz. 16.666ms ;
  1253. ; would be _perfect_. ;
  1254. ;-----------------------------------------------;
  1255. ;
  1256. ;-----------------------------------------------;
  1257. ; Display copyright and software version number ;
  1258. ;-----------------------------------------------;
  1259. PAGESEL _Copyright ;
  1260. CALL _Copyright ; 8 blank FULL line (60us)
  1261. PAGESEL $ ;
  1262. ;-----------------------------------------------;
  1263. ;
  1264. ;-----------------------------------------------;
  1265. ; All of the game processing is done here, the ;
  1266. ; last 4 full 60us blank lines ;
  1267. ;-----------------------------------------------;
  1268. PAGESEL _Update_Ball ;
  1269. CALL _Update_Ball ; 1 blank FULL line (60us)
  1270. PAGESEL $ ; (ball computations)
  1271. PAGESEL _Update_Scores ;
  1272. CALL _Update_Scores ; 1 blank FULL line (60us)
  1273. PAGESEL $ ; (score display)
  1274. PAGESEL _Update_Paddle_1 ;
  1275. CALL _Update_Paddle_1 ; 1 blank FULL line (60us)
  1276. PAGESEL $ ; (paddle 1 computations)
  1277. PAGESEL _Update_Paddle_2 ;
  1278. CALL _Update_Paddle_2 ; 1 blank FULL line (60us)
  1279. PAGESEL $ ; (paddle 2 computations)
  1280. ;-----------------------------------------------;
  1281. ;
  1282. GOTO _Next_Frame ;
  1283. ;---------------------------------------------------;
  1284. ;
  1285. ;---------------------------------------------------;
  1286. _Blank_30us_Line: ;
  1287. ;---------------------------------------------------;
  1288. ; Used only during VERTICAL SYNC ;
  1289. ; NOTE: This is a 30us line routine ;
  1290. ;---------------------------------------------------;
  1291. ;-----------------------------------------------;
  1292. ; 2us Negative Sync Generation ;
  1293. ;-----------------------------------------------;
  1294. NEG_SYNC_2US ;
  1295. ;-----------------------------------------------;
  1296. ;
  1297. ;-----------------------------------------------;
  1298. ; 30us Blank Signal Generation ;
  1299. ;-----------------------------------------------;
  1300. SET_SIGNAL COLOR_BLACK ;
  1301. ;
  1302. BANKSEL OPTION_REG ;
  1303. BCF OPTION_REG, PSA ;
  1304. BANKSEL TMR0 ;
  1305. CLRF TMR0 ;
  1306. ;
  1307. NOP ;
  1308. MOVFW TMR0 ;
  1309. SUBLW 106 ;
  1310. BTFSC STATUS, C ;
  1311. GOTO $-3 ;
  1312. NOP ;
  1313. NOP ;
  1314. NOP ;
  1315. ;-----------------------------------------------;
  1316. ;
  1317. RETURN ;
  1318. ;---------------------------------------------------;
  1319.  
  1320. ;---------------------------------------------------;
  1321. _Special_30us_Line: ;
  1322. ;---------------------------------------------------;
  1323. ; Note: This is a 30us line routine. ;
  1324. ;---------------------------------------------------;
  1325. ;-----------------------------------------------;
  1326. ; 2us Negative Sync Generation ;
  1327. ;-----------------------------------------------;
  1328. NEG_SYNC_2US ;
  1329. ;-----------------------------------------------;
  1330. ;
  1331. ;-----------------------------------------------;
  1332. ; 30us Blank Signal Generation (SPECIAL) ;
  1333. ;-----------------------------------------------;
  1334. ; If _DEBUG_ is TRUE, this will generate a ;
  1335. ; pulse on GPIO2 for debug purposes - used to ;
  1336. ; check the timing of a complete video frame. ;
  1337. ;-----------------------------------------------;
  1338. SET_SIGNAL COLOR_BLACK ;
  1339. ;
  1340. BANKSEL OPTION_REG ;
  1341. BCF OPTION_REG, PSA ;
  1342. BANKSEL TMR0 ;
  1343. CLRF TMR0 ;
  1344. ;
  1345. #IF _DEBUG_ ;
  1346. BANKSEL TRISA ;
  1347. BCF TRISA, 2 ;
  1348. BANKSEL PORTA ;
  1349. BCF PORTA, 2 ;
  1350. NOP ;
  1351. BSF PORTA, 2 ;
  1352. BANKSEL TRISA ;
  1353. BSF TRISA, 2 ;
  1354. BANKSEL MEMORY ;
  1355. #ENDIF ; _DEBUG_ ;
  1356. ;
  1357. NOP ;
  1358. MOVFW TMR0 ;
  1359. SUBLW 106 ;
  1360. BTFSC STATUS, C ;
  1361. GOTO $-3 ;
  1362. ;
  1363. ;-----------------------------------------------;
  1364. ; This is what irks me about using the Timers ;
  1365. ; for timing the video signals. You would think ;
  1366. ; that since the timing comes AFTER the debug ;
  1367. ; code that is there - or not there - the ;
  1368. ; use of the timer should give you a stable ;
  1369. ; timing. But no - each case requires hand ;
  1370. ; tweaks in order to get the timings right. This;
  1371. ; has been driving me a bit crazy for the entire;
  1372. ; project. Thank God for my USBee ZX analyzer. ;
  1373. ;-----------------------------------------------;
  1374. #IF !_DEBUG_ ;
  1375. NOP ;
  1376. NOP ;
  1377. NOP ;
  1378. NOP ;
  1379. #ENDIF ; !_DEBUG_ ;
  1380. ;
  1381. ;-----------------------------------------------;
  1382. ;
  1383. RETURN ;
  1384. ;---------------------------------------------------;
  1385.  
  1386. ;---------------------------------------------------;
  1387. _Inverted_30us_Line: ;
  1388. ;---------------------------------------------------;
  1389. ; Used only during VERTICAL SYNC ;
  1390. ; Note: This is a 30us line routine. ;
  1391. ;---------------------------------------------------;
  1392. ;-----------------------------------------------;
  1393. ; 30us Inverted Signal Generation ;
  1394. ;-----------------------------------------------;
  1395. SET_SIGNAL COLOR_SYNC ;
  1396. DELAY 77 ;
  1397. NOP ;
  1398. NOP ;
  1399. NOP ;
  1400. NOP ;
  1401. ;-----------------------------------------------;
  1402. ;
  1403. ;-----------------------------------------------;
  1404. ; 2s Positive Sync Generation ;
  1405. ;-----------------------------------------------;
  1406. SET_SIGNAL COLOR_BLACK ;
  1407. ; DELAY 1 ;
  1408. NOP ;
  1409. NOP ;
  1410. NOP ;
  1411. ; POS_SYNC_2US ;
  1412. ;-----------------------------------------------;
  1413. ;
  1414. RETURN ;
  1415. ;---------------------------------------------------;
  1416.  
  1417. ;---------------------------------------------------;
  1418. _Blank_60us_Line: ;
  1419. ;---------------------------------------------------;
  1420. ; Note: This is a 60us line routine. ;
  1421. ;---------------------------------------------------;
  1422. ;-----------------------------------------------;
  1423. ; 4us Negative Sync Generation ;
  1424. ;-----------------------------------------------;
  1425. NEG_SYNC_4US ;
  1426. ;-----------------------------------------------;
  1427. ;
  1428. ;-----------------------------------------------;
  1429. ; 60us Black Signal Generation ;
  1430. ;-----------------------------------------------;
  1431. SET_SIGNAL COLOR_BLACK ;
  1432. DELAY 155 ;
  1433. NOP ;
  1434. ;-----------------------------------------------;
  1435. ;
  1436. RETURN ;
  1437. ;---------------------------------------------------;
  1438.  
  1439. ;---------------------------------------------------;
  1440. _Data_Lines: ;
  1441. ;---------------------------------------------------;
  1442. ; Note: This will generate 1 60us blank line, then ;
  1443. ; 224 60us data lines, and finally a 60us blank line;
  1444. ;---------------------------------------------------;
  1445. ;-----------------------------------------------;
  1446. ; 4us Negative Sync Generation ;
  1447. ;-----------------------------------------------;
  1448. NEG_SYNC_4US ;
  1449. ;-----------------------------------------------;
  1450. SET_SIGNAL COLOR_BLACK ;
  1451. ;
  1452. MOVLW MAX_LINES ;
  1453. MOVWF DL_Count ;
  1454. ;
  1455. MOVLW LOW VIDEO_BUFFER_START ;
  1456. MOVWF FSR1L ;
  1457. MOVLW HIGH VIDEO_BUFFER_START ;
  1458. MOVWF FSR1H ;
  1459. ;
  1460. ;-----------------------------------------------;
  1461. ; 60us Black Signal Generation ;
  1462. ;-----------------------------------------------;
  1463. DELAY 155 ;
  1464. NOP ;
  1465. NOP ;
  1466. ;-----------------------------------------------;
  1467. ;
  1468. _DL_Next_Line: ;
  1469. MOVLW 4 ;
  1470. MOVWF Repeat_Count ;
  1471. _DL_Repeat_Line: ;
  1472. ;-----------------------------------------------;
  1473. ; 4us Negative Sync Generation ;
  1474. ;-----------------------------------------------;
  1475. NEG_SYNC_4US ;
  1476. ;-----------------------------------------------;
  1477. ;
  1478. ;-----------------------------------------------;
  1479. ; Front porch - shifts the data to the right ;
  1480. ; and hopefully centers it on the screen ;
  1481. ; --------------------------------------------- ;
  1482. ; NOTE: a DELAY 12 produces a nice 7.5us porch ;
  1483. ;-----------------------------------------------;
  1484. SET_SIGNAL COLOR_BLACK ;
  1485. DELAY 15 ;
  1486. ;-----------------------------------------------;
  1487. ;
  1488. MOVLW H'FC' ;
  1489. ANDWF FSR1L, F ;
  1490. MOVLW 4 ;
  1491. MOVWF Byte_Count ;
  1492. _DL_Next_Byte: ;
  1493. ;-----------------------------------------------;
  1494. ; This is where the 32 bits of data are actually;
  1495. ; send out over the video signal ;
  1496. ;-----------------------------------------------;
  1497. DO_BIT 7, 8 ;
  1498. DO_BIT 6, 8 ;
  1499. DO_BIT 5, 8 ;
  1500. DO_BIT 4, 8 ;
  1501. DO_BIT 3, 8 ;
  1502. DO_BIT 2, 8 ;
  1503. DO_BIT 1, 8 ;
  1504. DO_BIT 0, 1 ;
  1505. ;
  1506. ADDFSR FSR1, 1 ;
  1507. ;
  1508. _DL_Center_Line: ;
  1509. MOVLW 3 ;
  1510. XORWF Byte_Count, W ;
  1511. BTFSS STATUS, Z ;
  1512. GOTO _DL_Center_Line_Done ;
  1513. NOP ;
  1514. NOP ;
  1515. NOP ;
  1516. BCF PORTA, VIDEO_0_BIT ;
  1517. NOP ;
  1518. NOP ;
  1519. NOP ;
  1520. NOP ;
  1521. BSF PORTA, VIDEO_0_BIT ;
  1522. NOP ;
  1523. BCF PORTA, VIDEO_0_BIT ;
  1524. _DL_Center_Line_Done: ;
  1525. ;
  1526. DECFSZ Byte_Count, F ;
  1527. GOTO _DL_Next_Byte ;
  1528. DECF FSR1L, F ;
  1529. ;-----------------------------------------------;
  1530. ;
  1531. ;-----------------------------------------------;
  1532. ; Back porch - between this and the front porch,;
  1533. ; this 'frames' the video on your TV (hopefully);
  1534. ; --------------------------------------------- ;
  1535. ; NOTE: a DELAY 8 (plus a NOP) produces a ;
  1536. ; nice 4.5us back porch, which fleshes out the ;
  1537. ; data line to 60us ;
  1538. ;-----------------------------------------------;
  1539. SET_SIGNAL COLOR_BLACK ;
  1540. DELAY 2 ;
  1541. NOP ;
  1542. NOP ;
  1543. ;-----------------------------------------------;
  1544. ;
  1545. DECFSZ Repeat_Count, F ;
  1546. GOTO $+2 ;
  1547. GOTO _DL_Next_Data ;
  1548. NOP ;
  1549. NOP ;
  1550. NOP ;
  1551. NOP ;
  1552. NOP ;
  1553. NOP ;
  1554. GOTO _DL_Repeat_Line ;
  1555. ;
  1556. ;-----------------------------------------------;
  1557. ; 224 lines of information to transmit ;
  1558. ; so the screen size is 32x224. But we transmit ;
  1559. ; each line 4 times, so it's actually 32x56 ;
  1560. ;-----------------------------------------------;
  1561. _DL_Next_Data: ;
  1562. NOP ;
  1563. ADDFSR FSR1, 1 ;
  1564. DECFSZ DL_Count, F ;
  1565. GOTO _DL_Next_Line ;
  1566. ;
  1567. NOP ;
  1568. NOP ;
  1569. NOP ;
  1570. NOP ;
  1571. ;-----------------------------------------------;
  1572. ; 4us Negative Sync Generation ;
  1573. ;-----------------------------------------------;
  1574. NEG_SYNC_4US ;
  1575. ;-----------------------------------------------;
  1576. ;
  1577. ;-----------------------------------------------;
  1578. ; 60us Black Signal Generation ;
  1579. ;-----------------------------------------------;
  1580. SET_SIGNAL COLOR_BLACK ;
  1581. DELAY 154 ;
  1582. NOP ;
  1583. ;
  1584. ;-----------------------------------------------;
  1585. ;
  1586. RETURN ;
  1587. ;---------------------------------------------------;
  1588.  
  1589. ;---------------------------------------------------;
  1590. _Clear_Court: ;
  1591. ;---------------------------------------------------;
  1592. MOVLW LOW VIDEO_BUFFER_START ;
  1593. MOVWF FSR1L ;
  1594. MOVLW HIGH VIDEO_BUFFER_START ;
  1595. MOVWF FSR1H ;
  1596. MOVLW MAX_LINES * 4 ;
  1597. MOVWF Temp1 ; 224 bytes
  1598. _CC_Next_Byte: ;
  1599. MOVLW H'00' ;
  1600. MOVWF INDF1 ;
  1601. INCF FSR1L, F ;
  1602. DECFSZ Temp1, F ;
  1603. GOTO _CC_Next_Byte ;
  1604. RETURN ;
  1605. ;---------------------------------------------------;
  1606.  
  1607. ;---------------------------------------------------;
  1608. _Update_Scores: ;
  1609. ;---------------------------------------------------;
  1610. ; Note: This is a 60us line routine. ;
  1611. ;---------------------------------------------------;
  1612. ; This will retrieve the character font information ;
  1613. ; from high program memory and display the two ;
  1614. ; scores at the top middle of the screen. It takes ;
  1615. ; around 40.5us to display both scores. ;
  1616. ;---------------------------------------------------;
  1617. ;-----------------------------------------------;
  1618. ; 4us Negative Sync Generation ;
  1619. ;-----------------------------------------------;
  1620. NEG_SYNC_4US ;
  1621. ;-----------------------------------------------;
  1622. ;
  1623. ;-----------------------------------------------;
  1624. ; 60us Blank Signal Generation ;
  1625. ; But with lots of calculations going on ;
  1626. ;-----------------------------------------------;
  1627. SET_SIGNAL COLOR_BLACK ;
  1628. ;
  1629. BANKSEL OPTION_REG ;
  1630. BCF OPTION_REG, PSA ;
  1631. BANKSEL TMR0 ;
  1632. CLRF TMR0 ;
  1633. ;
  1634. _US_Draw_Score1: ;
  1635. _US1_Clear_Score: ;
  1636. MOVLW LOW VIDEO_BUFFER_START + LEFT_SCORE_START;
  1637. MOVWF FSR1L ;
  1638. MOVLW HIGH VIDEO_BUFFER_START ;
  1639. MOVWF FSR1H ;
  1640. ;
  1641. CLRW ;
  1642. MOVWI 0[INDF1] ;
  1643. MOVWI 4[INDF1] ;
  1644. MOVWI 8[INDF1] ;
  1645. MOVWI 12[INDF1] ;
  1646. MOVWI 16[INDF1] ;
  1647. ;
  1648. _US1_Draw_Left_Char: ;
  1649. SWAPF Score_1, W ;
  1650. ANDLW H'0F' ;
  1651. MOVWF Temp1 ;
  1652. ;
  1653. MOVLW LOW VIDEO_BUFFER_START + LEFT_SCORE_START;
  1654. MOVWF FSR1L ;
  1655. MOVLW HIGH VIDEO_BUFFER_START ;
  1656. MOVWF FSR1H ;
  1657. ;
  1658. MOVLW HIGH CHARACTER_TABLE ;
  1659. MOVWF FSR0H ;
  1660. MOVLW LOW CHARACTER_TABLE ;
  1661. ADDWF Temp1, W ;
  1662. BTFSC STATUS, C ;
  1663. INCF FSR0H, F ;
  1664. MOVWF FSR0L ;
  1665. ;
  1666. MOVLW 5 ;
  1667. MOVWF Temp1 ;
  1668. _US1_DLC_Next_Line: ;
  1669. MOVFW INDF0 ;
  1670. MOVWF DTemp ;
  1671. RRF DTemp, W ;
  1672. ANDLW H'70' ;
  1673. MOVWF INDF1 ;
  1674. ADDFSR FSR0, 10 ;
  1675. ADDFSR FSR1, 4 ;
  1676. DECFSZ Temp1, F ;
  1677. GOTO _US1_DLC_Next_Line ;
  1678. ;
  1679. _US1_Draw_Right_Char: ;
  1680. MOVFW Score_1 ;
  1681. ANDLW H'0F' ;
  1682. MOVWF Temp1 ;
  1683. ;
  1684. MOVLW LOW VIDEO_BUFFER_START + LEFT_SCORE_START;
  1685. MOVWF FSR1L ;
  1686. MOVLW HIGH VIDEO_BUFFER_START ;
  1687. MOVWF FSR1H ;
  1688. ;
  1689. MOVLW HIGH CHARACTER_TABLE ;
  1690. MOVWF FSR0H ;
  1691. MOVLW LOW CHARACTER_TABLE ;
  1692. ADDWF Temp1, W ;
  1693. BTFSC STATUS, C ;
  1694. INCF FSR0H, F ;
  1695. MOVWF FSR0L ;
  1696. ;
  1697. MOVLW 5 ;
  1698. MOVWF Temp1 ;
  1699. _US1_DRC_Next_Line ;
  1700. MOVFW INDF0 ;
  1701. MOVWF DTemp ;
  1702. RRF DTemp, W ;
  1703. ANDLW H'07' ;
  1704. MOVWF DTemp ;
  1705. MOVFW INDF1 ;
  1706. IORWF DTemp, W ;
  1707. MOVWF INDF1 ;
  1708. ADDFSR FSR0, 10 ;
  1709. ADDFSR FSR1, 4 ;
  1710. DECFSZ Temp1, F ;
  1711. GOTO _US1_DRC_Next_Line ;
  1712. ;
  1713. _US_Draw_Score2: ;
  1714. _US2_Clear_Score: ;
  1715. MOVLW LOW VIDEO_BUFFER_START + RIGHT_SCORE_START;
  1716. MOVWF FSR1L ;
  1717. MOVLW HIGH VIDEO_BUFFER_START ;
  1718. MOVWF FSR1H ;
  1719. ;
  1720. CLRW ;
  1721. MOVWI 0[INDF1] ;
  1722. MOVWI 4[INDF1] ;
  1723. MOVWI 8[INDF1] ;
  1724. MOVWI 12[INDF1] ;
  1725. MOVWI 16[INDF1] ;
  1726. ;
  1727. _US2_Draw_Left_Char: ;
  1728. SWAPF Score_2, W ;
  1729. ANDLW H'0F' ;
  1730. MOVWF Temp1 ;
  1731. ;
  1732. MOVLW LOW VIDEO_BUFFER_START + RIGHT_SCORE_START;
  1733. MOVWF FSR1L ;
  1734. MOVLW HIGH VIDEO_BUFFER_START ;
  1735. MOVWF FSR1H ;
  1736. ;
  1737. MOVLW HIGH CHARACTER_TABLE ;
  1738. MOVWF FSR0H ;
  1739. MOVLW LOW CHARACTER_TABLE ;
  1740. ADDWF Temp1, W ;
  1741. BTFSC STATUS, C ;
  1742. INCF FSR0H, F ;
  1743. MOVWF FSR0L ;
  1744. ;
  1745. MOVLW 5 ;
  1746. MOVWF Temp1 ;
  1747. _US2_DLC_Next_Line: ;
  1748. MOVFW INDF0 ;
  1749. ANDLW H'E0' ;
  1750. MOVWF INDF1 ;
  1751. ADDFSR FSR0, 10 ;
  1752. ADDFSR FSR1, 4 ;
  1753. DECFSZ Temp1, F ;
  1754. GOTO _US2_DLC_Next_Line ;
  1755. ;
  1756. _US2_Draw_Right_Char: ;
  1757. MOVFW Score_2 ;
  1758. ANDLW H'0F' ;
  1759. MOVWF Temp1 ;
  1760. ;
  1761. MOVLW LOW VIDEO_BUFFER_START + RIGHT_SCORE_START;
  1762. MOVWF FSR1L ;
  1763. MOVLW HIGH VIDEO_BUFFER_START ;
  1764. MOVWF FSR1H ;
  1765. ;
  1766. MOVLW HIGH CHARACTER_TABLE ;
  1767. MOVWF FSR0H ;
  1768. MOVLW LOW CHARACTER_TABLE ;
  1769. ADDWF Temp1, W ;
  1770. BTFSC STATUS, C ;
  1771. INCF FSR0H, F ;
  1772. MOVWF FSR0L ;
  1773. MOVLW 5 ;
  1774. MOVWF Temp1 ;
  1775. _US2_DRC_Next_Line: ;
  1776. MOVFW INDF0 ;
  1777. ANDLW H'0E' ;
  1778. MOVWF DTemp ;
  1779. MOVFW INDF1 ;
  1780. IORWF DTemp, W ;
  1781. MOVWF INDF1 ;
  1782. ADDFSR FSR0, 10 ;
  1783. ADDFSR FSR1, 4 ;
  1784. DECFSZ Temp1, F ;
  1785. GOTO _US2_DRC_Next_Line ;
  1786. ;
  1787. NOP ;
  1788. MOVFW TMR0 ;
  1789. SUBLW 227 ;
  1790. BTFSC STATUS, C ;
  1791. GOTO $-3 ;
  1792. NOP ;
  1793. NOP ;
  1794. NOP ;
  1795. NOP ;
  1796. ;
  1797. RETURN ;
  1798. ;---------------------------------------------------;
  1799.  
  1800. ;---------------------------------------------------;
  1801. _Initialize_System: ;
  1802. ;---;-----------------------------------------------;
  1803. ; Initialize Hardware ;
  1804. ;-----------------------------------------------;
  1805. BANKSEL OSCCON ;
  1806. MOVLW B'11110000' ; 32Mhz
  1807. MOVWF OSCCON ;
  1808. ;
  1809. BANKSEL OSCSTAT ; Wait for
  1810. IS1:MOVFW OSCSTAT ; high speed
  1811. ANDLW H'79' ; oscillator
  1812. XORLW H'59' ; to be
  1813. BTFSS STATUS, Z ; stable and
  1814. GOTO IS1 ; locked
  1815. ;
  1816. BANKSEL ANSELA ;
  1817. CLRF ANSELA ; ALL I/O as digital
  1818. #IF _USE_THUMBSTICKS_ ;
  1819. BSF ANSELA, LJOY_BIT ;
  1820. BSF ANSELA, RJOY_BIT ;
  1821. #ENDIF ;_USE_THUMBSTICKS_ ;
  1822. ;
  1823. BANKSEL LATA ;
  1824. CLRF LATA ;
  1825. ;
  1826. BANKSEL TRISA ;
  1827. CLRF TRISA ;
  1828. BCF TRISA, VIDEO_0_BIT ; Set as OUTPUT
  1829. BCF TRISA, VIDEO_1_BIT ; Set As OUTPUT
  1830. #IF _USE_THUMBSTICKS_ ;
  1831. BSF TRISA, LJOY_BIT ; Set as INPUT
  1832. BSF TRISA, LBUTT_BIT ; Set as INPUT
  1833. BSF TRISA, RJOY_BIT ; Set as INPUT
  1834. BCF TRISA, RBUTT_BIT ; Set as OUTPUT (PIEZO)
  1835. #ELSE ;!_USE_THUMBSTICKS_ ;
  1836. BSF TRISA, LBUTT_1_BIT ; Set as INPUT
  1837. BSF TRISA, LBUTT_2_BIT ; Set as INPUT
  1838. BSF TRISA, RBUTT_1_BIT ; Set as INPUT
  1839. BSF TRISA, RBUTT_2_BIT ; Set as INPUT
  1840. #ENDIF ;_USE_THUMBSTICKS_ ;
  1841. ;
  1842. BANKSEL PORTA ;
  1843. CLRF PORTA ;
  1844. BCF PORTA, VIDEO_0_BIT ; Set LOW
  1845. BCF PORTA, VIDEO_1_BIT ; Set LOW
  1846. #IF _USE_THUMBSTICKS_ ;
  1847. BSF PORTA, LJOY_BIT ; Set HIGH
  1848. BSF PORTA, LBUTT_BIT ; Set HIGH
  1849. BSF PORTA, RJOY_BIT ; Set HIGH
  1850. BSF PORTA, RBUTT_BIT ; Set HIGH
  1851. #ELSE ;!_USE_THUMBSTICKS_ ;
  1852. BSF PORTA, LBUTT_1_BIT ; Set HIGH
  1853. BSF PORTA, LBUTT_2_BIT ; Set HIGH
  1854. BSF PORTA, RBUTT_1_BIT ; Set HIGH
  1855. BSF PORTA, RBUTT_2_BIT ; Set HIGH
  1856. #ENDIF ;_USE_THUMBSTICKS_ ;
  1857. ;
  1858. BANKSEL INTCON ;
  1859. CLRF INTCON ;
  1860. ;
  1861. BANKSEL OPTION_REG ;
  1862. CLRF OPTION_REG ;
  1863. ;
  1864. ;-----------------------------------------------;
  1865. ; Initialize Timer0 (for counting cycles) ;
  1866. ;-----------------------------------------------;
  1867. BANKSEL OPTION_REG ;
  1868. BCF OPTION_REG, NOT_WPUEN ;
  1869. BCF OPTION_REG, TMR0CS ;
  1870. BCF OPTION_REG, PSA ; prescaler to timer0
  1871. BCF OPTION_REG, PS2 ;
  1872. BCF OPTION_REG, PS1 ; 000 - 250ns
  1873. BCF OPTION_REG, PS0 ;
  1874. BANKSEL TMR0 ;
  1875. CLRF TMR0 ;
  1876. ;
  1877. ;-----------------------------------------------;
  1878. ; Initialize Video Buffer ;
  1879. ; Copy image from EEPROM into buffer memory ;
  1880. ;-----------------------------------------------;
  1881. BANKSEL MEMORY ;
  1882. PAGESEL _Clear_Court ;
  1883. CALL _Clear_Court ;
  1884. PAGESEL _Draw_Title ;
  1885. CALL _Draw_Title ;
  1886. PAGESEL $ ;
  1887. ;
  1888. ;-----------------------------------------------;
  1889. ; Initialize Memory ;
  1890. ;-----------------------------------------------;
  1891. BANKSEL MEMORY ;
  1892. CLRF System_Status ;
  1893. MOVLW 0 ;
  1894. MOVWF Buzz_Count ;
  1895. MOVWF Buzz_Reload ;
  1896. MOVLW H'FF' ;
  1897. MOVWF Buzz_Dur_LO ;
  1898. MOVLW H'FF' ;
  1899. MOVWF Buzz_Dur_HI ;
  1900. MOVLW MAX_BALL_WAIT ;
  1901. MOVWF Ball_Wait ;
  1902. MOVLW 0 ;
  1903. MOVWF Score_1 ;
  1904. MOVLW 0 ;
  1905. MOVWF Score_2 ;
  1906. MOVLW 20 ;
  1907. MOVWF Paddle_1_Y ;
  1908. MOVLW 20 ;
  1909. MOVWF Paddle_2_Y ;
  1910. MOVLW 15 ;
  1911. MOVWF Ball_X ;
  1912. MOVLW 27 ;
  1913. MOVWF Ball_Y ;
  1914. MOVLW 0 ;
  1915. MOVWF Ball_Dir_X ;
  1916. MOVLW 0 ;
  1917. MOVWF Ball_Dir_Y ;
  1918. ;
  1919. ;-----------------------------------------------;
  1920. ; Initialize Other Subsystems ;
  1921. ;-----------------------------------------------;
  1922. ;
  1923. RETURN ;
  1924. ;---------------------------------------------------;
  1925.  
  1926. ;---------------------------------------------------;
  1927. ; Numeric Characters (0-9) Scan Line Data ;
  1928. ;---------------------------------------------------;
  1929. CHARACTER_TABLE: ;
  1930. ;---------------------------------------------------;
  1931. DT B'11101110', B'01000100', B'11101110', B'11101110', B'10101010', B'11101110', B'11101110', B'11101110', B'11101110', B'11101110'
  1932. DT B'10101010', B'11001100', B'00100010', B'00100010', B'10101010', B'10001000', B'10001000', B'00100010', B'10101010', B'10101010'
  1933. DT B'10101010', B'01000100', B'11101110', B'11101110', B'11101110', B'11101110', B'11101110', B'00100010', B'11101110', B'11101110'
  1934. DT B'10101010', B'01000100', B'10001000', B'00100010', B'00100010', B'00100010', B'10101010', B'00100010', B'10101010', B'00100010'
  1935. DT B'11101110', B'01000100', B'11101110', B'11101110', B'00100010', B'11101110', B'11101110', B'00100010', B'11101110', B'00100010'
  1936. ;---------------------------------------------------;
  1937.  
  1938. ;---------------------------------------------------;
  1939. _Draw_Title: ;
  1940. ;---------------------------------------------------;
  1941. MOVLW LOW VIDEO_BUFFER_START + (11 * 4) ;
  1942. MOVWF FSR1L ;
  1943. MOVLW HIGH VIDEO_BUFFER_START ;
  1944. MOVWF FSR1H ;
  1945. MOVLW LOW TITLE_TABLE ;
  1946. MOVWF FSR0L ;
  1947. MOVLW HIGH TITLE_TABLE ;
  1948. MOVWF FSR0H ;
  1949. MOVLW TITLE_TABLE_END - TITLE_TABLE_START ;
  1950. MOVWF Temp1 ;
  1951. _DT_Next_Byte: ;
  1952. MOVFW INDF0 ;
  1953. MOVWF INDF1 ;
  1954. ADDFSR FSR1, 1 ;
  1955. ADDFSR FSR0, 1 ;
  1956. DECFSZ Temp1, F ;
  1957. GOTO _DT_Next_Byte ;
  1958. RETURN ;
  1959. ;---------------------------------------------------;
  1960.  
  1961. ;---------------------------------------------------;
  1962. ; Title Title Scan Line Data ;
  1963. ;---------------------------------------------------;
  1964. TITLE_TABLE: ;
  1965. ;---------------------------------------------------;
  1966. TITLE_TABLE_START: ;
  1967. DT B'00000000', B'00000000', B'00000000', B'00000000'
  1968. DT B'00000000', B'01100010', B'01000100', B'00000000'
  1969. DT B'00000000', B'01110111', B'11101110', B'00000000'
  1970. DT B'00000000', B'01010101', B'10101010', B'00000000'
  1971. DT B'00000000', B'01010101', B'10101010', B'00000000'
  1972. DT B'00000000', B'01010101', B'10101010', B'00000000'
  1973. DT B'00000000', B'01010101', B'10101010', B'00000000'
  1974. DT B'00000000', B'01110101', B'10101110', B'00000000'
  1975. DT B'00000000', B'01100101', B'10100110', B'00000000'
  1976. DT B'00000000', B'01000101', B'10100010', B'00000000'
  1977. DT B'00000000', B'01000101', B'10101010', B'00000000'
  1978. DT B'00000000', B'01000111', B'10101110', B'00000000'
  1979. DT B'00000000', B'01000010', B'10100100', B'00000000'
  1980. DT B'00000000', B'00000000', B'00000000', B'00000000'
  1981. DT B'00001110', B'01001100', B'01110101', B'01110000'
  1982. DT B'00001110', B'11101110', B'01110101', B'01110000'
  1983. DT B'00001000', B'10101010', B'00100101', B'01000000'
  1984. DT B'00001000', B'10101010', B'00100101', B'01000000'
  1985. DT B'00001000', B'10101010', B'00100101', B'01000000'
  1986. DT B'00001100', B'10101110', B'00100111', B'01100000'
  1987. DT B'00001100', B'10101100', B'00100111', B'01100000'
  1988. DT B'00001000', B'10101010', B'00100101', B'01000000'
  1989. DT B'00001000', B'10101010', B'00100101', B'01000000'
  1990. DT B'00001000', B'10101010', B'00100101', B'01000000'
  1991. DT B'00001000', B'11101010', B'00100101', B'01110000'
  1992. DT B'00001000', B'01001010', B'00100101', B'01110000'
  1993. DT B'00000000', B'00000000', B'00000000', B'00000000'
  1994. DT B'00000101', B'10011101', B'01001010', B'01000000'
  1995. DT B'00000101', B'11011101', B'11101010', B'11100000'
  1996. DT B'00000100', B'01010001', B'10101010', B'10100000'
  1997. DT B'00000100', B'01010001', B'10101010', B'10100000'
  1998. DT B'00000100', B'11010001', B'11101010', B'10100000'
  1999. DT B'00000101', B'11011001', B'01001110', B'10100000'
  2000. DT B'00000101', B'00011001', B'11101110', B'10100000'
  2001. DT B'00000101', B'00010001', B'10100010', B'10100000'
  2002. DT B'00000101', B'00010001', B'10100010', B'10100000'
  2003. DT B'00000101', B'00010001', B'10100010', B'10100000'
  2004. DT B'00000101', B'11010001', B'11100010', B'11100000'
  2005. DT B'00000101', B'11010001', B'01000010', B'01000000'
  2006. DT B'00000000', B'00000000', B'00000000', B'00000000'
  2007. TITLE_TABLE_END: ;
  2008. ;---------------------------------------------------;
  2009.  
  2010. ;---------------------------------------------------;
  2011. _Copyright: ;
  2012. ;---------------------------------------------------;
  2013. ; Note: This is a 60us line routine. It will ;
  2014. ; generate 8 60us data lines. ;
  2015. ;---------------------------------------------------;
  2016. ;-----------------------------------------------;
  2017. ; Setup ;
  2018. ;-----------------------------------------------;
  2019. MOVLW LOW COPYRIGHT_TABLE ;
  2020. MOVWF FSR1L ;
  2021. MOVLW HIGH COPYRIGHT_TABLE ;
  2022. MOVWF FSR1H ;
  2023. MOVLW 8 ;
  2024. MOVWF Temp1 ;
  2025. ;-----------------------------------------------;
  2026. ;
  2027. ;-----------------------------------------------;
  2028. ; 8 64us Data Line Generation ;
  2029. ;-----------------------------------------------;
  2030. _CR_Next_Line: ;
  2031. NOP ;
  2032. ;-----------------------------------------------;
  2033. ; 4us Negative Sync Generation ;
  2034. ;-----------------------------------------------;
  2035. NEG_SYNC_4US ;
  2036. ;-----------------------------------------------;
  2037. ;
  2038. ;-----------------------------------------------;
  2039. ; Xus Back Porch (Black Signal) Generation ;
  2040. ;-----------------------------------------------;
  2041. SET_SIGNAL COLOR_BLACK ;
  2042. DELAY 4 ;
  2043. NOP ;
  2044. NOP ;
  2045. NOP ;
  2046. ;-----------------------------------------------;
  2047. ;
  2048. ;-----------------------------------------------;
  2049. ; Data Generation ;
  2050. ;-----------------------------------------------;
  2051. DO_BIT 7, 1 ;
  2052. DO_BIT 6, 1 ;
  2053. DO_BIT 5, 1 ;
  2054. DO_BIT 4, 1 ;
  2055. DO_BIT 3, 1 ;
  2056. DO_BIT 2, 1 ;
  2057. DO_BIT 1, 1 ;
  2058. DO_BIT 0, 0 ;
  2059. ADDFSR FSR1, 1 ;
  2060. DO_BIT 7, 1 ;
  2061. DO_BIT 6, 1 ;
  2062. DO_BIT 5, 1 ;
  2063. DO_BIT 4, 1 ;
  2064. DO_BIT 3, 1 ;
  2065. DO_BIT 2, 1 ;
  2066. DO_BIT 1, 1 ;
  2067. DO_BIT 0, 0 ;
  2068. ADDFSR FSR1, 1 ;
  2069. DO_BIT 7, 1 ;
  2070. DO_BIT 6, 1 ;
  2071. DO_BIT 5, 1 ;
  2072. DO_BIT 4, 1 ;
  2073. DO_BIT 3, 1 ;
  2074. DO_BIT 2, 1 ;
  2075. DO_BIT 1, 1 ;
  2076. DO_BIT 0, 0 ;
  2077. ADDFSR FSR1, 1 ;
  2078. DO_BIT 7, 1 ;
  2079. DO_BIT 6, 1 ;
  2080. DO_BIT 5, 1 ;
  2081. DO_BIT 4, 1 ;
  2082. DO_BIT 3, 1 ;
  2083. DO_BIT 2, 1 ;
  2084. DO_BIT 1, 1 ;
  2085. DO_BIT 0, 0 ;
  2086. ADDFSR FSR1, 1 ;
  2087. DO_BIT 7, 1 ;
  2088. DO_BIT 6, 1 ;
  2089. DO_BIT 5, 1 ;
  2090. DO_BIT 4, 1 ;
  2091. DO_BIT 3, 1 ;
  2092. DO_BIT 2, 1 ;
  2093. DO_BIT 1, 1 ;
  2094. DO_BIT 0, 0 ;
  2095. ADDFSR FSR1, 1 ;
  2096. DO_BIT 7, 1 ;
  2097. DO_BIT 6, 1 ;
  2098. DO_BIT 5, 1 ;
  2099. DO_BIT 4, 1 ;
  2100. DO_BIT 3, 1 ;
  2101. DO_BIT 2, 1 ;
  2102. DO_BIT 1, 1 ;
  2103. DO_BIT 0, 0 ;
  2104. ADDFSR FSR1, 1 ;
  2105. DO_BIT 7, 1 ;
  2106. DO_BIT 6, 1 ;
  2107. DO_BIT 5, 1 ;
  2108. DO_BIT 4, 1 ;
  2109. DO_BIT 3, 1 ;
  2110. DO_BIT 2, 1 ;
  2111. DO_BIT 1, 1 ;
  2112. DO_BIT 0, 0 ;
  2113. ADDFSR FSR1, 1 ;
  2114. DO_BIT 7, 1 ;
  2115. DO_BIT 6, 1 ;
  2116. DO_BIT 5, 1 ;
  2117. DO_BIT 4, 1 ;
  2118. DO_BIT 3, 1 ;
  2119. DO_BIT 2, 1 ;
  2120. DO_BIT 1, 1 ;
  2121. DO_BIT 0, 0 ;
  2122. ADDFSR FSR1, 1 ;
  2123. ;-----------------------------------------------;
  2124. ;
  2125. ;-----------------------------------------------;
  2126. ; Xus Front Porch (Black Signal) Generation ;
  2127. ;-----------------------------------------------;
  2128. SET_SIGNAL COLOR_BLACK ;
  2129. ;-----------------------------------------------;
  2130. ;
  2131. DECFSZ Temp1, F ;
  2132. GOTO $+3 ;
  2133. NOP ;
  2134. RETURN ;
  2135. NOP ;
  2136. NOP ;
  2137. GOTO _CR_Next_Line ;
  2138. ;---------------------------------------------------;
  2139.  
  2140. ;---------------------------------------------------;
  2141. ; COPYRIGHT Scan Line Data ;
  2142. ;---------------------------------------------------;
  2143. COPYRIGHT_TABLE: ;
  2144. ;---------------------------------------------------;
  2145. DT B'00000110', B'01110111', B'00010010', B'01001110', B'01000101', B'11000101', B'01110000', B'10011100'
  2146. DT B'00000111', B'01110111', B'00100111', B'00101110', B'11101101', B'11000101', B'01110001', B'11011100'
  2147. DT B'00000101', B'00100010', B'00100101', B'00100010', B'10100100', B'01000101', B'00010001', B'01000100'
  2148. DT B'01010101', B'00100010', B'00100100', B'00101110', B'10100101', B'11010101', B'00110001', B'01001100'
  2149. DT B'01010101', B'00100010', B'00100100', B'00101110', B'10100101', B'11010101', B'00110001', B'01001100'
  2150. DT B'00000101', B'00100010', B'00100101', B'00101000', B'10100101', B'00000101', B'00010001', B'01000100'
  2151. DT B'00000111', B'00100111', B'00100111', B'00101110', B'11100101', B'11000101', B'01110101', B'11011100'
  2152. DT B'00000110', B'00100111', B'00010010', B'01001110', B'01000101', B'11000010', B'01110100', B'10011100'
  2153. ;---------------------------------------------------;
  2154.  
  2155. ;---------------------------------------------------;
  2156. END ;
  2157. ;---------------------------------------------------;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!