Line 1... |
Line 1... |
The Mamou Assembler Version 01.00 06/22/2014 08:16:49 Page 001
|
The Mamou Assembler Version 01.00 01/23/2015 06:03:03 Page 001
|
|
|
|
|
00001
|
00001
|
00002 ; simple instruction excerciser
|
00002 ; simple instruction excerciser
|
00003
|
00003
|
00004 0000 CCAABB ldd #$AABB
|
00004 0000 10CE00FF lds #$00ff
|
00005 0003 3D mul
|
00005 0004 1CAF andcc #$af ; enable i
|
00006 0004 8E1234 ldx #$1234
|
00006 0006 CCAABB ldd #$AABB
|
00007 0007 108E5678 ldy #$5678
|
00007 0009 3D mul
|
00008 000B 1E89 exg a,b
|
00008 000A 8E1234 ldx #$1234
|
00009 ;exg a,x
|
00009 000D 108E5678 ldy #$5678
|
00010 000D 1E21 exg y,x
|
00010 0011 1E89 exg a,b
|
00011 000F 1F13 tfr x,u ; 16 bit t
|
00011 ;exg a,x
|
00012 0011 1F83 tfr a,u ; high to
|
00012 0013 1E21 exg y,x
|
00013 0013 1F93 tfr b,u
|
00013 0015 1F13 tfr x,u ; 16 bit t
|
00014 0015 1F18 tfr x,a ; gets hig
|
00014 0017 1F83 tfr a,u ; high to
|
00015 0017 1F19 tfr x,b ; gets low
|
00015 0019 1F93 tfr b,u
|
00016 0019 2002 bra eatests
|
00016 001B 1F18 tfr x,a ; gets hig
|
00017 001B 0000 addr fcb 0, 4 ; an add
|
00017 001D 1F19 tfr x,b ; gets low
|
00018
|
00018 001F 2002 bra eatests
|
00019 001D 8602 eatests lda #$02
|
00019 0021 0000 addr fcb 0, 4 ; an add
|
00020 001F C600 ldb #$00
|
00020
|
00021 0021 9700 sta $0
|
00021 0023 8602 eatests lda #$02
|
00022 0023 D701 stb $1
|
00022 0025 C600 ldb #$00
|
00023 0025 9E00 ldx $0 ; load sav
|
00023 0027 9700 sta $0
|
00024 0027 108E0000 ldy #$0
|
00024 0029 D701 stb $1
|
00025 002B ACA4 cmpx ,y ; compare
|
00025 002B 9E00 ldx $0 ; load sav
|
00026 002D 2702 beq test_push_pull
|
00026 002D 108E0000 ldy #$0
|
00027
|
00027 0031 ACA4 cmpx ,y ; compare
|
00028 002F 20FE error bra error
|
00028 0033 2702 beq test_push_pull
|
00029
|
00029
|
00030 0031 10CE00FF test_push_pull lds #$00ff
|
00030 0035 20FE error bra error
|
00031 0035 3406 pshs a,b
|
00031
|
00032 0037 3510 puls x
|
00032 0037 10CE00FF test_push_pull lds #$00ff
|
00033 0039 ACA4 cmpx ,y ; compare
|
00033 003B 3406 pshs a,b
|
00034 003B 26F2 bne error
|
00034 003D 3510 puls x
|
00035
|
00035 003F ACA4 cmpx ,y ; compare
|
00036 003D 8D09 bsr test_bsr
|
00036 0041 26F2 bne error
|
00037 003F 26EE bne error ; push/pul
|
00037
|
00038 W 0041 17000B lbsr test_lea
|
00038 0043 8D09 bsr test_bsr
|
00039 0044 26E9 bne error
|
00039 0045 26EE bne error ; push/pul
|
00040 0046 20FE ok bra ok
|
00040 W 0047 17000B lbsr test_lea
|
00041
|
00041 004A 26E9 bne error
|
00042 0048 3420 test_bsr pshs y
|
00042 004C 20FE ok bra ok
|
00043 004A 3520 puls y
|
00043
|
00044 004C AC20 cmpx 0,y
|
00044 004E 3420 test_bsr pshs y
|
00045 004E 39 rts
|
00045 0050 3520 puls y
|
00046
|
00046 0052 AC20 cmpx 0,y
|
00047 004F 3321 test_lea leau 1,y
|
00047 0054 39 rts
|
00048 0051 3120 leay 0,y
|
00048
|
00049 0053 39 rts
|
00049 0055 3321 test_lea leau 1,y
|
00050
|
00050 0057 3120 leay 0,y
|
00051 0054 8E0064 _boot ldx #100
|
00051 0059 39 rts
|
00052 0057 CC4100 _loop0 ldd #$4100
|
00052
|
00053 005A A785 _loop1 sta b,x
|
00053 005A 8E0064 _boot ldx #100
|
00054 005C 5C incb
|
00054 005D CC4100 _loop0 ldd #$4100
|
00055 005D C110 cmpb #16
|
00055 0060 A785 _loop1 sta b,x
|
00056 005F 26F9 bne _loop1
|
00056 0062 5C incb
|
00057 0061 4C inca
|
00057 0063 C110 cmpb #16
|
00058 0062 5C _loop2 incb
|
00058 0065 26F9 bne _loop1
|
00059 0063 26FD bne _loop2 ; delay
|
00059 0067 4C inca
|
00060 0065 8180 cmpa #128
|
00060 0068 5C _loop2 incb
|
|
|
|
|
|
|
The Mamou Assembler Version 01.00 06/22/2014 08:16:49 Page 002
|
The Mamou Assembler Version 01.00 01/23/2015 06:03:03 Page 002
|
|
|
|
|
00061 0067 27F1 beq _loop1 ; another
|
00061 0069 26FD bne _loop2 ; delay
|
00062 0069 20EC bra _loop0
|
00062 006B 8180 cmpa #128
|
00063
|
00063 006D 27F1 beq _loop1 ; another
|
00064
|
00064 006F 20EC bra _loop0
|
00065
|
00065
|
|
00066 0071 12 _interrupt nop
|
|
00067 0072 12 nop
|
|
00068 0073 3B rti
|
|
00069
|
|
|
Assembler Summary:
|
Assembler Summary:
|
- 0 errors, 1 warnings
|
- 0 errors, 1 warnings
|
- 65 lines (51 source, 12 blank, 2 comment)
|
- 69 lines (56 source, 11 blank, 2 comment)
|
- $006B (107) program bytes, $0000 (0) data bytes
|
- $0074 (116) program bytes, $0000 (0) data bytes
|
- Output file: "instructions_test.bin"
|
- Output file: "instructions_test.bin"
|