Mercurial > hg > Members > kono > nitros9-code

comparison level2/modules/kernel/krn.asm @ 1258:1aae5bde55a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed bugs as per Rodney's suggestion
author boisy
date Sun, 17 Aug 2003 19:30:01 +0000
parents 411c88ed62f6
children 5955268ca3e5
comparison
equal deleted inserted replaced
1257:b6969b0ae23d 1258:1aae5bde55a0
56 R.Flip0 equ * 56 R.Flip0 equ *
57 IFNE H6309 57 IFNE H6309
58 aim #$FE,<D.TINIT map type 0 58 aim #$FE,<D.TINIT map type 0
59 lde <D.TINIT 'nother 2 bytes saved if GRFDRV does a 'tfr cc,e' 59 lde <D.TINIT 'nother 2 bytes saved if GRFDRV does a 'tfr cc,e'
60 ste >DAT.Task and we can use A here, instead of E 60 ste >DAT.Task and we can use A here, instead of E
61 clr <D.SSTskN
62 ELSE 61 ELSE
63 pshs a 62 pshs a
64 lda <D.TINIT 63 lda <D.TINIT
65 anda #$FE 64 anda #$FE
66 sta <D.TINIT 65 sta <D.TINIT
67 sta >DAT.Task 66 sta >DAT.Task
67 puls a
68 ENDC
68 clr <D.SSTskN 69 clr <D.SSTskN
69 puls a
70 ENDC
71 tfr x,s 70 tfr x,s
72 tfr a,cc 71 tfr a,cc
73 rts 72 rts
74 SubSiz equ *-SubStrt 73 SubSiz equ *-SubStrt
75 * Don't add any code here: See L0065, below. 74 * Don't add any code here: See L0065, below.