home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / Zero / Zero.a.lst < prev    next >
Encoding:
File List  |  1991-11-05  |  1.2 KB  |  32 lines  |  [TEXT/MPS ]
  1.  
  2. MC68020 Assembler - Ver 2.88                                                                               05-Nov-91  Page   1
  3. Copyright Apple Computer, Inc. 1984-1987
  4.  
  5. Loc   F Object Code     Addr  M    Source Statement
  6.  
  7.                                    ;Asm -l Zero.a
  8.  
  9.  
  10.  
  11. 00000                                  proc
  12. 00000   221F                           move.l    (sp)+,d1    ;get size
  13. 00002   3401                           move.w    d1,d2        ;copy it
  14. 00004 G 7000                           clr.l    d0            ;the fill value
  15. 00006   205F                           movea.l    (sp)+,a0    ;get buffer addr
  16. 00008   E489                           lsr.l    #2,d1        ;# of longwords
  17. 0000A   6708            00014          beq.s    @2            ;none?
  18. 0000C   5381                           subq.l    #1,d1        ;set up loop
  19. 0000E   20C0                       @1    move.l    d0,(a0)+    ;fill longwords
  20. 00010 G 51C9 FFFC       0000E          dbra    d1,@1
  21. 00014 G 0242 0003                  @2    and.w    #3,d2        ;# of extra bytes
  22. 00018   6708            00022          beq.s    @4            ;none?
  23. 0001A   5342                           subq.w    #1,d2        ;set up loop
  24. 0001C   10C0                       @3    move.b    d0,(a0)+    ;fill bytes
  25. 0001E G 51CA FFFC       0001C          dbra    d2,@3
  26. 00022                              @4
  27. 00022                                  end
  28.  
  29. Elapsed time: 0.20 seconds.
  30.  
  31. Assembly complete - no errors found.  21 lines.
  32.