;--- 2021-10-23 --- https://rmda.su ; _______ _/| __ ______ ____ ; / __ // |/ \\ _ \ / \ ; / _/ _// \\ \\ \\ \ \ ; \___\ \\___\/___//______//__/\__\ ; \__/ ;--- size: 256b --- filename: tmp/user.b device zxspectrum128 ORG #6214 link_3: EQU #62B2 link_4: EQU #6275 begin: PUSH IY ; #6214 / 25108 ; ; #FD,#E5 LD C,#03 ; #6216 / 25110 ; ; #0E,#03 link_10: LD B,#10 ; #6218 / 25112 ; ; #06,#10 link_9: LD IX,link_1 ; #621A / 25114 ; ! c ; #DD,#21,#00,#63 PUSH BC ; #621E / 25118 ; ; #C5 CALL link_2 ; #621F / 25119 ; Rb ; #CD,#52,#62 LD A,C ; #6222 / 25122 ; y ; #79 RRA ; #6223 / 25123 ; ; #1F CALL NC,link_2 ; #6224 / 25124 ; Rb ; #D4,#52,#62 LD A,(link_3) ; #6227 / 25127 ; : b ; #3A,#B2,#62 ADD #80 ; #622A / 25130 ; ; #C6,#80 LD (link_3),A ; #622C / 25132 ; 2 b ; #32,#B2,#62 LD A,(link_4) ; #622F / 25135 ; :ub ; #3A,#75,#62 DEC A ; #6232 / 25138 ; = ; #3D link_5: DEC A ; #6233 / 25139 ; = ; #3D LD (link_4),A ; #6234 / 25140 ; 2ub ; #32,#75,#62 LD IXL,#04 ; #6237 / 25143 ; . ; #DD,#2E,#04 CALL link_2 ; #623A / 25146 ; Rb ; #CD,#52,#62 LD A,C ; #623D / 25149 ; y ; #79 RRA ; #623E / 25150 ; ; #1F CALL C,link_2 ; #623F / 25151 ; Rb ; #DC,#52,#62 POP BC ; #6242 / 25154 ; ; #C1 DJNZ link_9 ; #6243 / 25155 ; ; #10,#D5 XOR A ; #6245 / 25157 ; ; #AF LD (link_5),A ; #6246 / 25158 ; 23b ; #32,#33,#62 LD (link_6),A ; #6249 / 25161 ; 2ab ; #32,#61,#62 DEC C ; #624C / 25164 ; ; #0D JR NZ,link_10 ; #624D / 25165 ; ; #20,#C9 POP IY ; #624F / 25167 ; ; #FD,#E1 RET ; #6251 / 25169 ; ; #C9 link_2: LD A,#10 ; #6252 / 25170 ; > ; #3E,#10 link_14: DEC A ; #6254 / 25172 ; = ; #3D LD IYL,A ; #6255 / 25173 ; o ; #FD,#6F LD B,#10 ; #6257 / 25175 ; ; #06,#10 link_13: AND #10 ; #6259 / 25177 ; ; #E6,#10 OUT (#FE),A ; #625B / 25179 ; ; #D3,#FE LD A,B ; #625D / 25181 ; x ; #78 DEC A ; #625E / 25182 ; = ; #3D LD IYH,A ; #625F / 25183 ; g ; #FD,#67 link_6: RRA ; #6261 / 25185 ; ; #1F JR NC,link_11 ; #6262 / 25186 ; 0 ; #30,#10 LD HL,#5800 ; #6264 / 25188 ; ! X ; #21,#00,#58 LD DE,#5801 ; #6267 / 25191 ; X ; #11,#01,#58 LD BC,#02FF ; #626A / 25194 ; ; #01,#FF,#02 AND #06 ; #626D / 25197 ; ; #E6,#06 ADD #41 ; #626F / 25199 ; A ; #C6,#41 LD (HL),A ; #6271 / 25201 ; w ; #77 LDIR ; #6272 / 25202 ; ; #ED,#B0 link_11: LD A,#0F ; #6274 / 25204 ; > ; #3E,#0F AND #0F ; #6276 / 25206 ; ; #E6,#0F OUT (#FE),A ; #6278 / 25208 ; ; #D3,#FE INC A ; #627A / 25210 ; < ; #3C LD B,A ; #627B / 25211 ; G ; #47 link_12: PUSH BC ; #627C / 25212 ; ; #C5 DEC B ; #627D / 25213 ; ; #05 LD A,B ; #627E / 25214 ; x ; #78 ADD IXL ; #627F / 25215 ; ; #DD,#85 LD L,A ; #6281 / 25217 ; o ; #6F LD H,#63 ; #6282 / 25218 ; &c ; #26,#63 CALL link_7 ; #6284 / 25220 ; b ; #CD,#F3,#62 LD B,D ; #6287 / 25223 ; B ; #42 LD C,E ; #6288 / 25224 ; K ; #4B LD A,IYH ; #6289 / 25225 ; | ; #FD,#7C LD L,A ; #628B / 25227 ; o ; #6F CALL link_7 ; #628C / 25228 ; b ; #CD,#F3,#62 LD A,D ; #628F / 25231 ; z ; #7A RLA ; #6290 / 25232 ; ; #17 RLA ; #6291 / 25233 ; ; #17 LD H,A ; #6292 / 25234 ; g ; #67 LD A,E ; #6293 / 25235 ; { ; #7B RLA ; #6294 / 25236 ; ; #17 RLA ; #6295 / 25237 ; ; #17 LD L,A ; #6296 / 25238 ; o ; #6F ADD HL,BC ; #6297 / 25239 ; ; #09 LD B,H ; #6298 / 25240 ; D ; #44 LD C,L ; #6299 / 25241 ; M ; #4D LD A,IYL ; #629A / 25242 ; } ; #FD,#7D ADD IXL ; #629C / 25244 ; ; #DD,#85 LD L,A ; #629E / 25246 ; o ; #6F LD H,#63 ; #629F / 25247 ; &c ; #26,#63 CALL link_7 ; #62A1 / 25249 ; b ; #CD,#F3,#62 LD A,D ; #62A4 / 25252 ; z ; #7A RLA ; #62A5 / 25253 ; ; #17 RLA ; #62A6 / 25254 ; ; #17 RLA ; #62A7 / 25255 ; ; #17 RLA ; #62A8 / 25256 ; ; #17 ADD B ; #62A9 / 25257 ; ; #80 LD D,A ; #62AA / 25258 ; W ; #57 LD A,E ; #62AB / 25259 ; { ; #7B RLA ; #62AC / 25260 ; ; #17 RLA ; #62AD / 25261 ; ; #17 RLA ; #62AE / 25262 ; ; #17 RLA ; #62AF / 25263 ; ; #17 ADD C ; #62B0 / 25264 ; ; #81 ADD #F6 ; #62B1 / 25265 ; ; #C6,#F6 LD E,A ; #62B3 / 25267 ; _ ; #5F CALL link_8 ; #62B4 / 25268 ; b ; #CD,#C7,#62 POP BC ; #62B7 / 25271 ; ; #C1 DJNZ link_12 ; #62B8 / 25272 ; ; #10,#C2 LD A,IYH ; #62BA / 25274 ; | ; #FD,#7C INC A ; #62BC / 25276 ; < ; #3C LD B,A ; #62BD / 25277 ; G ; #47 DJNZ link_13 ; #62BE / 25278 ; ; #10,#99 LD A,IYL ; #62C0 / 25280 ; } ; #FD,#7D CP #00 ; #62C2 / 25282 ; ; #FE,#00 JR NZ,link_14 ; #62C4 / 25284 ; ; #20,#8E RET ; #62C6 / 25286 ; ; #C9 link_8: LD A,#AF ; #62C7 / 25287 ; > ; #3E,#AF SUB D ; #62C9 / 25289 ; ; #92 LD D,A ; #62CA / 25290 ; W ; #57 AND A ; #62CB / 25291 ; ; #A7 RRA ; #62CC / 25292 ; ; #1F SCF ; #62CD / 25293 ; 7 ; #37 RRA ; #62CE / 25294 ; ; #1F AND A ; #62CF / 25295 ; ; #A7 RRA ; #62D0 / 25296 ; ; #1F XOR D ; #62D1 / 25297 ; ; #AA AND #F8 ; #62D2 / 25298 ; ; #E6,#F8 XOR D ; #62D4 / 25300 ; ; #AA LD H,A ; #62D5 / 25301 ; g ; #67 LD A,E ; #62D6 / 25302 ; { ; #7B RLCA ; #62D7 / 25303 ; ; #07 RLCA ; #62D8 / 25304 ; ; #07 RLCA ; #62D9 / 25305 ; ; #07 XOR D ; #62DA / 25306 ; ; #AA AND #C7 ; #62DB / 25307 ; ; #E6,#C7 XOR D ; #62DD / 25309 ; ; #AA RLCA ; #62DE / 25310 ; ; #07 RLCA ; #62DF / 25311 ; ; #07 LD L,A ; #62E0 / 25312 ; o ; #6F LD A,E ; #62E1 / 25313 ; { ; #7B AND #07 ; #62E2 / 25314 ; ; #E6,#07 LD B,A ; #62E4 / 25316 ; G ; #47 INC B ; #62E5 / 25317 ; ; #04 LD A,#FE ; #62E6 / 25318 ; > ; #3E,#FE link_15: RRCA ; #62E8 / 25320 ; ; #0F DJNZ link_15 ; #62E9 / 25321 ; ; #10,#FD LD B,#FF ; #62EB / 25323 ; ; #06,#FF XOR B ; #62ED / 25325 ; ; #A8 LD B,A ; #62EE / 25326 ; G ; #47 LD A,(HL) ; #62EF / 25327 ; ~ ; #7E XOR B ; #62F0 / 25328 ; ; #A8 LD (HL),A ; #62F1 / 25329 ; w ; #77 RET ; #62F2 / 25330 ; ; #C9 link_7: LD A,(HL) ; #62F3 / 25331 ; ~ ; #7E AND #0F ; #62F4 / 25332 ; ; #E6,#0F LD D,A ; #62F6 / 25334 ; W ; #57 LD A,(HL) ; #62F7 / 25335 ; ~ ; #7E AND #F0 ; #62F8 / 25336 ; ; #E6,#F0 RRA ; #62FA / 25338 ; ; #1F RRA ; #62FB / 25339 ; ; #1F RRA ; #62FC / 25340 ; ; #1F RRA ; #62FD / 25341 ; ; #1F LD E,A ; #62FE / 25342 ; _ ; #5F RET ; #62FF / 25343 ; ; #C9 link_1: LD (#5552),HL ; #6300 / 25344 ; "RU ; #22,#52,#55 DEC H ; #6303 / 25347 ; % ; #25 LD SP,#4663 ; #6304 / 25348 ; 1cF ; #31,#63,#46 INC D ; #6307 / 25351 ; ; #14 LD (#4553),A ; #6308 / 25352 ; 2SE ; #32,#53,#45 INC H ; #630B / 25355 ; $ ; #24 INC SP ; #630C / 25356 ; 3 ; #33 LD B,E ; #630D / 25357 ; C ; #43 LD B,H ; #630E / 25358 ; D ; #44 INC (HL) ; #630F / 25359 ; 4 ; #34 LD (DE),A ; #6310 / 25360 ; ; #12 LD H,#51 ; #6311 / 25361 ; &Q ; #26,#51 LD H,L ; #6313 / 25363 ; e ; #65 end: