My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 20th, 2010 | Syntax: None | Size: 0.77 KB | Hits: 63 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. MAX DC 0
  2. MIN DC 0
  3. AVG DC 0
  4. LKM DC 0
  5. SUM DC 0
  6.  
  7.         IN R1, =KBD
  8.         STORE R1, MIN ; Min ja max eka samaan
  9.         STORE R1, MAX
  10.         JUMP First
  11.  
  12. Ask     IN R1, =KBD
  13. First   JNEG R1, Cont ; Jos negatiivinen, niin lopetus
  14.         OUT R1, =CRT
  15.         LOAD R3, LKM
  16.         ADD R3, =1
  17.         STORE R3, LKM ; Lukumäärän kasvatus
  18.        
  19.         COMP R1, MIN
  20.         JLES Setmin ; Minimin asetus
  21.  
  22. Checkm COMP R1, MAX
  23.         JGRE Setmax ; Maksimin asetus
  24.  
  25. Summa   ADD R1, SUM
  26.         STORE R1, SUM ; Summan laskeminen
  27.        
  28.         JUMP Ask
  29.  
  30. Setmin  STORE R1, MIN
  31.         JUMP Checkm
  32.        
  33. Setmax STORE R1, MAX
  34.         JUMP Summa
  35.  
  36. Cont    LOAD R1, SUM
  37.         DIV R1, LKM ; Keskiarvon laskeminen
  38.         STORE R1, AVG
  39.        
  40.         LOAD R1, LKM
  41.         OUT R1, =CRT
  42.         LOAD R1, SUM
  43.         OUT R1, =CRT
  44.         LOAD R1, MIN
  45.         OUT R1, =CRT
  46.         LOAD R1, MAX
  47.         OUT R1, =CRT
  48.         LOAD R1, AVG
  49.         OUT R1, =CRT
  50.         SVC SP, =HALT
create new paste | create new version of this paste RAW Paste Data