Facebook
From Round Moth, 3 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 144
  1. //C6
  2. //Wypisz dzielniki
  3.                      SDP Read
  4.                      ŁAD number
  5. loop:                POB number
  6.                      ODE divisor
  7.                      SOZ end
  8.                      POB divisor
  9.                      DNS
  10.                      POB number
  11.                      DNS
  12.                      SDP Remainder
  13.                      PZS
  14.                      SOZ foundDivisor
  15.                      POB divisor
  16.                      DOD one
  17.                      ŁAD divisor
  18.                      SOB loop
  19. foundDivisor:        POB divisor
  20.                      SDP Write
  21.                      POB space
  22.                      WYP 2
  23.                      POB divisor
  24.                      DOD one
  25.                      ŁAD divisor
  26.                      SOB loop                    
  27. end:                 POB divisor
  28.                      SDP Write
  29.                      STP
  30. divisor:             RST 1
  31. number:              RST 7
  32. one:                 RST 1
  33. space:               RST 32
  34.  
  35.  // reszta z dzielenia (zwraca 0 gdy liczba b jest dzielnikiem a)
  36. Remainder:            PZS
  37.                       ŁAD mark
  38.                       PZS
  39.                       ŁAD a
  40.                       PZS
  41.                       ŁAD b
  42.                       POB a
  43. remainderLoop:        SOM remainderEnd  
  44.                       ODE b
  45.                       SOB remainderLoop
  46. remainderEnd:         DOD b
  47.                       DNS
  48.                       POB mark
  49.                       DNS
  50.                       PWR                          
  51. a:                    RPA
  52. b:                    RPA
  53. mark:                 RPA
  54.  
  55. //Czytaj liczby z wejścia
  56. Read:           POB Zero
  57.  Wróć:        ŁAD Liczba
  58.                 WPR 1
  59.                 ODE Znak0
  60.                 SOM Gotowe
  61.                 ODE St10
  62.                 SOM Dalej
  63.  Gotowe:        POB Liczba
  64.                 PWR
  65.  Dalej:         DOD St10
  66.                 ŁAD Cyfra
  67.                 POB Liczba
  68.                 MNO St10
  69.                 DOD Cyfra
  70.                 SOB Wróć
  71.  Cyfra:         RPA
  72.  Liczba:        RPA
  73.  St10:          RST 10
  74.  Zero:          RST 0
  75.  Znak0:         RST 48          
  76.  
  77. //Wypisz liczby na wyjście            
  78.  Write:         ŁAD liczba
  79.                 POB Zero
  80.                 DNS
  81.                 POB liczba
  82.                 SOM Abs
  83.  Posit:         DZI St10
  84.                 MNO St10
  85.                 ŁAD tmp
  86.                 POB liczba
  87.                 ODE tmp
  88.                 DOD Znak0
  89.                 DNS
  90.                 POB tmp
  91.                 DZI St10
  92.                 SOZ Kończ
  93.                 ŁAD liczba
  94.                 SOB Posit
  95.  Abs:           POB Minus
  96.                 WYP 2
  97.                 POB Zero
  98.                 ODE liczba
  99.                 ŁAD liczba
  100.                 SOB Posit
  101.  Kończ:        PZS
  102.                 SOZ Wracaj
  103.                 WYP 2
  104.                 SOB Kończ
  105.  Wracaj:        PWR
  106.  tmp:           RPA
  107.  Minus:         RST 45