Mercurial > hg > Members > kono > nitros9-code

changeset 2412:72df4930cc52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor source change
author boisy
date Mon, 25 Jan 2010 23:00:48 +0000
parents 3a11dd07df84
children 995cb7733a8d
files 3rdparty/packages/os9l2bbs/cmds/Menu.asm
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/os9l2bbs/cmds/Menu.asm	Mon Jan 25 01:47:26 2010 +0000
+++ b/3rdparty/packages/os9l2bbs/cmds/Menu.asm	Mon Jan 25 23:00:48 2010 +0000
@@ -25,7 +25,7 @@
 u0011    rmb   2
 userid   rmb   2
 u0015    rmb   4
-u0019    rmb   4
+userent  rmb   4
 u001D    rmb   1
 u001E    rmb   1
 u001F    rmb   1
@@ -132,15 +132,15 @@
          os9   I$Open   
          lbcs  L027C
          sta   ,u
-L01D3    leax  <u0019,u
-         ldy   #32
-         lda   ,u
-         os9   I$Read   
-         bcs   L01EC
-         ldd   <userid,u
-         cmpd  <u0019,u
-         bne   L01D3
-         bra   L01F4
+L01D3    leax  <userent,u	point to buffer
+         ldy   #32			read userstat entry
+         lda   ,u			get path to file
+         os9   I$Read   	read userstat entry
+         bcs   L01EC		branch if error
+         ldd   <userid,u	get this process user ID
+         cmpd  <userent,u	same as entry?
+         bne   L01D3		if not, get next entry
+         bra   L01F4		else we have a match
 L01EC    lda   ,u
          os9   I$Close  
          lbra  L027C
@@ -263,7 +263,7 @@
          lbcs  L0594
          sta   u0001,u
          leax  >u0EC5,u
-         ldy   #$0FA0
+         ldy   #4000
          lda   u0001,u
          os9   I$Read   
          sty   <u0015,u