home *** CD-ROM | disk | FTP | other *** search
- ; Static Name Aliases
-
- ;
-
- TITLE fmove.for
-
- NAME fmove
-
-
-
- .8087
-
- FMOVE_TEXT SEGMENT BYTE PUBLIC 'CODE'
-
- FMOVE_TEXT ENDS
-
- _DATA SEGMENT WORD PUBLIC 'DATA'
-
- _DATA ENDS
-
- CONST SEGMENT WORD PUBLIC 'CONST'
-
- CONST ENDS
-
- _BSS SEGMENT WORD PUBLIC 'BSS'
-
- _BSS ENDS
-
- DGROUP GROUP CONST, _BSS, _DATA
-
- ASSUME CS: FMOVE_TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
-
- EXTRN __acrtused:ABS
-
- EXTRN _move:FAR
-
- EXTRN _move2:FAR
-
- EXTRN _rmove:FAR
-
- EXTRN _rmove2:FAR
-
- EXTRN _smove2:FAR
-
- EXTRN _rsmove2:FAR
-
- FMOVE_TEXT SEGMENT
-
- ; Line 26
-
- PUBLIC MOVE
-
- MOVE PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 14
-
- ; Y = 10
-
- ; Z = 6
-
- les bx,DWORD PTR [bp+6] ;Z
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- les bx,DWORD PTR [bp+10] ;Y
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- les bx,DWORD PTR [bp+14] ;X
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- call FAR PTR _move
-
- ; Line 27
-
- mov sp,bp
-
- pop bp
-
- ret 12
-
-
-
- MOVE ENDP
-
- ; Line 30
-
- PUBLIC MOVE2
-
- MOVE2 PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 10
-
- ; Y = 6
-
- les bx,DWORD PTR [bp+6] ;Y
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- les bx,DWORD PTR [bp+10] ;X
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- call FAR PTR _move2
-
- ; Line 31
-
- mov sp,bp
-
- pop bp
-
- ret 8
-
-
-
- MOVE2 ENDP
-
- ; Line 34
-
- PUBLIC RMOVE
-
- RMOVE PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 14
-
- ; Y = 10
-
- ; Z = 6
-
- les bx,DWORD PTR [bp+6] ;Z
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- les bx,DWORD PTR [bp+10] ;Y
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- les bx,DWORD PTR [bp+14] ;X
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- call FAR PTR _rmove
-
- ; Line 35
-
- mov sp,bp
-
- pop bp
-
- ret 12
-
-
-
- RMOVE ENDP
-
- ; Line 38
-
- PUBLIC RMOVE2
-
- RMOVE2 PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 10
-
- ; Y = 6
-
- les bx,DWORD PTR [bp+6] ;Y
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- les bx,DWORD PTR [bp+10] ;X
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- call FAR PTR _rmove2
-
- ; Line 39
-
- mov sp,bp
-
- pop bp
-
- ret 8
-
-
-
- RMOVE2 ENDP
-
- ; Line 42
-
- PUBLIC SMOVE2
-
- SMOVE2 PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 10
-
- ; Y = 6
-
- les bx,DWORD PTR [bp+6] ;Y
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- les bx,DWORD PTR [bp+10] ;X
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- call FAR PTR _smove2
-
- ; Line 43
-
- mov sp,bp
-
- pop bp
-
- ret 8
-
-
-
- SMOVE2 ENDP
-
- ; Line 46
-
- PUBLIC RSMOVE2
-
- RSMOVE2 PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 10
-
- ; Y = 6
-
- les bx,DWORD PTR [bp+6] ;Y
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- les bx,DWORD PTR [bp+10] ;X
-
- fld DWORD PTR es:[bx]
-
- sub sp,8
-
- mov bx,sp
-
- fstp QWORD PTR [bx]
-
- fwait
-
- call FAR PTR _rsmove2
-
- ; Line 47
-
- mov sp,bp
-
- pop bp
-
- ret 8
-
-
-
- RSMOVE2 ENDP
-
- FMOVE_TEXT ENDS
-
- END
-
-