home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 16 / amigaformatcd16.iso / -in_the_mag- / emulation / dragon32 / asa_examples / ex3 < prev    next >
Text File  |  1997-06-12  |  407b  |  33 lines
  1.  
  2.     ; An example of 6809e code
  3.     ; Author: Unknown, comes from an old issue of Dragon User.
  4.  
  5.     ; Print two lines of text on the text screen
  6.  
  7.     clrb
  8.     ldx #1192
  9.     ldy #txt
  10. nxt    lda b,y
  11.     ora #64
  12.     sta ,x+
  13.     incb
  14.     cmpb #16
  15.     beq nxtln
  16.     bra nxt
  17.     
  18. nxtln    clrb
  19.     leax 43,x
  20.     ldy #txt1
  21. nchr    lda b,y
  22.     ora #64
  23.     sta ,x+
  24.     incb
  25.     cmpb #27
  26.     beq out
  27.     bra nchr
  28.  
  29. txt    fcc " A LINE OF TEXT "
  30. txt1    fcc " for machine code programs "
  31. out    rts
  32.  
  33.