Mercurial > hg > Members > kono > os9 > sbc09

diff os9/level2/clock.asm @ 55:8d151f303bee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
FIRQ does not worked
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 23 Jul 2018 08:35:25 +0900
parents fc10b7ae23d0
children
line wrap: on
line diff
--- a/os9/level2/clock.asm	Sun Jul 22 19:41:06 2018 +0900
+++ b/os9/level2/clock.asm	Mon Jul 23 08:35:25 2018 +0900
@@ -18,6 +18,8 @@
          use   defsfile
          endc
 
+usefirq  equ 0
+
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
 rev      set   $01
@@ -38,7 +40,18 @@
          fcb   $80
 
 
-ClockIRQ ldx   #TimerPort
+       ifeq  usefirq-1
+ClockFIRQ 
+         leas  -1,s
+         pshs  d,dp,x,y
+         lda   8,s
+         ora   #$80       Entire flag
+         pshs  a
+         stu   8,s
+         jmp   [$FFF8]
+       endc
+ClockIRQ 
+         ldx   #TimerPort
          lda   ,x
          bita  #$10
          beq   L00AE
@@ -64,6 +77,10 @@
          orcc  #FIRQMask+IRQMask       mask ints
          leax  >ClockIRQ,pcr
          stx   <D.IRQ
+       ifeq usefirq-1
+         leax  >ClockFIRQ,pcr
+         stx   $FFF6     must be a RAM
+       endc
 * install system calls
          leay  >SysTbl,pcr
          os9   F$SSvc