Mercurial > hg > Members > kono > nitros9-code
changeset 1052:6404be5d6368
Tiny source improvements
| author | boisy |
|---|---|
| date | Thu, 20 Mar 2003 13:41:42 +0000 |
| parents | ede9419dc8ce |
| children | b5ff125a1d60 |
| files | 3rdparty/packages/sierra/objs/mnln.asm |
| diffstat | 1 files changed, 11 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/3rdparty/packages/sierra/objs/mnln.asm Thu Mar 20 09:39:00 2003 +0000 +++ b/3rdparty/packages/sierra/objs/mnln.asm Thu Mar 20 13:41:42 2003 +0000 @@ -3664,13 +3664,13 @@ lbsr L4734 rts -L211D fcc 'toc' +tOC fcc 'toc' fcb C$NULL -L2121 fcc 'words.tok' +WordsTok fcc 'words.tok' fcb C$NULL -L212B fcc 'object' +Object fcc 'object' fcb C$NULL @@ -3691,7 +3691,7 @@ lbsr L45BA lbsr L5BAD lbsr L1294 - leau >L211D,pcr "toc" + leau >tOC,pcr ldd #$0000 pshs b,a ldd #$0089 @@ -3712,7 +3712,7 @@ std ,u++ leax -$01,x bne L217F - leau >L2121,pcr "words.tok" + leau >WordsTok,pcr ldd #$01AB pshs b,a ldd #$01A9 @@ -3741,7 +3741,7 @@ rts L21CC leas -$01,s - leau >L212B,pcr object + leau >Object,pcr ldx <u0038 beq L21DA leax -$03,x @@ -9424,9 +9424,10 @@ sta >$FF03 lda >$FF23 sta >L4F6A,pcr data byte - ora #$08 - sta >$FF23 - rts + ora #$08 enable sound flag + sta >$FF23 tell hardware to do it + rts + L5265 lda >L4F68,pcr data byte sta >$FF01 lda >L4F69,pcr data byte @@ -11091,4 +11092,4 @@ emod eom equ * - + end