1 00000800 prog: equ $0800 2 00000900 data: equ $0900 3 4 CODE: section .text 5 0800 org prog 6 0800 b60900 ldaa input 7 0803 47 asra 8 0804 7a0901 staa result 9 0807 3f swi 10 11 DATA: section .data 12 0900 org data 13 0900 07 input: dc.b $07 14 0901 00 result: ds.b 1