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  RMB     1           ;reserve a memory byte for tenth of seconds
  17. seconds RMB     1           ;reserve a memory byte for seconds
  18. tens    RMB     1
  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     #$C0        ;Point to first character, second line
  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    ldaa    PORTA       ;Load Accumulator A with the values of Port A
  58.         ANDA    #%10000000                    ;Mask with $80 to watch only PA7
  59.         bne     Loop        ;If it is still high, loop.
  60. Debounc cmpb    #20         ;Wait 20ms to ensure proper debouncing
  61.         beq     Clock       ;When debounced, start the clock
  62. dbl     ldx     #0          ;1ms loop
  63.         dex                 ;
  64.         cpx     #10000      ;
  65.         beq     dbl         ;
  66.         incb                ;Increment debounce counter
  67.         bra     Debounc     ;
  68.  
  69. ****************************************************************************
  70. * The code following this is all run after the button is pushed initially  *
  71. * but before it starts the stopwatch part of the program                   *
  72. ****************************************************************************
  73.  
  74.  
  75. Clock   ldaa    PORTA       ;Check status of button
  76.         ANDA    #%10000000  ;Is it still pushed?
  77.         bne     Clock       ;If not, check again
  78.  
  79.         ldx     #$C0        ;
  80.         ldaa    #LGOTO      ;
  81.         jsr     LCD         ;Point to first character, second line
  82.  
  83.         ldab    tens        ;load b with tens counter
  84.         ldaa    #LWRDEC     ;get ready to print tenths to fourth character, second row
  85.         jsr     LCD         ;do it
  86.  
  87.         ldab    seconds     ;load b with seconds counter
  88.         ldaa    #LWRDEC     ;get ready to print tenths to fourth character, second row
  89.         jsr     LCD         ;do it
  90.  
  91.         ldab    #':'        ;Load B with a colon to be output
  92.         ldaa    #LWRCHR     ;Output colon to the screen
  93.         jsr     LCD         ;Do it
  94.  
  95.         ldab    tenths      ;load b with tenths counter
  96.         ldaa    #LWRDEC     ;get ready to print tenths to fourth character, second row
  97.         jsr     LCD         ;do it
  98.  
  99.  
  100.         ldd     #100        ;If so, get ready to delay 100ms
  101.         jsr     DelayN      ;Delay 100ms
  102.         ldaa    tenths      ;Check the tenths counter
  103.         cmpa    #10         ;Is it ten?
  104.         beq     secondi     ;If so, branch to seconds incrementer
  105.  
  106. tenthsi ldaa    tenths      ;Increment tenths counter
  107.         inca                ;
  108.         staa    tenths      ;
  109.         ldab    tenths      ;load b with tenths counter
  110.         bra     Clock       ;Output and check button status
  111.  
  112. secondi clra                ;
  113.         staa    tenths      ;clear tenths counter
  114.         ldaa    seconds
  115.         cmpa    #10         ;Is seconds 10?
  116.         beq     tensi       ;If so, branch to tens incrementer
  117.         ldaa    seconds     ;
  118.         inca                ;Otherwise, increment seconds
  119.         staa    seconds     ;
  120.         bra     Clock       ;Output and check button status
  121.  
  122. tensi   clra                ;Clear seconds
  123.         staa    seconds     ;
  124.         ldaa    tens        ;
  125.         inca                ;Increment tens
  126.         staa    tens        ;
  127.         bra     Clock       ;Output and check button status
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134. quit    ldx     #Exit
  135.         jsr     PUTS
  136.         swi                 ;return to  monitor on EVB
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145. PUTS    ldab    0,x         ;get 1 char from string
  146.         beq     PSDONE      ;done if terminating null
  147.         jsr     PUTCHAR     ;output this char
  148.         inx                 ;advance X to next char
  149.         bra     PUTS        ;continue
  150. PSDONE  rts                 ;done, return to caller
  151.  
  152. ; single character (in B) output routine
  153. PUTCHAR pshx                ;save caller's X
  154.         ldx     VPUTCHAR    ;fetch address of monitor rtn
  155.         jsr     0,X         ;call monitor rtn.
  156.         pulx                ;restore caller's X
  157.         rts
  158.  
  159. DelayN  bsr     Delay1      ;go delay 1 millisecond
  160.         dbne    D,DelayN    ;dec 'N' & continue till zero
  161.         rts
  162.  
  163. * Delay1: delay 1 millisecond via software,
  164. * assumes F=24 MHz (and no interrupts)
  165. * all registers preserved for caller
  166.  
  167. Delay1  pshx                ;2~ preserve registers used here
  168.         ldx     #5997       ;2~ iterations of Dloop for 1ms.
  169. Dloop   dex                 ;1~ ]
  170.         bne     Dloop       ;3~ ] 5997 * 4~ = 23988~
  171.         pulx                ;3~ recover used registers
  172.         rts                 ;5~ 23988 + 12 = 24000~ = 1ms.
  173.  
  174. ; constant data definitions (FCB,FDB,FCC)...
  175. Title   FCC     "Ultimate Watch"
  176.         FCB     0
  177. Greet   FCC     "Welcome to the stopwatch program.  Press and hold the button to start the clock."
  178.         FCB     0
  179. Exit    FCC     "Thanks, have a good day."
  180.         FCB     CR,CR,CR, 0
  181. ******************************************************************
  182.  
  183.  
  184.  
  185. #include 'LCDdriver.asm'
  186. ; tell assembler end of assembly source code
  187.         END
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/UItCF
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!