|
7
|
1 ********************************************************************
|
|
|
2 * Clock - OS-9 Level One V2 Clock module
|
|
|
3 *
|
|
|
4 * $Id: clock.asm,v 1.1.1.1 2001/02/21 23:30:52 boisy Exp $
|
|
|
5 *
|
|
|
6 * NOTE: This clock is TOTALLY VALID for ALL DATES between 1900-2155
|
|
|
7 *
|
|
|
8 * Ed. Comments Who YY/MM/DD
|
|
|
9 * ------------------------------------------------------------------
|
|
|
10 * 5 Tandy/Microware original version
|
|
|
11 * 6 Modified to handle leap years properly for BGP 99/05/03
|
|
|
12 * 1900 and 2100 A.D.
|
|
|
13
|
|
|
14 nam Clock
|
|
|
15 ttl OS-9 Level One V2 Clock module
|
|
|
16
|
|
|
17 ifp1
|
|
11
|
18 use defsfile
|
|
7
|
19 endc
|
|
|
20
|
|
|
21 tylg set Systm+Objct
|
|
|
22 atrv set ReEnt+rev
|
|
|
23 rev set $01
|
|
|
24 edition set $06
|
|
53
|
25 TimerPort set $ffb0
|
|
7
|
26
|
|
|
27 mod eom,name,tylg,atrv,ClkEnt,size
|
|
|
28
|
|
|
29 size equ .
|
|
|
30
|
|
|
31 name fcs /Clock/
|
|
|
32 fcb edition
|
|
|
33
|
|
|
34 SysTbl fcb F$Time
|
|
|
35 fdb FTime-*-2
|
|
53
|
36 fcb F$STime
|
|
|
37 fdb FSTime-*-2
|
|
7
|
38 fcb $80
|
|
|
39
|
|
|
40
|
|
53
|
41 ClockIRQ ldx #TimerPort
|
|
|
42 lda ,x
|
|
|
43 bita #$10
|
|
|
44 beq L00AE
|
|
54
|
45 L00AE leax ClockIRQ1,pcr
|
|
|
46 stx <D.SvcIRQ
|
|
|
47 jmp [D.XIRQ] Chain through Kernel to continue IRQ handling
|
|
|
48 ClockIRQ1
|
|
|
49 inc <D.Sec go up one second
|
|
|
50 lda <D.Sec grab current second
|
|
|
51 cmpa #60 End of minute?
|
|
|
52 blo VIRQend No, skip time update and alarm check
|
|
|
53 clr <D.Sec Reset second count to zero
|
|
|
54 VIRQend
|
|
|
55 ldx #TimerPort
|
|
53
|
56 lda #$8f
|
|
|
57 sta >TimerPort
|
|
54
|
58 jmp [>D.Clock]
|
|
|
59
|
|
|
60 TkPerTS equ 2
|
|
7
|
61
|
|
|
62 ClkEnt equ *
|
|
|
63 pshs cc
|
|
|
64 orcc #FIRQMask+IRQMask mask ints
|
|
|
65 leax >ClockIRQ,pcr
|
|
|
66 stx <D.IRQ
|
|
|
67 * install system calls
|
|
|
68 leay >SysTbl,pcr
|
|
|
69 os9 F$SSvc
|
|
54
|
70 ldd #59*256+TkPerTS last second and time slice in minute
|
|
|
71 std <D.Sec Will prompt RTC read at next time slice
|
|
|
72 stb <D.TSlice set ticks per time slice
|
|
|
73 stb <D.Slice set first time slice
|
|
|
74 lda #TkPerSec Reset to start of second
|
|
|
75 sta <D.Tick
|
|
|
76
|
|
7
|
77 ldx #TimerPort
|
|
|
78 ldb #$8f start timer
|
|
|
79 stb ,x
|
|
|
80 puls pc,cc
|
|
|
81
|
|
|
82 * F$Time system call code
|
|
53
|
83 FTime ldx #TimerPort
|
|
7
|
84 ldb #$04
|
|
53
|
85 stb ,x
|
|
|
86 leax 1,x Address of system time packet
|
|
|
87 RetTime ldy <D.Proc Get pointer to current proc descriptor
|
|
|
88 ldb P$Task,y Process Task number
|
|
|
89 lda <D.SysTsk From System Task
|
|
|
90 ldu R$X,u
|
|
|
91 STime.Mv ldy #6 Move 6 bytes
|
|
|
92 FMove os9 F$Move
|
|
|
93 rts
|
|
|
94
|
|
|
95 FSTime clrb
|
|
7
|
96 rts
|
|
|
97
|
|
|
98 emod
|
|
|
99 eom equ *
|
|
|
100 end
|
