home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FVIEWING.ASM < prev    next >
Encoding:
Assembly Source File  |  2000-02-11  |  5.8 KB  |  350 lines
  1. ;    Static Name Aliases
  2.  
  3. ;
  4.  
  5.     TITLE   fviewing.for
  6.  
  7.     NAME    fviewing
  8.  
  9.  
  10.  
  11.     .8087
  12.  
  13. FVIEWING_TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  14.  
  15. FVIEWING_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: FVIEWING_TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
  32.  
  33. EXTRN    __acrtused:ABS
  34.  
  35. EXTRN    _polarview:FAR
  36.  
  37. EXTRN    _up:FAR
  38.  
  39. EXTRN    _lookat:FAR
  40.  
  41. EXTRN    _perspective:FAR
  42.  
  43. EXTRN    _window:FAR
  44.  
  45. EXTRN    _ortho:FAR
  46.  
  47. EXTRN    _ortho2:FAR
  48.  
  49. FVIEWING_TEXT      SEGMENT
  50.  
  51. ; Line 30
  52.  
  53.     PUBLIC    POLARVIEW
  54.  
  55. POLARVIEW    PROC FAR
  56.  
  57.     push    bp
  58.  
  59.     mov    bp,sp
  60.  
  61. ;    A = 18
  62.  
  63. ;    B = 14
  64.  
  65. ;    C = 10
  66.  
  67. ;    D = 6
  68.  
  69.     les    bx,DWORD PTR [bp+6]    ;D
  70.  
  71.     fld    DWORD PTR es:[bx]
  72.  
  73.     sub    sp,8
  74.  
  75.     mov    bx,sp
  76.  
  77.     fstp    QWORD PTR [bx]
  78.  
  79.     fwait    
  80.  
  81.     les    bx,DWORD PTR [bp+10]    ;C
  82.  
  83.     fld    DWORD PTR es:[bx]
  84.  
  85.     sub    sp,8
  86.  
  87.     mov    bx,sp
  88.  
  89.     fstp    QWORD PTR [bx]
  90.  
  91.     fwait    
  92.  
  93.     les    bx,DWORD PTR [bp+14]    ;B
  94.  
  95.     fld    DWORD PTR es:[bx]
  96.  
  97.     sub    sp,8
  98.  
  99.     mov    bx,sp
  100.  
  101.     fstp    QWORD PTR [bx]
  102.  
  103.     fwait    
  104.  
  105.     les    bx,DWORD PTR [bp+18]    ;A
  106.  
  107.     fld    DWORD PTR es:[bx]
  108.  
  109.     sub    sp,8
  110.  
  111.     mov    bx,sp
  112.  
  113.     fstp    QWORD PTR [bx]
  114.  
  115.     fwait    
  116.  
  117.     call    FAR PTR _polarview
  118.  
  119. ; Line 31
  120.  
  121.     mov    sp,bp
  122.  
  123.     pop    bp
  124.  
  125.     ret    16
  126.  
  127.  
  128.  
  129. POLARVIEW    ENDP
  130.  
  131. ; Line 34
  132.  
  133.     PUBLIC    UP
  134.  
  135. UP    PROC FAR
  136.  
  137.     push    bp
  138.  
  139.     mov    bp,sp
  140.  
  141. ;    A = 14
  142.  
  143. ;    B = 10
  144.  
  145. ;    C = 6
  146.  
  147.     les    bx,DWORD PTR [bp+6]    ;C
  148.  
  149.     fld    DWORD PTR es:[bx]
  150.  
  151.     sub    sp,8
  152.  
  153.     mov    bx,sp
  154.  
  155.     fstp    QWORD PTR [bx]
  156.  
  157.     fwait    
  158.  
  159.     les    bx,DWORD PTR [bp+10]    ;B
  160.  
  161.     fld    DWORD PTR es:[bx]
  162.  
  163.     sub    sp,8
  164.  
  165.     mov    bx,sp
  166.  
  167.     fstp    QWORD PTR [bx]
  168.  
  169.     fwait    
  170.  
  171.     les    bx,DWORD PTR [bp+14]    ;A
  172.  
  173.     fld    DWORD PTR es:[bx]
  174.  
  175.     sub    sp,8
  176.  
  177.     mov    bx,sp
  178.  
  179.     fstp    QWORD PTR [bx]
  180.  
  181.     fwait    
  182.  
  183.     call    FAR PTR _up
  184.  
  185. ; Line 35
  186.  
  187.     mov    sp,bp
  188.  
  189.     pop    bp
  190.  
  191.     ret    12
  192.  
  193.  
  194.  
  195. UP    ENDP
  196.  
  197. ; Line 38
  198.  
  199.     PUBLIC    LOOKAT
  200.  
  201. LOOKAT    PROC FAR
  202.  
  203.     push    bp
  204.  
  205.     mov    bp,sp
  206.  
  207. ;    A = 30
  208.  
  209. ;    B = 26
  210.  
  211. ;    C = 22
  212.  
  213. ;    D = 18
  214.  
  215. ;    E = 14
  216.  
  217. ;    F = 10
  218.  
  219. ;    G = 6
  220.  
  221.     les    bx,DWORD PTR [bp+6]    ;G
  222.  
  223.     fld    DWORD PTR es:[bx]
  224.  
  225.     sub    sp,8
  226.  
  227.     mov    bx,sp
  228.  
  229.     fstp    QWORD PTR [bx]
  230.  
  231.     fwait    
  232.  
  233.     les    bx,DWORD PTR [bp+10]    ;F
  234.  
  235.     fld    DWORD PTR es:[bx]
  236.  
  237.     sub    sp,8
  238.  
  239.     mov    bx,sp
  240.  
  241.     fstp    QWORD PTR [bx]
  242.  
  243.     fwait    
  244.  
  245.     les    bx,DWORD PTR [bp+14]    ;E
  246.  
  247.     fld    DWORD PTR es:[bx]
  248.  
  249.     sub    sp,8
  250.  
  251.     mov    bx,sp
  252.  
  253.     fstp    QWORD PTR [bx]
  254.  
  255.     fwait    
  256.  
  257.     les    bx,DWORD PTR [bp+18]    ;D
  258.  
  259.     fld    DWORD PTR es:[bx]
  260.  
  261.     sub    sp,8
  262.  
  263.     mov    bx,sp
  264.  
  265.     fstp    QWORD PTR [bx]
  266.  
  267.     fwait    
  268.  
  269.     les    bx,DWORD PTR [bp+22]    ;C
  270.  
  271.     fld    DWORD PTR es:[bx]
  272.  
  273.     sub    sp,8
  274.  
  275.     mov    bx,sp
  276.  
  277.     fstp    QWORD PTR [bx]
  278.  
  279.     fwait    
  280.  
  281.     les    bx,DWORD PTR [bp+26]    ;B
  282.  
  283.     fld    DWORD PTR es:[bx]
  284.  
  285.     sub    sp,8
  286.  
  287.     mov    bx,sp
  288.  
  289.     fstp    QWORD PTR [bx]
  290.  
  291.     fwait    
  292.  
  293.     les    bx,DWORD PTR [bp+30]    ;A
  294.  
  295.     fld    DWORD PTR es:[bx]
  296.  
  297.     sub    sp,8
  298.  
  299.     mov    bx,sp
  300.  
  301.     fstp    QWORD PTR [bx]
  302.  
  303.     fwait    
  304.  
  305.     call    FAR PTR _lookat
  306.  
  307. ; Line 39
  308.  
  309.     mov    sp,bp
  310.  
  311.     pop    bp
  312.  
  313.     ret    28
  314.  
  315.  
  316.  
  317. LOOKAT    ENDP
  318.  
  319. ; Line 42
  320.  
  321.     PUBLIC    PERSPECTIVE
  322.  
  323. PERSPECTIVE    PROC FAR
  324.  
  325.     push    bp
  326.  
  327.     mov    bp,sp
  328.  
  329. ;    A = 18
  330.  
  331. ;    B = 14
  332.  
  333. ;    C = 10
  334.  
  335. ;    D = 6
  336.  
  337.     les    bx,DWORD PTR [bp+6]    ;D
  338.  
  339.     fld    DWORD PTR es:[bx]
  340.  
  341.     sub    sp,8
  342.  
  343.     mov    bx,sp
  344.  
  345.     fstp    QWORD PTR [bx]
  346.  
  347.     fwait    
  348.  
  349.     les    bx,DWORD PTR [bp+10]    ;C
  350.  
  351.     fld    DWORD PTR es:[bx]
  352.  
  353.     sub    sp,8
  354.  
  355.     mov    bx,sp
  356.  
  357.     fstp    QWORD PTR [bx]
  358.  
  359.     fwait    
  360.  
  361.     les    bx,DWORD PTR [bp+14]    ;B
  362.  
  363.     fld    DWORD PTR es:[bx]
  364.  
  365.     sub    sp,8
  366.  
  367.     mov    bx,sp
  368.  
  369.     fstp    QWORD PTR [bx]
  370.  
  371.     fwait    
  372.  
  373.     les    bx,DWORD PTR [bp+18]    ;A
  374.  
  375.     fld    DWORD PTR es:[bx]
  376.  
  377.     sub    sp,8
  378.  
  379.     mov    bx,sp
  380.  
  381.     fstp    QWORD PTR [bx]
  382.  
  383.     fwait    
  384.  
  385.     call    FAR PTR _perspective
  386.  
  387. ; Line 43
  388.  
  389.     mov    sp,bp
  390.  
  391.     pop    bp
  392.  
  393.     ret    16
  394.  
  395.  
  396.  
  397. PERSPECTIVE    ENDP
  398.  
  399. ; Line 46
  400.  
  401.     PUBLIC    WINDOW
  402.  
  403. WINDOW    PROC FAR
  404.  
  405.     push    bp
  406.  
  407.     mov    bp,sp
  408.  
  409. ;    A = 26
  410.  
  411. ;    B = 22
  412.  
  413. ;    C = 18
  414.  
  415. ;    D = 14
  416.  
  417. ;    E = 10
  418.  
  419. ;    F = 6
  420.  
  421.     les    bx,DWORD PTR [bp+6]    ;F
  422.  
  423.     fld    DWORD PTR es:[bx]
  424.  
  425.     sub    sp,8
  426.  
  427.     mov    bx,sp
  428.  
  429.     fstp    QWORD PTR [bx]
  430.  
  431.     fwait    
  432.  
  433.     les    bx,DWORD PTR [bp+10]    ;E
  434.  
  435.     fld    DWORD PTR es:[bx]
  436.  
  437.     sub    sp,8
  438.  
  439.     mov    bx,sp
  440.  
  441.     fstp    QWORD PTR [bx]
  442.  
  443.     fwait    
  444.  
  445.     les    bx,DWORD PTR [bp+14]    ;D
  446.  
  447.     fld    DWORD PTR es:[bx]
  448.  
  449.     sub    sp,8
  450.  
  451.     mov    bx,sp
  452.  
  453.     fstp    QWORD PTR [bx]
  454.  
  455.     fwait    
  456.  
  457.     les    bx,DWORD PTR [bp+18]    ;C
  458.  
  459.     fld    DWORD PTR es:[bx]
  460.  
  461.     sub    sp,8
  462.  
  463.     mov    bx,sp
  464.  
  465.     fstp    QWORD PTR [bx]
  466.  
  467.     fwait    
  468.  
  469.     les    bx,DWORD PTR [bp+22]    ;B
  470.  
  471.     fld    DWORD PTR es:[bx]
  472.  
  473.     sub    sp,8
  474.  
  475.     mov    bx,sp
  476.  
  477.     fstp    QWORD PTR [bx]
  478.  
  479.     fwait    
  480.  
  481.     les    bx,DWORD PTR [bp+26]    ;A
  482.  
  483.     fld    DWORD PTR es:[bx]
  484.  
  485.     sub    sp,8
  486.  
  487.     mov    bx,sp
  488.  
  489.     fstp    QWORD PTR [bx]
  490.  
  491.     fwait    
  492.  
  493.     call    FAR PTR _window
  494.  
  495. ; Line 47
  496.  
  497.     mov    sp,bp
  498.  
  499.     pop    bp
  500.  
  501.     ret    24
  502.  
  503.  
  504.  
  505. WINDOW    ENDP
  506.  
  507. ; Line 50
  508.  
  509.     PUBLIC    ORTHO
  510.  
  511. ORTHO    PROC FAR
  512.  
  513.     push    bp
  514.  
  515.     mov    bp,sp
  516.  
  517. ;    A = 26
  518.  
  519. ;    B = 22
  520.  
  521. ;    C = 18
  522.  
  523. ;    D = 14
  524.  
  525. ;    E = 10
  526.  
  527. ;    F = 6
  528.  
  529.     les    bx,DWORD PTR [bp+6]    ;F
  530.  
  531.     fld    DWORD PTR es:[bx]
  532.  
  533.     sub    sp,8
  534.  
  535.     mov    bx,sp
  536.  
  537.     fstp    QWORD PTR [bx]
  538.  
  539.     fwait    
  540.  
  541.     les    bx,DWORD PTR [bp+10]    ;E
  542.  
  543.     fld    DWORD PTR es:[bx]
  544.  
  545.     sub    sp,8
  546.  
  547.     mov    bx,sp
  548.  
  549.     fstp    QWORD PTR [bx]
  550.  
  551.     fwait    
  552.  
  553.     les    bx,DWORD PTR [bp+14]    ;D
  554.  
  555.     fld    DWORD PTR es:[bx]
  556.  
  557.     sub    sp,8
  558.  
  559.     mov    bx,sp
  560.  
  561.     fstp    QWORD PTR [bx]
  562.  
  563.     fwait    
  564.  
  565.     les    bx,DWORD PTR [bp+18]    ;C
  566.  
  567.     fld    DWORD PTR es:[bx]
  568.  
  569.     sub    sp,8
  570.  
  571.     mov    bx,sp
  572.  
  573.     fstp    QWORD PTR [bx]
  574.  
  575.     fwait    
  576.  
  577.     les    bx,DWORD PTR [bp+22]    ;B
  578.  
  579.     fld    DWORD PTR es:[bx]
  580.  
  581.     sub    sp,8
  582.  
  583.     mov    bx,sp
  584.  
  585.     fstp    QWORD PTR [bx]
  586.  
  587.     fwait    
  588.  
  589.     les    bx,DWORD PTR [bp+26]    ;A
  590.  
  591.     fld    DWORD PTR es:[bx]
  592.  
  593.     sub    sp,8
  594.  
  595.     mov    bx,sp
  596.  
  597.     fstp    QWORD PTR [bx]
  598.  
  599.     fwait    
  600.  
  601.     call    FAR PTR _ortho
  602.  
  603. ; Line 51
  604.  
  605.     mov    sp,bp
  606.  
  607.     pop    bp
  608.  
  609.     ret    24
  610.  
  611.  
  612.  
  613. ORTHO    ENDP
  614.  
  615. ; Line 54
  616.  
  617.     PUBLIC    ORTHO2
  618.  
  619. ORTHO2    PROC FAR
  620.  
  621.     push    bp
  622.  
  623.     mov    bp,sp
  624.  
  625. ;    C = 10
  626.  
  627. ;    D = 6
  628.  
  629. ;    A = 18
  630.  
  631. ;    B = 14
  632.  
  633.     les    bx,DWORD PTR [bp+6]    ;D
  634.  
  635.     fld    DWORD PTR es:[bx]
  636.  
  637.     sub    sp,8
  638.  
  639.     mov    bx,sp
  640.  
  641.     fstp    QWORD PTR [bx]
  642.  
  643.     fwait    
  644.  
  645.     les    bx,DWORD PTR [bp+10]    ;C
  646.  
  647.     fld    DWORD PTR es:[bx]
  648.  
  649.     sub    sp,8
  650.  
  651.     mov    bx,sp
  652.  
  653.     fstp    QWORD PTR [bx]
  654.  
  655.     fwait    
  656.  
  657.     les    bx,DWORD PTR [bp+14]    ;B
  658.  
  659.     fld    DWORD PTR es:[bx]
  660.  
  661.     sub    sp,8
  662.  
  663.     mov    bx,sp
  664.  
  665.     fstp    QWORD PTR [bx]
  666.  
  667.     fwait    
  668.  
  669.     les    bx,DWORD PTR [bp+18]    ;A
  670.  
  671.     fld    DWORD PTR es:[bx]
  672.  
  673.     sub    sp,8
  674.  
  675.     mov    bx,sp
  676.  
  677.     fstp    QWORD PTR [bx]
  678.  
  679.     fwait    
  680.  
  681.     call    FAR PTR _ortho2
  682.  
  683. ; Line 55
  684.  
  685.     mov    sp,bp
  686.  
  687.     pop    bp
  688.  
  689.     ret    16
  690.  
  691.  
  692.  
  693. ORTHO2    ENDP
  694.  
  695. FVIEWING_TEXT    ENDS
  696.  
  697. END
  698.  
  699.