31
15.1.2004
Copyright Teemu Kerola 2003
TTK-91 symbolinen konekieliohjelma
; sum - laske annettuja lukuja yhteen, luku 0 on loppumerkki
Luku DC 0 ; nykyinen luku, alkuarvo 0
Summa DC 0  ; nykyinen summa, alkuarvo 0
Sum   IN    R1, =KBD  ; ohjelma Sum alkaa käskystä 0
      STORE  R1, Luku
      JZER     R1, Done   ; luvut loppu?
      LOAD   R1, Summa   ; Summa <- Summa+Luku
      ADD     R1, Luku
      STORE R1, Summa       ; summa muuttujassa, ei rekisterissä?
 
      JUMP   Sum
Done  LOAD  R1, Summa   ; tulosta summa ja lopeta
      OUT     R1, =CRT
      SVC     SP, =HALT
sum.k91