44 lines
1.6 KiB
Text
44 lines
1.6 KiB
Text
00000 a_rel START 0
|
|
|
|
00000 6F2044 program LDS x
|
|
00003 772044 LDT y
|
|
00006 9040 ADDR S,A
|
|
00008 9050 ADDR T,A
|
|
0000A 0F202B STA sum
|
|
0000D 010000 LDA #0 . Reset A-ja
|
|
|
|
. Odstejemo x in y
|
|
00010 9040 ADDR S,A
|
|
00012 9450 SUBR T,A
|
|
00014 0F2024 STA diff
|
|
00017 010000 LDA #0
|
|
|
|
. Zmnozimo x in y
|
|
0001A 9040 ADDR S,A
|
|
0001C 9850 MULR T,A
|
|
0001E 0F2020 STA prod
|
|
00021 010000 LDA #0
|
|
|
|
. Zdelimo x in y
|
|
00024 9040 ADDR S,A
|
|
00026 9C50 DIVR T,A
|
|
00028 0F2013 STA quot
|
|
|
|
. Ostanek pri deljenju x z y
|
|
0002B 6B2010 LDB quot
|
|
0002E 9853 MULR T,B
|
|
00030 9434 SUBR B,S
|
|
00032 7F200F STS mod
|
|
|
|
00035 3F2FFD halt J halt
|
|
|
|
00038 000000 sum RESW 1
|
|
0003B 000000 diff RESW 1
|
|
0003E 000000 quot RESW 1
|
|
00041 000000 prod RESW 1
|
|
00044 000000 mod RESW 1
|
|
|
|
00047 000014 x WORD 20
|
|
0004A 00000A y WORD 10
|
|
|
|
0004D END program
|