Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //NWW
- //wpisujemy 2 liczby max dwucyfrowe, po kazdej liczbie spacja
- petla1: wpr 1
- ode ascii // -48
- soz blad //nie moze byc 0
- som blad
- ład C1
- cyfra2: wpr 1
- ode spacja //w kodzie ascii 32
- soz jednocyfrowa //jesli spacja to liczba jednocyfrowa
- ode st16 // 32+16=48 a tyle trzeba odjac w ascii
- som blad //jakis inny znak, ani spacja ani liczba czyli blad
- ład C2
- odstep: wpr 1
- ode spacja
- soz dwucyfrowa
- sob blad //jesli nie spacja to blad (tylko dwucyfrowe)
- dwucyfrowa: pob C1 //pierwsza cyfra
- mno st10
- dod C2 //tworzymy jedna liczbe
- dns //zapisujemy pierwszą liczbę
- sob kolejna
- jednocyfrowa: pob C1
- ład L1
- dns
- kolejna: pob n
- ode st1
- ład n
- soz dalej1
- sob petla1
- dalej1: pzs
- ład L2
- pzs
- ład L1
- licznwd: ŁAD C1 //ponowne wykorzystanie zmiennych C1 i C2
- POB L2
- Petla: ŁAD C2
- Dalej: ODE C1
- SOZ rowne
- SOM L1wieksze
- SOB Petla
- rowne: POB C1
- ŁAD pomocniczy //pomocniczy=nwd
- SOB mnozenie
- L1wieksze: POB C1
- ODE C2
- ŁAD C1
- POB C2
- SOB Dalej
- mnozenie: Pob L1
- mno L2
- dzi pomocniczy
- ład nww
- dzi st10
- soz jednocyfr
- ład pomocniczy
- dzi st10
- soz dwucyfr
- dod ascii
- wyp 2
- ode ascii
- mno st10
- dwucyfr: ład C2 //ponowne wykorzystanie zmiennej
- pob pomocniczy
- ode C2
- dod ascii
- wyp 2
- jednocyfr: pob nww
- ode st10
- ład nww
- soz zero
- som reszta
- sob jednocyfr
- reszta: dod st10
- zero: dod ascii
- wyp 2
- blad: stp
- C1: RPA
- C2: RPA
- st16: RST 16
- spacja: RST 32
- L1: RPA
- L2: RPA
- ascii: RST 48
- st10: RST 10
- pomocniczy: RPA
- nww: RPA
- st1: RST 1
- n: RST 2
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement