![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to intr.spp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Atari MiNT] / MiNT / src|
Return to intr.spp CVS log | Up to [Atari MiNT] / MiNT / src |
1.1 root 1: %include "magic.i"
2:
3: ;
4:
5: ; interrupt wrapping routines; these should just save registers and call
6:
7: ; the appropriate C handlers, unless speed is a major problem
8:
9: ;
10:
11: TEXT
12:
13: ;
14:
15: ; first, utilities for setting processor status level
16:
17: ;
18:
19: XDEF _spl7,_spl
20:
21: _spl7:
22:
23: move.w sr,d0
24:
25: ori.w #$0700,sr
26:
27: rts
28:
29: _spl:
30:
31: move.w 4(sp),d0
32:
33: move.w d0,sr
34:
35: rts
36:
37:
38:
39: XDEF _mint_5ms
40:
41: XDEF _mint_timer
42:
43: XDEF _mint_vbl
44:
45: XREF _timeout ; C time routine
46:
47: XREF _old_timer ; old GEMDOS time vector
48:
49: XREF _old_vbl ; old GEMDOS vbl vector
50:
51: XREF _old_5ms
52:
53: XREF _build_context
54:
55: XREF _restore_context
56:
57: XREF _proc_clock ; controls process' allocation of CPU time
58:
59: XREF _curproc
60:
61: XREF _enter_kernel
62:
63: XREF _leave_kernel
64:
65: XREF _preempt
66:
67: XREF _in_kernel
68:
69:
70:
71: ; AKP: this code is hit once every 5ms; it updates the time fields of curproc.
72:
73: _mint_5ms:
74:
75: move.l a0,-(sp)
76:
77: move.l _curproc,a0
78:
79: tst.w _in_kernel
80:
81: bne.s L_systime
82:
83: lea P_USRTIME(a0),a0 ; get offset to curproc->usrtime
84:
85: addq.l #5,(a0) ; update the time
86:
87: move.l (sp)+,a0
88:
89: move.l _old_5ms+8,-(sp) ; branch to old vector
90:
91: rts
92:
93: L_systime:
94:
95: lea P_SYSTIME(a0),a0 ; get offset to curproc->systime
96:
97: addq.l #5,(a0)
98:
99: move.l (sp)+,a0
100:
101: move.l _old_5ms+8,-(sp)
102:
103: rts
104:
105:
106:
107: _mint_timer:
108:
109: movem.l d0-d2/a0-a2,-(sp) ; save C registers
110:
111: jsr _timeout
112:
113: movem.l (sp)+,d0-d2/a0-a2
114:
115: move.l _old_timer+8,-(sp) ; jump to GEMDOS time vector
116:
117: rts
118:
119:
120:
121: _mint_vbl:
122:
123: tst.w ($59e).w ; test longframe (AKP)
124:
125: beq.s L_short1
126:
127: clr.w -(sp) ; yes, long frames: push a frame word
128:
129: L_short1:
130:
131: pea L_comeback ; push fake PC
132:
133: move.w sr,-(sp) ; push status register
134:
135: move.l _old_vbl+8,-(sp) ; go service the interrupt
136:
137: rts
138:
139:
140:
141: L_comeback:
142:
143: tst.w _proc_clock ; has time expired yet?
144:
145: beq.s L_expired ; yes -- maybe go switch processes
146:
147: L_out:
148:
149: rte ; no -- just return
150:
151:
152:
153: L_expired:
154:
155: btst #5,(sp) ; user mode?
156:
157: bne.s L_out ; no -- switching is not possible
158:
159: tst.w ($43e).w ; test floppy disk lock variable
160:
161: bne.s L_out ; if locked, can't switch
162:
163: tst.w _in_kernel ; are we doing a kernel operation?
164:
165: bne.s L_out
166:
167: L_switch:
168:
169: clr.w -(sp) ; no frame format needed
170:
171: move.l _curproc,-(sp)
172:
173: addq.l #4,(sp) ; to get &curproc->ctxt[SYSCALL]
174:
175: jsr _build_context ; build context
176:
177: move.l _curproc,a0
178:
179: move.l (a0),sp ; use curproc->sysstack
180:
181: jsr _enter_kernel ; enter kernel
182:
183: jsr _preempt ; yield processor
184:
185: ori.w #$700,sr ; spl7()
186:
187: jsr _leave_kernel ; restore vectors
188:
189: move.l _curproc,a0
190:
191: pea 4(a0)
192:
193: jsr _restore_context ; back to user
194:
195:
196:
197: ;
198:
199: ; reset routine -- called on a warm boot. Note that TOS sends the
200:
201: ; address to which we should return in register a6. Also note that
202:
203: ; the stack pointer is in an unknown state, so we set up our own
204:
205: ;
206:
207: XDEF _reset
208:
209: XREF _tmpstack ; see main.c
210:
211: XREF _restr_intr
212:
213:
214:
215: _reset:
216:
217: move.w #$2700,sr ; avoid interruption here
218:
219: move.l sp,_tmpstack ; save A7
220:
221: lea _tmpstack,sp ; set up temporary stack
222:
223: lea 256(sp),sp
224:
225: movem.l d0-d2/a0-a2,-(sp) ; save C registers
226:
227: jsr _restr_intr ; restore interrupts
228:
229: movem.l (sp)+,d0-d2/a0-a2 ; restore registers
230:
231: move.l _tmpstack,sp
232:
233: jmp (a6) ; reset again
234:
235:
236:
237: ;
238:
239: ; routine for doing a reboot
240:
241: ;
242:
243: XDEF _reboot
244:
245: _reboot:
246:
247: move.w #$2700,sr ; avoid interrupts
248:
249: move.l (0).w,sp ; get sp after reboot
250:
251: move.l (4).w,a6 ; get new reboot address
252:
253: jmp _reset
254:
255:
256:
257: ;
258:
259: ; routine for mouse packet handling
260:
261: ;
262:
263: XDEF _newmvec
264:
265: XDEF _newjvec
266:
267: XREF _mouse_handler
268:
269: ; Experimental three button mouse support (by [email protected],
270:
271: ; August 4, 1992
272:
273: ;
274:
275: ; Should work with the mice shipped with Atari's ASV or
276:
277: ; compatible ones (like Golden Image GI-6000). Might not work
278:
279: ; on ST/STE systems with older IKBD's or keyboards. The middle mouse
280:
281: ; button is wired to one of the joystick directions on joystick one.
282:
283: ;
284:
285: ; _newmvec is the same as before with two exceptions:
286:
287: ; 1. the first byte of the packet is saved for the joystick handler
288:
289: ; 2. the bit for the middle mouse button is ored in
290:
291: ;
292:
293: ; _newjvec hooks into the joystick vector and chains to the normal
294:
295: ; handler. The middle mouse button state is saved in a special
296:
297: ; register for _newmvec, and a 'fake' mouse packet is set up
298:
299: ; (by merging the last mouse packet header, or-ing in the
300:
301: ; middle button state and using 0/0 for the x/y increment).
302:
303: ;
304:
305: ; the faked_packet and third_button variables are declared at the
306:
307: ; end of this file
308:
309:
310:
311: _newmvec:
312:
313: move.l a0,-(sp)
314:
315: move.b (a0),d0
316:
317: move.b d0,faked_packet
318:
319: or.b third_button,d0
320:
321: move.b d0,(a0)
322:
323: jsr _mouse_handler
324:
325: move.l (sp)+,a0
326:
327: rts
328:
329: ;
330:
331: ; routine for joystick packet handling (used for three button mice)
332:
333: ;
334:
335: XDEF _newjvec
336:
337: XREF _oldjvec
338:
339:
340:
341: _newjvec:
342:
343: move.l a0,-(sp) ; save a0 on the stack
344:
345: move.b 2(a0),d0 ; joystick direction
346:
347: and.b #1,d0 ; middle mouse button in lowest bit
348:
349: add.b d0,d0 ; times 4
350:
351: add.b d0,d0
352:
353: move.b d0,third_button ; save it for use in newmvec
354:
355:
356:
357: lea faked_packet,a0 ; 'our' faked mouse event
358:
359: move.b (a0),d0
360:
361: and.b #$3,d0 ; unmask our mouse button
362:
363: or.b #$F8,d0 ; or in correct header
364:
365: or.b third_button,d0 ; or in the current status
366:
367: move.b d0,(a0) ; write it back
368:
369:
370:
371: move.l a0,-(sp) ; pass pointer to fake packet
372:
373: jsr _mouse_handler ; to \dev\mouse handler
374:
375: addq.l #4,sp ; pop parameter
376:
377: move.l (sp)+,a0 ; restore original a0 value
378:
379: move.l _oldjvec,-(sp) ; jump to original joystick handler
380:
381: rts
382:
383: ;
384:
385: ; new ikbd keyboard interrupt vector
386:
387: ; kintr is a global variable that should be non-zero if a keyboard
388:
389: ; event occured
390:
391: ;
392:
393: XDEF _new_ikbd
394:
395: XREF _old_ikbd
396:
397: XREF _kintr
398:
399:
400:
401: _new_ikbd:
402:
403: move.w #1,_kintr
404:
405: move.l _old_ikbd+8,-(sp)
406:
407: rts ; jump to system interrupt routine
408:
409:
410:
411: ;
412:
413: ; simple signal handlers
414:
415: ; global variables referenced:
416:
417: ; in_kernel: (main.c): flag to indicate that we're in the MiNT kernel
418:
419: ; sig_routine: (signal.c): pointer to which signal catching routine to
420:
421: ; call (e.g. for SIGBUS, or whatever)
422:
423: ;
424:
425: XDEF _new_bus,_new_addr,_new_ill,_new_divzero,_new_priv,_new_linef
426:
427: XDEF _new_trace,_new_chk,_new_trapv,_new_fpcp,_new_mmu,_new_pmmuacc
428:
429: XDEF _new_uninit,_new_spurious,_new_format,_new_cpv
430:
431: XREF _in_kernel,_sig_routine
432:
433: XREF _sigbus,_sigaddr,_sigill,_sigfpe,_sigpriv,_sigtrap
434:
435: XREF _haltformat,_haltcpv
436:
437: XREF _sig_exc
438:
439:
440:
441: _new_bus:
442:
443: move.w #$8,_sig_exc
444:
445: move.l #_sigbus,_sig_routine
446:
447: Do_sig:
448:
449: tst.w _in_kernel ; are we already in the kernel?
450:
451: bne.s Kernel ; yes
452:
453: move.w _sig_exc,-(sp)
454:
455: move.l _curproc,-(sp)
456:
457: addq.l #4,(sp) ; push offset of save area
458:
459: jsr _build_context
460:
461: move.l _curproc,a4
462:
463: move.l (a4),sp ; put us in the system stack
464:
465: jsr _enter_kernel ; set up kernel vectors
466:
467: move.l _sig_routine,a1 ; get signal handling routine
468:
469: jsr (a1) ; go do it
470:
471: ori.w #$0700,sr ; spl7()
472:
473: jsr _leave_kernel ; leave kernel
474:
475: addq.w #4,a4 ; get context save area address
476:
477: move.l a4,-(sp) ; push it
478:
479: jsr _restore_context ; restore the context
480:
481: ;
482:
483: ; here's what we do if we already were in the kernel
484:
485: ;
486:
487: Kernel:
488:
489: movem.l d0-d2/a0-a2,-(sp) ; save reggies
490:
491: move.l _sig_routine,a1 ; get handler
492:
493: jsr (a1) ; go do it
494:
495: movem.l (sp)+,d0-d2/a0-a2
496:
497: rte
498:
499: _new_addr:
500:
501: move.w #$c,_sig_exc
502:
503: move.l #_sigaddr,_sig_routine
504:
505: bra.s Do_sig
506:
507: _new_ill:
508:
509: move.w #$10,_sig_exc
510:
511: move.l #_sigill,_sig_routine
512:
513: bra.s Do_sig ; ASM pre-5.52.3 barfs on this :-(
514:
515: _new_divzero:
516:
517: move.w #$14,_sig_exc
518:
519: move.l #_sigfpe,_sig_routine
520:
521: bra Do_sig
522:
523: _new_linef:
524:
525: move.w #$2c,_sig_exc
526:
527: move.l #_sigill,_sig_routine
528:
529: bra Do_sig
530:
531: _new_chk:
532:
533: move.w #$18,_sig_exc
534:
535: move.l #_sigfpe,_sig_routine
536:
537: bra Do_sig
538:
539: _new_trapv:
540:
541: move.w #$1c,_sig_exc
542:
543: move.l #_sigfpe,_sig_routine
544:
545: bra Do_sig
546:
547: _new_fpcp:
548:
549: ; don't set _sig_exc - only needed for 68000 vectors
550:
551: move.l #_sigfpe,_sig_routine
552:
553: bra Do_sig
554:
555: _new_mmu:
556:
557: ; don't set _sig_exc - only needed for 68000 vectors
558:
559: move.l #_sigill,_sig_routine
560:
561: bra Do_sig
562:
563: _new_pmmuacc:
564:
565: ; don't set _sig_exc - only needed for 68000 vectors
566:
567: move.l #_sigbus,_sig_routine
568:
569: bra Do_sig
570:
571: _new_uninit:
572:
573: move.w #$3c,_sig_exc
574:
575: move.l #_sigbus,_sig_routine
576:
577: bra Do_sig
578:
579: _new_spurious:
580:
581: move.w #$60,_sig_exc
582:
583: move.l #_sigbus,_sig_routine
584:
585: bra Do_sig
586:
587: _new_format:
588:
589: move.l #_haltformat,_sig_routine
590:
591: bra Do_sig
592:
593: _new_cpv:
594:
595: move.l #_haltcpv,_sig_routine
596:
597: bra Do_sig
598:
599:
600:
601: XREF _old_priv ; old privilege violation vector
602:
603: _new_priv:
604:
605: move.w #$20,_sig_exc
606:
607: move.l #_sigpriv,_sig_routine
608:
609: tst.w ($59e).w ; 68000s always get SIGPRIV
610:
611: beq Do_sig
612:
613: movem.l d0/a0,-(a7)
614:
615: move.l 10(a7),a0 ; fetch exception address
616:
617: move.w (a0),d0
618:
619: and.w #$ffc0,d0 ; partially decode move sr,...
620:
621: cmp.w #$40c0,d0 ; and test it
622:
623: movem.l (a7)+,d0/a0 ; preserves the flags
624:
625: bne Do_sig ; doesn't look like sr,...
626:
627: move.l _old_priv+8,-(sp) ; let our parent handle it
628:
629: rts
630:
631:
632:
633: ; XBRA vectors from main.c
634:
635: XREF _old_dos,_old_bios,_old_xbios
636:
637: XREF _old_divzero,_old_chk,_old_trapv
638:
639:
640:
641: _new_trace:
642:
643: btst #5,(a7) ; only check when called from supervisor mode
644:
645: beq.s S_1
646:
647: cmp.l #_old_dos+12,2(a7) ; lets not trace the kernel !
648:
649: beq.s S_2
650:
651: cmp.l #_old_xbios+12,2(a7)
652:
653: beq.s S_2
654:
655: cmp.l #_old_bios+12,2(a7)
656:
657: beq.s S_2
658:
659: cmp.l #_old_divzero+12,2(a7)
660:
661: beq.s S_2
662:
663: cmp.l #_old_trapv+12,2(a7)
664:
665: beq.s S_2
666:
667: cmp.l #_old_chk+12,2(a7)
668:
669: beq.s S_2
670:
671: ; add any other non-traceable entities here...
672:
673:
674:
675: S_1: move.w #$24,_sig_exc
676:
677: move.l #_sigtrap,_sig_routine
678:
679: bra Do_sig
680:
681:
682:
683: S_2: and.w #$3fff,(a7) ; clear both trace bits
684:
685: rte ; and re-start the handler
686:
687:
688:
689: ;
690:
691: ; BIOS disk vectors for pseudo-disks like U: and X:; these are present
692:
693: ; just in case some program (foolishly) attempts to access these drives
694:
695: ; directly and gets horribly confused
696:
697: ;
698:
699: XREF _old_getbpb ; old Getbpb vector
700:
701: XREF _old_mediach ; old Mediach vector
702:
703: XREF _old_rwabs ; old Rwabs vector
704:
705: XREF _aliasdrv ; array of drive aliases
706:
707: XDEF _new_getbpb
708:
709: XDEF _new_mediach
710:
711: XDEF _new_rwabs
712:
713:
714:
715: _new_getbpb:
716:
717: move.w 4(sp),d0 ; check the drive
718:
719: move.w d0,d1 ; get index
720:
721: add.w d0,d1 ; convert to index
722:
723: lea _aliasdrv,a0
724:
725: move.w 0(a0,d1.w),d1 ; alias drive?
726:
727: beq.s noalias0
728:
729: move.w d1,d0
730:
731: subq.w #1,d0 ; adjust for aliasdrv base of '@'
732:
733: noalias0:
734:
735: cmp.w #$1f,d0 ; is this a legal drive?
736:
737: bhi.s nobpb ; no -- ignore it
738:
739: cmp.w #$14,d0 ; drive U:?
740:
741: beq.s nobpb ; yes, no BPB available
742:
743: move.l _old_getbpb+8,a0 ; not our drive
744:
745: jmp (a0) ; call the old vector for it
746:
747: nobpb:
748:
749: moveq.l #0,d0 ; 0 means "no BPB read"
750:
751: rts
752:
753:
754:
755: _new_mediach:
756:
757: move.w 4(sp),d0 ; check the drive
758:
759: move.w d0,d1 ; get index
760:
761: add.w d0,d1 ; convert to index
762:
763: lea _aliasdrv,a0
764:
765: move.w 0(a0,d1.w),d1 ; alias drive?
766:
767: beq.s noalias1
768:
769: move.w d1,d0
770:
771: subq.w #1,d0 ; adjust for aliasdrv base
772:
773: noalias1:
774:
775: cmp.w #$1f,d0 ; legal drive?
776:
777: bhi.s nobpb ; no -- ignore it
778:
779: cmp.w #$14,d0 ; drive U:?
780:
781: beq.s nochng ; yes, no change
782:
783: move.l _old_mediach+8,a0 ; not our drive
784:
785: jmp (a0) ; call the old vector for it
786:
787: nochng:
788:
789: moveq.l #0,d0 ; 0 means "definitely no change"
790:
791: rts
792:
793:
794:
795: _new_rwabs:
796:
797: move.w $e(sp),d0 ; check the drive
798:
799: move.w d0,d1 ; get index
800:
801: add.w d0,d1 ; convert to index
802:
803: lea _aliasdrv,a0
804:
805: move.w 0(a0,d1.w),d1 ; alias drive?
806:
807: beq.s noalias2
808:
809: move.w d1,d0
810:
811: subq.w #1,d0 ; adjust for aliasdrv base
812:
813: noalias2:
814:
815: cmp.w #$1f,d0 ; legal drive?
816:
817: bhi.s nobpb ; no -- ignore it
818:
819: cmp.w #$14,d0 ; drive U:?
820:
821: beq.s rwdone ; yes, fake it
822:
823: move.l _old_rwabs+8,a0 ; not our drive
824:
825: jmp (a0) ; call the old vector for it
826:
827: rwdone:
828:
829: moveq.l #0,d0 ; 0 means "successful operation"
830:
831: rts
832:
833:
834:
835: DATA
836:
837: ; buffer for faked mouse packet (actually only 3 bytes)
838:
839:
840:
841: faked_packet:
842:
843: dc.l 0
844:
845:
846:
847: ; here we store the additional button state
848:
849: third_button:
850:
851: dc.w 0
852:
853:
854:
855: END
856:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.