device zxspectrum128 org #6100 begin_file: ; устанавливаем дно стека ld sp,#6100 loop ld hl,#5816 ld (hl),199 ld hl,#5837 ld (hl),199 ld hl,#5857 ld (hl),199 ld hl,#5858 ld (hl),248 ld hl,#5876 ld (hl),199 ld hl,#5877 ld (hl),248 ld hl,#5878 ld (hl),248 ld hl,#5895 ld (hl),199 ld hl,#5896 ld (hl),248 ld hl,#5897 ld (hl),248 ld hl,#58b4 ld (hl),199 ld hl,#58b5 ld (hl),248 ld hl,#58b6 ld (hl),248 ld hl,#58d4 ld (hl),199 ld hl,#58d5 ld (hl),248 ld hl,#58d6 ld (hl),248 ld hl,#58f5 ld (hl),199 ld hl,#5916 ld (hl),199 ld hl,#5974 ld (hl),112 ld hl,#5975 ld (hl),112 ld hl,#5976 ld (hl),112 ld hl,#5977 ld (hl),112 ld hl,#5978 ld (hl),112 ld hl,#5993 ld (hl),112 ld hl,#5994 ld (hl),80 ld hl,#5995 ld (hl),80 ld hl,#5996 ld (hl),80 ld hl,#5997 ld (hl),80 ld hl,#5998 ld (hl),80 ld hl,#5999 ld (hl),112 ld hl,#59b2 ld (hl),112 ld hl,#59b3 ld (hl),16 ld hl,#59b4 ld (hl),16 ld hl,#59b5 ld (hl),16 ld hl,#59b6 ld (hl),16 ld hl,#59b7 ld (hl),16 ld hl,#59b8 ld (hl),16 ld hl,#59b9 ld (hl),16 ld hl,#59ba ld (hl),112 ld hl,#59d2 ld (hl),112 ld hl,#59d3 ld (hl),112 ld hl,#59d4 ld (hl),16 ld hl,#59d5 ld (hl),16 ld hl,#59d6 ld (hl),16 ld hl,#59d7 ld (hl),16 ld hl,#59d8 ld (hl),16 ld hl,#59d9 ld (hl),112 ld hl,#59da ld (hl),112 ld hl,#59f2 ld (hl),112 ld hl,#59f3 ld (hl),112 ld hl,#59f4 ld (hl),112 ld hl,#59f5 ld (hl),112 ld hl,#59f6 ld (hl),112 ld hl,#59f7 ld (hl),112 ld hl,#59f8 ld (hl),112 ld hl,#59f9 ld (hl),112 ld hl,#59fa ld (hl),112 ld hl,#59fb ld (hl),112 ld hl,#59fc ld (hl),112 ld hl,#5a12 ld (hl),112 ld hl,#5a13 ld (hl),120 ld hl,#5a14 ld (hl),112 ld hl,#5a15 ld (hl),112 ld hl,#5a16 ld (hl),112 ld hl,#5a17 ld (hl),112 ld hl,#5a18 ld (hl),112 ld hl,#5a19 ld (hl),112 ld hl,#5a1a ld (hl),112 ld hl,#5a1d ld (hl),112 ld hl,#5a32 ld (hl),112 ld hl,#5a33 ld (hl),120 ld hl,#5a34 ld (hl),112 ld hl,#5a35 ld (hl),112 ld hl,#5a36 ld (hl),112 ld hl,#5a37 ld (hl),112 ld hl,#5a38 ld (hl),112 ld hl,#5a39 ld (hl),112 ld hl,#5a3a ld (hl),112 ld hl,#5a3d ld (hl),112 ld hl,#5a52 ld (hl),112 ld hl,#5a53 ld (hl),120 ld hl,#5a54 ld (hl),112 ld hl,#5a55 ld (hl),112 ld hl,#5a56 ld (hl),112 ld hl,#5a57 ld (hl),112 ld hl,#5a58 ld (hl),112 ld hl,#5a59 ld (hl),112 ld hl,#5a5a ld (hl),112 ld hl,#5a5d ld (hl),112 ld hl,#5a72 ld (hl),112 ld hl,#5a73 ld (hl),112 ld hl,#5a74 ld (hl),112 ld hl,#5a75 ld (hl),112 ld hl,#5a76 ld (hl),112 ld hl,#5a77 ld (hl),112 ld hl,#5a78 ld (hl),112 ld hl,#5a79 ld (hl),112 ld hl,#5a7a ld (hl),112 ld hl,#5a7b ld (hl),112 ld hl,#5a7c ld (hl),112 ld hl,#5a92 ld (hl),112 ld hl,#5a93 ld (hl),120 ld hl,#5a94 ld (hl),112 ld hl,#5a95 ld (hl),112 ld hl,#5a96 ld (hl),112 ld hl,#5a97 ld (hl),112 ld hl,#5a98 ld (hl),112 ld hl,#5a99 ld (hl),112 ld hl,#5a9a ld (hl),48 ld hl,#5ab2 ld (hl),112 ld hl,#5ab3 ld (hl),112 ld hl,#5ab4 ld (hl),112 ld hl,#5ab5 ld (hl),112 ld hl,#5ab6 ld (hl),112 ld hl,#5ab7 ld (hl),112 ld hl,#5ab8 ld (hl),112 ld hl,#5ab9 ld (hl),48 ld hl,#5aba ld (hl),112 ld hl,#5ad3 ld (hl),112 ld hl,#5ad4 ld (hl),112 ld hl,#5ad5 ld (hl),112 ld hl,#5ad6 ld (hl),112 ld hl,#5ad7 ld (hl),112 ld hl,#5ad8 ld (hl),48 ld hl,#5ad9 ld (hl),112 ld hl,#5af4 ld (hl),112 ld hl,#5af5 ld (hl),112 ld hl,#5af6 ld (hl),112 ld hl,#5af7 ld (hl),112 ld hl,#5af8 ld (hl),112 ld hl, #5860 ld b, 15 .loop ld (hl),0 inc l djnz.loop ld hl,#5880 ld (hl),0 ld hl,#588e ld (hl),0 ld hl,#5881 ld b, 13 .loop ld (hl),104 inc l djnz.loop ld hl,#58a0 ld (hl),0 ld hl,#58a1 ld (hl),104 ld hl,#58a2 ld (hl),140 ld hl,#58a3 ld (hl),140 ld hl,#58a4 ld (hl),104 ld hl,#58a5 ld (hl),161 ld hl,#58a6 ld (hl),161 ld hl,#58a7 ld (hl),104 ld hl,#58a8 ld (hl),214 ld hl,#58a9 ld (hl),214 ld hl,#58aa ld (hl),104 ld hl,#58ab ld (hl),242 ld hl,#58ac ld (hl),242 ld hl,#58ad ld (hl),104 ld hl,#58ae ld (hl),0 ld hl,#58c0 ld (hl),0 ld hl,#58c1 ld (hl),104 ld hl,#58c2 ld (hl),140 ld hl,#58c3 ld (hl),140 ld hl,#58c4 ld (hl),104 ld hl,#58c5 ld (hl),161 ld hl,#58c6 ld (hl),161 ld hl,#58c7 ld (hl),104 ld hl,#58c8 ld (hl),214 ld hl,#58c9 ld (hl),214 ld hl,#58ca ld (hl),104 ld hl,#58cb ld (hl),242 ld hl,#58cc ld (hl),242 ld hl,#58cd ld (hl),104 ld hl,#58ce ld (hl),67 ld hl,#58e0 ld (hl),67 ld b, 13 .loop inc l ld (hl),104 djnz.loop ld hl,#58ee ld (hl),67 ld hl,#5900 ld (hl),67 ld b, 13 .loop inc l ld (hl),104 djnz.loop ld hl,#590e ld (hl),67 ld hl,#5920 ld (hl),67 ld b, 13 .loop inc l ld (hl),104 djnz.loop ld hl,#592e ld (hl),67 ld hl,#5940 ld (hl),0 ld b, 13 .loop inc l ld (hl),104 djnz.loop ld hl,#594e ld (hl),0 ld hl,#5960 ld (hl),0 ld b, 13 .loop inc l ld (hl),104 djnz.loop ld hl,#596e ld (hl),0 ld hl,#5980 ld (hl),0 ld b, 13 .loop inc l ld (hl),104 djnz.loop ld hl,#598e ld (hl),0 ld hl,#59a0 ld (hl),0 ld b, 13 .loop inc l ld (hl),104 djnz.loop ld hl,#59ae ld (hl),0 ld hl,#59c0 ld (hl),0 ld b, 13 .loop inc l ld (hl),0 djnz.loop ld hl,#59ce ld (hl),0 ld hl,#59e6 ld (hl),0 ld hl,#59e7 ld (hl),0 ld hl,#59e8 ld (hl),0 ld hl,#5a06 ld (hl),0 ld hl,#5a07 ld (hl),0 ld hl,#5a08 ld (hl),0 ld hl,#5a29 ld (hl),24 ld hl,#5a26 ld (hl),0 ld hl,#5a27 ld (hl),0 ld hl,#5a28 ld (hl),0 ld hl,#5a20 ld (hl),24 ld hl,#5a21 ld (hl),24 ld hl,#5a22 ld (hl),24 ld hl,#5a23 ld (hl),24 ld hl,#5a24 ld (hl),24 ld hl,#5a25 ld (hl),24 ld hl,#5a2a ld (hl),24 ld hl,#5a2b ld (hl),24 ld hl,#5a2c ld (hl),24 ld hl,#5a2d ld (hl),24 ld hl,#5a2e ld (hl),24 ld hl,#5a2f ld (hl),24 ld hl,#5a30 ld (hl),24 ld hl,#5a31 ld (hl),24 ld hl,#5a3b ld (hl),24 ld hl,#5a3c ld (hl),24 ld hl,#5a3e ld (hl),24 ld hl,#5a3f ld (hl),24 ld hl,#5a40 ld b,18 .loop ld (hl),24 inc l djnz.loop ld hl,#5a5b ld (hl),24 ld hl,#5a5c ld (hl),24 ld hl,#5a5e ld (hl),24 ld hl,#5a5f ld (hl),24 ld hl,#5a60 ld b,18 .loop ld (hl),24 inc l djnz.loop ld hl,#5a7d ld (hl),24 ld hl,#5a7e ld (hl),24 ld hl,#5a7f ld (hl),24 ld hl,#5a80 ld b,18 .loop ld (hl),24 inc l djnz.loop ld hl,#5a9b ld (hl),24 ld hl,#5a9c ld (hl),24 ld hl,#5a9d ld (hl),24 ld hl,#5a9e ld (hl),24 ld hl,#5a9f ld (hl),24 ld hl,#5aa0 ld b,18 .loop ld (hl),24 inc l djnz.loop ld hl,#5abb ld (hl),24 ld hl,#5abc ld (hl),24 ld hl,#5abd ld (hl),24 ld hl,#5abe ld (hl),24 ld hl,#5abf ld (hl),24 ld hl,#5ac0 ld b,19 .loop ld (hl),24 inc l djnz.loop ld hl,#5ada ld (hl),24 ld hl,#5adb ld (hl),24 ld hl,#5adc ld (hl),24 ld hl,#5add ld (hl),24 ld hl,#5ade ld (hl),24 ld hl,#5adf ld (hl),24 ld hl,#5ae0 ld b,20 .loop ld (hl),24 inc l djnz.loop ld hl,#5af9 ld (hl),24 ld hl,#5afa ld (hl),24 ld hl,#5afb ld (hl),24 ld hl,#5afc ld (hl),24 ld hl,#5afd ld (hl),24 ld hl,#5afe ld (hl),24 ld hl,#5aff ld (hl),24 ld hl,#4844 ld (hl),60 inc h ld (hl),60 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),2 inc h ld (hl),2 inc h ld (hl),12 inc h ld (hl),12 inc h ld hl,#4864 ld (hl),48 inc h ld (hl),48 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),126 inc h ld (hl),126 inc h ld hl,#4845 ld (hl),60 inc h ld (hl),60 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),2 inc h ld (hl),2 inc h ld (hl),12 inc h ld (hl),12 inc h ld hl,#4865 ld (hl),48 inc h ld (hl),48 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),126 inc h ld (hl),126 inc h ld hl,#4866 ld (hl),0 inc h ld (hl),0 inc h ld (hl),60 inc h ld (hl),60 inc h ld (hl),60 inc h ld (hl),60 ld hl,#4847 ld (hl),60 inc h ld (hl),60 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),66 inc h ld hl,#4867 ld (hl),66 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),60 inc h ld (hl),60 inc h ld hl,#4848 ld (hl),60 inc h ld (hl),60 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),2 inc h ld (hl),2 inc h ld (hl),12 inc h ld (hl),12 inc h ld hl,#4868 ld (hl),48 inc h ld (hl),48 inc h ld (hl),66 inc h ld (hl),66 inc h ld (hl),126 inc h ld (hl),126 inc h jp loop end_file: ; сохраняем sna(снапшот состояния) файл savesna "kofeek.sna", begin_file ; сохраняем метки labelslist "user.l"