by@hakatashi
AC
555ms
00000000 dd 21 00 10 cd 82 01 dd 21 01 10 cd 82 01 dd 21 |.!......!......!| 00000010 02 10 cd 82 01 dd 21 03 10 cd 82 01 dd 21 04 10 |......!......!..| 00000020 cd 82 01 dd 21 05 10 cd 82 01 dd 21 06 10 cd 82 |....!......!....| 00000030 01 dd 21 07 10 cd 82 01 dd 21 08 10 cd 82 01 dd |..!......!......| 00000040 21 09 10 cd 82 01 dd 21 0a 10 cd 82 01 dd 21 0b |!......!......!.| 00000050 10 cd 82 01 dd 21 00 10 3a 03 10 dd 96 00 32 03 |.....!..:.....2.| 00000060 10 3a 06 10 dd 96 00 32 06 10 3a 09 10 dd 96 00 |.:.....2..:.....| 00000070 32 09 10 dd 21 01 10 3a 04 10 dd 96 00 32 04 10 |2...!..:.....2..| 00000080 3a 07 10 dd 96 00 32 07 10 3a 0a 10 dd 96 00 32 |:.....2..:.....2| 00000090 0a 10 dd 21 02 10 3a 05 10 dd 96 00 32 05 10 3a |...!..:.....2..:| 000000a0 08 10 dd 96 00 32 08 10 3a 0b 10 dd 96 00 32 0b |.....2..:.....2.| 000000b0 10 dd 21 00 20 dd 36 00 03 dd 36 01 07 dd 36 02 |..!. .6...6...6.| 000000c0 0b cd b5 01 c4 30 02 dd 7e 03 dd 77 06 dd 7e 04 |.....0..~..w..~.| 000000d0 dd 77 07 dd 7e 05 dd 77 08 dd 36 00 04 dd 36 01 |.w..~..w..6...6.| 000000e0 08 dd 36 02 09 cd b5 01 c4 30 02 cd 4a 02 dd 36 |..6......0..J..6| 000000f0 00 05 dd 36 01 06 dd 36 02 0a cd b5 01 c4 30 02 |...6...6......0.| 00000100 cd 4a 02 dd 36 00 03 dd 36 01 08 dd 36 02 0a cd |.J..6...6...6...| 00000110 b5 01 cc 30 02 cd 4a 02 dd 36 00 04 dd 36 01 06 |...0..J..6...6..| 00000120 dd 36 02 0b cd b5 01 cc 30 02 cd 4a 02 dd 36 00 |.6......0..J..6.| 00000130 05 dd 36 01 07 dd 36 02 09 cd b5 01 cc 30 02 cd |..6...6......0..| 00000140 4a 02 dd 66 06 dd 6e 07 0e 06 cd 68 02 67 55 dd |J..f..n....h.gU.| 00000150 6e 08 0e 06 cd 68 02 62 0e 0a dd 21 00 20 06 06 |n....h.b...!. ..| 00000160 cd 68 02 dd 77 00 dd 23 10 f6 dd 21 05 20 06 06 |.h..w..#...!. ..| 00000170 48 cd 68 02 dd 7e 00 c6 30 cd 00 80 41 dd 2b 10 |H.h..~..0...A.+.| 00000180 ef 76 cd 03 80 d6 30 47 cb 20 cb 20 cb 20 cb 27 |.v....0G. . . .'| 00000190 80 47 cd 03 80 d6 30 80 dd 77 00 cd 03 80 c9 21 |.G....0..w.....!| 000001a0 00 00 79 b7 c8 41 af 19 d2 ac 01 3c 10 f9 c9 cb |..y..A.....<....| 000001b0 7f c8 ed 44 c9 21 00 10 06 00 dd 4e 00 09 7e cd |...D.!.....N..~.| 000001c0 af 01 16 00 5f 21 00 10 06 00 dd 4e 01 09 7e cd |...._!.....N..~.| 000001d0 af 01 4f cd 9f 01 54 5d 21 00 10 06 00 dd 4e 02 |..O...T]!.....N.| 000001e0 09 7e cd af 01 4f cd 9f 01 dd 77 03 dd 74 04 dd |.~...O....w..t..| 000001f0 75 05 06 00 21 00 10 16 00 dd 5e 00 19 7e cb 7f |u...!.....^..~..| 00000200 ca 07 02 78 ee 01 47 21 00 10 16 00 dd 5e 01 19 |...x..G!.....^..| 00000210 7e cb 7f ca 1a 02 78 ee 01 47 21 00 10 16 00 dd |~.....x..G!.....| 00000220 5e 02 19 7e cb 7f ca 2d 02 78 ee 01 47 cb 40 c9 |^..~...-.x..G.@.| 00000230 dd 7e 03 2f 57 dd 7e 04 2f 47 dd 7e 05 2f 4f 03 |.~./W.~./G.~./O.| 00000240 dd 72 03 dd 70 04 dd 71 05 c9 dd 7e 03 dd 46 04 |.r..p..q...~..F.| 00000250 dd 4e 05 dd 56 06 dd 66 07 dd 6e 08 09 8a dd 77 |.N..V..f..n....w| 00000260 06 dd 74 07 dd 75 08 c9 af 06 10 29 17 38 03 b9 |..t..u.....).8..| 00000270 38 02 91 2c 10 f5 c9 |8..,...| 00000277
ORG 0000h
LD IX,1000h
CALL L0182
LD IX,1001h
CALL L0182
LD IX,1002h
CALL L0182
LD IX,1003h
CALL L0182
LD IX,1004h
CALL L0182
LD IX,1005h
CALL L0182
LD IX,1006h
CALL L0182
LD IX,1007h
CALL L0182
LD IX,1008h
CALL L0182
LD IX,1009h
CALL L0182
LD IX,100Ah
CALL L0182
LD IX,100Bh
CALL L0182
LD IX,1000h
LD A,(1003h)
SUB (IX+00h)
LD (1003h),A
LD A,(1006h)
SUB (IX+00h)
LD (1006h),A
LD A,(1009h)
SUB (IX+00h)
LD (1009h),A
LD IX,1001h
LD A,(1004h)
SUB (IX+00h)
LD (1004h),A
LD A,(1007h)
SUB (IX+00h)
LD (1007h),A
LD A,(100Ah)
SUB (IX+00h)
LD (100Ah),A
LD IX,1002h
LD A,(1005h)
SUB (IX+00h)
LD (1005h),A
LD A,(1008h)
SUB (IX+00h)
LD (1008h),A
LD A,(100Bh)
SUB (IX+00h)
LD (100Bh),A
LD IX,2000h
LD (IX+00h),03h
LD (IX+01h),07h
LD (IX+02h),0Bh
CALL L01B5
CALL NZ,L0230
LD A,(IX+03h)
LD (IX+06h),A
LD A,(IX+04h)
LD (IX+07h),A
LD A,(IX+05h)
LD (IX+08h),A
LD (IX+00h),04h
LD (IX+01h),08h
LD (IX+02h),09h
CALL L01B5
CALL NZ,L0230
CALL L024A
LD (IX+00h),05h
LD (IX+01h),06h
LD (IX+02h),0Ah
CALL L01B5
CALL NZ,L0230
CALL L024A
LD (IX+00h),03h
LD (IX+01h),08h
LD (IX+02h),0Ah
CALL L01B5
CALL Z,L0230
CALL L024A
LD (IX+00h),04h
LD (IX+01h),06h
LD (IX+02h),0Bh
CALL L01B5
CALL Z,L0230
CALL L024A
LD (IX+00h),05h
LD (IX+01h),07h
LD (IX+02h),09h
CALL L01B5
CALL Z,L0230
CALL L024A
LD H,(IX+06h)
LD L,(IX+07h)
LD C,06h
CALL L0268
LD H,A
LD D,L
LD L,(IX+08h)
LD C,06h
CALL L0268
LD H,D
LD C,0Ah
LD IX,2000h
LD B,06h
L0160: CALL L0268
LD (IX+00h),A
INC IX
DJNZ L0160
LD IX,2005h
LD B,06h
L0170: LD C,B
CALL L0268
LD A,(IX+00h)
ADD A,30h ; '0'
CALL 8000h
LD B,C
DEC IX
DJNZ L0170
HALT
; --- START PROC L0182 ---
L0182: CALL 8003h
SUB 30h ; '0'
LD B,A
SLA B
SLA B
SLA B
SLA A
ADD A,B
LD B,A
CALL 8003h
SUB 30h ; '0'
ADD A,B
LD (IX+00h),A
CALL 8003h
RET
; --- START PROC L019F ---
L019F: LD HL,0000h
LD A,C
OR A
RET Z
LD B,C
XOR A
L01A7: ADD HL,DE
JP NC,L01AC
INC A
L01AC: DJNZ L01A7
RET
; --- START PROC L01AF ---
L01AF: BIT 7,A
RET Z
NEG
RET
; --- START PROC L01B5 ---
L01B5: LD HL,1000h
LD B,00h
LD C,(IX+00h)
ADD HL,BC
LD A,(HL)
CALL L01AF
LD D,00h
LD E,A
LD HL,1000h
LD B,00h
LD C,(IX+01h)
ADD HL,BC
LD A,(HL)
CALL L01AF
LD C,A
CALL L019F
LD D,H
LD E,L
LD HL,1000h
LD B,00h
LD C,(IX+02h)
ADD HL,BC
LD A,(HL)
CALL L01AF
LD C,A
CALL L019F
LD (IX+03h),A
LD (IX+04h),H
LD (IX+05h),L
LD B,00h
LD HL,1000h
LD D,00h
LD E,(IX+00h)
ADD HL,DE
LD A,(HL)
BIT 7,A
JP Z,L0207
LD A,B
XOR 01h
LD B,A
L0207: LD HL,1000h
LD D,00h
LD E,(IX+01h)
ADD HL,DE
LD A,(HL)
BIT 7,A
JP Z,L021A
LD A,B
XOR 01h
LD B,A
L021A: LD HL,1000h
LD D,00h
LD E,(IX+02h)
ADD HL,DE
LD A,(HL)
BIT 7,A
JP Z,L022D
LD A,B
XOR 01h
LD B,A
L022D: BIT 0,B
RET
; --- START PROC L0230 ---
L0230: LD A,(IX+03h)
CPL
LD D,A
LD A,(IX+04h)
CPL
LD B,A
LD A,(IX+05h)
CPL
LD C,A
INC BC
LD (IX+03h),D
LD (IX+04h),B
LD (IX+05h),C
RET
; --- START PROC L024A ---
L024A: LD A,(IX+03h)
LD B,(IX+04h)
LD C,(IX+05h)
LD D,(IX+06h)
LD H,(IX+07h)
LD L,(IX+08h)
ADD HL,BC
ADC A,D
LD (IX+06h),A
LD (IX+07h),H
LD (IX+08h),L
RET
; --- START PROC L0268 ---
L0268: XOR A
LD B,10h
L026B: ADD HL,HL
RLA
JR C,L0272
CP C
JR C,L0274
L0272: SUB C
INC L
L0274: DJNZ L026B
RET
93 90 31 35 43 09 35 27 53 12 55 08
014226