fork download
copy 
  1.         TTL     "LCDTest (Lab 5)"
  2.  
  3. ******************************************************************
  4. * 1) HEADER block - overall info about the program
  5. * Project name: LCDTest
  6. * Author(s): Alex and Travis
  7. * Date: 4 Oct 2012
  8. * Description: Writes 'hi' to the screen
  9. ******************************************************************
  10.  
  11. ******************************************************************
  12. CODE    EQU     $2000       ;where our code can begin on EVB
  13. VPUTCHAR EQU    $EE86       ;send character in B to output device
  14. CR      EQU     $0D         ;Carriage Return
  15. PORTA   EQU     $0000
  16. tenths  EQU     $3000       ;reserve a memory byte for tenth of seconds
  17. seconds EQU     $3001       ;reserve a memory byte for seconds
  18. tens    EQU     $3002
  19. ******************************************************************
  20.  
  21.  
  22. ******************************************************************
  23. * 4) CODE section - actual program code                          *
  24. * This is all set-up.  Output welcome message to the terminal,   *
  25. * Print "Ultimate Watch" to the LCD, and check for the initial   *
  26. * Button press                                                   *
  27. ******************************************************************
  28.  
  29.         ORG     CODE        ;tell assembler where to begin object code
  30.                             ;main program body follows
  31. Main    ldaa    #LINIT      ;set accumulator to "LINIT" value 0
  32.         jsr     LCD         ;initialize LCD
  33.         ldx     #Title      ;load x with the string
  34.         ldaa    #LWRSTR     ;load A with the address of the write string subroutine
  35.         jsr     LCD         ;execute LWRSTR
  36.         ldx     #Greet      ;Point X at the greeting message
  37.         jsr     PUTS        ;Output the greeting message
  38.  
  39.         ldx     #256+0      ;Point to second line (256) + first column (0)
  40.         ldaa    #LGOTO      ;
  41.         jsr     LCD         ;Point the cursor there
  42.         ldab    #0          ;
  43.         ldaa    #LWRDEC     ;
  44.         jsr     LCD         ;Output 0
  45.         jsr     LCD         ;Output another 0
  46.         ldab    #':'        ;Load B with a colon to be output
  47.         ldaa    #LWRCHR     ;Output colon to the screen
  48.         jsr     LCD         ;Do it
  49.         ldab    #0          ;
  50.         ldaa    #LWRDEC     ;
  51.         jsr     LCD         ;Output 1 more 0
  52.         clr     tens        ;
  53.         clr     seconds     ;Clear each variable
  54.         clr     tenths      ;
  55.  
  56.  
  57. Loop    movb    PORTA, $3100       ;Load Accumulator A with the values of Port A
  58.         ldaa    $3100
  59. 	ANDA    #%10000000                    ;Mask with $80 to watch only PA7
  60.         bne     Loop        ;If it is still high, loop.
  61. Debounc cmpb    #20         ;Wait 20ms to ensure proper debouncing
  62.         beq     Clock       ;When debounced, start the clock
  63. dbl     ldx     #0          ;1ms loop
  64.         dex                 ;
  65.         cpx     #10000      ;
  66.         beq     dbl         ;
  67.         incb                ;Increment debounce counter
  68.         bra     Debounc     ;
  69.  
  70. ****************************************************************************
  71. * The code following this is all run after the button is pushed initially  *
  72. * but before it starts the stopwatch part of the program                   *
  73. ****************************************************************************
  74.  
  75.  
  76. Clock   movb    PORTA, $3100       ;Load Accumulator A with the values of Port A
  77.         ldaa    $3100
  78.         ANDA    #%10000000  ;Is it still pushed?
  79.         bne     Clock       ;If not, check again
  80.  
  81.  
  82.  
  83.         ldx     #256+0      ;Point to second line (256) + first column (0)
  84.         ldaa    #LGOTO      ;
  85.         jsr     LCD         ;Point to first character, second line
  86.  
  87.         ldab    tens        ;load b with tens counter
  88.         ldaa    #LWRDEC     ;get ready to print tenths to fourth character, second row
  89.         jsr     LCD         ;do it
  90.  
  91.         ldab    seconds     ;load b with seconds counter
  92.         ldaa    #LWRDEC     ;get ready to print tenths to fourth character, second row
  93.         jsr     LCD         ;do it
  94.  
  95.         ldab    #':'        ;Load B with a colon to be output
  96.         ldaa    #LWRCHR     ;Output colon to the screen
  97.         jsr     LCD         ;Do it
  98.  
  99.         ldab    tenths      ;load b with tenths counter
  100.         ldaa    #LWRDEC     ;get ready to print tenths to fourth character, second row
  101.         jsr     LCD         ;do it
  102.  
  103.  
  104.         ldd     #99        ;If so, get ready to delay 100ms
  105.         jsr     DelayN      ;Delay 100ms
  106.         ldaa    tenths      ;Check the tenths counter
  107.         cmpa    #9         ;Is it ten?
  108.         beq     secondi     ;If so, branch to seconds incrementer
  109.  
  110. tenthsi ldaa    tenths      ;Increment tenths counter
  111. 	inca                ;
  112.         staa    tenths      ;
  113.         bra     Clock       ;Output and check button status
  114.  
  115. secondi clra
  116.         staa    tenths      ;clear tenths counter
  117.         ldaa    seconds
  118.         cmpa    #9         ;Is seconds 10?
  119.         beq     tensi       ;If so, branch to tens incrementer
  120.         ldaa    seconds     ;
  121.         inca                ;Otherwise, increment seconds
  122.         staa    seconds     ;
  123.         bra     Clock       ;Output and check button status
  124.  
  125. tensi   clra                ;Clear seconds
  126.         staa    seconds     ;
  127.         ldaa    tens        ;
  128.         inca                ;Increment tens
  129.         staa    tens        ;
  130.         bra     Clock       ;Output and check button status
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137. quit    ldx     #Exit
  138.         jsr     PUTS
  139.         swi                 ;return to  monitor on EVB
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148. PUTS    ldab    0,x         ;get 1 char from string
  149.         beq     PSDONE      ;done if terminating null
  150.         jsr     PUTCHAR     ;output this char
  151.         inx                 ;advance X to next char
  152.         bra     PUTS        ;continue
  153. PSDONE  rts                 ;done, return to caller
  154.  
  155. ; single character (in B) output routine
  156. PUTCHAR pshx                ;save caller's X
  157.         ldx     VPUTCHAR    ;fetch address of monitor rtn
  158.         jsr     0,X         ;call monitor rtn.
  159.         pulx                ;restore caller's X
  160.         rts
  161.  
  162. DelayN  bsr     Delay1      ;go delay 1 millisecond
  163.         dbne    D,DelayN    ;dec 'N' & continue till zero
  164.         rts
  165.  
  166. * Delay1: delay 1 millisecond via software,
  167. * assumes F=24 MHz (and no interrupts)
  168. * all registers preserved for caller
  169.  
  170. Delay1  pshx                ;2~ preserve registers used here
  171.         ldx     #5997       ;2~ iterations of Dloop for 1ms.
  172. Dloop   dex                 ;1~ ]
  173.         bne     Dloop       ;3~ ] 5997 * 4~ = 23988~
  174.         pulx                ;3~ recover used registers
  175.         rts                 ;5~ 23988 + 12 = 24000~ = 1ms.
  176.  
  177. ; constant data definitions (FCB,FDB,FCC)...
  178. Title   FCC     "Ultimate Watch"
  179.         FCB     0
  180. Greet   FCC     "Welcome to the stopwatch program.  Press and hold the button to start the clock."
  181.         FCB     0
  182. Exit    FCC     "Thanks, have a good day."
  183.         FCB     CR,CR,CR, 0
  184. ******************************************************************
  185.  
  186.  
  187.  
  188. #include 'LCDdriver.asm'
  189. ; tell assembler end of assembly source code
  190.         END
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/DDS5n
language:
Assembler 32bit (gcc 8.3)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!