Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

andreww

By: a guest on Jun 20th, 2012  |  syntax: ASP  |  size: 1.14 KB  |  hits: 31  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. W:
  2.         RES 10
  3.        
  4. V:
  5.         RES 10
  6.        
  7. TR:
  8.         LOAD# 0
  9.         STORE I
  10.         STORE J
  11.         STORE K
  12.         STORE G
  13.         LOAD# 10
  14.         STORE LEN
  15.         READ X
  16.         LOAD X
  17.         STORE X
  18.         LOAD# 0
  19.         STORE M
  20.  
  21.  
  22. LETTURAV:
  23.         LOAD I
  24.         SUB LEN
  25.         JZ LETTURAW
  26.         LOAD# V
  27.         STORE VI
  28.         READ S
  29.         LOAD S
  30.         STORE@ VI
  31.         LOAD VI
  32.         ADD# 1
  33.         STORE VI
  34.         LOAD I
  35.         ADD# 1
  36.         STORE I
  37.         JUMP LETTURAV
  38.  
  39. LETTURAW:
  40.         LOAD J
  41.         SUB LEN
  42.         JZ VALUTA
  43.         LOAD# W
  44.         STORE WI
  45.         LOAD# 0
  46.         STORE@ WI
  47.         LOAD WI
  48.         ADD# 1
  49.         STORE WI
  50.         LOAD J
  51.         ADD#1
  52.         STORE J
  53.         JUMP LETTURAW
  54.  
  55. VALUTA:
  56.         LOAD K
  57.         SUB LEN
  58.         JZ PRINT
  59.         LOAD# V
  60.         STORE VK
  61.         LOAD@ VK
  62.         SUB X
  63.         JGEZ POSITIVO
  64.         JUMP NEGATIVO
  65.  
  66. POSITIVO:
  67.         LOAD# W
  68.         STORE WI
  69.         LOAD WI
  70.         ADD K
  71.         STORE WI
  72.         LOAD@ WI
  73.         STORE WK
  74.         LOAD# V
  75.         STORE VV
  76.         LOAD VV
  77.         ADD K
  78.         STORE VK
  79.         LOAD@ VK
  80.         ADD X
  81.         STORE@ WK
  82.         LOAD K
  83.         ADD# 1
  84.         STORE K
  85.         JUMP VALUTA
  86.  
  87. NEGATIVO:
  88.         STORE FI
  89.         LOAD FI
  90.         ADD K
  91.         STORE FI
  92.         LOAD@ FI
  93.         STORE FK
  94.         LOAD# V
  95.         STORE FV
  96.         LOAD FV
  97.         ADD K
  98.         STORE FK
  99.         LOAD@ FK
  100.         SUB X
  101.         STORE@ FX
  102.         LOAD K
  103.         ADD# 1
  104.         STORE K
  105.         JUMP VALUTA
  106.  
  107. PRINT:
  108.         LOAD G
  109.         SUB LEN
  110.         JZ FINE
  111.         LOAD# W
  112.         STORE GW
  113.         LOAD GW
  114.         ADD G
  115.         STORE GW
  116.         WRITE@ GW
  117.         LOAD G
  118.         ADD# 1
  119.         STORE G
  120.         JUMP PRINT
  121. FINE:
  122.         HALT
create a new version of this paste RAW Paste Data