Mercurial > hg > Members > kono > nitros9-code

changeset 674:c5374bfd3cc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Wrapping it up...
author boisy
date Fri, 27 Dec 2002 04:20:29 +0000
parents 88c06b213368
children 17b663443c7d
files 3rdparty/packages/basic09/runb.asm
diffstat 1 files changed, 13 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/basic09/runb.asm	Fri Dec 27 04:14:27 2002 +0000
+++ b/3rdparty/packages/basic09/runb.asm	Fri Dec 27 04:20:29 2002 +0000
@@ -4604,11 +4604,19 @@
 L22A1    fcb   $0e
          fdb   $1214,$a2bb,$40e6,$2d36,$1962
          fcb   $e9
-RND      fcb   $4f
-         fdb   $5fdd
-L22b0    fdb   $4cdd,$4e34,$02a6,$2227,$16e6,$25c5,$0126,$0463
-L22c0    fdb   $e420
-         fcb   $0c
+
+RND      clra
+         clrb
+         std   <u004C
+         std   <u004E
+         pshs  a
+         lda   $02,y
+         beq   L22CF
+         ldb   $05,y
+         bitb  #$01
+         bne   L22C3
+         com   ,s
+         bra   L22CF
 
 L22C3    addb  #$FE
          addb  $01,y