home *** CD-ROM | disk | FTP | other *** search
- ; Static Name Aliases
-
- ;
-
- TITLE fgetgp.for
-
- NAME fgetgp
-
-
-
- .8087
-
- FGETGP_TEXT SEGMENT BYTE PUBLIC 'CODE'
-
- FGETGP_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: FGETGP_TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
-
- EXTRN __acrtused:ABS
-
- EXTRN _getgp:FAR
-
- EXTRN _getgp2:FAR
-
- EXTRN _sgetgp2:FAR
-
- FGETGP_TEXT SEGMENT
-
- ; Line 15
-
- PUBLIC GETGP
-
- GETGP PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 14
-
- ; Y = 10
-
- ; Z = 6
-
- push WORD PTR [bp+8]
-
- push WORD PTR [bp+6] ;Z
-
- push WORD PTR [bp+12]
-
- push WORD PTR [bp+10] ;Y
-
- push WORD PTR [bp+16]
-
- push WORD PTR [bp+14] ;X
-
- call FAR PTR _getgp
-
- ; Line 16
-
- mov sp,bp
-
- pop bp
-
- ret 12
-
-
-
- GETGP ENDP
-
- ; Line 19
-
- PUBLIC GETGP2
-
- GETGP2 PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 10
-
- ; Y = 6
-
- push WORD PTR [bp+8]
-
- push WORD PTR [bp+6] ;Y
-
- push WORD PTR [bp+12]
-
- push WORD PTR [bp+10] ;X
-
- call FAR PTR _getgp2
-
- ; Line 20
-
- mov sp,bp
-
- pop bp
-
- ret 8
-
-
-
- GETGP2 ENDP
-
- ; Line 23
-
- PUBLIC SGETGP2
-
- SGETGP2 PROC FAR
-
- push bp
-
- mov bp,sp
-
- ; X = 10
-
- ; Y = 6
-
- push WORD PTR [bp+8]
-
- push WORD PTR [bp+6] ;Y
-
- push WORD PTR [bp+12]
-
- push WORD PTR [bp+10] ;X
-
- call FAR PTR _sgetgp2
-
- ; Line 24
-
- mov sp,bp
-
- pop bp
-
- ret 8
-
-
-
- SGETGP2 ENDP
-
- FGETGP_TEXT ENDS
-
- END
-
-