home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / COMPLIB / 68K / TEST / MAIN.SRC
Encoding:
Text File  |  1996-08-02  |  1.5 KB  |  96 lines
  1.         xref    PROGSTART,PROGEND
  2.         xref    dbg_start,dbg_putchar
  3.     xref __muls,__mulu,__divs,__divu
  4.     xref __mods,__modu
  5.         .region boot
  6.  
  7.         dc.l    PROGEND-PROGSTART
  8.         dc.l    main
  9.  
  10.     section code
  11. main:
  12.         bsr     dbg_start
  13.     move    #456000,D0
  14.     bsr    putnum
  15.     move #8,d7
  16.     moveq    #1,D0
  17. lmuls:
  18.         bsr putnum
  19.     move.l    d0,-(A7)
  20.     move.l    #10,-(A7)
  21.     bsr    __muls
  22.     addq    #8,a7
  23.          dbra    d7,lmuls
  24.     move #8,d7
  25.     moveq    #1,D0
  26. lmulu:
  27.         bsr putnum
  28.     move.l    d0,-(A7)
  29.     move.l    #10,-(A7)
  30.     bsr    __mulu
  31.     addq    #8,a7
  32.          dbra    d7,lmulu
  33.     move #9,d7
  34.     move    #1000000000,D0
  35. ldivu:
  36.         bsr putnum
  37.     move.l    d0,-(A7)
  38.     move.l    #10,-(A7)
  39.     bsr    __divu
  40.     addq    #8,a7
  41.          dbra    d7,ldivu
  42.     move #9,d7
  43.     move    #1000000000,D0
  44. ldivs:
  45.         bsr putnum
  46.     move.l    d0,-(A7)
  47.     move.l    #10,-(A7)
  48.     bsr    __divs
  49.     addq    #8,a7
  50.          dbra    d7,ldivs
  51.     move #9,d7
  52.     move    #1234567894,D0
  53. lmodu:
  54.     move.l    d0,-(A7)
  55.     move.l    d0,-(A7)
  56.     move.l    #10,-(A7)
  57.     bsr    __modu
  58.     addq    #8,a7
  59.         bsr putnum
  60.     move.l  (a7)+,d0
  61.     divu.l    #10,d0
  62.          dbra    d7,lmodu
  63.     move #9,d7
  64.     move    #1234567894,D0
  65. lmods:
  66.     move.l    d0,-(A7)
  67.     move.l    d0,-(A7)
  68.     move.l    #10,-(A7)
  69.     bsr    __mods
  70.     addq    #8,a7
  71.         bsr putnum
  72.     move.l  (a7)+,d0
  73.     divu.l    #10,d0
  74.          dbra    d7,lmods
  75.  
  76.         bra     *
  77. putnum:
  78.     move.l    d0,-(a7)
  79.     clr.l    d6
  80.     move.l    d0,d1
  81. lp:
  82.     divul.l #10,D0:D1
  83.     add.l    #$30,d0
  84.     move.l    d0,-(a7)
  85.     addq    #1,d6
  86.     tst.l    d1
  87.     bne.b    lp
  88. lp1:
  89.     move.l  (a7)+,d0
  90.     bsr    dbg_putchar
  91.         subq    #1,D6
  92.     bne.b    lp1
  93.     moveq    #'\n',D0
  94.     bsr    dbg_putchar
  95.     move.l    (a7)+,d0 
  96.     rts