![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cart_asm.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [HATARI the Atari ST Emulator] / hatari / src|
Return to cart_asm.s CVS log | Up to [HATARI the Atari ST Emulator] / hatari / src |
1.1.1.4 root 1: ; Cartridge assembler code.
1.1.1.3 root 2: ; 68000 code that is used for starting programs from the emulated GEMDOS harddisk
1.1.1.4 root 3: ; and for using bigger VDI resolutions
1.1.1.3 root 4:
1.1.1.4 root 5: ; Hatari's "illegal" (free) opcodes:
6: GEMDOS_OPCODE equ 8
7: SYSINIT_OPCODE equ 10
8: VDI_OPCODE equ 12
1.1.1.3 root 9:
1.1.1.4 root 10: ; System variables:
11: _longframe equ $059E
1.1 root 12:
13:
1.1.1.4 root 14: org $fa0000
1.1.1.3 root 15:
1.1 root 16:
1.1.1.4 root 17: ; This is the cartridge header:
18: dc.l $ABCDEF42 ; C-FLAG (magic value)
19: dc.l $00000000 ; C-NEXT
20: dc.l sys_init+$08000000 ; C-INIT - flag has bit 3 set = before disk boot, but after GEMDOS init
21: dc.l infoprgstart ; C-RUN
22: dc.w %0101100000000000 ; C-TIME
23: dc.w %0011001000101001 ; C-DATE
24: dc.l infoprgend-infoprgstart ; C-BSIZ, offset: $14
25: dc.b 'HATARI.TOS',0,0 ; C-NAME
26:
27: .even
28:
29:
30: old_gemdos: ds.l 1 ; has to match the CART_OLDGEMDOS define!
31: vdi_opcode: dc.w VDI_OPCODE ; Address to call after Trap #2 (VDI), causes illegal instruction
32:
33: ; New GemDOS vector (0x84) - for intercepting Pexec
1.1.1.3 root 34: new_gemdos:
1.1 root 35: dc.w GEMDOS_OPCODE ; Returns NEG as run old vector, ZERO to return or OVERFLOW to run pexec
1.1.1.3 root 36: bvs.s pexec
37: bne.s go_oldgemdos
1.1 root 38: rte
39:
1.1.1.4 root 40: ; Branch to old GemDOS
1.1.1.3 root 41: go_oldgemdos:
1.1.1.4 root 42: move.l old_gemdos(pc),-(sp) ; Set PC to 'old_gemdos' and continue execution, WITHOUT corrupting registers!
1.1.1.3 root 43: rts
1.1 root 44:
1.1.1.4 root 45: ; Progam Execute
1.1.1.3 root 46: pexec:
1.1.1.4 root 47:
48: move usp,a0 ; Parameters on user stack pointer?
49: btst #5,(sp) ; Check if program was in user or supervisor mode
50: beq.s p_ok
51: lea 6(sp),a0 ; Parameters are on SSP
52: tst.w _longframe.w ; Do we use a CPU > 68000?
53: beq.s p_ok ; No: A0 is OK
54: addq #2,a0 ; Skip 2 additional stack frame bytes on CPUs >= 68010
55: p_ok:
56: addq #2,a0 ; Skip GEMDOS function number
1.1.1.3 root 57: tst (a0) ; Test pexec mode
1.1 root 58: bne.s no_0
1.1.1.3 root 59:
60: ; Simulate pexec mode 0
1.1 root 61: move.l a6,-(sp)
62: move.l a0,a6
63: move.l a6,-(sp) ;new
1.1.1.3 root 64: bsr.s find_prog
1.1 root 65: move.l (sp)+,a6 ;new
66: bsr pexec5
67: bsr reloc
68: clr.l 2(a6)
69: clr.l 10(a6)
70: move.l d0,6(a6)
1.1.1.3 root 71:
72: move.w #48,-(sp) ; Sversion: get GEMDOS version
73: trap #1 ; call GEMDOS
74: addq #2,sp
75: ror.w #8,d0 ; Major version to high, minor version to low byte
76: cmp.w #$0015,d0
77: bge.s use_gemdos_015
78: move.w #4,(a6) ; pexec mode 4 for exec. prepared program
79: bra.s mode0_ok
80: use_gemdos_015:
81: move.w #6,(a6) ; On GEMDOS 0.15 and higher, we can use mode 6
82: mode0_ok:
83:
1.1 root 84: move.l (sp)+,a6
1.1.1.3 root 85: bra.s go_oldgemdos
86:
1.1 root 87: no_0:
88: cmp #3,(a0)
89: bne.s go_oldgemdos
1.1.1.3 root 90:
91: ; Simulate pexec mode 3
1.1 root 92: move.l a6,-(sp)
93: move.l a0,a6
1.1.1.3 root 94: bsr.s find_prog
95: bsr.s pexec5
96: bsr.s reloc
1.1 root 97: gohome:
98: move.l (sp)+,a6
99: rte
1.1.1.3 root 100:
1.1 root 101: find_prog:
1.1.1.3 root 102: move #$2f,-(sp) ; Fgetdta
1.1.1.2 root 103: trap #1 ; Gemdos
1.1 root 104: addq #2,sp
105: move.l d0,a0
106: move.l (a0)+,-(sp)
107: move.l (a0)+,-(sp)
108: move.l (a0)+,-(sp)
109: move.l (a0)+,-(sp)
110: move.l (a0)+,-(sp)
111: move.l (a0)+,-(sp)
112: move.l (a0)+,-(sp)
113: move.l (a0)+,-(sp)
114: move.l (a0)+,-(sp)
115: move.l (a0)+,-(sp)
116: move.l (a0)+,-(sp)
117: move.l a0,-(sp)
118: move #$17,-(sp)
119: move.l 2(a6),-(sp)
1.1.1.3 root 120: move #$4e,-(sp) ; Fsfirst
1.1.1.2 root 121: trap #1 ; Gemdos
1.1 root 122: addq #8,sp
123: move.l (sp)+,a0
124: move.l (sp)+,-(a0)
125: move.l (sp)+,-(a0)
126: move.l (sp)+,-(a0)
127: move.l (sp)+,-(a0)
128: move.l (sp)+,-(a0)
129: move.l (sp)+,-(a0)
130: move.l (sp)+,-(a0)
131: move.l (sp)+,-(a0)
132: move.l (sp)+,-(a0)
133: move.l (sp)+,-(a0)
134: move.l (sp)+,-(a0)
135: tst.l d0
136: beq.s findprog_ok
137: addq #4,sp
138: bra.s gohome
139: findprog_ok:
140: rts
1.1.1.3 root 141:
1.1 root 142: pexec5:
143: move.l 10(a6),-(sp)
144: move.l 6(a6),-(sp)
145: clr.l -(sp)
146: move #5,-(sp)
1.1.1.3 root 147: move #$4b,-(sp) ; Pexec
1.1.1.2 root 148: trap #1 ; Gemdos
1.1 root 149: lea 16(sp),sp
150: tst.l d0
151: bmi.s pexecerr
152: rts
153: pexecerr:
154: addq #4,sp
155: bra.s gohome
1.1.1.3 root 156:
1.1 root 157: reloc:
158: movem.l a3-a5/d6-d7,-(sp)
159: move.l d0,a5
160: clr -(sp)
161: move.l 2(a6),-(sp)
1.1.1.3 root 162: move #$3d,-(sp) ; Fopen
1.1.1.2 root 163: trap #1 ; Gemdos
1.1 root 164: addq #8,sp
165: move.l d0,d6
166: move.l a5,-(sp)
167: add.l #228,(sp)
168: pea $1c.w
169: move d6,-(sp)
1.1.1.3 root 170: move #$3f,-(sp) ; Fread
1.1.1.2 root 171: trap #1 ; Gemdos
1.1 root 172: lea 12(sp),sp
173: ; check size!!
174: move.l a5,-(sp)
175: add.l #256,(sp)
176: pea $7fffffff
177: move d6,-(sp)
1.1.1.3 root 178: move #$3f,-(sp) ; Fread
1.1.1.2 root 179: trap #1 ; Gemdos
1.1 root 180: lea 12(sp),sp
181: move d6,-(sp)
1.1.1.3 root 182: move #$3e,-(sp) ; Fclose
1.1.1.2 root 183: trap #1 ; Gemdos
1.1 root 184: addq #4,sp
185: lea 8(a5),a4
186: move.l a5,d0
187: add.l #$100,d0
188: move.l d0,(a4)+ ; text start
189: move.l 230(a5),d0
190: move.l d0,(a4)+ ; text length
191: add.l 8(a5),d0 ; data start
192: move.l d0,(a4)+
193: move.l 234(a5),(a4)+ ; data length
194: add.l 234(a5),d0
195: move.l d0,(a4)+ ; bss start
196: move.l 238(a5),(a4)+ ; bss length
197: move.l a5,d0
198: add.l #$80,d0
199: move.l d0,32(a5)
200: move.l 24(a5),a4
201: add.l 242(a5),a4 ; symbol table length
202: move.l 8(a5),a3
203: move.l a3,d0
204: tst.w 254(a5)
205: bne.s relocdone
1.1.1.2 root 206:
1.1.1.3 root 207: ; Get first offset of the relocation table. Since A4 seems sometimes not
208: ; to be word aligned (if symbol table length is uneven), we have to read
209: ; byte by byte...
210: move.b (a4),d7
211: clr.b (a4)+
212: lsl.w #8,d7
213: move.b (a4),d7
214: clr.b (a4)+
215: swap d7
216: move.b (a4),d7
217: clr.b (a4)+
218: lsl.w #8,d7
219: move.b (a4),d7
220: clr.b (a4)+
221:
222: tst.l d7
1.1 root 223: beq.s relocdone
1.1.1.2 root 224: adda.l d7,a3
1.1.1.3 root 225: moveq #0,d7
226: relloop0:
227: add.l d0,(a3)
228: relloop:
229: move.b (a4),d7
230: move.b #$00,(a4)+ ; Some programs like GFA-Basic expect a clear memory
231: tst.b d7
232: beq.s relocdone
233: cmp.b #1,d7
234: bne.s no254
235: lea 254(a3),a3
236: bra.s relloop
237: no254:
238: adda.w d7,a3
239: bra.s relloop0
1.1.1.2 root 240:
1.1 root 241: relocdone:
242: move.l 28(a5),d0
243: beq.s cleardone
244: move.l 24(a5),a0
245: clear:
246: clr.b (a0)+
247: subq.l #1,d0
248: bne.s clear
249: cleardone:
250: move.l a5,d0
251: movem.l (sp)+,a3-a5/d6-d7
252: rts
1.1.1.4 root 253:
254:
255:
256: ; This code is called during TOS' boot sequence.
257: ; It gets a pointer to the Line-A variables and uses an illegal opcode
258: ; to run our system initialization code in OpCode_SysInit().
259: sys_init:
260: dc.w $A000 ; Line-A init (needed for VDI resolutions)
261: dc.w SYSINIT_OPCODE ; Illegal opcode to call OpCode_SysInit()
262: rts
263:
264:
265:
266: ; This code is run when the user starts the HATARI.PRG
267: ; in the cartridge. It simply displays some information text.
268: infoprgstart:
269: pea hatarix32(pc)
270: move.w #32,-(sp)
271: trap #14 ; Dosound - play some music :-)
272: addq.l #6,sp
273:
274: pea infotext(pc)
275: move.w #9,-(sp)
276: trap #1 ; Cconws - display the information text
277: addq.l #6,sp
278:
279: move.w #7,-(sp)
280: trap #1 ; Crawcin - wait for a key
281: addq.l #2,sp
282:
283: clr.w -(sp)
284: trap #1 ; Pterm0
285:
286:
287: infotext:
288: dc.b 27,'E',13,10
289: dc.b ' =========================',13,10
290: dc.b ' Hatari keyboard shortcuts',13,10
291: dc.b ' =========================',13,10
292: dc.b 13,10
293: dc.b ' F11 : toggle fullscreen/windowed mode',13,10
294: dc.b ' F12 : activate the setup GUI of Hatari',13,10
295: dc.b 13,10
296: dc.b 'All other shortcuts are activated by',13,10
297: dc.b 'pressing AltGr or Right-Alt or Meta key',13,10
298: dc.b 'together with one of the following keys:',13,10
299: dc.b 13,10
300: dc.b ' a : Record animation',13,10
301: dc.b ' g : Grab a screenshot',13,10
302: dc.b ' i : Leave full screen & iconify window',13,10
303: dc.b ' j : joystick via key joystick on/off',13,10
304: dc.b ' m : mouse grab',13,10
305: dc.b ' r : warm reset of the ST',13,10
306: dc.b ' c : cold reset of the ST',13,10
307: dc.b ' s : enable/disable sound',13,10
308: dc.b ' q : quit the emulator',13,10
309: dc.b ' x : toggle normal/max speed',13,10
310: dc.b ' y : enable/disable sound recording',13,10
311: dc.b 0
312:
313:
314: hatarix32:
1.1.1.5 ! root 315: ibytes 'cart_mus.x32'
1.1.1.4 root 316:
317:
318: infoprgend:
319:
320: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.