~ubuntu-branches/ubuntu/intrepid/mit-scheme/intrepid-updates

« back to all changes in this revision

Viewing changes to src/microcode/ntasutl.asm

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

src/microcode/ntasutl.asm

 

1

;;; -*-Midas-*-

 

2

;;;

 

3

;;; $Id: ntasutl.asm,v 1.6 1999/01/02 06:11:34 cph Exp $

 

4

;;;

 

5

;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology

 

6

;;;

 

7

;;; This program is free software; you can redistribute it and/or

 

8

;;; modify it under the terms of the GNU General Public License as

 

9

;;; published by the Free Software Foundation; either version 2 of the

 

10

;;; License, or (at your option) any later version.

 

11

;;;

 

12

;;; This program is distributed in the hope that it will be useful,

 

13

;;; but WITHOUT ANY WARRANTY; without even the implied warranty of

 

14

;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 

15

;;; General Public License for more details.

 

16

;;;

 

17

;;; You should have received a copy of the GNU General Public License

 

18

;;; along with this program; if not, write to the Free Software

 

19

;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

 

20

;;;

 

21

 

 

22

.386

 

23

.model flat

 

24

        .code

 

25

 

 

26

        public  _getCS

 

27

_getCS:

 

28

        xor     eax,eax                 ; clear eax

 

29

        mov     ax,cs                   ; copy code segment descriptor

 

30

        ret

 

31

 

 

32

        public  _getDS

 

33

_getDS:

 

34

        xor     eax,eax                 ; clear eax

 

35

        mov     ax,ds                   ; copy code segment descriptor

 

36

        ret

 

37

 

 

38

        public  _getSS

 

39

_getSS:

 

40

        xor     eax,eax                 ; clear eax

 

41

        mov     ax,ss                   ; copy code segment descriptor

 

42

        ret

 

43

end

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1