Mercurial > hg > Members > kono > nitros9-code

view level2/modules/kernel/fclrblk.asm @ 1948:7010c08050b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Couldn't give yourself write permission to a file 'cause you didn't have write prmission, fixed.
author chrish
date Mon, 12 Dec 2005 03:13:04 +0000
parents 1da8ab9ba433
children 039ddb7c8ad7
line wrap: on
line source

**************************************************
* System Call: F$ClrBlk
*
* Function: Clear RAM blocks
*
* Input:  B = Number of blocks
*         U = Address of first block
*
* Output: None
*
* Error:  CC = C bit set; B = error code
*
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