home *** CD-ROM | disk | FTP | other *** search
/ WDR Computer Club Digital 1996 October / CLUB10_96.BIN / fernuni / medlite3.app / addlong.prg next >
Text File  |  1995-03-13  |  307b  |  32 lines

  1. LOAD 20
  2. LOAD B
  3. LOAD [ADDJMP]
  4. CALL
  5. HALT
  6. $15
  7. :ADDJMP
  8. LOAD 256
  9. :ADDRET
  10. LOAD 4
  11. $256
  12. :ADDLONG
  13. STORE [ADDRET]
  14. LOAD I,0
  15. LOAD [B+I+0]
  16. LOAD [B+I+2]
  17. ADD
  18. STORE [B+I+4]
  19. LOAD 0
  20. SHIFT  C
  21. LOAD [B+I+1]
  22. ADD
  23. LOAD [B+I+3]
  24. ADD
  25. STORE [B+I+5]
  26. LOAD [ADDRET]
  27. JUMP
  28. DD
  29. STORE [B+I+5]
  30. LOAD [ADDRET]
  31. JUMP
  32.