Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- START ORG $1000
- LEA ispis1, A1
- MOVE.B #14, D0
- TRAP #15
- LEA dat_naziv, A1
- MOVE.B #2, D0
- TRAP #15
- MOVE.B #51, D0
- TRAP #15
- MOVE.B #53, D0
- MOVE.L #100, D2
- LEA sadrzaj, A1
- TRAP #15
- MOVE.B #14, D0
- LEA ispis2, A1
- TRAP #15
- MOVE.B #13, D0
- LEA sadrzaj, A1
- TRAP #15
- MOVE.B #13, D0
- LEA ispis3, A1
- TRAP #15
- LEA sadrzaj, A3
- novi_broj
- MOVE.L #0, D5
- MOVE.L #0, D1
- prebroj_znamenke
- MOVE.B (A3)+, D4
- CMP #32, D4
- BEQ kreiraj_broj
- CMP #46, D4
- BEQ kreiraj_broj
- ADD #1, D5
- JMP prebroj_znamenke
- kreiraj_broj
- MOVE.L #1, D7
- MOVE.L A3, A2
- SUB #2, A2
- nova_znamenka
- MOVE.L #0, D6
- MOVE.B (A2), D6
- SUB #1, A2
- SUB #48, D6
- MULU D7, D6
- ADD D6, D1
- MULU #10, D7
- SUB #1, D5
- CMP #0, D5
- BEQ ispisi
- JMP nova_znamenka
- ispisi MOVE.L #3, D0
- SUB #1, D1
- TRAP #15
- MOVE.L #32, D1
- MOVE.L #6, D0
- TRAP #15
- CMP #46, D4
- BNE novi_broj
- MOVE.B #9,D0
- TRAP #15 Halt Simulator
- STOP #$2000
- ispis1 DC.B 'Unesite ime datoteke: ', 0
- ispis2 DC.B 'Ispis iz datoteke: ', $D, $A, 0
- ispis3 DC.B 'Rjesenje: ', 0
- dat_naziv DS.B 30
- sadrzaj DS.B 100
- END START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement