home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / c / amivogl_mdev / src / points.s < prev    next >
Encoding:
Text File  |  1997-12-30  |  3.1 KB  |  222 lines
  1.  
  2. ; Maxon C++ Compiler
  3. ; LS2:work/voGL/src/points.c
  4.     mc68020
  5.     mc68881
  6.     XREF    _move
  7.     XREF    _verror
  8.     XREF    _draw
  9.     XREF    _std__in
  10.     XREF    _std__out
  11.     XREF    _std__err
  12.     XREF    ___MEMFLAGS
  13.     XREF    _vdevice
  14.  
  15.     SECTION ":0",CODE
  16.  
  17.  
  18.     XDEF    _pnt
  19. _pnt
  20. L3    EQU    -$C
  21.     link    a5,#L3+12
  22. L4    EQU    $1C
  23.     movem.l    d2-d4,-(a7)
  24.     move.s    $10(a5),d2
  25.     move.s    $C(a5),d3
  26.     move.s    $8(a5),d4
  27.     XREF    userbreak_flagpos
  28.     move.l    userbreak_flagpos,a1
  29.     btst    #4,(a1)
  30.     bne    L5
  31.     tst.b    _vdevice
  32.     bne    L1
  33.     pea    L6
  34.     jsr    _verror
  35.     addq.l    #4,a7
  36. L1
  37.     move.l    d2,-(a7)
  38.     move.l    d3,-(a7)
  39.     move.l    d4,-(a7)
  40.     jsr    _move
  41.     lea    $C(a7),a7
  42.     move.l    d2,-(a7)
  43.     move.l    d3,-(a7)
  44.     move.l    d4,-(a7)
  45.     jsr    _draw
  46.     lea    $C(a7),a7
  47.     fmovem.x (a7)+,[LATEST]
  48.     movem.l    (a7)+,#L4
  49.     unlk    a5
  50.     rts
  51.  
  52.     XDEF    _pnts
  53. _pnts
  54. L7    EQU    -$10
  55.     link    a5,#L7+16
  56. L8    EQU    $80
  57.     movem.l    #L8,-(a7)
  58.     fmovem.x fp7,-(a7)
  59.     move.l    userbreak_flagpos,a1
  60.     btst    #4,(a1)
  61.     bne    L5
  62.     fmove.l    $C(a5),fp7
  63.     fmove.s    fp7,-(a7)
  64.     move.w    $A(a5),d7
  65.     ext.l    d7
  66.     fmove.l    d7,fp7
  67.     fmove.s    fp7,-(a7)
  68.     move.w    $8(a5),d7
  69.     ext.l    d7
  70.     fmove.l    d7,fp7
  71.     fmove.s    fp7,-(a7)
  72.     bsr    _pnt
  73.     lea    $C(a7),a7
  74.     fmovem.x (a7)+,[LATEST]
  75.     movem.l    (a7)+,#L8
  76.     unlk    a5
  77.     rts
  78.  
  79.     XDEF    _pnti
  80. _pnti
  81. L9    EQU    -$C
  82.     link    a5,#L9+12
  83. L10    EQU    0
  84.     movem.l    #L10,-(a7)
  85.     fmovem.x fp7,-(a7)
  86.     move.l    userbreak_flagpos,a1
  87.     btst    #4,(a1)
  88.     bne    L5
  89.     fmove.l    $10(a5),fp7
  90.     fmove.s    fp7,-(a7)
  91.     fmove.l    $C(a5),fp7
  92.     fmove.s    fp7,-(a7)
  93.     fmove.l    $8(a5),fp7
  94.     fmove.s    fp7,-(a7)
  95.     bsr    _pnt
  96.     lea    $C(a7),a7
  97.     fmovem.x (a7)+,[LATEST]
  98.     movem.l    (a7)+,#L10
  99.     unlk    a5
  100.     rts
  101.  
  102.     XDEF    _pnt2
  103. _pnt2
  104. L11    EQU    -$8
  105.     link    a5,#L11+8
  106. L12    EQU    $C
  107.     movem.l    #L12,-(a7)
  108.     move.s    $C(a5),d2
  109.     move.s    $8(a5),d3
  110.     move.l    userbreak_flagpos,a1
  111.     btst    #4,(a1)
  112.     bne    L5
  113.     clr.l    -(a7)
  114.     move.l    d2,-(a7)
  115.     move.l    d3,-(a7)
  116.     jsr    _move
  117.     lea    $C(a7),a7
  118.     clr.l    -(a7)
  119.     move.l    d2,-(a7)
  120.     move.l    d3,-(a7)
  121.     jsr    _draw
  122.     lea    $C(a7),a7
  123.     fmovem.x (a7)+,[LATEST]
  124.     movem.l    (a7)+,#L12
  125.     unlk    a5
  126.     rts
  127.  
  128.     XDEF    _pnt2s
  129. _pnt2s
  130. L13    EQU    -$10
  131.     link    a5,#L13+16
  132. L14    EQU    $80
  133.     movem.l    #L14,-(a7)
  134.     fmovem.x fp7,-(a7)
  135.     move.l    userbreak_flagpos,a1
  136.     btst    #4,(a1)
  137.     bne    L5
  138.     move.w    $A(a5),d7
  139.     ext.l    d7
  140.     fmove.l    d7,fp7
  141.     fmove.s    fp7,-(a7)
  142.     move.w    $8(a5),d7
  143.     ext.l    d7
  144.     fmove.l    d7,fp7
  145.     fmove.s    fp7,-(a7)
  146.     bsr    _pnt2
  147.     addq.l    #$8,a7
  148.     fmovem.x (a7)+,[LATEST]
  149.     movem.l    (a7)+,#L14
  150.     unlk    a5
  151.     rts
  152.  
  153.     XDEF    _pnt2i
  154. _pnt2i
  155. L15    EQU    -$C
  156.     link    a5,#L15+12
  157. L16    EQU    0
  158.     movem.l    #L16,-(a7)
  159.     fmovem.x fp7,-(a7)
  160.     move.l    userbreak_flagpos,a1
  161.     btst    #4,(a1)
  162.     bne    L5
  163.     fmove.l    $C(a5),fp7
  164.     fmove.s    fp7,-(a7)
  165.     fmove.l    $8(a5),fp7
  166.     fmove.s    fp7,-(a7)
  167.     bsr    _pnt2
  168.     addq.l    #$8,a7
  169.     fmovem.x (a7)+,[LATEST]
  170.     movem.l    (a7)+,#L16
  171.     unlk    a5
  172.     rts
  173.  
  174.     XDEF    _bgnpoint
  175. _bgnpoint
  176. L17    EQU    0
  177. L18    EQU    0
  178.     movem.l    #L18,-(a7)
  179.     move.l    userbreak_flagpos,a1
  180.     btst    #4,(a1)
  181.     bne    L5
  182.     tst.b    _vdevice+$DC
  183.     beq    L2
  184.     pea    L19
  185.     jsr    _verror
  186.     addq.l    #4,a7
  187. L2
  188.     move.b    #1,_vdevice+$DC
  189.     clr.b    _vdevice+$DD
  190.     fmovem.x (a7)+,[LATEST]
  191.     movem.l    (a7)+,#L18
  192.     rts
  193.  
  194.     XDEF    _endpoint
  195. _endpoint
  196. L20    EQU    0
  197. L21    EQU    0
  198.     movem.l    #L21,-(a7)
  199.     clr.b    _vdevice+$DC
  200.     clr.b    _vdevice+$DD
  201.     fmovem.x (a7)+,[LATEST]
  202.     movem.l    (a7)+,#L21
  203.     rts
  204.  
  205. L5
  206.     XREF    userbreak
  207.     jsr    userbreak
  208.  
  209. L6
  210.     dc.b    'pnt: vogl not initialised',0
  211. L19
  212.     dc.b    'vogl: bgnpoint mode already belongs to some other bgn routin'
  213.     dc.b    'e',0
  214.  
  215.     SECTION ":0",CODE
  216.  
  217.  
  218. L5
  219.     jsr    userbreak
  220.  
  221.     END
  222.