; ; gr-v7-2010_02b.x68 ; ; Zbrojite dva BCD broja. Duljina (u bajtovima) ; dana je varijablom LENGTH s adrese $6000. ; Najznacajniji bajt prvog broja nalazi ; se na adresi $6010, a najznacajniji bajt ; drugog broja nalazi se na adresi $6020. ; Spremite sumu na adresu $6010. ; DATA: EQU $6000 PROGRAM: EQU $6100 LENGTH: EQU $6000 BCDNUM1: EQU $6010 BCDNUM2: EQU $6020 ORG PROGRAM START: CLR.W D2 MOVE.B LENGTH, D2 MOVEA.L #BCDNUM1, A0 MOVEA.L #BCDNUM2, A1 LEA 0(A0,D2.W), A0 LEA 0(A1,D2.W), A1 SUBQ.W #1,D2 MOVE #0, CCR LOOP: ABCD.B -(A1), -(A0) DBRA D2, LOOP MOVE.B #9,D0 TRAP #15 ; halt simulator END START