API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 7th, 2017
74
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MIX Assembler 3.58 KB | None | 0 0
raw download clone embed print report
  1. RAMStart    equ     $0400
  2. ROMStart    equ     $E000
  3. StartVector equ     $FFFE
  4.  
  5. PRTB        equ     $01     ;B I/O
  6. DDRB        equ     $03    
  7. PUCR        equ     $0C    
  8.  
  9. ABC         equ     $E800
  10. RETU        equ     RAMStart
  11.  
  12.             org     ABC
  13.             dc.b    $73,$6f,$73,$FF;sos.
  14.  
  15.             org     ROMStart
  16.            
  17.       lds   #$410
  18.       movw   #$0000,$40D
  19. CBEGIN      movb    #$F0,DDRB       ;;
  20.             movb    #$F0,PRTB       ;;
  21.             bset    PUCR,%0010      ;;?
  22.  
  23.             ldx     #ABC
  24. ;ïîääåðæèâàþòñÿ òîëüêî áóêâû ëàòèíñêîãî àëôàâèòà íèæíåãî ðåãèñòðà
  25.      
  26. CHAR        ldaa    0,X
  27.             cmpa    #$FF
  28.             lbeq    CEND
  29.             inx
  30.            
  31.             call    WAIT
  32.             call    WAIT
  33.            
  34.             cmpa    #97
  35.             lbeq    LA      ; a(*-)
  36.             cmpa    #98
  37.             lbeq    LB      ; b(-***)
  38.             cmpa    #99
  39.             lbeq    LC      ; c(-*-*)
  40.             cmpa    #100
  41.             lbeq    LD      ; d(-**)
  42.             cmpa    #101
  43.             lbeq    LE      ; e(*)
  44.             cmpa    #102
  45.             lbeq    LF      ; f(**-*)
  46.             cmpa    #103
  47.             lbeq    LG      ; g(--*)
  48.             cmpa    #104
  49.             lbeq    LH      ; h(****)
  50.             cmpa    #105
  51.             lbeq    LI      ; i(**)
  52.             cmpa    #106
  53.             lbeq    LJ      ; j(*---)
  54.             cmpa    #107
  55.             lbeq    LK      ; k(-*-)
  56.             cmpa    #108
  57.             lbeq    LL      ; l(*-**)
  58.             cmpa    #109
  59.             lbeq    LM      ; m(--)
  60.             cmpa    #110
  61.             lbeq    LN      ; n(-*)
  62.             cmpa    #111
  63.             lbeq    LO      ; o(---)
  64.             cmpa    #112
  65.             lbeq    LP      ; p(*--*)
  66.             cmpa    #113
  67.             lbeq    LQ      ; q(--*-)
  68.             cmpa    #114
  69.             lbeq    LR      ; r(*-*)
  70.             cmpa    #115
  71.             lbeq    LS      ; s(***)
  72.             cmpa    #116
  73.             lbeq    LT      ; t(-)
  74.             cmpa    #117
  75.             lbeq    LU      ; u(**-)
  76.             cmpa    #118
  77.             lbeq    LV      ; v(***-)
  78.             cmpa    #119
  79.             lbeq    LW      ; w(*--)
  80.             cmpa    #120
  81.             lbeq    LX      ; x(-**-)
  82.             cmpa    #121
  83.             lbeq    LY      ; y(-*--)
  84.             cmpa    #122
  85.             lbeq    LZ      ; z(--**)
  86.             jmp     ERR
  87.  
  88. CEND        jmp     CBEGIN
  89.  
  90. WAIT3       ;æäàòü 3þíèòà
  91.             call    WAIT
  92.             call    WAIT
  93.             call    WAIT
  94.             rtc
  95.            
  96. WAIT        ;æäàòü 1þíèò
  97.             ldy     #$FFFF
  98. W1          lbrn  *
  99.         nop
  100.             dbne    y,W1
  101.  
  102.             rtc
  103.  
  104. DOT         movb    #$E0,PRTB
  105.             call    WAIT
  106.             movb    #$F0,PRTB
  107.             call    WAIT
  108.             rtc
  109.  
  110. DASH        movb    #$E0,PRTB
  111.             call    WAIT3
  112.             movb    #$F0,PRTB
  113.             call    WAIT
  114.             rtc
  115.  
  116. LA          call    DOT
  117.             call    DASH
  118.             jmp     CHAR
  119. LB          call    DASH
  120.             call    DOT
  121.             call    DOT
  122.             call    DOT
  123.             jmp     CHAR
  124. LC          call    DASH
  125.             call    DOT
  126.             call    DASH
  127.             call    DOT
  128.             jmp     CHAR
  129. LD          call    DASH
  130.             call    DOT
  131.             call    DOT
  132.             jmp     CHAR
  133. LE          call    DOT
  134.             jmp     CHAR
  135. LF          call    DOT
  136.             call    DOT
  137.             call    DASH
  138.             call    DOT
  139.             jmp     CHAR
  140. LG          call    DASH
  141.             call    DASH
  142.             call    DOT
  143.             jmp     CHAR
  144. LH          call    DOT
  145.             call    DOT
  146.             call    DOT
  147.             call    DOT
  148.             jmp     CHAR
  149. LI          call    DOT
  150.             call    DOT
  151.             jmp     CHAR
  152. LJ          call    DOT
  153.             call    DASH
  154.             call    DASH
  155.             call    DASH
  156.             jmp     CHAR
  157. LK          call    DASH
  158.             call    DOT
  159.             call    DASH
  160.             jmp     CHAR
  161. LL          call    DOT
  162.             call    DASH
  163.             call    DOT
  164.             call    DOT
  165.             jmp     CHAR
  166. LM          call    DASH
  167.             call    DASH
  168.             jmp     CHAR
  169. LN          call    DASH
  170.             call    DOT
  171.             jmp     CHAR
  172. LO          call    DASH
  173.             call    DASH
  174.             call    DASH
  175.             jmp     CHAR
  176. LP          call    DOT
  177.             call    DASH
  178.             call    DASH
  179.             call    DOT
  180.             jmp     CHAR
  181. LQ          call    DASH
  182.             call    DASH
  183.             call    DOT
  184.             call    DASH
  185.             jmp     CHAR
  186. LR          call    DOT
  187.             call    DASH
  188.             call    DOT
  189.             jmp     CHAR
  190. LS          call    DOT
  191.             call    DOT
  192.             call    DOT
  193.             jmp     CHAR
  194. LT          call    DASH
  195.             jmp     CHAR
  196. LU          call    DOT
  197.             call    DOT
  198.             call    DASH
  199.             jmp     CHAR
  200. LV          call    DOT
  201.             call    DOT
  202.             call    DOT
  203.             call    DASH
  204.             jmp     CHAR
  205. LW          call    DOT
  206.             call    DASH
  207.             call    DASH
  208.             jmp     CHAR
  209. LX          call    DASH
  210.             call    DOT
  211.             call    DOT
  212.             call    DASH
  213.             jmp     CHAR
  214. LY          call    DASH
  215.             call    DOT
  216.             call    DASH
  217.             call    DASH
  218.             jmp     CHAR
  219. LZ          call    DASH
  220.             call    DASH
  221.             call    DOT
  222.             call    DOT
  223.             jmp     CHAR
  224.  
  225. ERR         ; ìèãíóòü 4ìÿ ñâåòîäèîäàìè, åñëè íåêîððåêòíûé ñèìâîë
  226.             movb    #00,DDRB
  227.             call    WAIT
  228.             movb    #$F0,DDRB
  229.             call    WAIT
  230.             jmp     CHAR
  231.            
  232.  
  233.             org     StartVector
  234.             dc.w    ROMStart
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!