Subversion Repositories 6809_6309_compatible_core

The Mamou Assembler Version 01.00      06/22/2014 08:16:49      Page 001


00001                    
00002                    ; simple instruction excerciser
00003                    
00004    0000 CCAABB                    ldd       #$AABB
00005    0003 3D                        mul       
00006    0004 8E1234                    ldx       #$1234
00007    0007 108E5678                  ldy       #$5678
00008    000B 1E89                      exg       a,b
00009                                   ;exg    a,x
00010    000D 1E21                      exg       y,x
00011    000F 1F13                      tfr       x,u                 ; 16 bit t
00012    0011 1F83                      tfr       a,u                 ; high to 
00013    0013 1F93                      tfr       b,u
00014    0015 1F18                      tfr       x,a                 ; gets hig
00015    0017 1F19                      tfr       x,b                 ; gets low
00016    0019 2002                      bra       eatests
00017    001B 0000       addr           fcb       0,                  4 ; an add
00018                    
00019    001D 8602       eatests        lda       #$02
00020    001F C600                      ldb       #$00
00021    0021 9700                      sta       $0
00022    0023 D701                      stb       $1
00023    0025 9E00                      ldx       $0                  ; load sav
00024    0027 108E0000                  ldy       #$0
00025    002B ACA4                      cmpx      ,y                  ; compare
00026    002D 2702                      beq       test_push_pull
00027                    
00028    002F 20FE       error          bra       error
00029                    
00030    0031 10CE00FF   test_push_pull lds       #$00ff
00031    0035 3406                      pshs      a,b
00032    0037 3510                      puls      x
00033    0039 ACA4                      cmpx      ,y                  ; compare 
00034    003B 26F2                      bne       error
00035                    
00036    003D 8D09                      bsr       test_bsr
00037    003F 26EE                      bne       error               ; push/pul
00038  W 0041 17000B                    lbsr      test_lea
00039    0044 26E9                      bne       error
00040    0046 20FE       ok             bra       ok
00041                    
00042    0048 3420       test_bsr       pshs      y
00043    004A 3520                      puls      y
00044    004C AC20                      cmpx      0,y
00045    004E 39                        rts       
00046                    
00047    004F 3321       test_lea       leau      1,y
00048    0051 3120                      leay      0,y
00049    0053 39                        rts       
00050                    
00051    0054 8E0064     _boot          ldx       #100
00052    0057 CC4100     _loop0         ldd       #$4100
00053    005A A785       _loop1         sta       b,x
00054    005C 5C                        incb      
00055    005D C110                      cmpb      #16
00056    005F 26F9                      bne       _loop1
00057    0061 4C                        inca      
00058    0062 5C         _loop2         incb      
00059    0063 26FD                      bne       _loop2              ; delay
00060    0065 8180                      cmpa      #128



The Mamou Assembler Version 01.00      06/22/2014 08:16:49      Page 002


00061    0067 27F1                      beq       _loop1              ; another 
00062    0069 20EC                      bra       _loop0
00063                    
00064                    
00065                    

Assembler Summary:
 - 0 errors, 1 warnings
 - 65 lines (51 source, 12 blank, 2 comment)
 - $006B (107) program bytes, $0000 (0) data bytes
 - Output file: "instructions_test.bin"