ab76015/spo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bonus hw1 completed

Browse source
This commit is contained in:
aljazbrodar. 2025-11-15 13:32:49 +01:00
parent 325f63e78a
commit 371cfddbde
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
ass1/bonus/dijkstra.asm
View file

@ -1,11 +1,9 @@
dijk START 0 dijk START 0
.zacetna inicializacija, d=0 .zacetna inicializacija, d=0
LDA #0 LDA #0
LDX START LDX ZAC
STA D, X STA D, X
STA PROV, X STA PROV, X
.zacetno vozlisce nima predhodnika
LDA minus_ena
.neskoncna while zanka .neskoncna while zanka
WHILE LDS minus_ena . S = -1, hrani vozlisce ki imam min razdaljo v okolici WHILE LDS minus_ena . S = -1, hrani vozlisce ki imam min razdaljo v okolici
LDX #0 . stevec = 0 LDX #0 . stevec = 0
@ -94,7 +92,7 @@ SET2 RMO S, X
NEXT2 RMO X, A NEXT2 RMO X, A
ADD #3 ADD #3
RMO A, X RMO A, X
COMP #table_len COMP #table_len2
JLT FOR2 JLT FOR2
J WHILE J WHILE
@ -154,6 +152,7 @@ INPUT_W WORD 8
WORD 11 WORD 11
WORD 11 WORD 11
WORD 9 WORD 9
last EQU *
.pomozne spremenljivke .pomozne spremenljivke
old_X RESW 1 old_X RESW 1
@ -182,5 +181,6 @@ PROV WORD -1
WORD -1 WORD -1
last_in EQU * last_in EQU *
table_len EQU last_in - PROV table_len EQU last_in - PROV
.indeks zacetnega vozlisca table_len2 EQU last - INPUT_W
START WORD 0 .indeks zacetnega vozlisca * 3
ZAC WORD 0