home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 21 / addieren.tur next >
Encoding:
Text File  |  1990-11-24  |  328 b   |  13 lines
  1. 000,0,r,000       ; PROGRAMM: Addition zweier Einsen-Zahlengruppen
  2. 000,1,r,010
  3. 010,1,r,010
  4. 010,0,r,020
  5. 020,1,r,020
  6. 020,0,l,040
  7. 040,1,0,040       ; Eins der zweiten Zahl in Null verwandelt
  8. 040,0,l,050
  9. 050,1,l,050
  10. 050,0,1,060       ; die Null zwischen den Zahlen in Eins verwandelt
  11. 060,1,r,070
  12. 070,1,r,070
  13. 070,0,s,070