Subversion Repositories 6809_6309_compatible_core

The Mamou Assembler Version 01.00      01/23/2015 06:03:03      Page 001


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



The Mamou Assembler Version 01.00      01/23/2015 06:03:03      Page 002


00061    0069 26FD                      bne       _loop2              ; delay
00062    006B 8180                      cmpa      #128
00063    006D 27F1                      beq       _loop1              ; another 
00064    006F 20EC                      bra       _loop0
00065                    
00066    0071 12         _interrupt     nop       
00067    0072 12                        nop       
00068    0073 3B                        rti       
00069                    

Assembler Summary:
 - 0 errors, 1 warnings
 - 69 lines (56 source, 11 blank, 2 comment)
 - $0074 (116) program bytes, $0000 (0) data bytes
 - Output file: "instructions_test.bin"