device zxspectrum128 ; org #6100 begin_file: di ld sp,#6100 ld a,1 ld b,256 ld hl,#5800 out (#Fe),a .loop: ld (hl),8 inc l djnz .loop ld hl,#5900 ld b, 256 .loop1: ld (hl),8 inc l djnz .loop1 ld hl,#5A00 ld b,32 .loop2: ld (hl),8 inc l djnz .loop2 loop: ld hl,#5AEA ld (hl),0 ld hl,#5AEB ld (hl),0 ld hl,#5AEC ld (hl),0 ld hl,#5AED ld (hl),0 ld hl,#5AEE ld (hl),0 ld hl,#5AEF ld (hl),0 ld hl,#5AF0 ld (hl),0 ld hl,#5AF1 ld (hl),0 ld hl,#5AF2 ld (hl),0 ld hl,#5AF3 ld (hl),0 ld hl,#5ACF ld (hl),0 ld hl,#5AD0 ld (hl),0 ld hl,#5ACE ld (hl),0 ld hl,#5AF4 ld (hl),0 ld hl,#5AAF ld (hl),0 ld hl,#5AAE ld (hl),0 ld hl,#5AB0 ld (hl),0 ld hl,#5AD1 ld (hl),0 ld hl,#5ACD ld (hl),0 ld hl,#5A8F ld (hl),0 ld hl,#5A8E ld (hl),0 ld hl,#5A90 ld (hl),0 ld hl,#5A6F ld (hl),0 ld hl,#5A6E ld (hl),0 ld hl,#5A70 ld (hl),0 ld hl,#5A4F ld (hl),0 ld hl,#5A4E ld (hl),0 ld hl,#5A50 ld (hl),0 ld hl,#5A2F ld (hl),0 ld hl,#5A2E ld (hl),0 ld hl,#5A30 ld (hl),0 ld hl,#5A0F ld (hl),0 ld hl,#5A0E ld (hl),0 ld hl,#5A10 ld (hl),0 ld hl,#59EF ld (hl),0 ld hl,#59EE ld (hl),0 ld hl,#59F0 ld (hl),0 ld hl,#59CF ld (hl),0 ld hl,#59CE ld (hl),0 ld hl,#59D0 ld (hl),0 ld hl,#59CD ld (hl),32 ld hl,#59CC ld (hl),32 ld hl,#59CB ld (hl),32 ld hl,#59CA ld (hl),32 ld hl,#59C9 ld (hl),32 ld hl,#59C8 ld (hl),32 ld hl,#5986 ld (hl),32 ld hl,#5966 ld (hl),32 ld hl,#5946 ld (hl),32 ld hl,#5926 ld (hl),32 ld hl,#5906 ld (hl),32 ld hl,#58E6 ld (hl),32 ld hl,#58A8 ld (hl),32 ld hl,#58A9 ld (hl),32 ld hl,#58AA ld (hl),32 ld hl,#58AB ld (hl),32 ld hl,#58AC ld (hl),32 ld hl,#58AD ld (hl),32 ld hl,#58AE ld (hl),32 ld hl,#58AF ld (hl),32 ld hl,#58B0 ld (hl),32 ld hl,#58B1 ld (hl),32 ld hl,#58B2 ld (hl),32 ld hl,#58B3 ld (hl),32 ld hl,#58B4 ld (hl),32 ld hl,#58B5 ld (hl),32 ld hl,#58B6 ld (hl),32 ld hl,#58F8 ld (hl),32 ld hl,#5918 ld (hl),32 ld hl,#5938 ld (hl),32 ld hl,#5958 ld (hl),32 ld hl,#5978 ld (hl),32 ld hl,#5998 ld (hl),32 ld hl,#59D6 ld (hl),32 ld hl,#59D5 ld (hl),32 ld hl,#59D4 ld (hl),32 ld hl,#59D3 ld (hl),32 ld hl,#59D2 ld (hl),32 ld hl,#59D1 ld (hl),32 ld hl,#58C8 ld (hl),32 ld hl,#58C7 ld (hl),32 ld hl,#58C9 ld (hl),32 ld hl,#58CA ld (hl),32 ld hl,#58CB ld (hl),32 ld hl,#58CC ld (hl),32 ld hl,#58CD ld (hl),32 ld hl,#58CE ld (hl),32 ld hl,#58CF ld (hl),32 ld hl,#58D0 ld (hl),32 ld hl,#58D1 ld (hl),32 ld hl,#58D2 ld (hl),32 ld hl,#58D3 ld (hl),32 ld hl,#58D4 ld (hl),32 ld hl,#58D5 ld (hl),32 ld hl,#58D6 ld (hl),32 ld hl,#58D7 ld (hl),32 ld hl,#58E7 ld (hl),32 ld hl,#58E8 ld (hl),32 ld hl,#58E9 ld (hl),32 ld hl,#58EA ld (hl),32 ld hl,#58EB ld (hl),32 ld hl,#58EC ld (hl),32 ld hl,#58ED ld (hl),32 ld hl,#58EE ld (hl),32 ld hl,#58EF ld (hl),32 ld hl,#58F0 ld (hl),32 ld hl,#58F1 ld (hl),32 ld hl,#58F2 ld (hl),32 ld hl,#58F3 ld (hl),32 ld hl,#58F4 ld (hl),32 ld hl,#58F5 ld (hl),32 ld hl,#58F6 ld (hl),32 ld hl,#58F7 ld (hl),32 ld hl,#58F8 ld (hl),32 ld hl,#5907 ld (hl),32 ld hl,#5908 ld (hl),32 ld hl,#5909 ld (hl),32 ld hl,#590A ld (hl),32 ld hl,#590B ld (hl),32 ld hl,#590C ld (hl),32 ld hl,#590D ld (hl),32 ld hl,#590E ld (hl),32 ld hl,#590F ld (hl),32 ld hl,#5910 ld (hl),32 ld hl,#5911 ld (hl),32 ld hl,#5912 ld (hl),32 ld hl,#5913 ld (hl),32 ld hl,#5914 ld (hl),32 ld hl,#5915 ld (hl),32 ld hl,#5916 ld (hl),32 ld hl,#5917 ld (hl),32 ld hl,#5918 ld (hl),32 ld hl,#5926 ld (hl),32 ld hl,#5927 ld (hl),32 ld hl,#5928 ld (hl),32 ld hl,#5929 ld (hl),32 ld hl,#592A ld (hl),32 ld hl,#592B ld (hl),32 ld hl,#592C ld (hl),32 ld hl,#592D ld (hl),32 ld hl,#592E ld (hl),32 ld hl,#592F ld (hl),32 ld hl,#5930 ld (hl),32 ld hl,#5931 ld (hl),32 ld hl,#5932 ld (hl),32 ld hl,#5933 ld (hl),32 ld hl,#5934 ld (hl),32 ld hl,#5935 ld (hl),32 ld hl,#5936 ld (hl),32 ld hl,#5937 ld (hl),32 ld hl,#5938 ld (hl),32 ld hl,#5946 ld (hl),32 ld hl,#5947 ld (hl),32 ld hl,#5948 ld (hl),32 ld hl,#5949 ld (hl),32 ld hl,#594A ld (hl),32 ld hl,#594B ld (hl),32 ld hl,#594C ld (hl),32 ld hl,#594D ld (hl),32 ld hl,#594E ld (hl),32 ld hl,#594F ld (hl),32 ld hl,#5950 ld (hl),32 ld hl,#5951 ld (hl),32 ld hl,#5952 ld (hl),32 ld hl,#5953 ld (hl),32 ld hl,#5954 ld (hl),32 ld hl,#5955 ld (hl),32 ld hl,#5956 ld (hl),32 ld hl,#5957 ld (hl),32 ld hl,#5966 ld (hl),32 ld hl,#5967 ld (hl),32 ld hl,#5968 ld (hl),32 ld hl,#5969 ld (hl),32 ld hl,#596A ld (hl),32 ld hl,#596B ld (hl),32 ld hl,#596C ld (hl),32 ld hl,#596D ld (hl),32 ld hl,#596E ld (hl),32 ld hl,#596F ld (hl),32 ld hl,#5970 ld (hl),32 ld hl,#5971 ld (hl),32 ld hl,#5972 ld (hl),32 ld hl,#5973 ld (hl),32 ld hl,#5974 ld (hl),32 ld hl,#5975 ld (hl),32 ld hl,#5976 ld (hl),32 ld hl,#5977 ld (hl),32 ld hl,#5986 ld (hl),32 ld hl,#5987 ld (hl),32 ld hl,#5988 ld (hl),32 ld hl,#5989 ld (hl),32 ld hl,#598A ld (hl),32 ld hl,#598B ld (hl),32 ld hl,#598C ld (hl),32 ld hl,#598D ld (hl),32 ld hl,#598E ld (hl),32 ld hl,#598F ld (hl),32 ld hl,#5990 ld (hl),32 ld hl,#5991 ld (hl),32 ld hl,#5992 ld (hl),32 ld hl,#5993 ld (hl),32 ld hl,#5994 ld (hl),32 ld hl,#5995 ld (hl),32 ld hl,#5996 ld (hl),32 ld hl,#5997 ld (hl),32 ld hl,#59A8 ld (hl),32 ld hl,#59A7 ld (hl),32 ld hl,#59A9 ld (hl),32 ld hl,#59AA ld (hl),32 ld hl,#59AB ld (hl),32 ld hl,#59AC ld (hl),32 ld hl,#59AD ld (hl),32 ld hl,#59AE ld (hl),32 ld hl,#59AF ld (hl),32 ld hl,#59B0 ld (hl),32 ld hl,#59B1 ld (hl),32 ld hl,#59B2 ld (hl),32 ld hl,#59B3 ld (hl),32 ld hl,#59B4 ld (hl),32 ld hl,#59B5 ld (hl),32 ld hl,#59B6 ld (hl),32 ld hl,#59B7 ld (hl),32 ld hl,#5889 ld (hl),32 ld hl,#588A ld (hl),32 ld hl,#588B ld (hl),32 ld hl,#588C ld (hl),32 ld hl,#588D ld (hl),32 ld hl,#588E ld (hl),32 ld hl,#588F ld (hl),32 ld hl,#5890 ld (hl),32 ld hl,#5891 ld (hl),32 ld hl,#5892 ld (hl),32 ld hl,#5893 ld (hl),32 ld hl,#5894 ld (hl),32 ld hl,#5895 ld (hl),32 ld hl,#586A ld (hl),32 ld hl,#586B ld (hl),32 ld hl,#586C ld (hl),32 ld hl,#586D ld (hl),32 ld hl,#586E ld (hl),32 ld hl,#586F ld (hl),32 ld hl,#5870 ld (hl),32 ld hl,#5871 ld (hl),32 ld hl,#5872 ld (hl),32 ld hl,#5873 ld (hl),32 ld hl,#5874 ld (hl),32 ld hl,#584B ld (hl),32 ld hl,#584C ld (hl),32 ld hl,#584D ld (hl),32 ld hl,#584E ld (hl),32 ld hl,#584F ld (hl),32 ld hl,#5850 ld (hl),32 ld hl,#5851 ld (hl),32 ld hl,#5852 ld (hl),32 ld hl,#5853 ld (hl),32 ld hl,#582C ld (hl),32 ld hl,#582D ld (hl),32 ld hl,#582E ld (hl),32 ld hl,#582F ld (hl),32 ld hl,#5830 ld (hl),32 ld hl,#5831 ld (hl),32 ld hl,#5832 ld (hl),32 ld hl,#580D ld (hl),32 ld hl,#580E ld (hl),32 ld hl,#580F ld (hl),32 ld hl,#5810 ld (hl),32 ld hl,#5811 ld (hl),32 jp loop end_file: display "code size: ", /d, end_file - begin_file savesna "three.sna", begin_file labelslist "user.l"