home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol167 / mkv80.dif < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.6 KB  |  43 lines
  1. File 1, Line 60: ;    January 20, 1984 - M checked upper argument incorrectly
  2.  
  3. File 1, Line 516: ;    The comparison is lexicographic; bytes are compared from left
  4. File 1, Line 517: ;    to right, the first inequality resolves the comparison.
  5.  
  6. File 1, Line 538:     jmp    um8    ;non-trivial comparison to be made
  7. File 2, Line 535:     jmp    um7    ;non-trivial comparison to be made
  8.  
  9. File 1, Line 550:     jz    um5    ;record endpoint, quit
  10. File 2, Line 547:     jz    um4    ;record endpoint, quit
  11.  
  12. File 1, Line 553: um3:    ldax    d    ;argument b
  13. File 1, Line 554:     cmp    m    ;workspace text
  14. File 1, Line 555:     jc    um7    ;wrong inequality, so FALSE
  15. File 1, Line 556:     jnz    um4    ;strict less settles issue
  16. File 2, Line 550: um3:    ldax    d    ;
  17. File 2, Line 551:     cmp    m    ;
  18. File 2, Line 552:     jc    um6    ;wrong inequality, so FALSE
  19.  
  20. File 1, Line 563: um4:    pop    h    ;recover the saved p2
  21. File 1, Line 564: um5:    shld    p2    ;it can be stored as end pointer
  22. File 2, Line 559:     pop    h    ;recover the saved p2
  23. File 2, Line 560: um4:    shld    p2    ;it can be stored as end pointer
  24.  
  25. File 2, Line 562: um5:    pop    h    ;
  26.  
  27. File 1, Line 567: um7:    pop    h    ;
  28.  
  29. File 1, Line 569: um8:    lhld    p3    ;fetch end of text
  30. File 2, Line 565: um7:    lhld    p3    ;fetch end of text
  31.  
  32. File 1, Line 572:     jnz    um9    ;whole addresses can't be equal
  33. File 2, Line 568:     jnz    um8    ;whole addresses can't be equal
  34.  
  35. File 1, Line 575:     jz    um6    ;end of text without success - FALSE
  36. File 1, Line 576: um9:    xchg        ;pointer to argument back in (HL)
  37. File 2, Line 571:     jz    um5    ;end of text without success - FALSE
  38. File 2, Line 572: um8:    xchg        ;pointer to argument back in (HL)
  39.  
  40. File 1, Line 580:     jc    um6    ;fail if argument is bigger
  41. File 2, Line 576:     jc    um5    ;fail if argument is bigger
  42.  
  43.