home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / DefProcs / PopUp / patch.a.lst < prev    next >
Encoding:
File List  |  1991-10-21  |  950 b   |  27 lines  |  [TEXT/MPS ]
  1.  
  2.                                    ;asm patch.a -l -h
  3.  
  4.  
  5. 00000                                  proc
  6. 00000                              a    ds.l    1
  7. 00004                              w    ds.w    1
  8. 00006   4E71                       e    nop
  9. 00008   2F2F 0004                      move.l    4(sp),-(sp)
  10. 0000C   41FA 000A       00018          lea.l    j(pc),a0
  11. 00010   2F08                           move.l    a0,-(sp)
  12. 00012   207A FFEC       00000          movea.l    a(pc),a0
  13. 00016   4ED0                           jmp        (a0)
  14. 00018   205F                       j    movea.l    (sp)+,a0
  15. 0001A   225F                           movea.l    (sp)+,a1
  16. 0001C   2251                           movea.l    (a1),a1
  17. 0001E   303A FFE4       00004          move.w    w(pc),d0
  18. 00022   B069 0002                      cmp.w    2(a1),d0
  19. 00026   6F04            0002C          ble.s    r
  20. 00028   3340 0002                      move.w    d0,2(a1)
  21. 0002C   4ED0                       r    jmp        (a0)
  22. 0002E                                  end
  23.  
  24. Elapsed time: 0.21 seconds.
  25.  
  26. Assembly complete - no errors found.  21 lines.
  27.