summaryrefslogtreecommitdiff
path: root/system/shard-x86-at/7/src/PCSYS.ASM
blob: 6ae6b0a09f0d4e40475350fe1169b43e6aadb1ef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
;**************************************************************************
;*======= Copyright (C) 1985,86 Martin Schoenbeck, Spenge ================*
;*                                                                        *
;*   PC spezifische, deviceunabhaengige routinen                          *
;*                                                                        *
;************************************************************************** 

limit:
        mov dx,0FFFh
        push ax
        push cx
        int 12h      ;Speichergroesse abholen
        mov cl,6h
        shl ax,cl
        dec ax
        mov dx,ax
        mov ax,cs
        sub dx,ax                        ;must be relativ to cs
        pop cx
        pop ax
        ret

paragraphs:
        mov dx,0FFFh
        push ax
        push cx
        int 12h      ;Speichergroesse abholen
        mov cl,6h
        shl ax,cl
        dec ax
        mov dx,ax
        pop cx
        pop ax
        ret
 

;**************************************************************************
timerint equ 08*4
timercont equ 018h*4	;resident basic ist ueberfluessig
timer_init:
     mov ax,0
     mov es,ax
     mov bx,word ptr es:[timerint+2]
     mov word ptr es:[timercont+2],bx
     mov bx,word ptr es:[timerint]
     mov word ptr es:[timercont],bx
     mov word ptr es:[timerint+2],cs
     mov word ptr es:[timerint],offset timer_tick
     ret
; 
timer_tick:
     int 18h 
     push ax
     push ds
     push cs                  ;ds := cs
     pop ds
   sti
     call checkkey            ;keybord abfragen
   if pcd
     mov al,50
   else
     mov al,55                ;ungefaehr 55 millisekunden
   endif
   cli
     call timerinterrupt
     inc tickcount
     cmp tickcount,1000/55    ;schon eine sekunde um
     jnc sec_tick
     pop ds
     pop ax
     iret
;
;**************************************************************************
;*
;*   Die Initialisierung der einzelnen Kanaele kann in der Zelle sec_entry
;*   eine Routine eintragen, die im Sekundentack (ungefaehr) aufgerufen
;*   werden soll. Diese Routine muss dann die vorher dort eingetragene 
;*   Routine aufrufen. Ebenfalls kann ein di und si registerinhalt
;*   eingetragen werden, der beim aufruf gegeben sein soll. Dann ist dafuer
;*   Sorge zu tragen, dass die nachfolgenden Routine den jeweils vorher
;*   dort eingetragenen Wert erhaelt. Alle Register ausser di, si und !!ds!!
;*   duerfen beliebig zerstoert werden.
;*   ds ist immer auf das datensegment (momentan = cs) gesetzt.
sec_tick:
     mov tickcount,0          ;wieder vorn anfangen zu zaehlen
     push si
     push di
     push bp
     push bx
     push cx
     push dx
     push es
     mov di,word ptr sec_di
     mov si,word ptr sec_si
     jmp word ptr sec_entry
sec_cont:
     pop es
     pop dx
     pop cx
     pop bx
     pop bp
     pop di
     pop si
     pop ds
     pop ax
     iret

sec_entry dw offset sec_cont
sec_di    dw 0                ;hier koennen routinen das di und das si
sec_si    dw 0                ;ablegen, mit dem sie aufgerufen werden wollen

tickcount db 0

;****************************************************************************
;* neuen bootvorgang einleiten
reboot:
   if hdsystem
     mov ax,0401h             ;sector verify
     mov cx,1                 ;spur 0, sector 1
     mov dx,80h               ;drive 0, head 0
     int 13h
   endif
     mov ax,40h
     mov ds,ax                ;auf datensegment
     mov word ptr ds:[0072h],1234h ;reset flag
     db 0eah                  ;jmp 0ffffh:0
     dw 0 
     dw 0ffffh