home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 21 / modulo3.tur < prev    next >
Encoding:
Text File  |  1990-11-24  |  673 b   |  39 lines
  1. 000,*,l,000    ; PROGRAMM: Modulo-3-Division (mit Rest-Ausgabe)
  2. 000,0,l,000
  3. 000,1,0,001    ; 1. Zahl auf Null
  4. 000,*,r,020    ; Rest
  5. 001,0,r,001
  6. 001,*,r,002
  7. 002,*,1,003
  8. 003,1,l,003
  9. 003,*,l,004
  10. 004,0,l,004
  11. 004,1,0,005    ; 2. Zahl auf Null
  12. 004,*,r,020    ; Rest
  13. 005,0,r,005
  14. 005,*,r,005
  15. 005,1,r,006
  16. 006,1,r,006
  17. 006,*,1,007
  18. 007,1,l,007
  19. 007,*,l,008
  20. 008,*,l,008
  21. 008,0,l,009
  22. 009,0,l,009
  23. 009,1,0,010    ; 3. Zahl auf Null
  24. 009,*,r,020    ; Rest
  25. 010,0,r,010
  26. 010,*,r,011
  27. 011,1,r,011
  28. 011,*,1,012
  29. 012,1,r,013
  30. 013,*,l,014
  31. 014,1,*,015
  32. 015,*,l,014
  33. 014,*,l,000    ; erneuter Schleifenbeginn
  34. 020,0,1,021
  35. 020,*,r,022
  36. 021,1,r,020
  37. 022,1,r,022
  38. 022,*,s,023
  39.