Mercurial > hg > Members > kono > nitros9-code

view level2/modules/kernel/fclrblk.asm @ 1254:5bced1e03639

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed to new naming convention
author boisy
date Sun, 17 Aug 2003 16:25:29 +0000
parents ca83286ded5b
children 1da8ab9ba433
line wrap: on
line source

* F$ClrBlk entry point
FClrBlk  ldb   R$B,u
         beq   L0BE9
         ldd   R$U,u
         tstb  
         bne   L0BAA
         bita  #$1F
         bne   L0BAA
         ldx   <D.Proc
         lda   P$SP,x
         anda  #$E0
         suba  R$U,u
         bcs   L0BCE
         lsra  
         lsra  
         lsra  
         lsra  
         lsra  
         cmpa  R$B,u
         bcs   L0BAA
L0BCE    
         IFNE  H6309
         oim   #ImgChg,P$State,x
         ELSE
         lda   P$State,x
         ora   #ImgChg
         sta   P$State,x
         ENDC
         lda   R$U,u
         lsra  
         lsra  
         lsra  
         lsra  
         leay  P$DATImg,x
         leay  a,y
         ldb   R$B,u
         ldx   #DAT.Free
L0BE4    stx   ,y++
         decb  
         bne   L0BE4
L0BE9    clrb  
         rts