changeset 1461:67a173d497d5

Added minor 6309 optimization
author boisy
date Fri, 12 Dec 2003 21:13:47 +0000
parents 2078e274b963
children 062d65d5c132
files level1/modules/clock.asm
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/clock.asm	Fri Dec 12 21:11:19 2003 +0000
+++ b/level1/modules/clock.asm	Fri Dec 12 21:13:47 2003 +0000
@@ -290,7 +290,7 @@
 
 NoClock  leax  DoPoll,pcr If not clock IRQ, just poll IRQ source
          IFNE  H6309     
-         oim              #$FF,<D.QIRQ    ---x set flag to NOT clock IRQ
+         oim   #$FF,<D.QIRQ    ---x set flag to NOT clock IRQ
          ELSE            
          lda   #$FF      
          sta   <D.QIRQ   
@@ -715,10 +715,13 @@
          leay  NewSvc,pcr insert syscalls
          os9   F$SSvc    
          IFGT  Level-1
-* H6309 optimization opportunity here using oim
+         IFNE  H6309
+         oim   #$08,<D.IRQER
+         ELSE
          lda   <D.IRQER   get shadow GIME IRQ enable register
          ora   #$08       set VBORD bit
          sta   <D.IRQER   save shadow register
+         ENDC
          sta   >IRQEnR    enable GIME VBORD IRQs
          ENDC