Mercurial > hg > Members > kono > nitros9-code

changeset 1245:deb30e2667c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed W register usage for 6809 port
author boisy
date Tue, 12 Aug 2003 02:01:23 +0000
parents 9b74e4e23293
children c90c8b615f8c
files level2/modules/kernel/fmapblk.asm
diffstat 1 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/kernel/fmapblk.asm	Tue Aug 12 01:32:18 2003 +0000
+++ b/level2/modules/kernel/fmapblk.asm	Tue Aug 12 02:01:23 2003 +0000
@@ -6,9 +6,14 @@
          leas  -$10,s       make a buffer to hold DAT image
          ldx   R$X,u        get start block #
          ldb   #1           block increment value
+         IFNE  H6309
 * Change to W 05/19/93 - used W since one cycle faster per block
          tfr   s,w          point to buffer
 FMapBlk2 stx   ,w++         save block # to buffer
+         ELSE
+         tfr   s,y          point to buffer
+FMapBlk2 stx   ,y++         save block # to buffer
+         ENDC
          abx                Next block
          deca               done?
          bne   FMapBlk2     no, keep going
@@ -17,7 +22,11 @@
          leay  <P$DATImg,x  point to DAT image
          os9   F$FreeHB     find the highest free block offset
          bcs   L0BA6        no room, return error
+         IFNE  H6309
          tfr   d,w          Preserve start block # & # of blocks
+         ELSE
+         pshs  d
+         ENDC
          lsla               Multiply start block # by 32
          lsla  
          lsla  
@@ -25,7 +34,11 @@
          lsla  
          clrb  
          std   R$U,u        save address of first block
+         IFNE  H6309
          tfr   w,d          Restore offset
+         ELSE
+         puls  d
+         ENDC
          leau  ,s           move DAT image into process descriptor
          os9   F$SetImg     Change process dsc to reflect new blocks
 L0BA6    leas  <$10,s       Eat DAT image copy & return