Mercurial > hg > Members > kono > nitros9-code
changeset 343:b32293fc84f2
init.asm: added extra space
windint.asm: fixed so now it assembles to original Level 2 Upgrade version
| author | boisy |
|---|---|
| date | Wed, 24 Jul 2002 19:12:18 +0000 |
| parents | 56297204e8da |
| children | d111309b0f11 |
| files | level2/modules/init.asm level2/modules/windint.asm |
| diffstat | 2 files changed, 11 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/level2/modules/init.asm Wed Jul 24 19:11:24 2002 +0000 +++ b/level2/modules/init.asm Wed Jul 24 19:12:18 2002 +0000 @@ -37,9 +37,13 @@ fcb OS9Vrsn OS version fcb OS9Major OS major revision fcb OS9Minor OS minor revision - fcb $00 compatibility flag #1 + fcb $00 feature byte #1 + fcb $00 feature byte #2 + fcb 0,0,0,0,0,0,0,0 reserved + * CC3IO section fcb Monitor monitor type + fcb 0 mouse info fcb $1E key repeat start constant fcb $03 key repeat delay constant
--- a/level2/modules/windint.asm Wed Jul 24 19:11:24 2002 +0000 +++ b/level2/modules/windint.asm Wed Jul 24 19:12:18 2002 +0000 @@ -11,8 +11,10 @@ ttl CoCo 3 Graphics interface module ifp1 - use defsfile +Level equ 2 + use os9defs use scfdefs + use systype endc rev set $01 @@ -611,7 +613,7 @@ clra lda d,x get # parameters bmi L0333 blank, exit with error - sta parmcnt,u + sta <parmcnt,u pshs x abx lda 3,x get callcode # @@ -619,7 +621,7 @@ ldd 1,x get vector puls x restore table pointer leax d,x point to routine - tst parmcnt,u still processing parameters? + tst <parmcnt,u still processing parameters? bne L038B yes, go jmp ,x execute it @@ -634,7 +636,7 @@ ldb #$3A get grfdrv code for Alpha put bra L03C5 L0385 leax <L0390,pcr -L0388 sta parmcnt,u save parameter count +L0388 sta <parmcnt,u save parameter count L038B stx parmvct,u save processing vector clra clear carry rts return