; указываем ассемблеру, что целевая платформа - spectrum128(pentagon) device zxspectrum128 ; адрес на который компилировать org #6100 begin_file: ; запрещаем прерывания di ; устанавливаем дно стека ld sp,#6100 ; ld hl,#DEC0:push hl ld a, 1 loop: inc c out (#fe), a ld hl, #5800 ld (hl), 9 ld hl, #5801 ld (hl), 9 ld hl, #5802 ld (hl), 9 ld hl, #5803 ld (hl), 9 ld hl, #5804 ld (hl), 9 ld hl, #5805 ld (hl), 9 ld hl, #5806 ld (hl), 9 ld hl, #5807 ld (hl), 9 ld hl, #5808 ld (hl), 9 ld hl, #5809 ld (hl), 9 ld hl, #580A ld (hl), 9 ld hl, #580B ld (hl), 9 ld hl, #580C ld (hl), 9 ld hl, #580D ld (hl), 9 ld hl, #580E ld (hl), 9 ld hl, #580F ld (hl), 9 ld hl, #5810 ld (hl), 9 ld hl, #5811 ld (hl), 9 ld hl, #5812 ld (hl), 9 ld hl, #5813 ld (hl), 9 ld hl, #5814 ld (hl), 9 ld hl, #5815 ld (hl), 9 ld hl, #5816 ld (hl), c ld hl, #5817 ld (hl), 9 ld hl, #5818 ld (hl), 9 ld hl, #5819 ld (hl), 9 ld hl, #581A ld (hl), 9 ld hl, #581B ld (hl), 9 ld hl, #581C ld (hl), 9 ld hl, #581D ld (hl), 9 ld hl, #581E ld (hl), 9 ld hl, #581F ld (hl), 9 ld hl, #5820 ld (hl), 9 ld hl, #5821 ld (hl), 9 ld hl, #5822 ld (hl), 9 ld hl, #5823 ld (hl), c ld hl, #5824 ld (hl), 9 ld hl, #5825 ld (hl), 9 ld hl, #5826 ld (hl), 9 ld hl, #5827 ld (hl), 9 ld hl, #5828 ld (hl), 9 ld hl, #5829 ld (hl), 9 ld hl, #582A ld (hl), c ld hl, #582B ld (hl), 9 ld hl, #582C ld (hl), 9 ld hl, #582D ld (hl), 9 ld hl, #582E ld (hl), 9 ld hl, #582F ld (hl), 9 ld hl, #5830 ld (hl), 9 ld hl, #5831 ld (hl), 9 ld hl, #5832 ld (hl), 9 ld hl, #5833 ld (hl), 9 ld hl, #5834 ld (hl), 9 ld hl, #5835 ld (hl), 9 ld hl, #5836 ld (hl), 9 ld hl, #5837 ld (hl), 9 ld hl, #5838 ld (hl), 9 ld hl, #5839 ld (hl), 9 ld hl, #583A ld (hl), 9 ld hl, #583B ld (hl), 9 ld hl, #583C ld (hl), c ld hl, #583D ld (hl), 9 ld hl, #583E ld (hl), c ld hl, #583F ld (hl), 9 ld hl, #5840 ld (hl), 9 ld hl, #5841 ld (hl), 9 ld hl, #5842 ld (hl), c ld hl, #5843 ld (hl), 9 ld hl, #5844 ld (hl), c ld hl, #5845 ld (hl), 9 ld hl, #5846 ld (hl), 9 ld hl, #5847 ld (hl), 9 ld hl, #5848 ld (hl), 9 ld hl, #5849 ld (hl), 9 ld hl, #584A ld (hl), 9 ld hl, #584B ld (hl), 9 ld hl, #584C ld (hl), 9 ld hl, #584D ld (hl), 9 ld hl, #584E ld (hl), 9 ld hl, #584F ld (hl), 9 ld hl, #5850 ld (hl), 9 ld hl, #5851 ld (hl), 9 ld hl, #5852 ld (hl), 9 ld hl, #5853 ld (hl), 9 ld hl, #5854 ld (hl), 9 ld hl, #5855 ld (hl), 9 ld hl, #5856 ld (hl), 9 ld hl, #5857 ld (hl), 9 ld hl, #5858 ld (hl), 9 ld hl, #5859 ld (hl), 9 ld hl, #585A ld (hl), 9 ld hl, #585B ld (hl), 9 ld hl, #585C ld (hl), 9 ld hl, #585D ld (hl), c ld hl, #585E ld (hl), 9 ld hl, #585F ld (hl), 9 ld hl, #5860 ld (hl), 9 ld hl, #5861 ld (hl), 9 ld hl, #5862 ld (hl), 9 ld hl, #5863 ld (hl), c ld hl, #5864 ld (hl), 9 ld hl, #5865 ld (hl), 9 ld hl, #5866 ld (hl), 9 ld hl, #5867 ld (hl), 9 ld hl, #5868 ld (hl), 9 ld hl, #5869 ld (hl), 7 ld hl, #586A ld (hl), 7 ld hl, #586B ld (hl), 7 ld hl, #586C ld (hl), 7 ld hl, #586D ld (hl), 7 ld hl, #586E ld (hl), 7 ld hl, #586F ld (hl), 7 ld hl, #5870 ld (hl), 7 ld hl, #5871 ld (hl), 7 ld hl, #5872 ld (hl), 7 ld hl, #5873 ld (hl), 7 ld hl, #5874 ld (hl), 7 ld hl, #5875 ld (hl), 7 ld hl, #5876 ld (hl), 7 ld hl, #5877 ld (hl), 7 ld hl, #5878 ld (hl), 9 ld hl, #5879 ld (hl), 9 ld hl, #587A ld (hl), 9 ld hl, #587B ld (hl), 9 ld hl, #587C ld (hl), c ld hl, #587D ld (hl), 9 ld hl, #587E ld (hl), c ld hl, #587F ld (hl), 9 call red ld hl, #5882 ld (hl), 9 ld hl, #5883 ld (hl), 9 ld hl, #5884 ld (hl), 9 ld hl, #5885 ld (hl), 9 ld hl, #5886 ld (hl), 9 ld hl, #5887 ld (hl), 9 ld hl, #5888 ld (hl), 7 ld hl, #5889 ld (hl), 49 ld hl, #588A ld (hl), 49 ld hl, #588B ld (hl), 49 ld hl, #588C ld (hl), 49 ld hl, #588D ld (hl), 49 ld hl, #588E ld (hl), 49 ld hl, #588F ld (hl), 49 ld hl, #5890 ld (hl), 49 ld hl, #5891 ld (hl), 49 ld hl, #5892 ld (hl), 49 ld hl, #5893 ld (hl), 49 ld hl, #5894 ld (hl), 49 ld hl, #5895 ld (hl), 49 ld hl, #5896 ld (hl), 49 ld hl, #5897 ld (hl), 49 ld hl, #5898 ld (hl), 7 ld hl, #5899 ld (hl), 9 ld hl, #589A ld (hl), 9 ld hl, #589B ld (hl), 9 ld hl, #589C ld (hl), 9 ld hl, #589D ld (hl), 9 ld hl, #589E ld (hl), 9 ld hl, #589F ld (hl), 9 ld hl, #58A7 ld (hl), 7 ld hl, #58A8 ld (hl), 49 ld hl, #58A9 ld (hl), 49 ld hl, #58AA ld (hl), 49 ld hl, #58AB ld (hl), 25 ld hl, #58AC ld (hl), 25 ld hl, #58AD ld (hl), 25 ld hl, #58AE ld (hl), 25 ld hl, #58AF ld (hl), 25 ld hl, #58B0 ld (hl), 25 ld hl, #58B1 ld (hl), 25 ld hl, #58B2 ld (hl), 25 ld hl, #58B3 ld (hl), 25 ld hl, #58B4 ld (hl), 25 ld hl, #58B5 ld (hl), 25 ld hl, #58B6 ld (hl), 49 ld hl, #58B7 ld (hl), 49 ld hl, #58B8 ld (hl), 49 ld hl, #58B9 ld (hl), 7 ld hl, #58BA ld (hl), 9 ld hl, #58BB ld (hl), 9 ld hl, #58BC ld (hl), 9 ld hl, #58BD ld (hl), 9 ld hl, #58BE ld (hl), 9 ld hl, #58BF ld (hl), 9 ld hl, #58BF ld (hl), 9 call dred ld hl, #58C7 ld (hl), 7 ld hl, #58C8 ld (hl), 49 ld hl, #58C9 ld (hl), 49 ld hl, #58CA ld (hl), 25 ld hl, #58CB ld (hl), 25 ld hl, #58CC ld (hl), 25 ld hl, #58CD ld (hl), 25 ld hl, #58CE ld (hl), 25 call op ld hl, #58D0 ld (hl), 25 ld hl, #58D1 ld (hl), 25 ld hl, #58D3 ld (hl), 25 ld hl, #58D4 ld (hl), 25 ld hl, #58D5 ld (hl), 25 ld hl, #58D6 ld (hl), 25 ld hl, #58D7 ld (hl), 49 ld hl, #58D8 ld (hl), 49 ld hl, #58D9 ld (hl), 7 ld hl, #58DA ld (hl), 9 ld hl, #58DB ld (hl), 9 ld hl, #58DC ld (hl), 9 ld hl, #58DD ld (hl), 9 ld hl, #58DE ld (hl), 9 ld hl, #58DF ld (hl), 9 ld hl, #58E7 ld (hl), 7 ld hl, #58E8 ld (hl), 49 ld hl, #58E9 ld (hl), 25 ld hl, #58EA ld (hl), 25 ld hl, #58EC ld (hl), 25 ld hl, #58ED ld (hl), 25 ld hl, #58EE ld (hl), 25 ld hl, #58EF ld (hl), 25 ld hl, #58F0 ld (hl), 25 ld hl, #58F1 ld (hl), 25 ld hl, #58F2 ld (hl), 25 ld hl, #58F3 ld (hl), 25 ld hl, #58F4 ld (hl), 25 ld hl, #58F5 ld (hl), 25 ld hl, #58F6 ld (hl), 25 ld hl, #58F7 ld (hl), 25 ld hl, #58F8 ld (hl), 49 ld hl, #58F9 ld (hl), 7 ld hl, #58FA ld (hl), 9 ld hl, #58FB ld (hl), 9 ld hl, #58FC ld (hl), 9 ld hl, #58FD ld (hl), 9 ld hl, #58FE ld (hl), 9 ld hl, #58FF ld (hl), 9 call yel ld hl, #5901 ld (hl), 7 ld hl, #5902 ld (hl), 7 ld hl, #5903 ld (hl), 7 ld hl, #5904 ld (hl), 7 ld hl, #5907 ld (hl), 7 ld hl, #5908 ld (hl), 49 ld hl, #5909 ld (hl), 25 ld hl, #590A ld (hl), 25 ld hl, #590B ld (hl), 25 ld hl, #590C ld (hl), 25 ld hl, #590D ld (hl), 25 ld hl, #590E ld (hl), 25 ld hl, #590F ld (hl), 25 ld hl, #5910 ld (hl), 25 ld hl, #5911 ld (hl), 25 ld hl, #5912 ld (hl), 25 ld hl, #5913 ld (hl), 7 ld hl, #5914 ld (hl), 7 ld hl, #5915 ld (hl), 25 ld hl, #5917 ld (hl), 25 ld hl, #5918 ld (hl), 49 ld hl, #5919 ld (hl), 7 ld hl, #591A ld (hl), 9 ld hl, #591B ld (hl), 9 ld hl, #591C ld (hl), 7 ld hl, #591D ld (hl), 7 ld hl, #591E ld (hl), 9 ld hl, #591F ld (hl), 9 inc c ld hl, #5920 ld (hl), 7 ld hl, #5921 ld (hl), 57 ld hl, #5922 ld (hl), 57 ld hl, #5923 ld (hl), 57 ld hl, #5924 ld (hl), 57 ld hl, #5925 ld (hl), 7 ld hl, #5926 ld (hl), 7 ld hl, #5927 ld (hl), 7 ld hl, #5928 ld (hl), 49 ld hl, #5929 ld (hl), 25 ld hl, #592A ld (hl), 25 ld hl, #592B ld (hl), 25 ld hl, #592C ld (hl), 25 ld hl, #592E ld (hl), 25 ld hl, #592F ld (hl), 25 ld hl, #5931 ld (hl), 25 ld hl, #5932 ld (hl), 7 ld hl, #5933 ld (hl), 57 ld hl, #5934 ld (hl), 57 ld hl, #5935 ld (hl), 7 ld hl, #5936 ld (hl), 25 ld hl, #5937 ld (hl), 25 ld hl, #5938 ld (hl), 49 ld hl, #5939 ld (hl), 7 ld hl, #593A ld (hl), 9 ld hl, #593B ld (hl), 7 ld hl, #593C ld (hl), 57 ld hl, #593D ld (hl), 57 ld hl, #593E ld (hl), 7 ld hl, #593F ld (hl), 9 ld hl, #5940 ld (hl), 7 ld hl, #5941 ld (hl), 7 ld hl, #5942 ld (hl), 57 ld hl, #5943 ld (hl), 57 ld hl, #5944 ld (hl), 57 ld hl, #5945 ld (hl), 57 ld hl, #5946 ld (hl), 57 ld hl, #5947 ld (hl), 7 ld hl, #5948 ld (hl), 49 ld hl, #5949 ld (hl), 25 ld hl, #594B ld (hl), 25 ld hl, #594C ld (hl), 25 ld hl, #594D ld (hl), 25 ld hl, #594E ld (hl), 25 ld hl, #594F ld (hl), 25 ld hl, #5950 ld (hl), 25 ld hl, #5951 ld (hl), 25 ld hl, #5952 ld (hl), 7 ld hl, #5953 ld (hl), 57 ld hl, #5954 ld (hl), 57 ld hl, #5955 ld (hl), 57 ld hl, #5956 ld (hl), 7 ld hl, #5957 ld (hl), 25 ld hl, #5958 ld (hl), 49 ld hl, #5959 ld (hl), 7 ld hl, #595A ld (hl), 7 ld hl, #595B ld (hl), 57 ld hl, #595C ld (hl), 57 ld hl, #595D ld (hl), 57 ld hl, #595E ld (hl), 7 ld hl, #595F ld (hl), 9 call gren ld hl, #5962 ld (hl), 7 ld hl, #5963 ld (hl), 7 ld hl, #5964 ld (hl), 7 ld hl, #5965 ld (hl), 7 ld hl, #5966 ld (hl), 57 ld hl, #5967 ld (hl), 7 ld hl, #5968 ld (hl), 49 ld hl, #5969 ld (hl), 25 ld hl, #596A ld (hl), 25 ld hl, #596B ld (hl), 25 ld hl, #596C ld (hl), 25 ld hl, #596D ld (hl), 25 ld hl, #596F ld (hl), 25 ld hl, #5970 ld (hl), 25 ld hl, #5971 ld (hl), 25 ld hl, #5972 ld (hl), 7 ld hl, #5973 ld (hl), 57 ld hl, #5974 ld (hl), 57 ld hl, #5975 ld (hl), 57 ld hl, #5976 ld (hl), 57 ld hl, #5977 ld (hl), 7 ld hl, #5978 ld (hl), 7 ld hl, #5979 ld (hl), 7 ld hl, #597A ld (hl), 57 ld hl, #597B ld (hl), 57 ld hl, #597C ld (hl), 57 ld hl, #597D ld (hl), 57 ld hl, #597E ld (hl), 7 ld hl, #597F ld (hl), 9 call bblu ld hl, #5985 ld (hl), 7 ld hl, #5986 ld (hl), 7 ld hl, #5987 ld (hl), 7 ld hl, #5988 ld (hl), 49 ld hl, #5989 ld (hl), 25 ld hl, #598A ld (hl), 25 ld hl, #598C ld (hl), 25 ld hl, #598D ld (hl), 25 ld hl, #598E ld (hl), 25 ld hl, #598F ld (hl), 25 ld hl, #5990 ld (hl), 25 ld hl, #5991 ld (hl), 7 ld hl, #5992 ld (hl), 57 ld hl, #5993 ld (hl), 57 ld hl, #5994 ld (hl), 57 ld hl, #5995 ld (hl), 57 ld hl, #5996 ld (hl), 57 ld hl, #5997 ld (hl), 57 ld hl, #5998 ld (hl), 57 ld hl, #5999 ld (hl), 57 ld hl, #599A ld (hl), 57 ld hl, #599B ld (hl), 57 ld hl, #599C ld (hl), 57 ld hl, #599D ld (hl), 57 ld hl, #599E ld (hl), 57 ld hl, #599F ld (hl), 7 ld hl, #59A7 ld (hl), 7 ld hl, #59A8 ld (hl), 49 ld hl, #59A9 ld (hl), 25 ld hl, #59AA ld (hl), 25 ld hl, #59AB ld (hl), 25 ld hl, #59AC ld (hl), 25 ld hl, #59AD ld (hl), 25 ld hl, #59AE ld (hl), 25 ld hl, #59AF ld (hl), 25 ld hl, #59B1 ld (hl), 7 ld hl, #59B2 ld (hl), 57 ld hl, #59B3 ld (hl), 57 ld hl, #59B4 ld (hl), c ld hl, #59B5 ld (hl), 7 ld hl, #59B6 ld (hl), 57 ld hl, #59B7 ld (hl), 57 ld hl, #59B8 ld (hl), 57 ld hl, #59B9 ld (hl), 57 ld hl, #59BA ld (hl), 57 ld hl, #59BB ld (hl), c ld hl, #59BC ld (hl), 7 ld hl, #59BD ld (hl), 57 ld hl, #59BE ld (hl), 57 ld hl, #59BF ld (hl), 7 call viol ld hl, #59C7 ld (hl), 7 ld hl, #59C8 ld (hl), 49 ld hl, #59C9 ld (hl), 25 ld hl, #59CB ld (hl), 25 ld hl, #59CC ld (hl), 25 ld hl, #59CD ld (hl), 25 ld hl, #59CE ld (hl), 25 ld hl, #59CF ld (hl), 25 ld hl, #59D0 ld (hl), 25 ld hl, #59D1 ld (hl), 7 ld hl, #59D2 ld (hl), 57 ld hl, #59D3 ld (hl), 57 ld hl, #59D4 ld (hl), 7 ld hl, #59D5 ld (hl), 7 ld hl, #59D6 ld (hl), 57 ld hl, #59D7 ld (hl), 57 ld hl, #59D8 ld (hl), 57 ld hl, #59D9 ld (hl), 7 ld hl, #59DA ld (hl), 57 ld hl, #59DB ld (hl), 7 ld hl, #59DC ld (hl), 7 ld hl, #59DD ld (hl), 57 ld hl, #59DE ld (hl), 57 ld hl, #59DF ld (hl), 7 ld hl, #59E7 ld (hl), 7 ld hl, #59E8 ld (hl), 49 ld hl, #59E9 ld (hl), 25 ld hl, #59EA ld (hl), 25 ld hl, #59EB ld (hl), 25 ld hl, #59EC ld (hl), 25 ld hl, #59ED ld (hl), 25 ld hl, #59EF ld (hl), 25 ld hl, #59F0 ld (hl), 25 ld hl, #59F1 ld (hl), 7 ld hl, #59F2 ld (hl), 57 ld hl, #59F3 ld (hl), 57 ld hl, #59F4 ld (hl), 57 ld hl, #59F5 ld (hl), 57 ld hl, #59F6 ld (hl), 57 ld hl, #59F7 ld (hl), 57 ld hl, #59F8 ld (hl), 57 ld hl, #59F9 ld (hl), 57 ld hl, #59FA ld (hl), 57 ld hl, #59FB ld (hl), 57 ld hl, #59FC ld (hl), 57 ld hl, #59FD ld (hl), 57 ld hl, #59FE ld (hl), 57 ld hl, #59FF ld (hl), 7 ld hl, #5A00 ld (hl), 9 ld hl, #5A01 ld (hl), 9 ld hl, #5A07 ld (hl), 7 ld hl, #5A08 ld (hl), 49 ld hl, #5A09 ld (hl), 49 ld hl, #5A0A ld (hl), 25 ld hl, #5A0B ld (hl), 25 ld hl, #5A0D ld (hl), 25 ld hl, #5A0E ld (hl), 25 ld hl, #5A0F ld (hl), 25 ld hl, #5A10 ld (hl), 25 ld hl, #5A11 ld (hl), 7 ld hl, #5A12 ld (hl), 57 ld hl, #5A13 ld (hl), 25 ld hl, #5A14 ld (hl), 25 ld hl, #5A15 ld (hl), 57 ld hl, #5A16 ld (hl), 7 ld hl, #5A17 ld (hl), 57 ld hl, #5A18 ld (hl), 7 ld hl, #5A19 ld (hl), 57 ld hl, #5A1A ld (hl), 7 ld hl, #5A1B ld (hl), 57 ld hl, #5A1C ld (hl), 25 ld hl, #5A1D ld (hl), 25 ld hl, #5A1E ld (hl), 57 ld hl, #5A1F ld (hl), 7 ld hl, #5A20 ld (hl), 9 ld hl, #5A21 ld (hl), 9 ld hl, #5A22 ld (hl), 9 ld hl, #5A23 ld (hl), 9 ld hl, #5A24 ld (hl), 7 ld hl, #5A25 ld (hl), 7 ld hl, #5A26 ld (hl), 7 ld hl, #5A27 ld (hl), 7 ld hl, #5A28 ld (hl), 49 ld hl, #5A29 ld (hl), 49 ld hl, #5A2A ld (hl), 49 ld hl, #5A2B ld (hl), 25 ld hl, #5A2C ld (hl), 25 ld hl, #5A2D ld (hl), 25 ld hl, #5A2E ld (hl), 25 ld hl, #5A2F ld (hl), 25 ld hl, #5A30 ld (hl), 25 ld hl, #5A31 ld (hl), 25 ld hl, #5A32 ld (hl), 7 ld hl, #5A33 ld (hl), 25 ld hl, #5A34 ld (hl), 25 ld hl, #5A35 ld (hl), 57 ld hl, #5A36 ld (hl), 7 ld hl, #5A37 ld (hl), 7 ld hl, #5A38 ld (hl), 7 ld hl, #5A39 ld (hl), 7 ld hl, #5A3A ld (hl), 7 ld hl, #5A3B ld (hl), 57 ld hl, #5A3C ld (hl), 25 ld hl, #5A3D ld (hl), 25 ld hl, #5A3E ld (hl), 7 ld hl, #5A3F ld (hl), 9 ld hl, #5A40 ld (hl), 9 ld hl, #5A41 ld (hl), 9 ld hl, #5A42 ld (hl), 9 ld hl, #5A43 ld (hl), 7 ld hl, #5A44 ld (hl), 57 ld hl, #5A45 ld (hl), 57 ld hl, #5A46 ld (hl), 57 ld hl, #5A47 ld (hl), 7 ld hl, #5A48 ld (hl), 49 ld hl, #5A49 ld (hl), 49 ld hl, #5A4A ld (hl), 49 ld hl, #5A4B ld (hl), 49 ld hl, #5A4C ld (hl), 49 ld hl, #5A4D ld (hl), 49 ld hl, #5A4E ld (hl), 49 ld hl, #5A4F ld (hl), 49 ld hl, #5A50 ld (hl), 49 ld hl, #5A51 ld (hl), 49 ld hl, #5A52 ld (hl), 49 ld hl, #5A53 ld (hl), 7 ld hl, #5A54 ld (hl), 57 ld hl, #5A55 ld (hl), 57 ld hl, #5A56 ld (hl), 57 ld hl, #5A57 ld (hl), 57 ld hl, #5A58 ld (hl), 57 ld hl, #5A59 ld (hl), 57 ld hl, #5A5A ld (hl), 57 ld hl, #5A5B ld (hl), 57 ld hl, #5A5C ld (hl), 57 ld hl, #5A5D ld (hl), 7 ld hl, #5A5E ld (hl), 9 ld hl, #5A5F ld (hl), 9 ld hl, #5A60 ld (hl), 9 ld hl, #5A61 ld (hl), 9 ld hl, #5A62 ld (hl), 9 ld hl, #5A63 ld (hl), 7 ld hl, #5A64 ld (hl), 57 ld hl, #5A65 ld (hl), 57 ld hl, #5A66 ld (hl), 7 ld hl, #5A67 ld (hl), 9 ld hl, #5A68 ld (hl), 7 ld hl, #5A69 ld (hl), 7 ld hl, #5A6A ld (hl), 7 ld hl, #5A6B ld (hl), 7 ld hl, #5A6C ld (hl), 7 ld hl, #5A6D ld (hl), 7 ld hl, #5A6E ld (hl), 7 ld hl, #5A6F ld (hl), 7 ld hl, #5A70 ld (hl), 7 ld hl, #5A71 ld (hl), 7 ld hl, #5A72 ld (hl), 7 ld hl, #5A73 ld (hl), 7 ld hl, #5A74 ld (hl), 7 ld hl, #5A75 ld (hl), 7 ld hl, #5A76 ld (hl), 7 ld hl, #5A77 ld (hl), 7 ld hl, #5A78 ld (hl), 7 ld hl, #5A79 ld (hl), 7 ld hl, #5A7A ld (hl), 7 ld hl, #5A7B ld (hl), 7 ld hl, #5A7C ld (hl), 7 ld hl, #5A7D ld (hl), 9 ld hl, #5A7E ld (hl), 9 ld hl, #5A7F ld (hl), 9 ld hl, #5A80 ld (hl), 9 ld hl, #5A81 ld (hl), 9 ld hl, #5A82 ld (hl), 9 ld hl, #5A83 ld (hl), 7 ld hl, #5A84 ld (hl), 7 ld hl, #5A85 ld (hl), 7 ld hl, #5A86 ld (hl), 9 ld hl, #5A87 ld (hl), 9 ld hl, #5A88 ld (hl), 9 ld hl, #5A89 ld (hl), 7 ld hl, #5A8A ld (hl), 57 ld hl, #5A8B ld (hl), 57 ld hl, #5A8C ld (hl), 7 ld hl, #5A8D ld (hl), 9 ld hl, #5A8E ld (hl), 9 ld hl, #5A8F ld (hl), 9 ld hl, #5A90 ld (hl), 9 ld hl, #5A91 ld (hl), 9 ld hl, #5A92 ld (hl), 9 ld hl, #5A93 ld (hl), 7 ld hl, #5A94 ld (hl), 57 ld hl, #5A95 ld (hl), 57 ld hl, #5A96 ld (hl), 7 ld hl, #5A97 ld (hl), 9 ld hl, #5A98 ld (hl), 7 ld hl, #5A99 ld (hl), 57 ld hl, #5A9A ld (hl), 57 ld hl, #5A9B ld (hl), 7 ld hl, #5A9C ld (hl), 9 ld hl, #5A9D ld (hl), 9 ld hl, #5A9E ld (hl), 9 ld hl, #5A9F ld (hl), 9 ld hl, #5AA0 ld (hl), 9 ld hl, #5AA1 ld (hl), 9 ld hl, #5AA2 ld (hl), 9 ld hl, #5AA3 ld (hl), 9 ld hl, #5AA4 ld (hl), 9 ld hl, #5AA5 ld (hl), 9 ld hl, #5AA6 ld (hl), 9 ld hl, #5AA7 ld (hl), 9 ld hl, #5AA8 ld (hl), 9 ld hl, #5AA9 ld (hl), 9 ld hl, #5AAA ld (hl), 7 ld hl, #5AAB ld (hl), 7 ld hl, #5AAC ld (hl), 7 ld hl, #5AAD ld (hl), 9 ld hl, #5AAE ld (hl), 9 ld hl, #5AAF ld (hl), 9 ld hl, #5AB0 ld (hl), 9 ld hl, #5AB1 ld (hl), 9 ld hl, #5AB2 ld (hl), 9 ld hl, #5AB3 ld (hl), 9 ld hl, #5AB4 ld (hl), 7 ld hl, #5AB5 ld (hl), 7 ld hl, #5AB6 ld (hl), 7 ld hl, #5AB7 ld (hl), 9 ld hl, #5AB8 ld (hl), 9 ld hl, #5AB9 ld (hl), 7 ld hl, #5ABA ld (hl), 7 ld hl, #5ABB ld (hl), 7 ld hl, #5ABC ld (hl), 9 ld hl, #5ABD ld (hl), 9 ld hl, #5ABE ld (hl), 9 ld hl, #5ABF ld (hl), 9 ld hl, #5ABF ld (hl), 9 ld hl, #5AC0 ld (hl), 9 ld hl, #5AC1 ld (hl), 9 ld hl, #5AC2 ld (hl), 9 ld hl, #5AC3 ld (hl), 9 ld hl, #5AC4 ld (hl), 9 ld hl, #5AC5 ld (hl), 9 ld hl, #5AC6 ld (hl), 9 ld hl, #5AC7 ld (hl), 9 ld hl, #5AC8 ld (hl), 9 ld hl, #5AC9 ld (hl), 9 ld hl, #5ACA ld (hl), 9 ld hl, #5ACB ld (hl), 9 ld hl, #5ACC ld (hl), 9 ld hl, #5ACD ld (hl), 9 ld hl, #5ACE ld (hl), 9 ld hl, #5ACF ld (hl), 9 ld hl, #5AD0 ld (hl), 9 ld hl, #5AD1 ld (hl), 9 ld hl, #5AD2 ld (hl), 9 ld hl, #5AD3 ld (hl), 9 ld hl, #5AD4 ld (hl), 9 ld hl, #5AD5 ld (hl), 9 ld hl, #5AD6 ld (hl), 9 ld hl, #5AD7 ld (hl), c ld hl, #5AD8 ld (hl), 9 ld hl, #5AD9 ld (hl), 9 ld hl, #5ADA ld (hl), 9 ld hl, #5ADB ld (hl), 9 ld hl, #5ADC ld (hl), 9 ld hl, #5ADD ld (hl), 9 ld hl, #5ADE ld (hl), 9 ld hl, #5ADF ld (hl), c ld hl, #5AE0 ld (hl), 9 ld hl, #5AE1 ld (hl), 9 ld hl, #5AE2 ld (hl), c ld hl, #5AE3 ld (hl), 9 ld hl, #5AE4 ld (hl), 9 ld hl, #5AE5 ld (hl), 9 ld hl, #5AE6 ld (hl), 9 ld hl, #5AE7 ld (hl), 9 ld hl, #5AE8 ld (hl), 9 ld hl, #5AE9 ld (hl), 9 ld hl, #5AEA ld (hl), 9 ld hl, #5AEB ld (hl), 9 ld hl, #5AEC ld (hl), 9 ld hl, #5AED ld (hl), 9 ld hl, #5AEE ld (hl), 9 ld hl, #5AEF ld (hl), 9 ld hl, #5AF0 ld (hl), c ld hl, #5AF1 ld (hl), 9 ld hl, #5AF2 ld (hl), 9 ld hl, #5AF3 ld (hl), 9 ld hl, #5AF4 ld (hl), 9 ld hl, #5AF5 ld (hl), 9 ld hl, #5AF6 ld (hl), c ld hl, #5AF7 ld (hl), 9 ld hl, #5AF8 ld (hl), c ld hl, #5AF9 ld (hl), 9 ld hl, #5AFA ld (hl), 9 ld hl, #5AFB ld (hl), 9 ld hl, #5AFC ld (hl), 9 ld hl, #5AFD ld (hl), 9 ld hl, #5AFE ld (hl), 9 ld hl, #5AFF ld (hl), 9 jp loop op: ld d, 25 ld e, 89 ld hl, #58D2 ld (hl), e ld hl, #58CF ld (hl), e ld hl, #58EB ld (hl), e ld hl, #5916 ld (hl), e ld hl, #592D ld (hl), e ld hl, #5930 ld (hl), e ld hl, #594A ld (hl), e ld hl, #596E ld (hl), e ld hl, #598B ld (hl), e ld hl, #59B0 ld (hl), e ld hl, #59CA ld (hl), e ld hl, #59EE ld (hl), e ld hl, #5A0C ld (hl), e ld hl, #58D2 ld (hl), d ld hl, #58CF ld (hl), d ld hl, #58EB ld (hl), d ld hl, #5916 ld (hl), d ld hl, #592D ld (hl), d ld hl, #5930 ld (hl), d ld hl, #594A ld (hl), d ld hl, #596E ld (hl), d ld hl, #598B ld (hl), d ld hl, #59B0 ld (hl), d ld hl, #59CA ld (hl), d ld hl, #59EE ld (hl), d ld hl, #5A0C ld (hl), d ld hl, #58D2 ld (hl), e ld hl, #58CF ld (hl), e ld hl, #58EB ld (hl), e ld hl, #5916 ld (hl), e ld hl, #592D ld (hl), e ld hl, #5930 ld (hl), e ld hl, #594A ld (hl), e ld hl, #596E ld (hl), e ld hl, #598B ld (hl), e ld hl, #59B0 ld (hl), e ld hl, #59CA ld (hl), e ld hl, #59EE ld (hl), e ld hl, #5A0C ld (hl), e ret red: ld d, 85 ld e, 17 ld hl, #5880 ld (hl), d ld hl, #5881 ld (hl), d ld hl, #58A0 ld (hl), d ld hl, #58A1 ld (hl), d ld hl, #58A2 ld (hl), d ld hl, #58A3 ld (hl), d ld hl, #58A4 ld (hl), d ld hl, #58A5 ld (hl), d ld hl, #58A6 ld (hl), d ld hl, #58C2 ld (hl), d ld hl, #58C3 ld (hl), d ld hl, #58C4 ld (hl), d ld hl, #58C5 ld (hl), d ld hl, #58C6 ld (hl), d ld hl, #5880 ld (hl), e ld hl, #5881 ld (hl), e ld hl, #58A0 ld (hl), e ld hl, #58A1 ld (hl), e ld hl, #58A2 ld (hl), e ld hl, #58A3 ld (hl), e ld hl, #58A4 ld (hl), e ld hl, #58A5 ld (hl), e ld hl, #58A6 ld (hl), e ld hl, #58C2 ld (hl), e ld hl, #58C3 ld (hl), e ld hl, #58C4 ld (hl), e ld hl, #58C5 ld (hl), e ld hl, #58C6 ld (hl), e ld hl, #5880 ld (hl), d ld hl, #5881 ld (hl), d ld hl, #58A0 ld (hl), d ld hl, #58A1 ld (hl), d ld hl, #58A2 ld (hl), d ld hl, #58A3 ld (hl), d ld hl, #58A4 ld (hl), d ld hl, #58A5 ld (hl), d ld hl, #58A6 ld (hl), d ld hl, #58C2 ld (hl), d ld hl, #58C3 ld (hl), d ld hl, #58C4 ld (hl), d ld hl, #58C5 ld (hl), d ld hl, #58C6 ld (hl), d ret dred: ld d, 17 ld e, 85 ld hl, #58C0 ld (hl), d ld hl, #58C1 ld (hl), d ld hl, #58E0 ld (hl), d ld hl, #58E1 ld (hl), d ld hl, #58E2 ld (hl), d ld hl, #58E3 ld (hl), d ld hl, #58E4 ld (hl), d ld hl, #58E5 ld (hl), d ld hl, #58E6 ld (hl), d ld hl, #5905 ld (hl), d ld hl, #5906 ld (hl), d ld hl, #58C0 ld (hl), e ld hl, #58C1 ld (hl), e ld hl, #58E0 ld (hl), e ld hl, #58E1 ld (hl), e ld hl, #58E2 ld (hl), e ld hl, #58E3 ld (hl), e ld hl, #58E4 ld (hl), e ld hl, #58E5 ld (hl), e ld hl, #58E6 ld (hl), e ld hl, #5905 ld (hl), e ld hl, #5906 ld (hl), e ld hl, #58C0 ld (hl), d ld hl, #58C1 ld (hl), d ld hl, #58E0 ld (hl), d ld hl, #58E1 ld (hl), d ld hl, #58E2 ld (hl), d ld hl, #58E3 ld (hl), d ld hl, #58E4 ld (hl), d ld hl, #58E5 ld (hl), d ld hl, #58E6 ld (hl), d ld hl, #5905 ld (hl), d ld hl, #5906 ld (hl), d ret yel: ld d, 112 ld e, 49 ld hl, #5900 ld (hl), d ld hl, #5900 ld (hl), e ld hl, #5900 ld (hl), d ret gren: ld d, 97 ld e, 33 ld hl, #5960 ld (hl), d ld hl, #5961 ld (hl), d ld hl, #5982 ld (hl), d ld hl, #5983 ld (hl), d ld hl, #5984 ld (hl), d ld hl, #5960 ld (hl), e ld hl, #5961 ld (hl), e ld hl, #5982 ld (hl), e ld hl, #5983 ld (hl), e ld hl, #5984 ld (hl), e ld hl, #5960 ld (hl), d ld hl, #5961 ld (hl), d ld hl, #5982 ld (hl), d ld hl, #5983 ld (hl), d ld hl, #5984 ld (hl), d ret bblu: ld d, 110 ld e, 41 ld hl, #5980 ld (hl), d ld hl, #5981 ld (hl), d ld hl, #59A0 ld (hl), d ld hl, #59A1 ld (hl), d ld hl, #59A2 ld (hl), d ld hl, #59A3 ld (hl), d ld hl, #59A4 ld (hl), d ld hl, #59A5 ld (hl), d ld hl, #59A6 ld (hl), d ld hl, #59C2 ld (hl), d ld hl, #59C3 ld (hl), d ld hl, #59C4 ld (hl), d ld hl, #59C5 ld (hl), d ld hl, #59C6 ld (hl), d ld hl, #5980 ld (hl), e ld hl, #5981 ld (hl), e ld hl, #59A0 ld (hl), e ld hl, #59A1 ld (hl), e ld hl, #59A2 ld (hl), e ld hl, #59A3 ld (hl), e ld hl, #59A4 ld (hl), e ld hl, #59A5 ld (hl), e ld hl, #59A6 ld (hl), e ld hl, #59C2 ld (hl), e ld hl, #59C3 ld (hl), e ld hl, #59C4 ld (hl), e ld hl, #59C5 ld (hl), e ld hl, #59C6 ld (hl), e ld hl, #5980 ld (hl), d ld hl, #5981 ld (hl), d ld hl, #59A0 ld (hl), d ld hl, #59A1 ld (hl), d ld hl, #59A2 ld (hl), d ld hl, #59A3 ld (hl), d ld hl, #59A4 ld (hl), d ld hl, #59A5 ld (hl), d ld hl, #59A6 ld (hl), d ld hl, #59C2 ld (hl), d ld hl, #59C3 ld (hl), d ld hl, #59C4 ld (hl), d ld hl, #59C5 ld (hl), d ld hl, #59C6 ld (hl), d ret viol: ld d, 25 ld e, 89 ld hl, #59C0 ld (hl), d ld hl, #59C1 ld (hl), d ld hl, #59E0 ld (hl), d ld hl, #59E1 ld (hl), d ld hl, #59E2 ld (hl), d ld hl, #59E3 ld (hl), d ld hl, #59E4 ld (hl), d ld hl, #59E5 ld (hl), d ld hl, #59E6 ld (hl), d ld hl, #5A02 ld (hl), d ld hl, #5A03 ld (hl), d ld hl, #5A04 ld (hl), d ld hl, #5A05 ld (hl), d ld hl, #5A06 ld (hl), d ld hl, #59C0 ld (hl), e ld hl, #59C1 ld (hl), e ld hl, #59E0 ld (hl), e ld hl, #59E1 ld (hl), e ld hl, #59E2 ld (hl), e ld hl, #59E3 ld (hl), e ld hl, #59E4 ld (hl), e ld hl, #59E5 ld (hl), e ld hl, #59E6 ld (hl), e ld hl, #5A02 ld (hl), e ld hl, #5A03 ld (hl), e ld hl, #5A04 ld (hl), e ld hl, #5A05 ld (hl), e ld hl, #5A06 ld (hl), e ld hl, #59C0 ld (hl), d ld hl, #59C1 ld (hl), d ld hl, #59E0 ld (hl), d ld hl, #59E1 ld (hl), d ld hl, #59E2 ld (hl), d ld hl, #59E3 ld (hl), d ld hl, #59E4 ld (hl), d ld hl, #59E5 ld (hl), d ld hl, #59E6 ld (hl), d ld hl, #5A02 ld (hl), d ld hl, #5A03 ld (hl), d ld hl, #5A04 ld (hl), d ld hl, #5A05 ld (hl), d ld hl, #5A06 ld (hl), d ret end_file: ; выводим размер банарника display "code size: ", /d, end_file - begin_file ; сохраняем sna(снапшот состояния) файл savesna "kot.sna", begin_file ; сохраняем метки labelslist "user.l" ; сохраняем метки labelslist "user.l"