home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FARCS.ASM < prev    next >
Encoding:
Assembly Source File  |  2000-02-11  |  3.1 KB  |  183 lines
  1. ;    Static Name Aliases
  2.  
  3. ;
  4.  
  5.     TITLE   farcs.for
  6.  
  7.     NAME    farcs
  8.  
  9.  
  10.  
  11.     .8087
  12.  
  13. FARCS_TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  14.  
  15. FARCS_TEXT    ENDS
  16.  
  17. _DATA    SEGMENT  WORD PUBLIC 'DATA'
  18.  
  19. _DATA    ENDS
  20.  
  21. CONST    SEGMENT  WORD PUBLIC 'CONST'
  22.  
  23. CONST    ENDS
  24.  
  25. _BSS    SEGMENT  WORD PUBLIC 'BSS'
  26.  
  27. _BSS    ENDS
  28.  
  29. DGROUP    GROUP    CONST, _BSS, _DATA
  30.  
  31.     ASSUME  CS: FARCS_TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
  32.  
  33. EXTRN    __acrtused:ABS
  34.  
  35. EXTRN    _arc:FAR
  36.  
  37. EXTRN    _sector:FAR
  38.  
  39. EXTRN    _circle:FAR
  40.  
  41. EXTRN    _arcprecision:FAR
  42.  
  43. EXTRN    _circleprecision:FAR
  44.  
  45. FARCS_TEXT      SEGMENT
  46.  
  47. ; Line 22
  48.  
  49.     PUBLIC    ARC
  50.  
  51. ARC    PROC FAR
  52.  
  53.     push    bp
  54.  
  55.     mov    bp,sp
  56.  
  57. ;    X = 22
  58.  
  59. ;    Y = 18
  60.  
  61. ;    R = 14
  62.  
  63. ;    S = 10
  64.  
  65. ;    E = 6
  66.  
  67.     les    bx,DWORD PTR [bp+6]    ;E
  68.  
  69.     fld    DWORD PTR es:[bx]
  70.  
  71.     sub    sp,8
  72.  
  73.     mov    bx,sp
  74.  
  75.     fstp    QWORD PTR [bx]
  76.  
  77.     fwait    
  78.  
  79.     les    bx,DWORD PTR [bp+10]    ;S
  80.  
  81.     fld    DWORD PTR es:[bx]
  82.  
  83.     sub    sp,8
  84.  
  85.     mov    bx,sp
  86.  
  87.     fstp    QWORD PTR [bx]
  88.  
  89.     fwait    
  90.  
  91.     les    bx,DWORD PTR [bp+14]    ;R
  92.  
  93.     fld    DWORD PTR es:[bx]
  94.  
  95.     sub    sp,8
  96.  
  97.     mov    bx,sp
  98.  
  99.     fstp    QWORD PTR [bx]
  100.  
  101.     fwait    
  102.  
  103.     les    bx,DWORD PTR [bp+18]    ;Y
  104.  
  105.     fld    DWORD PTR es:[bx]
  106.  
  107.     sub    sp,8
  108.  
  109.     mov    bx,sp
  110.  
  111.     fstp    QWORD PTR [bx]
  112.  
  113.     fwait    
  114.  
  115.     les    bx,DWORD PTR [bp+22]    ;X
  116.  
  117.     fld    DWORD PTR es:[bx]
  118.  
  119.     sub    sp,8
  120.  
  121.     mov    bx,sp
  122.  
  123.     fstp    QWORD PTR [bx]
  124.  
  125.     fwait    
  126.  
  127.     call    FAR PTR _arc
  128.  
  129. ; Line 23
  130.  
  131.     mov    sp,bp
  132.  
  133.     pop    bp
  134.  
  135.     ret    20
  136.  
  137.  
  138.  
  139. ARC    ENDP
  140.  
  141. ; Line 26
  142.  
  143.     PUBLIC    SECTOR
  144.  
  145. SECTOR    PROC FAR
  146.  
  147.     push    bp
  148.  
  149.     mov    bp,sp
  150.  
  151. ;    X = 22
  152.  
  153. ;    Y = 18
  154.  
  155. ;    R = 14
  156.  
  157. ;    S = 10
  158.  
  159. ;    E = 6
  160.  
  161.     les    bx,DWORD PTR [bp+6]    ;E
  162.  
  163.     fld    DWORD PTR es:[bx]
  164.  
  165.     sub    sp,8
  166.  
  167.     mov    bx,sp
  168.  
  169.     fstp    QWORD PTR [bx]
  170.  
  171.     fwait    
  172.  
  173.     les    bx,DWORD PTR [bp+10]    ;S
  174.  
  175.     fld    DWORD PTR es:[bx]
  176.  
  177.     sub    sp,8
  178.  
  179.     mov    bx,sp
  180.  
  181.     fstp    QWORD PTR [bx]
  182.  
  183.     fwait    
  184.  
  185.     les    bx,DWORD PTR [bp+14]    ;R
  186.  
  187.     fld    DWORD PTR es:[bx]
  188.  
  189.     sub    sp,8
  190.  
  191.     mov    bx,sp
  192.  
  193.     fstp    QWORD PTR [bx]
  194.  
  195.     fwait    
  196.  
  197.     les    bx,DWORD PTR [bp+18]    ;Y
  198.  
  199.     fld    DWORD PTR es:[bx]
  200.  
  201.     sub    sp,8
  202.  
  203.     mov    bx,sp
  204.  
  205.     fstp    QWORD PTR [bx]
  206.  
  207.     fwait    
  208.  
  209.     les    bx,DWORD PTR [bp+22]    ;X
  210.  
  211.     fld    DWORD PTR es:[bx]
  212.  
  213.     sub    sp,8
  214.  
  215.     mov    bx,sp
  216.  
  217.     fstp    QWORD PTR [bx]
  218.  
  219.     fwait    
  220.  
  221.     call    FAR PTR _sector
  222.  
  223. ; Line 27
  224.  
  225.     mov    sp,bp
  226.  
  227.     pop    bp
  228.  
  229.     ret    20
  230.  
  231.  
  232.  
  233. SECTOR    ENDP
  234.  
  235. ; Line 30
  236.  
  237.     PUBLIC    CIRCLE
  238.  
  239. CIRCLE    PROC FAR
  240.  
  241.     push    bp
  242.  
  243.     mov    bp,sp
  244.  
  245. ;    X = 14
  246.  
  247. ;    Y = 10
  248.  
  249. ;    R = 6
  250.  
  251.     les    bx,DWORD PTR [bp+6]    ;R
  252.  
  253.     fld    DWORD PTR es:[bx]
  254.  
  255.     sub    sp,8
  256.  
  257.     mov    bx,sp
  258.  
  259.     fstp    QWORD PTR [bx]
  260.  
  261.     fwait    
  262.  
  263.     les    bx,DWORD PTR [bp+10]    ;Y
  264.  
  265.     fld    DWORD PTR es:[bx]
  266.  
  267.     sub    sp,8
  268.  
  269.     mov    bx,sp
  270.  
  271.     fstp    QWORD PTR [bx]
  272.  
  273.     fwait    
  274.  
  275.     les    bx,DWORD PTR [bp+14]    ;X
  276.  
  277.     fld    DWORD PTR es:[bx]
  278.  
  279.     sub    sp,8
  280.  
  281.     mov    bx,sp
  282.  
  283.     fstp    QWORD PTR [bx]
  284.  
  285.     fwait    
  286.  
  287.     call    FAR PTR _circle
  288.  
  289. ; Line 31
  290.  
  291.     mov    sp,bp
  292.  
  293.     pop    bp
  294.  
  295.     ret    12
  296.  
  297.  
  298.  
  299. CIRCLE    ENDP
  300.  
  301. ; Line 34
  302.  
  303.     PUBLIC    ARCPRECISION
  304.  
  305. ARCPRECISION    PROC FAR
  306.  
  307.     push    bp
  308.  
  309.     mov    bp,sp
  310.  
  311. ;    N = 6
  312.  
  313.     les    bx,DWORD PTR [bp+6]    ;N
  314.  
  315.     push    WORD PTR es:[bx]
  316.  
  317.     call    FAR PTR _arcprecision
  318.  
  319. ; Line 35
  320.  
  321.     mov    sp,bp
  322.  
  323.     pop    bp
  324.  
  325.     ret    4
  326.  
  327.  
  328.  
  329. ARCPRECISION    ENDP
  330.  
  331. ; Line 38
  332.  
  333.     PUBLIC    CIRCLEPRECISION
  334.  
  335. CIRCLEPRECISION    PROC FAR
  336.  
  337.     push    bp
  338.  
  339.     mov    bp,sp
  340.  
  341. ;    N = 6
  342.  
  343.     les    bx,DWORD PTR [bp+6]    ;N
  344.  
  345.     push    WORD PTR es:[bx]
  346.  
  347.     call    FAR PTR _circleprecision
  348.  
  349. ; Line 39
  350.  
  351.     mov    sp,bp
  352.  
  353.     pop    bp
  354.  
  355.     ret    4
  356.  
  357.  
  358.  
  359. CIRCLEPRECISION    ENDP
  360.  
  361. FARCS_TEXT    ENDS
  362.  
  363. END
  364.  
  365.