]> pd.if.org Git - mmurtl/blob - ossource/loader.asm
autocommit for file dated 1995-02-09 16:00:32
[mmurtl] / ossource / loader.asm
1 ;=============================================================================\r
2 ;\r
3 ; MMURTL IMAGE LOADER code:\r
4 ;       Clears interrupts\r
5 ;       Turn ON A20 adress line gate\r
6 ;   Moves the OS data to 00000000 physical.\r
7 ;       Moves the OS Code to 00010000 physical (64K Boundary)\r
8 ;   Jumps to the OS Code entry point.\r
9 ; (This basically turns MS-DOS into a $79.00 loader)\r
10 ;\r
11 ;\r
12 ; We define the GDT and IDT entries in MOS.gdt and MOS.idt.\r
13 ;\r
14 ; NOTE: This the last the processor sees of 16 bit real mode code\r
15 ;   (no great loss at all)\r
16 ;\r
17 ;=============================================================================\r
18 \r
19 LoadSeg        SEGMENT USE16\r
20                 ASSUME CS:LoadSeg, DS:Nothing, ES:Nothing, SS:Nothing\r
21 \r
22 IDTptr      DW 7FFh                 ;LIMIT 256 IDT Slots\r
23                         DD 0000h                ;BASE (Linear)\r
24 \r
25 GDTptr      DW (nGDTSlots*8)-1      ;LIMIT 768 GDT Slots\r
26                         DD 0800h                ;BASE (Linear)\r
27 \r
28 \r
29 OSCodeSize      EQU OSCodeEnd-OSCodeBegin\r
30 OSCodeMore  EQU OSCodeSize - 10000h\r
31 OSDataSize      EQU OSDataEnd-OSDataBegin\r
32 \r
33 \r
34 \r
35 START:  CLI                     ; first we clear interrupts\r
36 \r
37 ; Note: this next few lines of code turns on the address line 20 Gate!\r
38 ; This must be done before we can physically address above 1 Meg!\r
39 \r
40                 XOR CX,CX                       ;check 64K times\r
41 IBEmm0:\r
42                 IN AL,64h                       ;Read Status Byte into AL\r
43                 TEST AL,02h                             ;Test The Input Buffer Full Bit\r
44                 LOOPNZ IBEmm0\r
45                 MOV AL,0D1h\r
46                 OUT 64h,AL\r
47                 XOR CX,CX                               ;check 64K times\r
48 IBEmm1:\r
49                 IN AL,64h                               ;Read Status Byte into AL\r
50                 TEST AL,02h                             ;Test The Input Buffer Full Bit\r
51                 LOOPNZ IBEmm1\r
52                 MOV AL,0DFh\r
53                 OUT 60h,AL\r
54                 XOR CX,CX                               ;check 64K times\r
55 IBEmm2:\r
56                 IN AL,64h                               ;Read Status Byte into AL\r
57                 TEST AL,02h                             ;Test The Input Buffer Full Bit\r
58                 LOOPNZ IBEmm2\r
59 \r
60 ; Move OS data to Physical Address 0000h\r
61 \r
62                 MOV AX,SEG OSDSeg               ; Move Data segment to 0000h\r
63                 MOV DS,AX               ;\r
64                 XOR SI,SI               ; Source DS:SI\r
65                 MOV AX,0000h            ;\r
66                 MOV ES,AX               ;\r
67                 XOR DI,DI               ; Destination ES:DI\r
68                 MOV ECX, OSDataSize+3   ;\r
69                 CLD                     ;\r
70                 REP MOVSB               ;\r
71 \r
72 ; Move OS Code to Physical Address 20000h (in 32K chunks)\r
73 \r
74                 MOV AX,SEG OSCSeg               ; Move OS Code to 10000h\r
75                 ADD AX, 1000h                   ; 10000h bytes into DOS segment\r
76                 MOV DS,AX               ;\r
77                 XOR SI, SI                              ; Source DS:SI\r
78                 MOV AX,1000h            ; Segment 1000h (address 10000h)\r
79                 MOV ES,AX               ;\r
80                 XOR DI,DI               ; Destination ES:DI\r
81                 MOV CX,8000h                    ; 64K Max (CODE is > 64K)\r
82                 CLD                     ;\r
83                 REP MOVSB                               ;\r
84 \r
85                 MOV AX,SEG OSCSeg               ; Move OS Code to 10000h\r
86                 ADD AX, 1800h                   ; 10000h bytes into DOS segment\r
87                 MOV DS,AX               ;\r
88                 XOR SI, SI                              ; Source DS:SI\r
89                 MOV AX,1800h            ; Segment 1800h (address 18000h)\r
90                 MOV ES,AX               ;\r
91                 XOR DI,DI               ; Destination ES:DI\r
92                 MOV CX,8000h                    ; 64K Max (CODE is > 64K)\r
93                 CLD                     ;\r
94                 REP MOVSB                               ;\r
95 \r
96                 MOV AX,SEG OSCSeg               ; Move OS Code to 10000h\r
97                 ADD AX, 2000h                   ;\r
98                 MOV DS,AX               ;\r
99                 XOR SI, SI                              ; Source DS:SI\r
100                 MOV AX,2000h            ; Segment 1000h (address 10000h)\r
101                 MOV ES,AX               ;\r
102                 XOR DI,DI               ; Destination ES:DI\r
103                 MOV CX, OSCodeMore+4;\r
104                 CLD                     ;\r
105                 REP MOVSB                               ;\r
106 \r
107                 LIDT CS:FWORD PTR IDTptr ; Load IDTR\r
108                 LGDT CS:FWORD PTR GDTptr ; Load GDTR\r
109 \r
110                 MOV EAX,CR0             ; Set Protected Mode BIT\r
111                 OR AL,1                 ;\r
112                 MOV CR0,EAX             ;\r
113 \r
114                 JMP Next                ; Clear Instruction Prefetch Queue\r
115 Next:\r
116         MOV BX,DataSel                  ; Setup Data Selectors\r
117                 MOV DS,BX               ; D Selector\r
118                 MOV ES,BX               ; E Selector\r
119                 MOV FS,BX               ; F Selector\r
120                 MOV GS,BX               ; G Selector\r
121                 MOV SS,BX               ; S Selector\r
122 ;\r
123 ; PROTECTED MODE FAR JUMP TO 8:Offset OS code\r
124 ;\r
125                 DB 066h                 ; 32 bit Data prefix\r
126                 DB 067h                 ; 32 bit Address instruction prefix\r
127                 DB 0EAh                 ; far jump opcode\r
128                 DD OFFSET OSInitBegin   ; 32 bit Offset   ( Code Offset )\r
129                 DW OSCodeSel            ; 16 bit Selector ( Code Selector )\r
130 \r
131 LoadSeg        ENDS\r
132 \r
133                 END START\r