;--- 2024-12-05 --- 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: