home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1345.dms / in.adf / top / test.s < prev    next >
Encoding:
Text File  |  1990-12-06  |  617 b   |  55 lines
  1.     ; test.c
  2.     SECTION NUM1,BSS
  3.     XDEF    _foo
  4. _foo    DS.B    4
  5.     SECTION NUM2,CODE
  6.     XDEF    _fun1
  7. _fun1:
  8.     bra    L1
  9. L0:
  10.     move.l    #L3,-(sp)
  11.     jsr    _printf
  12.     add.w    #4,sp
  13. L2:
  14.     unlk    a6
  15.     rts
  16. L1:
  17.     link    a6,#-0
  18.     bra    L0
  19.     SECTION NUM3,BSS
  20.     XDEF    _bar
  21. _bar    DS.B    4
  22.     SECTION NUM4,CODE
  23.     XDEF    _main
  24. _main:
  25.     bra    L5
  26. L4:
  27.     clr.l    d3
  28. L8:
  29.     move.l    8(a6),a0
  30.     tst.b    (a0)
  31.     beq    L9
  32.     move.l    8(a6),d0
  33.     add.l    #1,8(a6)
  34.     move.l    d0,a0
  35.     move.l    d3,d0
  36.     add.l    #1,d3
  37.     add.l    #L7,d0
  38.     move.l    d0,a1
  39.     move.b    (a0),(a1)
  40.     bra    L8
  41. L9:
  42. L6:
  43.     movem.l    (sp)+,d3
  44.     unlk    a6
  45.     rts
  46. L5:
  47.     link    a6,#-0
  48.     movem.l    d3,-(sp)
  49.     bra    L4
  50.     SECTION NUM5,BSS
  51. L7:    ds.b    20
  52.     SECTION NUM6,DATA
  53. L3:    dc.b    'jim'
  54.     dc.b    0
  55.     END