Mercurial > hg > Members > kono > nitros9-code

changeset 986:aebfc8992bfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Factored out what appears to be Level III code... was causing ERROR 207's under OS-9 Level Two
author boisy
date Mon, 17 Feb 2003 20:37:01 +0000
parents 274cc2d4421d
children 30f5cce9eb76
files level2/modules/ioman.asm
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/ioman.asm	Sun Feb 16 18:53:58 2003 +0000
+++ b/level2/modules/ioman.asm	Mon Feb 17 20:37:01 2003 +0000
@@ -421,7 +421,8 @@
          bhi   Loop2     
          ENDC            
          ldd   HWPG,s     get hwpage and upper addr
-*         IFNE  H6309
+* Code here appears to be for Level III?
+         IFNE  NitrOS9
          bsr   L01D1     
          std   <DATBYT2,s     save off
          ldu   #$0000    
@@ -460,7 +461,7 @@
 L023F    ldd   HWPORT,s  
          anda  #$1F      
          addd  <DATBYT1,s    
-*         ENDC
+         ENDC
          ldu   VSTAT,s    load U with static storage of drvr
          clr   ,u         clear ??
          std   $01,u     
@@ -550,7 +551,8 @@
          os9   F$SRtMem  	return mem
          ldx   $01,s      	get old U on stack
          ldx   V$DESC,x  
-*         IFNE  H6309
+* Code here appears to be for Level III?
+         IFNE  NitrOS9
          ldd   M$Port,x  
          beq   L032B     
          lbsr  L01D1     
@@ -621,7 +623,7 @@
          ora   #ImgChg   
          sta   P$State,x 
          ENDC            
-*         ENDC
+         ENDC
 L032B    puls  u,b       
          ldx   V$DESC,u     	get descriptor in X
          clr   V$DESC,u     	clear out descriptor