ࡱ> q`dbjbjqPqP;::W^^^^^^^rV7V7V7V77r<=88888m9.99 <!<!<!<!<!<!<$2>h@`E<^9m9m999E<^^88<9999^8^8<99<99^^988 dV799: =0<=9@9@9@^9`9999E<E<9999<=9999rrr2V7rrrV7rrr^^^^^^  . %#/ @0:B8:0 @01>BK A ?5@8D5@89=K< ?@>F5AA>@>< #& @5645 G5< ?@>3@0<<0 1C45B @01>B0BL 2 # , 55 =C6=> BC40 703@C78BL. 0AA:07 >1 MB>9 >?5@0F88 =0G=5< A <0AA820 ?0@0<5B@>2 (40;55  ), D>@<0B :>B>@>3> ?@82545= =0 ?5@2>9 @0A?5G0B:5. MASSIV: .Byte 0 ; MB>< 109B5 1C45B A>45@60BLAO :>4 >H81:8 8;8 0 COMAND: .Byte 0 ;><0=40 (01-+", /",, 02-!", /",, 10-'", 20-!,, 30-#!) TYPDEV: .Word 32 ;#AB@>9AB2> - ?5@8D5@89=K9 ?@>F5AA>@ ADR$PP: .Word 0 ;4@5A 2 #  ADR$CP: .Word 0 ;4@5A 2 # & LENGTH: .Word 0 ;;8=0 ?@>3@0<<K 2 A;>20E (=5 109B0E!) ADRMAS: .Word MASSIV ;!;>2> 2A5340 A>45@68B =0G0;L=K9 04@5A <0AA820 ?0@0<5B@>2 .Word 401 ;!B>?>2K9 M;5<5=B (8A?>;L7C5BAO ?@8 ?5@540G5) ZAGR: .Enable LSB MOV #ADRMAS,R0 ;4@5A  2 R0 MOV #5,R1 BR 1$ ;5@540BL G5BK@5 109B0 2$: MOVB (R0)+,@#176676 ;(?>;5 ADRMAS 8 A;>2>, A>45@60I55 401) 1$: TSTB @#176674 BPL .-4 SOB R1,2$ RTS PC ;5@=CBLAO ><0=4K K45;8BL ?0<OBL, A2>1>48BL ?0<OBL, 'B5=85, 0?8AL, CA:. ;O ?@028;L=>3> 2K?>;=5=8O :><0=4K K45;8BL ?0<OBL ?>;5 COMAND  4>;6=> A>45@60BL :>4 01, TYPDEV  :>4 32, a LENGTH  4;8=C 703@C605<>9 ?@>3@0<<K. =0G5=8O >AB0;L=KE ?>;59 83=>@8@CNBAO. >A;5 ?5@5AK;:8  2 ?>;5 ADR$PP  2>72@0I05B 04@5A, =0G8=0O A :>B>@>3> ?>A;5 :><0=4K !, 8 1C45B @07<5I5=0 ?5@5AK;05<0O ?@>3@0<<0. @8 ?>2B>@=>< 70?@>A5 2K45;5=85 ?0<OB8 ?@>872>48BAO 87 >AB02H59AO A2>1>4=>9. A;8 @07<5@ ?@>3@0<<K ?@52>AE>48B @07<5@ A2>1>4=>9 ?0<OB8 2 , B> 2 ?>;5 LENGTH 2>72@0I05BAO 4;8=0 A2>1>4=>9 ?0<OB8, 0 ?>;5 MASSIV =5 1C45B @02=> =C;N. ;O :><0=4K A2>1>48BL ?0<OBL ?>;O ADR$PP 8 LENGTH 4>;6=K A>45@60BL B5 65 ?0@0<5B@K, :>B>@K5 704020;8AL ?@8 2K45;5=88 40==>3> A53<5=B0, 8=0G5 :><0=40 =5 1C45B 2K?>;=5=0, 0 2 ?>;5 MASSIV 1C45B 2>72@0I5=> =5=C;52>5 7=0G5=85. ;O :><0=4K 'B5=85 (0?8AL) ?>;5 ADR$CP A>45@68B 04@5A # &, >B:C40 (:C40) 1C45B ?5@5AK;0BLAO ?@>3@0<<0. ;O :><0=4K CA: ADR$PP A>45@68B AB0@B>2K9 04@5A ?@>3@0<<K. !0<0 ?@>3@0<<0 4>;6=0 1KBL >D>@<;5=0 :0: ?>4?@>3@0<<0 (70:0=G820BLAO RTS PC) 8 1KBL ?5@5<5I05<>9, B0: :0: <5AB> 55 @07<5I5=8O 70@0=55 =58725AB=>. 0 @0A?5G0B:5 2 ?@82545=0 ?>4?@>3@0<<0 703@C7:8  2 . ZAGPP: .Enable LSB MOVB #1,COMAND ;B@01>B0BL :><0=4C "+", /"," MOV (R5),OCP ;'5@57 R5 ?5@5405BAO B01;8G:0 87 CALL ZAGR ;42CE A;>2. 1-5  4;8=0 ?@>3@0<<K, 2-5 - 55 =0G0;L=K9 04@5A 2 # & TSTB MASSIV ;A ?0<OB8 E20B8B? BEQ 1$ ;0 MOV #NOMEM,R0 ;K2545< A>>1I5=85 >1 >H81:5 EMT 351 ;"5 E20B05B ?0<OB8" CMP (R5)+,(R5)+ ;#25;8G8< R5 =0 G5BK@5 SEC ;#AB0=>28< ?@87=0: >H81:8 BR 2$ ; =0 2KE>4 1$: MOVB #20, COMAND ;B@01>B0BL "!," MOV (R5)+,LENGTH ;7 B01;8G:8 1-5 A;>2> 2 LENGTH, MOV (R5)+,ADR$CP ;2-5 2 ADR$CP CALL ZAGR MOVB #30,COMAND ;B@01>B0BL "#!" CALL ZAGR MOVB #2,COMAND ;B@01>B0BL "!", /"," MOV -4(R5),ADR$CP CALL ZAGR 2$: RTS R5 ;5@=CBLAO =0 ?5@5405B ?> :0=0;C 2 04@5A <0AA820 ?0@0<5B@>2 8 420 109B0 7025@H5=8O ?5@540G8, =>@<0;87CNI85 A>AB>O=85 :0=0;0. 0 @0A?5G0B:5 3 ?@82545=0 ?>;=0O ?>4?@>3@0<<0 703@C7:8 ?@>3@0<<K, 55 ?CA:0 8 ?>A;54CNI53> >A2>1>645=8O ?0<OB8  ?> >:>=G0=88 @01>BK. .MACRO $ZAGPP STADR,ENDADR JSR R5,ZAGPP .WORD <ENDADR-STADR/2>,STADR .ENDM $ZAGPP $>@<0B 2K7>20 ?>4?@>3@0<<K ?@82545= =0 @0A?5G0B:5 4. .TITLE MYPROG START: $ZAGPP STARTPP,ENDPP ;03@C78BL ?@>3@0<<C EMT 350 ;KE>4 2 <>=8B>@ ;45AL =0E>4OBAO ?>4?@>3@0<<K, A>>1I5=8O 8 <0AA82 ?0@0<5B@>2 STARTPP: INC (PC)+ ;-BC ?@>3@0<<C <>6=> 70<5=8BL ;N1>9 4@C3>9 .WORD 0 ;---*---*---*---*---*-- RTS PC ;5@=CBLAO 2 & ENDPP: .END START  2>B ?>;=>ABLN 70:>=G5==0O ?@>3@0<<0. !----- ! |0000|0000|0000|0000||0000|0000|0000|0000| 15;.65;B.D8>;.:@0A=.18@N7.75;.3>;C1.G5@=. B0:, ?@>3@0<<0 2  703@C65=0. 01>B0 A @538AB@0<8 2=5H=8E CAB@>9AB2 =5 >B;8G05BAO >B >1KG=>9. 4@5A=>5 ?@>AB@0=AB2> #  8<55B 480?07>= 0 77777, #   100000 177777, B. 5. 32 109B # 8 32 109B #.  (:0: 8 &) 8<55B A2>9 ?C;LB>2K9 >B;04G8:, >1;53G0NI89 >B;04:C ?@>3@0<< (2E>4 2 =53> >ACI5AB2;O5BAO 87 <5=N CAB0=>2>: >4=>2@5<5==K< =060B85< :;028H #  8 @). 01>B0BL A =8< =C6=> B0: 65, :0: 8 A ?C;LB>2K< >B;04G8:>< &. A=>2=>5 2=8<0=85 <K C45;8< 4>?>;=8B5;L=K< 2>7<>6=>ABO<, :>B>@K5 <>3CB 1KBL 8A?>;L7>20=K B>;L:> ?@8 ?><>I8 . 0G=5< A> A@54AB2 >B>1@065=8O. ;O =0G0;0 ?>I5;:05< ?0;8B@>9.  #& ;N1>9 F25B, 2K2>48<K9 =0 M:@0=, <>6=> ?@54AB028BL ;N1K< 4@C38< (?><5=OBL <5AB0<8 :@0A=K9 8 75;5=K9, D8>;5B>2K9 8 18@N7>2K9 8 B. 4.). >?CAB8<, 2K ?><5=O;8 A8=89 =0 15;K9. "5?5@L 2A5, GB> 2K 70?8H8B5 2 3>;C1>9 ?;0=, =0 M:@0=5 ?>O28BAO 15;K< F25B><, ?@8G5< 5A;8 :0:0O-;81> 4@C30O ?@>3@0<<0 =5 87<5=8B 7=0G5=8O A>>B25BAB2CNI59 OG59:8 ?0<OB8, B> 4065 ?>A;5 2KE>40 2 <>=8B>@ 2A5, GB> 4>;6=> 1K;> 1K >B>1@060BLAO =0 M:@0=5 3>;C1K<, 1C45B >B>1@060BLAO 15;K<, 2:;NG0O 3@0D8G5A:CN 8=D>@<0F8N. 0<5=0 F25B>2 ?@>8AE>48B >G5=L 1KAB@> (?@0:B8G5A:8 <3=>25==>), =0 MB>< <>6=> ?>AB@>8BL 8=B5@5A=K5 MDD5:BK. $>@<0B OG55: C?@02;5=8O 0??0@0B=K< >B>1@065=85< ?@82545= =0 @8AC=:5 (B0:8E ?0@ A;>2 G5BK@5, 8E ?>;=><>G8O ?@82545=K 2 B01;. 1). 064K9 87 F25B>2 ?@54AB02;5= G5BK@L<O 18B0<8. 09BK :064>9 87 B5B@04 >7=0G0NB (A;520 =0?@02>): O@:>ABL F25B0 (1  100 % O@:>AB8, 0  50%); :@0A=K9 F25B (1  :@0A=K9 5ABL, 0  =5B); 75;5=K9 F25B (1  5ABL, 0  =5B); 3>;C1>9 F25B (1  5ABL, 0  =5B). MOV #2470,R0 ;4@5A ?0;8B@K M:@0=0 2 R0 MOV (R0),-(SP) ;0?><=8BL 2 AB5:5 B5:CI55 7=0G5=85 MOV 2(R0),-(SP) ;?0;8B@K CLR (R0) ;K:;NG8BL M:@0= CLR 2(R0) ;(2A5 F25B0 =0 M:@0=5 ?@54AB028BL G5@=K<) MOV #100000,@#177010 MOV #30.,R1 2$: MOV #20.,R2 1$: MOVB #377,@#177012 ;0@8A>20BL :204@0B INC @#177010 SOB R2,1$ ADD #<80.-20.>,@#177010 SOB R1,2$ MOV #1,R1 ;")5;:05<" ?0;8B@C. 3$: MOV R1,R3 .REPT 4 ;'5BK@5 @070 ASL R3 ASL R3 .ENDR BIC #360,(R0) BIS R3,(R0) ;204@0B >B>1@0605BAO CLR R2 ;F25B0<8 >B 3>;C1>3> 4> 15;>3> SOB R2,. ;<-7045@6:0 SOB R2,. ;<-7045@6:0 INC R1 CMP #8.,R1 BNE 3$ MOV (SP)+,2(R0) ;>72@0I05< ?@54K4CI85 7=0G5=8O MOV (SP)+,(R0) ;OG59:0< RTS PC ;>72@0B 0 <0H8=0E ;8B5@K 5 702>40 20=B 87 AE5<K :>=B@>;;5@0 F25B=>3> <>=8B>@0 C40;5=0 ! 1559, ?>MB><C O@:>AB=K9 18B =5 >:07K205B 2;8O=8O =0 87>1@065=85; =0 ?>GB8 ?>;>28=5 <0H8= 702>40 !- ! 1559 70<5=5=0 =0 ! 1552, ?>MB><C 2 O@:>AB=K9 18B 4;O ?>;CG5=8O 100 % O@:>AB8 =C6=> 70?8A0BL 0, 0 4;O 50 %  1. A5 MB> A?@0254;82> B>;L:> 4;O F25B=>3> <>=8B>@0, =0 >B>1@065=85 3@040F89 O@:>AB8 =0 G5@=>-15;>< <>=8B>@5 O@:>AB=K9 18B =5 2;8O5B. B<5B8< B0:65, GB> 2 =0G0;5 1991 3. 87<5=5=0 AE5<0 ?>4:;NG5=8O F25B=>3> <>=8B>@0 (?><5=O;8AL <5AB0<8 2KE>4K :@0A=>3> 8 75;5=>3> F25B>2). "01;8F0 1 4@5A>=0, C?@02;O5<0O A>>B25BAB2CNI8<8 OG59:0<82400 2470 4700 67505@E=OO A;C651=0O AB@>:0 !>1AB25==> A0< M:@0= 5=N CAB0=>2>: 86=OO A;C651=0O AB@>:0@82545< ?@>3@0<<C 4;O , 2K?>;=ONICN A;54CNI55: M:@0= 2K:;NG05BAO, =0 =5< (=52848<>) @8AC5BAO 3>;C1>9 :204@0B; M:@0= 2:;NG05BAO (:204@0B ?>O2;O5BAO); 70B5< F25B :204@0B0 =0G8=05B <5=OBLAO >B 3>;C1>3> 4> 15;>3>. MOV PC,R0 ADD #SOOB-.,R0 ;KG8A;8BL 04@5A A>>1I5=8O MOV R0,AMT MOV PC,R0 ADD #SOOB1-.,R0 ;To 65 MOV R0,AMT1 MOV #135230,@#2400 ; 07@5H8BL 2K2>4 =0 M:@0= 2A5E F25B>2 MOV #177334,@#2402 ;4;O 25@E=59 A;C651=>9 AB@>:8 MOV #135230,@#6750 ;"> 65 A45;0BL 8 4;O =86=59 MOV #177334,@#6752 MOV #1,@#22614 ;&25B A8<2>;>2 2 25@E=59 AB@>:5  3>;C1>9 MOV #3,@#23106 ;&25B A8<2>;>2 2 =86=59 AB@>:5  18@N7>2K9 MOV #63146,@#22620 ;&25B 7=0:><5AB0 2 25@E=59 AB@>:5  65;BK9 MOV #52525,@#22622 MOV #52525,@#23112 ;&25B 7=0:><5AB0 2 =86=59 AB@>:5  D8>;5B>2K9 MOV #42104,@#23114 MOV #67,@#2372 ;5@E=OO AB@>:0 2 D>@<0B5 4 (10X24) MOV #47,@#6742 ;86=OO AB@>:0 2 D>@<0B5 3 (20%24) " 52 ;K25AB8 A>>1I5=85 2 25@E=NN AB@>:C ": .WORD 0 ;45AL =0E>48BAO 04@5A A>>1I5=8O " 56 ;K25AB8 A>>1I5=85 2 =86=NN AB@>:C "1: .WORD 0 ;45AL =0E>48BAO 04@5A 2B>@>3> A>>1I5=8O RTS PC ;>72@0B 2 & SOOB: .ASCIZ <40.>/""%"/ SOOB1: .ASCIZ <40.>"  !"/" " .EVEN @8 2K2>45 8=D>@<0F88 2 A;C651=K5 AB@>:8 <>6=> <5=OBL D>@<0B 8 F25B0 A8<2>;0 8 7=0:><5AB0, ?@8G5< F25B0 <5=ONBAO 42C<O A?>A>10<8. 5@2K9  =5?>A@54AB25==>5 87<5=5=85 F25B>2 A8<2>;0 8 7=0:><5AB0, 2B>@>9  G5@57 87<5=5=85 ?0;8B@K F25B>2 2K2>40. @8<5@ ?@>3@0<<K A 87<5=5=85< F25B>2 A8<2>;0 8 7=0:><5AB0. MOV PC,R0 ;KG8A;8BL 04@5A A>>1I5=8O ADD #SOOB-.,R0 MOV R0,AMT MOV PC,R0 ;"> 65 ADD #SOOB1-.,R0 MOV R0,AMT1 EMT 52 ;K25AB8 ""%" 2 25@E=NN AB@>:C ": .WORD 0 ;45AL 04@5A A>>1I5=8O " 56 ;K25AB8 " !"/"" 2 =86=NN AB@>:C "1: .WORD 0 ;45AL 04@5A 2B>@>3> A>>1I5=8O MOV #67,@#2372 ;$>@<0B 25@E=59 AB@>:8 - 4 (10X24) MOV #47,@#6742 ;$>@<0B =86=59 AB@>:8 - 3 (20X24) MOV #135236,@#2400 ;;O 25@E=59 AB@>:8 ?@54AB02;O5< 65;BK9 F25B MOV #174734,@#2402 ;3>;C1K<, 0 G5@=K9 65;BK< MOV #135235,@#6750 ;;O =86=59 AB@>:8 ?@54AB02;O5< 65;BK9 F25B MOV #175734,@#6752 ;18@N7>2K<, 0 G5@=K9 D8>;5B>2K< RTS PC ;>72@0B SOOB: .ASCIZ <40.>/""%"/ SOOB1: .ASCIZ <40.>"  !"/" " .EVEN /G59:8 A 04@5A0<8 2400, 2402 (6750, 6752) >B25G0NB 70 ?0;8B@C 2K2>40 4;O 25@E=59 (=86=59) A;C651=>9 AB@>:8. E D>@<0B 1K; >?8A0= 2KH5.  OG59:0E 22614, 23106 E@0=8BAO F25B A8<2>;0 2 D>@<0B5 (0  G5@=K9, 1  3>;C1>9, 2  75;5=K9, ... , 7  15;K9), 0 2 OG59:0E 23112, 23114  F25B 7=0:><5AB0 2 D>@<0B5 @538AB@0 :>40 F25B0 D>=0 (177020, 177022) (MB>B D>@<0B 1C45B @0AA<>B@5= =865).  8AE>4=>< A>AB>O=88 (?>A;5 2:;NG5=8O ?8B0=8O) 3>;C1>9 ?;0= 4;O 2K2>40 2 A;C651=K5 AB@>:8 701;>:8@>20=. @8<5@ ?@>3@0<<K A 87<5=5=85< ?0;8B@K 2K2>40. 4 3 2 1 - =><5@ B>G:8 2 >:B5B5 177020: 0000!0000!0000!0000 RGB RGB RGB RGB - :@0A=K9, 75;5=K9, 3>;C1>9 ?;0=K 8 7 6 5 !B0@H89 18B 177024: 0000!0000!0000!0000 :064>9 B5B@04K RGB RGB RGB RGB =5 8A?>;L7C5BAO v N P P`PV0@\lPR&(*68:lx ݻݻݻݻݻݻݻݴ h(;hd hdh'hdhdmH sH  h'h' h'hd hdhd h8h'CJOJQJ^JaJ h8h(;CJOJQJ^JaJ h8hdCJOJQJ^JaJh8hdCJ aJ h8hd7v z P  j (PH0\fV~gd(;gd'gd8gd8djprvJPRV2BV~DNXb$.HR $ > H *!,!:!F!p!|!!!!!!"##$$$F$V$ִ h(;hO1 h8h(;CJOJQJ^JaJ h8hS?rCJOJQJ^JaJ h8hdCJOJQJ^JaJ h(;hd hdhdhdhdmH sH DDX$H > 'H'X'x'''''''((0(:(V(b(t((())h)*-5:5<5~5555555555׿׿׿ h8hpCJOJQJ^JaJh(;h(;mH sH hdmH sH h(;mH sH  hdhd h8h(;CJOJQJ^JaJ h(;hd h8hS?rCJOJQJ^JaJ h8hdCJOJQJ^JaJ:$&&>''"(0(V((()h)),244<5555866 7h7768b888gd(;gd85,6.686B6H6T6666666 777&7.7F7h7r7x777777788868@8F8R8r8~8888899 9*909<9H9R9X9d999999999999(:4:@:J:T:\:^:|::::::::::: ;; h8h(;CJOJQJ^JaJ h8hpCJOJQJ^JaJ h8hdCJOJQJ^JaJQ8 9H999:@:::: ;v;;D<<<<===>ABBBC $Ifgd(; $$Ifa$gd(;$a$gd(;gd(;gd8;;(;6;H;v;;;;;;;;;;< <<,<D<N<T<`<h<<<<<<<<<<<<<===="=n=p========== >>r? BBBBCC"C$C,C.C6C8CrCtCCCCCC^DtDE h(;h' h(;hd hdhd h8hpCJOJQJ^JaJ h8hdCJOJQJ^JaJLCC$C.C8CBCtCCCC $Ifgd(; $$Ifa$gd(;ekd$$If(0SS 4 (a(p CCEE2F\FFFFGGnHH8II\JJgd8gd(;ekd$$If(0SS 4 (a(pEEEEEEF F0F2F>FZFhFFFFFFFFG\G^GGGGGGGGHHH^HbHlHnHzHHHHHII$I&I6I8IDIIIIIIII*J,JJJLJZJ\JhJJJJJJKK,K.K:KfKhKtKKKKKKK h8hPCJOJQJ^JaJ h8hdCJOJQJ^JaJ h8h91ICJOJQJ^JaJQJ.KhKKnLLpMMNNOpOOnQQVRRRR0S\SSLTTRUUTVVZWgd(;gd8KKHLJLlLzLLLLLLLLL M MM.MZM\MnM|MMMMMMM N NN.NZN\N~NNNNOOnOpO|OOOQQQ R R@RTRVRbRRRRRRRRRRƿƮޮޮޝޮޮޮ h8h)CJOJQJ^JaJ h8hvCJOJQJ^JaJ h(;hd hdhd h8hPCJOJQJ^JaJ h8hdCJOJQJ^JaJ h8h91ICJOJQJ^JaJ>RRS.S0SUPU^UUUUU,V.VRV`VVVVVJWfWWWWWRXvXXXXXXXRYTY`YlYY[ﵮ h(;hd hdhd h8h91ICJOJQJ^JaJ h8h)CJOJQJ^JaJ h8hvCJOJQJ^JaJ h8hdCJOJQJ^JaJBZWWjXXXTYlYzZ2]]]2^^ _h__ҋd$܍Rgd(;gd8[[<[>[V]]]]]]]]]]]2^F^^^^^^^__B_J_h_|____60ҋދbpʌ̌"0:<bzڍ2bd~֎B\P^ɶɶɶɶɶɶɶɶɶɶɶɶɶɶɶɶɶɶ h8h+)CJOJQJ^JaJU h8hdCJOJQJ^JaJ h8hvCJOJQJ^JaJ hdhd h(;hd h(;hO1H"@51>20=8O ?@8 2K2>45 B5:AB>2>9 8=D>@<0F88 2 A;C651=K5 AB@>:8 B0:>2K: ?5@2K9 109B ;N1>3> A>>1I5=8O 5ABL 109B ?>78F8>=8@>20=8O, 0 A0< B5:AB A>>1I5=8O 4>;65= 1KBL 2>AL<818B=K<, B0: :0: :>4K < #!> 8 <"> (16(8) 8 17(8) ?@8 ?5G0B8 =5 >B@010BK20NBAO. "5?5@L =5<=>3> > 2K2>45 3@0D8G5A:>9 8=D>@<0F88 87 . ABL F5;0O 3@C??0 @538AB@>2, ACI5AB25==> >1;53G0NI0O MB>B ?@>F5AA: 177016 (70?8AL/GB5=85)  @538AB@ :>40 F25B0 B>G:8. $>@<0B  G8A;> >B 0 4> 7 (F25B B>G:8); 177024 (70?8AL)  @538AB@ >:B5B0 B>G:8. $>@<0B  2>AL<5@8G=>5 G8A;> >B 0 4> 377 (2>A5<L 18B>2  2>A5<L B>G5: =0 M:@0=5; 18B A>45@68B 1  B>G:0 70665=0, 0  ?>30H5=0); 177020  @538AB@ :>40 F25B0 D>=0 (?;0=K 0 1), 177022  @538AB@ :>40 F25B0 D>=0 (?;0=K 1 2). 10 @538AB@0 ?@54AB02;ONB A>1>9 548=>5 F5;>5; D>@<0B ?@82545= =0 @8AC=:5. K2545< =0 M:@0= >:B5B, 2 :>B>@>< ?5@20O B>G:0  G5@=0O, 2B>@0O  3>;C10O; B@5BLO  75;5=0O, ..., 2>AL<0O  15;0O. ;O MB>3> =C6=> 70?8A0BL 2 177020 G8A;> 0011 0010 0001 0000, 0 2 177022  0111 0110 0101 0100. MOV #^B0011001000010000,@#177020 ;03@C78BL @538AB@ :>40 F25B0 MOV #^B0111011001010100,@#177022 ;D>=0 ?> ?@8=F8?C 1-O B>G:0 G5@=0O , 2>AL<0O  15;0O MOV #100000,@#177010 ;03@C78BL 04@5A ?;0=>2 2 @538AB@ 04@5A0 ?;0=>2. MOV #<264.*80.>,R1 ; R1 >1I55 G8A;> 109B>2 M:@0==>9 7>=K 1$: CLR @#177024 ;"'8AB8<" B5:CI89 >:B5B INC @#177010 ;#25;8G8< =0 1 04@5A 2 ?;0=0E SOB R1,1$ ;Bce MB> 2 F8:;5 ; -  + &"+ ! MOV #^B0100010101100111,@#177020 ;03@C78BL 4@C385 7=0G5=8O MOV #^B0000000100100011,@#177022 ;F25B0 D>=0 MOV PC,R2 ADD #SPRITE-.,R2 ;4@5A A?@09B0 2 R2 MOV #100000,@#177010 ;4@5A 2 ?;0=0E - 100000 MOV #7,@#177016 ;K2>48BL 1C45< 15;K< MOV #11,R0 ; 07<5@K A?@09B0 (Y - 11, X - 21) 3$: MOV #21,R1 ;-"# '!", + 2$: MOVB (R2)+,@#177024 ;09BK, 87 :>B>@KE A>AB>8B A?@09B, ?> ?>@O4:C =0 M:@0= ;& + '!" INC @#177010 ;#25;8G8< 04@5A 2 ?;0=0E =0 1 SOB R1,2$ ;!;54CNI89 109B =0 M:@0= ADD #<80.-21>,@#177010 ;BABC?8BL 4;O 2K2>40 A;54CNI59 AB@>:8 SOB R0,3$ ;A?@09B0. RTS PC ;>72@0B ;  ! ! " SPRITE: .Byte 377,7,377,37,36,36,74,170,340,77,360,340,201,377,300,3,17 .Byte 61,6,6,30,30,6,30,60,60,140,140,140,300,200,201,3,7 .Byte 60,0,6,0,60,3,30,60,30,300,140,60,140,0,203,207,7 .Byte 60,0,6,0,340,1,30,60,30,300,140,30,140,0,203,315,6 .Byte 60,0,376,1,300,0,370,77,30,300,340,17,140,0,203,171,6 .Byte 60,0,6,0,340,1,30,60,30,300,140,30,140,0,203,61,6 .Byte 60,0,6,0,60,3,30,60,30,300,140,60,140,0,203,1,6 .Byte 60,0,6,30,30,6,30,60,60,140,140,140,300,200,201,1,6 .Byte 170,0,377,37,36,36,74,170,340,77,360,340,201,377,300,3,217 .Even ENDPRG: ;>=5F ?@>3@0<<K 2  177026  @538AB@ <0A:8 ?;0=>2. $>@<0B  G8A;> >B 0 4> 7 (>48= 8;8 =5A:>;L:> ?;0=>2, 2 :>B>@K5 =C6=> 70?@5B8BL 70?8AL 8=D>@<0F88). 538AB@ =5 1;>:8@C5B 70?8AL 2 75;5=K9 8 :@0A=K9 ?;0=K A> AB>@>=K &. 0AA<>B@8< 8A?>;L7>20=85 MB8E @538AB@>2. @82545==0O =865 ?@>3@0<<0 A=0G0;0 70?>;=O5B M:@0= F25B=K<8 25@B8:0;L=K<8 ?>;>A0<8 B>;I8=>9 2 >4=C B>G:C, 70B5< 2K2>48B 2 ;52>< 25@E=5< C3;C M:@0=0 A?@09B. 2$: MOVB (R2)+,R3 MOV R3,@#177024 K2>4 8=D>@<0F88 =0 M:@0= <>65B 1KBL 42CE 284>2  A ?@>@8A>2:>9 =>2>9 8=D>@<0F88 ?> AB0@><C D>=C 8 A> AB8@0=85< AB0@>9 8=D>@<0F88. 'B>1K @8A>20BL ?> AB0@><C D>=C, =C6=> : @538AB@C 177024 04@5A>20BL 109B=> (MOVB), 4;O AB8@0=8O  A;>2=> (MOV).  ?@82545==>< 2KH5 ?@8<5@5 ?@>@8A>2:0 A> AB8@0=85< >15A?5G8205BAO 70<5=>9 2K45;5==>9 G0AB8 ?@>3@0<<K =0 A;54CNICN: BIS #6,@#177710 ;"0:B>20O G0AB>B0 B09<5@0 16 <:A BIC #17400,@#177716 ;G8AB8BL @07@O4K A 8 ?> 12 MOV #200,R0 ;#AB0=>28BL 2 R0 548=AB25==K9 @07@O4  7 1$: XOR R0,@#177716 ;A;8 >= 5ABL 2 177716 ,B> A=OBL 53> 8 =0>1>@>B MOV #<>B MB>3> G8A;0 7028A8B 2KA>B0 72y:a>,R1 SOB R1,. ;045@6:0 8<5==> =0 MB>< G8A;5 BR 1$ ;5A:>=5G=K9 F8:; 0: 284=>, A ?><>ILN MB>9 3@C??K @538AB@>2 <>6=> ACI5AB25==> ?>2KA8BL A:>@>ABL 2K2>40 3@0D8:8, >4=0:> 8=>340 8 MB>9 A:>@>AB8 =5 E20B05B. >6=> 5I5 2 =5A:>;L:> @07 55 C25;8G8BL, 8A?>;L7CO =5@538AB@>2K9 (?@O<>9) 4>ABC? : 2845>#. > >1 MB>< 2 A;54CNI89 @07. "5?5@L =5<=>3> > <C7K:5. 2C: 87 48=0<8:0 #& <>6=> ?>;CG8BL ?@8 ?><>I8 @538AB@>2 177710 8 177716.  @538AB@5 177716 @07@O4K A 7 ?> 12 ?>72>;ONB ?>;CG8BL 72C:8 A G0AB>B>9 >B 60 F 4> 64 :F ?@8 G0AB>B5 ?@>3@0<<8@C5<>3> B09<5@0 2, 4, 8 8 16 <:A.  B01;. 2 40=K A>>B25BAB28O :><18=0F89 @07@O4>2 8 16 @538AB@0 177716, 0 2 B01;. 3  @07@O4>2 1, 2 @538AB@0 177710. '0AB>BK 72C:0 ?@82545=K 4;O B0:B>2>9 G0AB>BK B09<5@0 16 <:A. A;8 65 B0:B>20O G0AB>B0 @02=0 8 <:A, B> 7=0G5=8O G0AB>B 2 ?@02>9 :>;>=:5 C25;8G0BAO 2 2 @070 (A>>B25BAB25==> 4;O 4 <:A 2 4 @070, 0 4;O 2 <:A 2 8 @07). A;8 @07@O4K 8 12 A>45@60B 0, B> G0AB>B0 72C:0 1C45B 7028A5BL >B B>3>, A :0:>9 A:>@>ABLN @07@O4 7 ?5@5:;NG05BAO 87 0 2 1. !?>A>1 872;5G5=8O 72C:0 ?@>AB. 5=OO 7=0G5=85, 703@C605<>5 4;O 7045@6:8, <K C?@02;O5< 2KA>B>9 72C:0. @>3@0<<0, ?@82545==0O =865, @01>B05B 8<5==> ?> MB><C ?@8=F8?C. "01;8F0 2 07@O4K @538AB@0 177716'0AB>B0 72C:>2>3> A83=0;0712111098@>3@0<<=> D>@<8@C5BAO00000!>>B25BAB2C5B ?@>3@0<<510 0 0 0 10 0 0 1 00 0 1 0 00 1 0 0 01 0 0 0 060 F 250 F 500 F 1 :F 8 :F02C: >B:;NG5=1><18=0F8O ;>38G5A:8E 7=0G5=89!1>@:0 A5B:8 G0AB>B ?> @>3@0<<=> D>@<8@C5BAO*****!1>@:0 A5B:8 G0AB>B ?>  ?@><>4C;8@>20=0 ?@>3@0<<>9 1-O >:B020 > - 130,8 >-4857, @5-15<>;L - 138,6 5 - 146,8 5-4857, <8-15<>;L  155,6 8 - 164,8 $0 - 174,6 $0-4857, A>;L-15<>;L - 185,0 !>;L - 196,0 !>;L-4857, ;O-15<>;L - 207,7 O - 220,0 O-4857, A8-15<>;L - 233,1 !8 - 246,9 !@54=55 4> - 261,7 2-O >:B020 >-4857, @5-15<>;L - 277,2 5 - 293,7 5-4857, <8-15<>;L - 311,1 8 - 329,6 $0 - 349,2 $0-4857, A>;L-15<>;L - 370,0 !>;L - 392,0 !>;L-4857, ;O-15<>;L - 415,3 O - 440,0 O-4857, A8-15<>;L - 466,2 !8 - 493,9 !@54=55 4> - 523,3 -B>B A?>A>1 8<55B ACI5AB25==K9 =54>AB0B>:. 0 @07=KE <0H8=0E 2KA>B0 72C:0 1C45B ?;020BL, B0: :0: 1KAB@>459AB285  <5=O5BAO >B <0H8=K : <0H8=5 87-70 @071@>A0 ?0@0<5B@>2 M;5<5=B=>9 107K. #AB@0=8BL 40==K9 =54>AB0B>: <>6=>, A>18@0O =C6=K5 G0AB>BK 87 =01>@0 AB0=40@B=KE. !1>@:0 2545BAO ?>  (>4=0 G0AB>B0 <>4C;8@C5B A>1>9 4@C3CN), GB> ?>72>;O5B, C?@02;OO G0AB>B>9 ?@>3@0<<8@C5<>3> B09<5@0 8 :><18=8@CO 7=0G5=8O @07@O4>2 8 12 @538AB@0 177716, 4>1820BLAO 8A?>;=5=8O =5A;>6=KE <5;>489. "01;8F0 3 07@O4K @538AB@0 1777105@8>4 B0:B>2>9 G0AB>BK210 0 1 10 1 0 12 <:A 4 <:A 8 <:A 16 <:A0==K9 A?>A>1 405B AB018;L=K9 72C:, => 53> =54>AB0B>: >G52845=: :@09=5 B@C4=> ?>;CG8BL B@51C5<K5 =>BK. >@074> ;CGH5 8A?>;L7>20BL ?@>3@0<<8@C5<K9 B09<5@ 2 G8AB>< 2845 2 @568<5 ?@5@K20=89. >AB>8=AB20 B0:>3> A?>A>10: G8ABK9 AB018;L=K9 72C:, ?>41>@ G0AB>BK 4> 548=8F 35@F 8 ;53:>ABL ?@0:B8G5A:>9 @50;870F88. 59AB28B5;L=>, @07 <>6=> ?;02=> <5=OBL 2KA>BC 72C:0 8 53> 4;8B5;L=>ABL (MB> @50;87C5BAO =0 4@C3>< B09<5@5  A5B52><), B> C65 <>6=> 8A?>;=OBL 4>2>;L=> A;>6=K5 <5;>488. ;O >1;53G5=8O 7040G8 ?@82545< 7=0G5=8O G0AB>B 72CG0=8O =>B 42CE >:B02 2 35@F0E. MOV PC,R0 ;KG8A;8BL 04@5A ?@>3@0<<K >1@01>B:8 ?@5@K20=89 ADD #POP-.,R0 ;>B ?@>3@0<<8@C5<>3> B09<5@0 MOV R0,@#304 ;03@C78BL MB>B 04@5A 2 25:B>@ ?@5@K20=8O MOV PC,R0 ;KG8A;8BL 04@5A ?@>3@0<<K >1@01>B:8 ?@5@K20=89 ADD #POPT-.,R0 ;>B A5B52>3> B09<5@0 MOV R0,@#100 ;03@C78BL MB>B 04@5A 2 25:B>@ ?@5@K20=8O MOV PC,R0 ;KG8A;8BL =0G0;L=K9 04@5A <0AA820 A <C7K:>9 ADD #MUZON-.,R0 MOV R0,ADRESS ;03@C78BL MB>B 04@5A 2 OG59:C ADRESS MOV R0,EADRES ;KG8A;8BL 8 703@C78BL 2 OG59:C EADRES ADD #<EP-MUZ0N>,EADRES ;:>=5G=K9 04@5A <0AA820 A <C7K:>9 BIS #107,@#177710 ;#AB0=>28BL ?5@8>4 B0:B>2>9 G0AB>BK ?@>3@0<<8@C5<>3> RTS PC ;B09<5@0 16 <:A 8 @07@5H8BL ;?@5@K20=8O >B =53> ;    "   + " !" "   ": .ENABLE LSB DEC ( !)+ ;#<5=LH8BL =0 1 A>45@68<>5 OG59:8 COUNT COUNT: .WORD 50. ;50 B8:>2 - MB> 1 A5:C=40 (4;8B5;L=>ABL =>BK) BNE 1$ ;A;8 A5:C=40 =5 8AB5:;0, B> =0 2KE>4 MOV @ADRESS,TON+2 ;!K3@0BL >G5@54=CN =>BC 87 <0AA820 ADD #2,ADRESS ;5@59B8 =0 A;54CNICN =>BC CMP EADRES,ADRESS ; =5 :>=5F ;8 <0AA820? BNE 2$ SUB #<EP-MUZ0N>,ADRESS ;0. 5@=5<AO : =0G0;C 2$: MOV #50.,COUNT ;1 A5:C=40 2 COUNT 1$: JMP @#174612 ;KE>4 87 ?@5@K20=8O ;    "   + "    # "   : .ENABLE LSB; TST @#177714 ;G8AB8BL @538AB@ B5:CI53> 7=0G5=8O ?@. B09<. MOV R0,-(SP) ;!>E@0=8BL 2 AB5:5 R0 MOV #200,R0 ;03@C78BL G8A;> 200 2 R0 XOR R0,@#177716 ;7 @07@O4 5A;8 5ABL - A=OBL, 8 =0>1>@>B MOV (SP)+,R0 ;>AAB0=>28BL R0 @8<5@ ?@>3@0<<K, 8;;NAB@8@CNI59 ?@8<5=5=85 ?@>3@0<<8@C5<>3> B09<5@0: TON: MOV #0,@#177712 ;03@C78BL B5:CI55 7=0G5=85 OG59:8 TON+2 2 1CD5@=K9 @538AB@ ?@>3@0<<8@C5<>3> B09<5@0 RTI ;>72@0B 87 ?@5@K20=8O ADRESS: .WORD 0 ;/G59:0 E@0=5=8O =0G0;L=>3> 04@5A0 <0AA820 EADRES: .WORD 0 ;/G59:0 E@0=5=8O :>=5G=>3> 04@5A0 <0AA820 ; !#" ! !! ! #+ MUZON: .WORD 478. ;> ?5@2>9 >:B02K .WORD 426. ; 5 ?5@2>9 >:B02K .WORD 379. ;8 ?5@2>9 >:B02K .WORD 358. ;$0 ?5@2>9 >:B02K .WORD 319. ;!>;L ?5@2>9 >:B02K .WORD 284. ;O ?5@2>9 >:B02K .WORD 253. ;!8 ?5@2>9 >:B02K .WORD 239. ;!@548==>5 > .WORD 213. ; 5 2B>@>9 >:B02K .WORD 190. ;8 2B>@>9 >:B02K .WORD 179. ;$0 2B>@>9 >:B02K .WORD 159. ;!>;L 2B>@>9 >:B02K .WORD 142. ;O 2B>@>9 >:B02K .WORD 127. ;!8 2B>@>9 >:B02K .WORD 119. ;> 2B>@>9 >:B02K  : ;>=5F ?@>3@0<<K 2  -B0 ?@>3@0<<0 ?@>83@K205B C:070==K5 =>BK ?> ?>@O4:C 2 F8:;5. =0G5=8O G8A5;, A>>B25BAB2CNI85 @50;L=K< 72C:>2K< G0AB>B0<, @0AAG8BK20NBAO ?> D>@<C;5 A/F, 345 A A>>B25BAB2C5B B0:B>2>9 G0AB>B5 ?@>3@0<<8@C5<>3> B09<5@0 (4;O ?5@8>40 16 <:A A= 62500, 4;O 8 <:A A= 125000, 4;O 4 <:A A=250000, 4;O 2 <:A A= 500000 (2A5 7=0G5=8O 45AOB8G=K5), a F  G0AB>B0, :>B>@CN B@51C5BAO ?>;CG8BL. 1@0B8B5 2=8<0=85 =0 B>, GB> 1CD5@=K9 @538AB@ ?@>3@0<<8@C5<>3> B09<5@0 (177712) 12-, 0 =5 16-@07@O4=K9! 1 MB>< A;54C5B ?><=8BL ?@8 703@C7:5 40==KE 2 @538AB@. ^ܐJXtȑ.FjlxВ$Rrt &LNĔҔ8:BPbdjĕ$&FTl.0@02B h8h|^CJOJQJ^JaJ h8h+)CJOJQJ^JaJ h8hdCJOJQJ^JaJQRސLtzƔDH02::̛Rgd8ʙ8:Jƚ8:Jʛ̛؛&RlʟfnʢТ NTΣ R`ʤ"0Hf¥j:ƿͿͿƭ h(;hO1hdhdmH sH  hdhd h(;hd h8hdCJOJQJ^JaJ h8h|^CJOJQJ^JaJ h8h+)CJOJQJ^JaJDRlʟ & ڪ®֮: $Ifgd*$a$gd(;gd8gd(;Ю֮:<\^Яүz|ȱʱ̱FRht̲ز4@Zf³γ&2VXnzҴ޴ 6BXdĵе ,8nz¶̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻ h8h|^CJOJQJ^JaJ h8hdCJOJQJ^JaJ h8hd hdh' h*h' hdhd h(;hdG:<@FLRVZ\^~Ff $Ifgd* $$Ifa$gd*fkd`$$If(40 `  4 (a(pЯү֯گޯ "&*.Ff $Ifgd* $$Ifa$gd*.26:FTbnz|Ffs $Ifgd* $$Ifa$gd* |ppg $Ifgd* $$Ifa$gd*kdh $$If(F        4 (a(pHLPTX\ȱʱ̱|ppppppgb]gd8Ff $Ifgd* $$Ifa$gd*kd$$If(F        4 (a(p ̱Fh̲4Z³&XnҴ6Xĵ ,n¶gd*gd8 `bȿLVf<>`pVv"8`b46P`@Bdt̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻̻ h8hD}CJOJQJ^JaJ h8hdCJOJQJ^JaJ h8hCJOJQJ^JaJ h'h' hdhO1 h*hO1 hdhd h*hdCк {{ $$Ifa$gd*fkd$$If(40F`j  4 (a(p $Ifgd*$a$gd* "&*.:Fznnnnnnnnee $Ifgd* $$Ifa$gd*kdK$$If(4FF j      4 (a(p FR`bXbhsniiiiiiiigd8gd*kd$$If(FFj      4 (a(p $Ifgd* Rf8`nPtJ*NRR> gd*gd8 $&0Lbd8F`v&(^nVXl|N^r HJ(*N\P`~,.P` h8hCJOJQJ^JaJ h8hD}CJOJQJ^JaJ h8hdCJOJQJ^JaJN>.4X6Lln:<@L6<@H6<@H~*.2<~пппппппппппп h8hO1CJOJQJ^JaJ h8hD}CJOJQJ^JaJ h8hdCJOJQJ^JaJ h*hd hdhdK<88,,8dgd*gd8*26<~ 8^`bdpr 46^`dƿƴƴƴƴƴƴƴƴƴhdhdmH sH  h*hd hdhd h8hO1CJOJQJ^JaJ h8hD}CJOJQJ^JaJ h8hdCJOJQJ^JaJ 90&P P:p(;. A!7"7#7$7% $$If(!vh5S5#vS#v:V ( 5S5/ 44 (a(p$$If(!vh5S5#vS#v:V ( 5S5/ 44 (a(p$$If(!vh55 #v#v :V (4 +55 / / /  / / 44 (a(p$$If(!vh55_5_5_5_5`5 #v#v_#v`#v :V (4 F+55_5`5 / / /  / / /  / 44 (a(pFkdP$$If(4֞  = ____`   F4 (a(pF$$If(!vh55_5_5_5_5`5 #v#v_#v`#v :V ( F,55_5`5 / /  / /  / / / 44 (a(pFkd$$If(֞  = ____`  F4 (a(pF$$If(!vh55_5_5_5_5`5 #v#v_#v`#v :V ( F,55_5`5 / /  / /  / / / 44 (a(pFkd $$If(֞  = ____`  F4 (a(pF4$$If(!vh55 5 #v#v #v :V ( ,55 5 / /  / /  / / / 44 (a(p4$$If(!vh55 5 #v#v #v :V ( ,55 5 / /  / /  / / / 44 (a(p$$If(!vh55_5_5_5_5`5 #v#v_#v`#v :V ( F,55_5`5 / /  / /  / / / 44 (a(pFkd$$If(֞  = ____`  F4 (a(pF$$If(!vh55j #v#vj :V (4 +55j / /  44 (a(p6$$If(!vh555j #v#v#vj :V (4 +555j / /  / / / /  / 44 (a(p.$$If(!vh555j #v#v#vj :V ( 555j / / / / / / / 44 (a(pF@F 1KG=K91$7$8$H$_HmHsHtHBA@B A=>2=>9 H@8DB 0170F0Xi@X 1KG=0O B01;8F04 l4a .k@. 5B A?8A:0 6O6 '!B8;L1$7`7a$:O: * !B8;L1 =0: mHsHtH4O4 8 !B8;L 1 ?BCJ4aJ4W ;= 5t(Wm.Y+ ? " Q r  I r  O a g #JYO+R^bgHt^1Gy  Rcn"L]rPZ`.Bg}7 T .!K!!!!7"y"""@#l####$$+%D%Y%~%%%%&&l&&&*'u'''5(\(~(((=)***+Y++++,T--U./0v00$1g111 2S2222!3b3333/4G444535]5r555<6}667?7777 88999.;o;;;D<w<<<=Q?&@EAOAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBB!B"B$B2B3B4B6BUBpBqBBBBBBBBBBBBCC9CJC[C~CCCCCCDD?Anpry~$&8CCJZWRR:.̱ Fd1468:;=@oqstuvwxz{|}d28@0(  B S  ? OLE_LINK1 OLE_LINK2(J(JW.J.JWvO18(;91I|^S?r+)*pPD})vd)'Z`OAgAAAAAAAAAAAAAAAAAAAAAAAAB!B"B$B2B3B4B6BUBpBqBBBBBBBBB4GLGdGeGgGiGjGkGsG{GGGW@, F %&++WPPPP$P&P(P8P<P>PHPRPTP^PUnknownGz Times New Roman5Symbol3& z Arial?5 z Courier New"hX&X& J, J,xxjWjW2?d2  4<8=8AB@0B>@ 4<8=8AB@0B>@Oh+'0|  8 D P\dlt Normal.dot2Microsoft Office Word@F#@0@0 J՜.+,0 hp  Home,jW     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F`Data 1Table@WordDocument;SummaryInformation(DocumentSummaryInformation8CompObjq  F Microsoft Office Word MSWordDocWord.Document.89q