home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / VORX / CC68A.ARC / SIEVE.SA < prev    next >
Text File  |  1988-07-15  |  1KB  |  73 lines
  1.     SECTION    15
  2. FLAGS:
  3.     DS.B    8191
  4.     SECTION    9
  5. MAIN:
  6.     LINK    A6,#-20
  7.     MOVEM.L    D3/D4/D5/D6/D7/A2,-(A7)
  8.     MOVE.L    #FLAGS,A2
  9.     MOVE.L    #8190,D7
  10.     MOVE.L    #L.0,-(A7)
  11.     JSR    PRINTF
  12.     ADD.W    #4,A7
  13.     MOVE.L    #1,-20(A6)
  14. L.2:
  15.     MOVE.L    -20(A6),D0
  16.     CMP.L    #100,D0
  17.     BGT    L.3
  18.     MOVE    #0,D5
  19.     MOVE    #0,D3
  20. L.4:
  21.     CMP.L    D7,D3
  22.     BGT    L.5
  23.     MOVE.B    #1,0(A2,D3.L)
  24.     ADD.L    #1,D3
  25.     BRA    L.4
  26. L.5:
  27.     MOVE    #0,D3
  28. L.6:
  29.     CMP.L    D7,D3
  30.     BGT    L.7
  31.     TST.B    0(A2,D3.L)
  32.     BEQ    L.8
  33.     MOVE.L    D3,D0
  34.     ADD.L    D3,D0
  35.     ADD.L    #3,D0
  36.     MOVE.L    D0,D6
  37.     MOVE.L    D3,D0
  38.     ADD.L    D6,D0
  39.     MOVE.L    D0,D4
  40. L.10:
  41.     CMP.L    D7,D4
  42.     BGT    L.11
  43.     CLR.B    0(A2,D4.L)
  44.     ADD.L    D6,D4
  45.     BRA    L.10
  46. L.11:
  47.     MOVE.L    D5,D0
  48.     ADD.L    #1,D0
  49.     MOVE.L    D0,D5
  50. L.8:
  51.     ADD.L    #1,D3
  52.     BRA    L.6
  53. L.7:
  54.     ADD.L    #1,-20(A6)
  55.     BRA    L.2
  56. L.3:
  57.     MOVE.L    D5,-(A7)
  58.     MOVE.L    #L.1,-(A7)
  59.     JSR    PRINTF
  60.     ADD.W    #8,A7
  61. L.12:
  62.     MOVEM.L    (A7)+,D3/D4/D5/D6/D7/A2
  63.     UNLK    A6
  64.     RTS
  65. L.1:
  66.     DC.B    10,37,100,32,112,114,105,109,101,115,10,0
  67. L.0:
  68.     DC.B    49,48,48,32,105,116,101,114,97,116,105,111
  69.     DC.B    110,115,10,0
  70.     XDEF    FLAGS
  71.     XDEF    MAIN
  72.     XREF    PRINTF
  73.     END