Mercurial > hg > Members > kono > nitros9-code

view level2/modules/kernel/fclrblk.asm @ 3195:6eb2edad80d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
L2: Introduce symbol KrnBlk to define kernel block number This is the block number that the kernel is loaded into. This is platform-specific, a function of the behaviour of the platform MMU/DAT. CRCs are unaffected by this change.
author Neal Crook <foofoobedoo@gmail.com>
date Thu, 01 Jun 2017 22:13:49 +0100
parents 039ddb7c8ad7
children
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