home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 86 / asm / source / tictac.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  5.7 KB  |  218 lines
  1. ; 
  2. ; TIC TAC TOE v1.0
  3. ; David Phillips <electrum@tfs.net>
  4. ; program started: 04/23/98
  5. ; last     update: 04/27/98
  6. ;
  7.  
  8. #include "ti86asm.inc"
  9. #include "asm86.h"
  10.  
  11. .org _asm_exec_ram
  12.  
  13. shelltitle:
  14.     nop                        ; for the title line in shells (ASE)
  15.  
  16.     jp drawtitle            ; jump to real start of program
  17.  
  18.  
  19.  
  20.     .dw $0000
  21.  
  22.     .dw title
  23.  
  24. drawtitle:
  25.     call BUSY_OFF            ; turn off the busy indicator
  26.     call _flushallmenus        ; clear menus, to use last 2 lines for text
  27.     call _clrLCD            ; clear the display
  28.     ld hl,$0000                ; load in the upper-left corner (1, 1)
  29.     ld (_curRow),hl            ; actually change the position
  30.     ld hl,titletext            ; load the address of the title screen
  31.     call _puts                ; print the title screen
  32.     call pause                ; call our pause subroutine
  33.  
  34. drawboard:
  35.     call _clrLCD            ; clear the screen
  36.     ld hl,$0000                ; just like above
  37.     ld (_curRow),hl            ; ...
  38.     ld hl,boardtext            ; ...
  39.     call _puts                ; see title
  40.  
  41.     ld b,$09                ; we need to loop 9 times for 9 squares
  42.     ld hl,board                ; load in the address of the board
  43. clearboard:
  44.     ld (hl),$00                ; set the square to 0
  45.     inc hl                    ; increase the pointer to the next square
  46.     djnz clearboard            ; decrease B by one and if not 0, loop
  47.  
  48. gametop:
  49.     ld hl,$1205                ; print turn at (6, 19)
  50.     ld (_curRow),hl            ; ...
  51.     ld a,(turn)                ; load who's turn it is so we can check it
  52.     cp $01                    ; check who's turn: X's == $01, O's == $02
  53.     jr z,xturn                ; if it was set to 1 then jump to X's turn
  54.     ld hl,playero            ; it must be Y's turn--set text to Y's turn
  55.     jr drawturn                ; skip over code for X's turn
  56. xturn:
  57.     ld hl,playerx            ; set text to X's turn
  58. drawturn:
  59.     call _puts                ; finally we draw the text for whoever's turn
  60.  
  61. keyloop:
  62.     call GET_KEY            ; wait for a key from the keyboard
  63.     cp K_EXIT                ; if it's exit, then we're done
  64.     jp z,end                ; jump to the end of game code
  65.     cp K_1                    ; was it key 1?
  66.     jr z,key1                ; then jump to key 1 code
  67.     cp K_2
  68.     jr z,key2
  69.     cp K_3
  70.     jr z,key3
  71.     cp K_4
  72.     jr z,key4
  73.     cp K_5                    ; all this is the same
  74.     jr z,key5                ; check if it's that key, then jump
  75.     cp K_6
  76.     jr z,key6
  77.     cp K_7
  78.     jr z,key7
  79.     cp K_8
  80.     jr z,key8
  81.     cp K_9
  82.     jr z,key9
  83.     jr keyloop                ; we didn't get our key, so get another one
  84. key1:
  85.     ld de,$06                ; DE holds the offset of our square in memory
  86.     ld hl,$0204                ; load in the cursor position for the piece
  87.     jr updateboard            ; now we can draw the piece
  88. key2:
  89.     ld de,$07                ; load square position on board
  90.     ld hl,$0604                ; load cursor position
  91.     jr updateboard            ; draw the square
  92. key3:
  93.     ld de,$08
  94.     ld hl,$0A04
  95.     jr updateboard
  96. key4:
  97.     ld de,$03
  98.     ld hl,$0202
  99.     jr updateboard
  100. key5:
  101.     ld de,$04
  102.     ld hl,$0602
  103.     jr updateboard
  104. key6:
  105.     ld de,$05
  106.     ld hl,$0A02
  107.     jr updateboard
  108. key7:
  109.     ld de,$00
  110.     ld hl,$0200
  111.     jr updateboard
  112. key8:
  113.     ld de,$01
  114.     ld hl,$0600
  115.     jr updateboard
  116. key9:
  117.     ld de,$02
  118.     ld hl,$0A00
  119.     jr updateboard
  120.  
  121. updateboard:
  122.     ld (_curRow),hl            ; set the cursor to the proper spot
  123.     ld hl,board                ; load in the address of the board
  124.     add hl,de                ; add the offset of our square
  125.     xor a                    ; set a to 0 (faster than LD A,0)
  126.     cp (hl)                    ; is this square empty (set to 0)?
  127.     jr z,placepiece            ; then we can put one here
  128.     ld hl,$0006                ; print error message at (7, 1)
  129.     ld (_curRow),hl            ; actually set the cursor position
  130.     ld hl,empty                ; load the address of the error message
  131.     call _puts                ; print the error message
  132.     call pause                ; wait for the key press
  133.     ld hl,$0006                ; where we printed the error message
  134.     ld (_curRow),hl            ; set the cursor to that spot
  135.     ld hl,blankline            ; load in the address of the blank line
  136.     call _puts                ; print the line
  137.     jp gametop                ; go to the top of the game loop
  138. placepiece:
  139.     ld a,(turn)                ; load in who's turn it is
  140.     ld (hl),a                ; mark the square as that person's
  141.     cp $01                    ; is it X's turn?
  142.     jr z,xplace                ; if it is jump there
  143.     ld a,'O'                ; must be O's, so draw an 'O'
  144.     jr drawpiece            ; skip over X's turn, since it's O's
  145. xplace:
  146.     ld a,'X'                ; draw an 'X' for X's turn
  147. drawpiece:
  148.     call _putc                ; put the character on the screen
  149.  
  150. flipturn:
  151.     ld hl,turn                ; load in who's turn it is
  152.     ld a,(hl)                ; copy it to A for checking
  153.     cp $01                    ; is it X's turn?
  154.     jr z,oturnnext            ; then it's O's turn next, jump there
  155.     ld (hl),$01                ; it must be X's turn next, set it to that
  156.     jp gametop                ; we're done, go on to next move
  157. oturnnext:
  158.     ld (hl),$02                ; same as above, but for O's turn next
  159.     jp gametop                ; just like above
  160.     
  161.  
  162. pause:
  163.     call GET_KEY            ; wait for a key to be pressed
  164.     cp K_EXIT                ; is it exit?
  165.     jr z,pausequit            ; then jump to exit the program
  166.     cp K_ENTER                ; was it enter?
  167.     jr nz,pause                ; if it wasn't, jump to wait for another
  168.     ret                        ; return, since it had to be
  169. pausequit:
  170.     pop hl                    ; since we were CALLed and not RETing, we
  171.     jr end                    ; have to pop the call address off the stack
  172.                             ; or the next RET will return to that address
  173. end:
  174.     ld hl,$0000                ; just like every other time...
  175.     ld (_curRow),hl            ; ...
  176.     call _clrLCD            ; ...
  177.     ret                        ; exit by returning to whatever called us
  178.  
  179. title:
  180.     .db "Tic Tac Toe v1.0 by David P",0
  181.  
  182. titletext:
  183.     .db " T i c  T a c  T o e ",
  184.     .db "                     ",
  185.     .db "  by David Phillips  ",
  186.     .db "  electrum@tfs.net   ",
  187.     .db "                     ",
  188.     .db "   Copyright 1998    ",
  189.     .db "                     ",
  190.      .db "     [2 Player]     ",0
  191.  
  192. boardtext:
  193.     .db "    |   |       Keys:",
  194.     .db " ---+---+---     789 ",
  195.     .db "    |   |        456 ",
  196.     .db " ---+---+---     123 ",
  197.     .db "    |   |            ",
  198.     .db "            Turn:    ",
  199.     .db "                     ",
  200.     .db "  Tic Tac Toe v1.0",0
  201.  
  202. playerx:
  203.     .db "X's",0
  204. playero:
  205.     .db "O's",0
  206.  
  207. empty:
  208.     .db "Space must be empty!",0
  209.  
  210. blankline:
  211.     .db "                    ",0
  212.  
  213. turn:
  214.     .db $01
  215.  
  216. board:
  217.     .db $00,$00,$00,
  218.         $00,$00,$00,
  219.         $00,$00,$00
  220.  
  221. .end
  222.