0000 0000 .word #%0000 ;RST 0002 c000 .word #%c000 ;RST FCW 0004 8000 .word #%8000 ;RST SEG 0006 0070 .word #%0070 ;RST PC 0008 434f5059 sub r15,%5059(r4) 000c 52494748 subl rr9,%4748(r4) 0010 542c205a ldl rr12,%205a(r2) 0014 494c4f47 xor r12,%4f47(r4) 0018 2c20 exb rh0,@r2 001a 494e432e xor r14,%432e(r4) 001e 2031 ldb rh1,@r3 0020 3938 .word #%3938 0022 3020002f ldb rh0,r2(#%002f) 0026 53383030 push @r3,%3030(r8) 002a 30204d6f ldb rh0,r2(#%4d6f) 002e 6e69746f ldb %746f(r6),rl1 0032 7220322e ldb r2(r2),rh0 0036 32202d20 ldb r2(#%2d20),rh0 003a 50726573 cpl rr2,%6573(r7) 003e 73205354 ld r2(r3),r0 0042 41525420 add r2,%5420(r5) 0046 746f204c lda r15,r6(r0) 004a 6f616420 ld %6420(r6),r1 004e 53797374 push @r7,%7374(r9) 0052 656d0d00 set %0d00(r6),#13 0056 0a4a cpb rl2,@r4 0058 0a68 cpb rl0,@r6 005a 09d8 xor r8,@r13 005c 0a80 cpb rh0,@r8 005e 050c0540 or r12,#%0540 0062 0594 or r4,@r9 0064 0544 or r4,@r4 0066 0398 sub r8,@r9 0068 03a4 sub r4,@r10 006a 11aa pushl @r10,@r10 006c 0cae .word #%0cae 006e 016c add r12,@r6 0070 8de8 clr r14 0072 7dec .word #%7dec 0074 21014000 ld r1,#%4000 0078 7d1a ldctl fcw,r1 007a 8d38 clr r3 007c 3b3700f0 sout %00f0,r3 0080 3ab4ffc1 inb rl3,%ffc1 0084 b2b1fffc srlb rl3,#4 0088 060b0303 andb rl3,#%03 008c 603802f0 ldb rl0,%02f0(r3) 0090 c947 ldb rl1,#%47 0092 3a96ffa3 outb %ffa3,rl1 0096 3a86ffa3 outb %ffa3,rl0 009a 3a96ffa1 outb %ffa1,rl1 009e 3a86ffa1 outb %ffa1,rl0 00a2 21020202 ld r2,#%0202 00a6 2100000b ld r0,#%000b 00aa 2101ff87 ld r1,#%ff87 00ae 3a220010 otirb @r1,@r2,r0 00b2 2102020e ld r2,#%020e 00b6 21000009 ld r0,#%0009 00ba 2101ff85 ld r1,#%ff85 00be 3a220010 otirb @r1,@r2,r0 00c2 21010000 ld r1,#%0000 00c6 7d1b ldctl refresh,r1 00c8 6f0143e4 ld %43e4,r1 00cc 21044000 ld r4,#%4000 00d0 21024002 ld r2,#%4002 00d4 0d450000 ld @r4,#%0000 00d8 21010200 ld r1,#%0200 00dc bb410120 ldir @r2,@r4,r1 00e0 21044000 ld r4,#%4000 00e4 21024002 ld r2,#%4002 00e8 0d450000 ld @r4,#%0000 00ec 21010020 ld r1,#%0020 00f0 bb410120 ldir @r2,@r4,r1 00f4 4d0540b02020 ld %40b0,#%2020 00fa 210440b0 ld r4,#%40b0 00fe 210240b2 ld r2,#%40b2 0102 21010080 ld r1,#%0080 0106 bb410120 ldir @r2,@r4,r1 010a 210401f4 ld r4,#%01f4 010e 210243f2 ld r2,#%43f2 0112 bd17 ldk r1,#7 0114 bb410120 ldir @r2,@r4,r1 0118 21040250 ld r4,#%0250 011c 21024400 ld r2,#%4400 0120 21010048 ld r1,#%0048 0124 bb410120 ldir @r2,@r4,r1 0128 210e8000 ld r14,#%8000 012c 210f4020 ld r15,#%4020 0130 5d0e43da ldl %43da,rr14 0134 210f40a0 ld r15,#%40a0 0138 21014400 ld r1,#%4400 013c 7d1d ldctl psap,r1 013e 6f0e43ea ld %43ea,r14 0142 6f0e43de ld %43de,r14 0146 6f0143ec ld %43ec,r1 014a 4d0543e08000 ld %43e0,#%8000 0150 4d0543e2c000 ld %43e2,#%c000 0156 640343f1 setb %43f1,#3 015a 620443f1 resb %43f1,#4 015e 5f000a80 call %0a80 0162 21020024 ld r2,#%0024 0166 5f00050c call %050c 016a 7c05 ei vi 016c 210f40a0 ld r15,#%40a0 0170 0df9016c push @r15,#%016c 0174 600943f0 ldb rl1,%43f0 0178 07010006 and r1,#%0006 017c 6e0943f0 ldb %43f0,rl1 0180 600843fe ldb rl0,%43fe 0184 5f000a68 call %0a68 0188 5f000a8c call %0a8c 018c ee04 jr nz,%0196 018e 660243f1 bitb %43f1,#2 0192 e601 jr z,%0196 0194 c84e ldb rl0,#%4e 0196 620243f1 resb %43f1,#2 019a 21010010 ld r1,#%0010 019e 761201b1 lda r2,%01b1(r1) 01a2 ba2c0186 cpdrb rl0,@r2,r1,z 01a6 ee1c jr nz,%01e0 01a8 b3110001 sll r1,#1 01ac 611201c2 ld r2,%01c2(r1) 01b0 1e28 jp @r2 01b2 42434446 subb rh3,%4446(r4) 01b6 47494a4c and r9,%4a4c(r4) 01ba 4d4e .word #%4d4e 01bc 5451525a ldl rr1,%525a(r5) 01c0 50000c3e cpl rr0,%0c3e 01c4 033e sub r14,@r3 01c6 03b2 sub r2,@r11 01c8 02f4 subb rh4,@r15 01ca 0b54 cp r4,@r5 01cc 06d4 andb rh4,@r13 01ce 0b42 cp r2,@r4 01d0 0dc2 neg @r12 01d2 0316 sub r6,@r1 01d4 0bc6 cp r6,@r12 01d6 1468 ldl rr8,@r6 01d8 0bf8 cp r8,@r15 01da 07a6 and r6,@r10 01dc 126e subl rr14,@r6 01de 06de andb rl6,@r13 01e0 c83f ldb rl0,#%3f 01e2 5f000a68 call %0a68 01e6 4d05439e0000 ld %439e,#%0000 01ec 210f40a0 ld r15,#%40a0 01f0 5e08016c jp %016c 01f4 087f xorb rl7,@r7 01f6 1113 pushl @r1,@r3 01f8 00007f00 addb rh0,#%00 01fc 00040001 addb rh4,#%01 0200 20001802 ldb rh0,#%00 0204 1014 cpl rr4,@r1 0206 cc03 ldb rl4,#%03 0208 c105 ldb rh1,#%05 020a ea11 jr gt,%022e 020c 1c00 .word #%1c00 020e 1814 multl rq4,@r1 0210 cc03 ldb rl4,#%03 0212 c105 ldb rh1,#%05 0214 ea11 jr gt,%0238 0216 180021f52102 multl rq0,#%21f52102 021c 022e subb rl6,@r2 021e 5f00050c call %050c 0222 5f000540 call %0540 0226 5f000594 call %0594 022a 5e08016c jp %016c 022e 0020 addb rh0,@r2 0230 554e494e popl %494e(r14),@r4 0234 49544941 xor r4,%4941(r5) 0238 4c49 .word #%4c49 023a 5a454420 divl rq5,%4420(r4) 023e 56454354 addl rr5,%4354(r4) 0242 4f5220454e54 ext4f #%4f522045,%4e54 0248 52592020 subl rr9,%2020(r5) 024c 49443d20 xor r4,%3d20(r4) 0250 00000000 addb rh0,#%00 0254 00000000 addb rh0,#%00 0258 00004000 addb rh0,#%00 025c 8000 addb rh0,rh0 025e 0218 subb rl0,@r1 0260 00004000 addb rh0,#%00 0264 8000 addb rh0,rh0 0266 0218 subb rl0,@r1 0268 0000c000 addb rh0,#%00 026c 8000 addb rh0,rh0 026e 0f2c0000 ext0f #%0f2c0000 0272 40008000 addb rh0,%8000 0276 0218 subb rl0,@r1 0278 00004000 addb rh0,#%00 027c 8000 addb rh0,rh0 027e 12d6 subl rr6,@r13 0280 00004000 addb rh0,#%00 0284 8000 addb rh0,rh0 0286 0218 subb rl0,@r1 0288 00004000 addb rh0,#%00 028c 8000 addb rh0,rh0 028e 0218 subb rl0,@r1 0290 8000 addb rh0,rh0 0292 0218 subb rl0,@r1 0294 8000 addb rh0,rh0 0296 0218 subb rl0,@r1 0298 8000 addb rh0,rh0 029a 0218 subb rl0,@r1 029c 8000 addb rh0,rh0 029e 0218 subb rl0,@r1 02a0 8000 addb rh0,rh0 02a2 0218 subb rl0,@r1 02a4 8000 addb rh0,rh0 02a6 0218 subb rl0,@r1 02a8 8000 addb rh0,rh0 02aa 0218 subb rl0,@r1 02ac 8000 addb rh0,rh0 02ae 0218 subb rl0,@r1 02b0 8000 addb rh0,rh0 02b2 0218 subb rl0,@r1 02b4 8000 addb rh0,rh0 02b6 0abc cpb rl4,@r11 02b8 8000 addb rh0,rh0 02ba 10c0 cpl rr0,@r12 02bc 8000 addb rh0,rh0 02be 0218 subb rl0,@r1 02c0 8000 addb rh0,rh0 02c2 0218 subb rl0,@r1 02c4 8000 addb rh0,rh0 02c6 1090 cpl rr0,@r9 02c8 8000 addb rh0,rh0 02ca 10ca cpl rr10,@r12 02cc 8000 addb rh0,rh0 02ce 0218 subb rl0,@r1 02d0 8000 addb rh0,rh0 02d2 0218 subb rl0,@r1 02d4 8000 addb rh0,rh0 02d6 0218 subb rl0,@r1 02d8 8000 addb rh0,rh0 02da 0218 subb rl0,@r1 02dc 8000 addb rh0,rh0 02de 0218 subb rl0,@r1 02e0 8000 addb rh0,rh0 02e2 0218 subb rl0,@r1 02e4 8000 addb rh0,rh0 02e6 0218 subb rl0,@r1 02e8 8000 addb rh0,rh0 02ea 0218 subb rl0,@r1 02ec 8000 addb rh0,rh0 02ee 0218 subb rl0,@r1 02f0 40100201 addb rh0,%0201(r1) 02f4 dee8 calr %0526 02f6 e704 jr c,%0300 02f8 a770 bit r7,#0 02fa 5e0e01e0 jp nz,%01e0 02fe 8375 sub r5,r7 0300 5e0701e0 jp c,%01e0 0304 b351ffff srl r5,#1 0308 a950 inc r5,#1 030a 7f01 sc #%01 030c 2f63 ld @r6,r3 030e a971 inc r7,#2 0310 f583 djnz r5,%030c 0312 7f02 sc #%02 0314 9e08 ret 0316 def9 calr %0526 0318 e7f3 jr c,%0300 031a 8b64 cp r4,r6 031c ee02 jr nz,%0322 031e 8b57 cp r7,r5 0320 e705 jr c,%032c 0322 7f01 sc #%01 0324 ba610340 ldirb @r4,@r6,r3 0328 7f02 sc #%02 032a 9e08 ret 032c 8137 add r7,r3 032e ab70 dec r7,#1 0330 8135 add r5,r3 0332 ab50 dec r5,#1 0334 7f01 sc #%01 0336 ba690340 lddrb @r6,@r4,r3 033a 7f02 sc #%02 033c 9e08 ret 033e df0d calr %0526 0340 e7df jr c,%0300 0342 9448 ldl rr8,rr4 0344 a13a ld r10,r3 0346 8d34 test r3 0348 5e0601e0 jp z,%01e0 034c 7f01 sc #%01 034e 2069 ldb rl1,@r6 0350 ba800a96 cpib rl1,@r8,r10,z 0354 7f02 sc #%02 0356 e606 jr z,%0364 0358 9484 ldl rr4,rr8 035a ab50 dec r5,#1 035c dff9 calr %036c 035e 9464 ldl rr4,rr6 0360 dffb calr %036c 0362 dee8 calr %0594 0364 8da4 test r10 0366 9e06 ret z 0368 a970 inc r7,#1 036a e8f0 jr %034c 036c dff1 calr %038c 036e a152 ld r2,r5 0370 a04d ldb rl5,rh4 0372 dfed calr %039a 0374 a125 ld r5,r2 0376 df1c calr %0540 0378 21013d20 ld r1,#%3d20 037c df45 calr %04f4 037e 7f01 sc #%01 0380 204d ldb rl5,@r4 0382 7f02 sc #%02 0384 df21 calr %0544 0386 6901439e inc %439e,#2 038a 9e08 ret 038c 21013c20 ld r1,#%3c20 0390 df4f calr %04f4 0392 6b00439e dec %439e,#1 0396 9e08 ret 0398 d007 calr %038c 039a a2d7 resb rl5,#7 039c df2d calr %0544 039e 21013e20 ld r1,#%3e20 03a2 e8f6 jr %0390 03a4 6102439e ld r2,%439e 03a8 6e294130 ldb %4130(r2),rl1 03ac 6900439e inc %439e,#1 03b0 9e08 ret 03b2 620143f1 resb %43f1,#1 03b6 dea2 calr %0674 03b8 21070202 ld r7,#%0202 03bc 610a43de ld r10,%43de 03c0 ee02 jr nz,%03c6 03c2 a13b ld r11,r3 03c4 e850 jr %0466 03c6 dedd calr %060e 03c8 ee02 jr nz,%03ce 03ca 640143f1 setb %43f1,#1 03ce 942a ldl rr10,rr2 03d0 660143f1 bitb %43f1,#1 03d4 ee44 jr nz,%045e 03d6 df8e calr %04bc 03d8 e642 jr z,%045e 03da dec6 calr %0650 03dc a13d ld r13,r3 03de e603 jr z,%03e6 03e0 df93 calr %04bc 03e2 5e0e01e0 jp nz,%01e0 03e6 8dd4 test r13 03e8 5e0601e0 jp z,%01e0 03ec 21060010 ld r6,#%0010 03f0 d033 calr %038c 03f2 a1a5 ld r5,r10 03f4 a05d ldb rl5,rh5 03f6 d02f calr %039a 03f8 a1b5 ld r5,r11 03fa df5e calr %0540 03fc 6900439e inc %439e,#1 0400 2108003a ld r8,#%003a 0404 4c8541302a2a ldb %4130(r8),#%2a 040a a980 inc r8,#1 040c 7f01 sc #%01 040e 20ad ldb rl5,@r10 0410 7f02 sc #%02 0412 6e8d4130 ldb %4130(r8),rl5 0416 0a0d2020 cpb rl5,#%20 041a e703 jr c,%0422 041c 0a0d7f7f cpb rl5,#%7f 0420 e703 jr c,%0428 0422 4c8541302e2e ldb %4130(r8),#%2e 0428 a980 inc r8,#1 042a 4c8541302a2a ldb %4130(r8),#%2a 0430 df77 calr %0544 0432 a9b0 inc r11,#1 0434 ab60 dec r6,#1 0436 ee08 jr nz,%0448 0438 a980 inc r8,#1 043a 6f08439e ld %439e,r8 043e df56 calr %0594 0440 a07f ldb rl7,rh7 0442 abd0 dec r13,#1 0444 eed3 jr nz,%03ec 0446 9e08 ret 0448 ff1f dbjnz rl7,%040c 044a 6900439e inc %439e,#1 044e a07f ldb rl7,rh7 0450 abd0 dec r13,#1 0452 eedc jr nz,%040c 0454 a980 inc r8,#1 0456 6f08439e ld %439e,r8 045a df64 calr %0594 045c 9e08 ret 045e 0a0f0101 cpb rl7,#%01 0462 e601 jr z,%0466 0464 a3b0 res r11,#0 0466 94a8 ldl rr8,rr10 0468 d06f calr %038c 046a a1a5 ld r5,r10 046c a05d ldb rl5,rh5 046e d06b calr %039a 0470 a1b5 ld r5,r11 0472 df9a calr %0540 0474 6900439e inc %439e,#1 0478 7f01 sc #%01 047a 20ad ldb rl5,@r10 047c 7f02 sc #%02 047e df9e calr %0544 0480 a9b0 inc r11,#1 0482 ff06 dbjnz rl7,%0478 0484 6900439e inc %439e,#1 0488 a07f ldb rl7,rh7 048a dfd0 calr %04ec 048c ef09 jr nc,%04a0 048e 0a085151 cpb rl0,#%51 0492 9e06 ret z 0494 93f7 push @r15,r7 0496 8c78 clrb rh7 0498 837b sub r11,r7 049a 837b sub r11,r7 049c 97f7 pop r7,@r15 049e e8e3 jr %0466 04a0 e6e2 jr z,%0466 04a2 aaf0 decb rl7,#1 04a4 7f01 sc #%01 04a6 ee02 jr nz,%04ac 04a8 2e8b ldb @r8,rl3 04aa e805 jr %04b6 04ac aaf0 decb rl7,#1 04ae ee02 jr nz,%04b4 04b0 2f83 ld @r8,r3 04b2 e801 jr %04b6 04b4 1d82 ldl @r8,rr2 04b6 7f02 sc #%02 04b8 a07f ldb rl7,rh7 04ba e8d5 jr %0466 04bc 21070202 ld r7,#%0202 04c0 0a080d0d cpb rl0,#%0d 04c4 9e06 ret z 04c6 0a085757 cpb rl0,#%57 04ca 9e06 ret z 04cc 21070101 ld r7,#%0101 04d0 0a084242 cpb rl0,#%42 04d4 9e06 ret z 04d6 21070404 ld r7,#%0404 04da 0a084c4c cpb rl0,#%4c 04de 9e06 ret z 04e0 21070202 ld r7,#%0202 04e4 9e08 ret 04e6 dfd4 calr %0540 04e8 6900439e inc %439e,#1 04ec dfa6 calr %05a2 04ee 5f000992 call %0992 04f2 9e08 ret 04f4 93f4 push @r15,r4 04f6 6104439e ld r4,%439e 04fa 6e414130 ldb %4130(r4),rh1 04fe a940 inc r4,#1 0500 6e494130 ldb %4130(r4),rl1 0504 6901439e inc %439e,#2 0508 97f4 pop r4,@r15 050a 9e08 ret 050c 2120 ld r0,@r2 050e 0b000000 cp r0,#%0000 0512 9e06 ret z 0514 6f00439e ld %439e,r0 0518 a921 inc r2,#2 051a 21044130 ld r4,#%4130 051e ba210040 ldirb @r4,@r2,r0 0522 5e0805a2 jp %05a2 0526 df5a calr %0674 0528 df8e calr %060e 052a e608 jr z,%053c 052c 9426 ldl rr6,rr2 052e e801 jr %0532 0530 df5f calr %0674 0532 df93 calr %060e 0534 e603 jr z,%053c 0536 9424 ldl rr4,rr2 0538 df75 calr %0650 053a 9e0f ret nc 053c 8d81 setflg c 053e 9e08 ret 0540 a050 ldb rh0,rh5 0542 dfff calr %0546 0544 a0d0 ldb rh0,rl5 0546 be08 rldb rl0,rh0 0548 dfff calr %054c 054a be08 rldb rl0,rh0 054c 93f1 push @r15,r1 054e 06080f0f andb rl0,#%0f 0552 600940af ldb rl1,%40af 0556 8089 addb rl1,rl0 0558 6e0940af ldb %40af,rl1 055c 0a080a0a cpb rl0,#%0a 0560 e702 jr c,%0566 0562 00080707 addb rl0,#%07 0566 00083030 addb rl0,#%30 056a 93f6 push @r15,r6 056c 6106439e ld r6,%439e 0570 6e684130 ldb %4130(r6),rl0 0574 6900439e inc %439e,#1 0578 97f6 pop r6,@r15 057a 97f1 pop r1,@r15 057c 9e08 ret 057e 4d0443f6 test %43f6 0582 9e06 ret z 0584 610143f6 ld r1,%43f6 0588 8d08 clr r0 058a 5f000a68 call %0a68 058e ab10 dec r1,#1 0590 eefc jr nz,%058a 0592 9e08 ret 0594 6103439e ld r3,%439e 0598 4c3541300d0d ldb %4130(r3),#%0d 059e 6900439e inc %439e,#1 05a2 8d38 clr r3 05a4 60384130 ldb rl0,%4130(r3) 05a8 a930 inc r3,#1 05aa 5f000a68 call %0a68 05ae e604 jr z,%05b8 05b0 4b03439e cp r3,%439e 05b4 e7f7 jr c,%05a4 05b6 e808 jr %05c8 05b8 c80a ldb rl0,#%0a 05ba 5f000a68 call %0a68 05be 5f00057e call %057e 05c2 660443f1 bitb %43f1,#4 05c6 eeee jr nz,%05a4 05c8 4d05439e0000 ld %439e,#%0000 05ce 21000040 ld r0,#%0040 05d2 4d0541302020 ld %4130,#%2020 05d8 21024130 ld r2,#%4130 05dc 21044132 ld r4,#%4132 05e0 bb210040 ldir @r4,@r2,r0 05e4 9e08 ret 05e6 0a083030 cpb rl0,#%30 05ea 9e07 ret c 05ec 0a083a3a cpb rl0,#%3a 05f0 e708 jr c,%0602 05f2 0a084141 cpb rl0,#%41 05f6 9e07 ret c 05f8 0a084747 cpb rl0,#%47 05fc ef06 jr nc,%060a 05fe 02080707 subb rl0,#%07 0602 06080f0f andb rl0,#%0f 0606 8d83 resflg c 0608 9e08 ret 060a 8d81 setflg c 060c 9e08 ret 060e dffe calr %0614 0610 dfe1 calr %0650 0612 9e08 ret 0614 610243de ld r2,%43de 0618 a52f set r2,#15 061a 620043f1 resb %43f1,#0 061e 0a080d0d cpb rl0,#%0d 0622 9e06 ret z 0624 0a083c3c cpb rl0,#%3c 0628 9e0e ret nz 062a 8d38 clr r3 062c dfd2 calr %068a 062e 5e0601e0 jp z,%01e0 0632 d027 calr %05e6 0634 e702 jr c,%063a 0636 beb8 rldb rl0,rl3 0638 e8f9 jr %062c 063a 0a083e3e cpb rl0,#%3e 063e 5e0e01e0 jp nz,%01e0 0642 dfe3 calr %067e 0644 a0b2 ldb rh2,rl3 0646 8ca8 clrb rl2 0648 a52f set r2,#15 064a 640043f1 setb %43f1,#0 064e 9e08 ret 0650 8d38 clr r3 0652 0a080d0d cpb rl0,#%0d 0656 8d81 setflg c 0658 9e06 ret z 065a d03b calr %05e6 065c 5e0701e0 jp c,%01e0 0660 beb8 rldb rl0,rl3 0662 be38 rldb rl0,rh3 0664 dfee calr %068a 0666 9e06 ret z 0668 0a082020 cpb rl0,#%20 066c eef6 jr nz,%065a 066e dff9 calr %067e 0670 8d83 resflg c 0672 9e08 ret 0674 dff6 calr %068a 0676 9e06 ret z 0678 0a082020 cpb rl0,#%20 067c eefb jr nz,%0674 067e dffb calr %068a 0680 9e06 ret z 0682 0a082020 cpb rl0,#%20 0686 e6fb jr z,%067e 0688 9e08 ret 068a 93f2 push @r15,r2 068c 6102439c ld r2,%439c 0690 602840b0 ldb rl0,%40b0(r2) 0694 6900439c inc %439c,#1 0698 0a080d0d cpb rl0,#%0d 069c 97f2 pop r2,@r15 069e 9e08 ret 06a0 30203120 ldb rh0,r2(#%3120) 06a4 32203320 ldb r2(#%3320),rh0 06a8 34203520 lda r0,r2(#%3520) 06ac 3620 .word #%3620 06ae 37203820 ldl r2(#%3820),rr0 06b2 3920 ldps @r2 06b4 31303131 ld r0,r3(#%3131) 06b8 31323133 ld r2,r3(#%3133) 06bc 31343135 ld r4,r3(#%3135) 06c0 53475043 push @r4,%5043(r7) 06c4 46435246 andb rh3,%5246(r4) 06c8 4e344e355053 ext4e #%4e344e35,%5053 06ce 504f524c cpl rr15,%524c(r4) 06d2 52482105 subl rr8,%2105(r4) 06d6 0786 and r6,@r8 06d8 21070766 ld r7,#%0766 06dc e804 jr %06e6 06de 21050796 ld r5,#%0796 06e2 21070776 ld r7,#%0776 06e6 6f0543bc ld %43bc,r5 06ea 6f0743ba ld %43ba,r7 06ee 5f000674 call %0674 06f2 5e0601e0 jp z,%01e0 06f6 5f000650 call %0650 06fa a136 ld r6,r3 06fc 8d78 clr r7 06fe e607 jr z,%070e 0700 0a085757 cpb rl0,#%57 0704 e605 jr z,%0710 0706 0a084242 cpb rl0,#%42 070a 5e0e01e0 jp nz,%01e0 070e bd71 ldk r7,#1 0710 210543b8 ld r5,#%43b8 0714 8175 add r5,r7 0716 610343ba ld r3,%43ba 071a 1f30 call @r3 071c 610143b8 ld r1,%43b8 0720 a165 ld r5,r6 0722 5f000540 call %0540 0726 6900439e inc %439e,#1 072a a115 ld r5,r1 072c a770 bit r7,#0 072e ee03 jr nz,%0736 0730 5f000540 call %0540 0734 e802 jr %073a 0736 5f000544 call %0544 073a 6900439e inc %439e,#1 073e 5f0005a2 call %05a2 0742 5f000992 call %0992 0746 e802 jr %074c 0748 5f000998 call %0998 074c 9e07 ret c 074e 9e06 ret z 0750 8c81 ldctlb rl0,flags 0752 210543b8 ld r5,#%43b8 0756 2f53 ld @r5,r3 0758 8175 add r5,r7 075a 610343bc ld r3,%43bc 075e 1f30 call @r3 0760 a684 bitb rl0,#4 0762 9e0e ret nz 0764 e8f1 jr %0748 0766 a770 bit r7,#0 0768 ee03 jr nz,%0770 076a 3b600358 ini @r5,@r6,r3 076e 9e08 ret 0770 3a600358 inib @r5,@r6,r3 0774 9e08 ret 0776 a770 bit r7,#0 0778 ee03 jr nz,%0780 077a 3b610358 sini @r5,@r6,r3 077e 9e08 ret 0780 3a610358 sinib @r5,@r6,r3 0784 9e08 ret 0786 a770 bit r7,#0 0788 ee03 jr nz,%0790 078a 3b520368 outi @r6,@r5,r3 078e 9e08 ret 0790 3a520368 outib @r6,@r5,r3 0794 9e08 ret 0796 a770 bit r7,#0 0798 ee03 jr nz,%07a0 079a 3b530368 souti @r6,@r5,r3 079e 9e08 ret 07a0 3a530368 soutib @r6,@r5,r3 07a4 9e08 ret 07a6 5f000674 call %0674 07aa 5e0608fa jp z,%08fa 07ae 0a085252 cpb rl0,#%52 07b2 ee06 jr nz,%07c0 07b4 5f00068a call %068a 07b8 e615 jr z,%07e4 07ba 0a084646 cpb rl0,#%46 07be e60e jr z,%07dc 07c0 8d68 clr r6 07c2 0a084c4c cpb rl0,#%4c 07c6 e60c jr z,%07e0 07c8 a961 inc r6,#2 07ca 0a084848 cpb rl0,#%48 07ce e608 jr z,%07e0 07d0 a963 inc r6,#4 07d2 0a085252 cpb rl0,#%52 07d6 ee08 jr nz,%07e8 07d8 ab61 dec r6,#2 07da e802 jr %07e0 07dc c152 ldb rh1,#%52 07de e809 jr %07f2 07e0 5f00068a call %068a 07e4 5e0601e0 jp z,%01e0 07e8 a081 ldb rh1,rl0 07ea 5f00068a call %068a 07ee ee01 jr nz,%07f2 07f0 c820 ldb rl0,#%20 07f2 a089 ldb rl1,rl0 07f4 21070018 ld r7,#%0018 07f8 210806ce ld r8,#%06ce 07fc bb8c0716 cpdr r1,@r8,r7,z 0800 5e0e01e0 jp nz,%01e0 0804 a981 inc r8,#2 0806 8177 add r7,r7 0808 0a0e0404 cpb rl6,#%04 080c e753 jr c,%08b4 080e e62b jr z,%0866 0810 21015220 ld r1,#%5220 0814 5f0004f4 call %04f4 0818 6b00439e dec %439e,#1 081c 2181 ld r1,@r8 081e 5f0004f4 call %04f4 0822 6900439e inc %439e,#1 0826 617543be ld r5,%43be(r7) 082a 5f0004e6 call %04e6 082e 9e07 ret c 0830 e614 jr z,%085a 0832 2182 ld r2,@r8 0834 0b025043 cp r2,#%5043 0838 ee02 jr nz,%083e 083a a330 res r3,#0 083c e80c jr %0856 083e 0b025246 cp r2,#%5246 0842 ee01 jr nz,%0846 0844 7d3b ldctl refresh,r3 0846 0b025347 cp r2,#%5347 084a ee05 jr nz,%0856 084c 0a030000 cpb rh3,#%00 0850 ee02 jr nz,%0856 0852 a0b3 ldb rh3,rl3 0854 8cb8 clrb rl3 0856 6f7343be ld %43be(r7),r3 085a a971 inc r7,#2 085c a981 inc r8,#2 085e 0b0806cf cp r8,#%06cf 0862 e7d6 jr c,%0810 0864 9e08 ret 0866 0b0806be cp r8,#%06be 086a ef26 jr nc,%08b8 086c 0a092020 cpb rl1,#%20 0870 e602 jr z,%0876 0872 a710 bit r1,#0 0874 e801 jr %0878 0876 a718 bit r1,#8 0878 eec3 jr nz,%0800 087a 21015252 ld r1,#%5252 087e 5f0004f4 call %04f4 0882 2181 ld r1,@r8 0884 5f0004f4 call %04f4 0888 6900439e inc %439e,#1 088c 617543be ld r5,%43be(r7) 0890 5f000540 call %0540 0894 617543c0 ld r5,%43c0(r7) 0898 5f0004e6 call %04e6 089c 9e07 ret c 089e e604 jr z,%08a8 08a0 6f7243be ld %43be(r7),r2 08a4 6f7343c0 ld %43c0(r7),r3 08a8 a973 inc r7,#4 08aa a983 inc r8,#4 08ac 0b0806bf cp r8,#%06bf 08b0 e7e4 jr c,%087a 08b2 9e08 ret 08b4 0b0806b0 cp r8,#%06b0 08b8 5e0f01e0 jp nc,%01e0 08bc 8d64 test r6 08be ee01 jr nz,%08c2 08c0 a970 inc r7,#1 08c2 616106d0 ld r1,%06d0(r6) 08c6 5f0004f4 call %04f4 08ca 2181 ld r1,@r8 08cc 5f0004f4 call %04f4 08d0 607d43be ldb rl5,%43be(r7) 08d4 5f000544 call %0544 08d8 6900439e inc %439e,#1 08dc 5f0004ec call %04ec 08e0 9e07 ret c 08e2 e602 jr z,%08e8 08e4 6e7b43be ldb %43be(r7),rl3 08e8 a970 inc r7,#1 08ea ab61 dec r6,#2 08ec e6ea jr z,%08c2 08ee a963 inc r6,#4 08f0 a981 inc r8,#2 08f2 0b0806b0 cp r8,#%06b0 08f6 e7e5 jr c,%08c2 08f8 9e08 ret 08fa dffc calr %0904 08fc dfd6 calr %0952 08fe dfde calr %0944 0900 5e080984 jp %0984 0904 bd0c ldk r0,#12 0906 210406a0 ld r4,#%06a0 090a bd68 ldk r6,#8 090c 210806be ld r8,#%06be 0910 6103439e ld r3,%439e 0914 4c3541305252 ldb %4130(r3),#%52 091a 6900439e inc %439e,#1 091e 2141 ld r1,@r4 0920 5f0004f4 call %04f4 0924 ab00 dec r0,#1 0926 5e060594 jp z,%0594 092a ab60 dec r6,#1 092c ee01 jr nz,%0930 092e a184 ld r4,r8 0930 a941 inc r4,#2 0932 0b060000 cp r6,#%0000 0936 ea03 jr gt,%093e 0938 6903439e inc %439e,#4 093c e8ee jr %091a 093e 6901439e inc %439e,#2 0942 e8e6 jr %0910 0944 bd0c ldk r0,#12 0946 210406b0 ld r4,#%06b0 094a 210806c6 ld r8,#%06c6 094e bd68 ldk r6,#8 0950 e8df jr %0910 0952 bd2c ldk r2,#12 0954 210643be ld r6,#%43be 0958 bd88 ldk r8,#8 095a 210a43dc ld r10,#%43dc 095e 2165 ld r5,@r6 0960 5f000540 call %0540 0964 ab20 dec r2,#1 0966 5e060594 jp z,%0594 096a ab80 dec r8,#1 096c ee01 jr nz,%0970 096e a1a6 ld r6,r10 0970 a961 inc r6,#2 0972 0b080000 cp r8,#%0000 0976 ea03 jr gt,%097e 0978 6902439e inc %439e,#3 097c e8f0 jr %095e 097e 6900439e inc %439e,#1 0982 e8ed jr %095e 0984 bd2c ldk r2,#12 0986 210643ce ld r6,#%43ce 098a bd88 ldk r8,#8 098c 210a43e4 ld r10,#%43e4 0990 e8e6 jr %095e 0992 c83f ldb rl0,#%3f 0994 df97 calr %0a68 0996 df86 calr %0a8c 0998 8d28 clr r2 099a 8d38 clr r3 099c 5f00067e call %067e 09a0 9e06 ret z 09a2 0a085151 cpb rl0,#%51 09a6 e603 jr z,%09ae 09a8 0a082d2d cpb rl0,#%2d 09ac ee02 jr nz,%09b2 09ae 8d81 setflg c 09b0 9e08 ret 09b2 5f0005e6 call %05e6 09b6 5e0701e0 jp c,%01e0 09ba beb8 rldb rl0,rl3 09bc be38 rldb rl0,rh3 09be bea8 rldb rl0,rl2 09c0 be28 rldb rl0,rh2 09c2 5f00068a call %068a 09c6 ee02 jr nz,%09cc 09c8 8d11 setflg p 09ca e804 jr %09d4 09cc 0a082020 cpb rl0,#%20 09d0 eef0 jr nz,%09b2 09d2 8d83 resflg c 09d4 8d43 resflg z 09d6 9e08 ret 09d8 6f01439a ld %439a,r1 09dc 8d18 clr r1 09de dfce calr %0a44 09e0 660343f1 bitb %43f1,#3 09e4 ee07 jr nz,%09f4 09e6 0a086161 cpb rl0,#%61 09ea e704 jr c,%09f4 09ec 0a087b7b cpb rl0,#%7b 09f0 ef01 jr nc,%09f4 09f2 a285 resb rl0,#5 09f4 72280100 ldb r2(r1),rl0 09f8 4a0843f2 cpb rl0,%43f2 09fc e60c jr z,%0a16 09fe 4a0843f3 cpb rl0,%43f3 0a02 e60e jr z,%0a20 0a04 0a080d0d cpb rl0,#%0d 0a08 e611 jr z,%0a2c 0a0a a910 inc r1,#1 0a0c 4b01439a cp r1,%439a 0a10 e7e6 jr c,%09de 0a12 8d41 setflg z 0a14 9e08 ret 0a16 dff0 calr %0a38 0a18 ede2 jr pl,%09de 0a1a c85b ldb rl0,#%5b 0a1c dfdb calr %0a68 0a1e e8de jr %09dc 0a20 8d14 test r1 0a22 e6dd jr z,%09de 0a24 c808 ldb rl0,#%08 0a26 dfe0 calr %0a68 0a28 dff9 calr %0a38 0a2a e8fa jr %0a20 0a2c c80a ldb rl0,#%0a 0a2e dfe4 calr %0a68 0a30 74220100 lda r2,r2(r1) 0a34 8d43 resflg z 0a36 9e08 ret 0a38 c820 ldb rl0,#%20 0a3a dfea calr %0a68 0a3c c808 ldb rl0,#%08 0a3e dfec calr %0a68 0a40 ab10 dec r1,#1 0a42 9e08 ret 0a44 dffe calr %0a4a 0a46 dff0 calr %0a68 0a48 9e08 ret 0a4a 4c0443a0 testb %43a0 0a4e e6fd jr z,%0a4a 0a50 93f2 push @r15,r2 0a52 610043a4 ld r0,%43a4 0a56 dfd5 calr %0aae 0a58 6f0043a4 ld %43a4,r0 0a5c 602841b0 ldb rl0,%41b0(r2) 0a60 6a0043a0 decb %43a0,#1 0a64 97f2 pop r2,@r15 0a66 9e08 ret 0a68 660243f0 bitb %43f0,#2 0a6c eefd jr nz,%0a68 0a6e 3a04ff87 inb rh0,%ff87 0a72 a602 bitb rh0,#2 0a74 e6f9 jr z,%0a68 0a76 3a86ff83 outb %ff83,rl0 0a7a 0a080d0d cpb rl0,#%0d 0a7e 9e08 ret 0a80 c80d ldb rl0,#%0d 0a82 d00e calr %0a68 0a84 c80a ldb rl0,#%0a 0a86 d010 calr %0a68 0a88 5e08057e jp %057e 0a8c 210240b0 ld r2,#%40b0 0a90 21010080 ld r1,#%0080 0a94 4d05439c0000 ld %439c,#%0000 0a9a d062 calr %09d8 0a9c 5e0601e0 jp z,%01e0 0aa0 5f00067e call %067e 0aa4 6b00439c dec %439c,#1 0aa8 0a080d0d cpb rl0,#%0d 0aac 9e08 ret 0aae a102 ld r2,r0 0ab0 a900 inc r0,#1 0ab2 0b000100 cp r0,#%0100 0ab6 9e07 ret c 0ab8 8d08 clr r0 0aba 9e08 ret 0abc 93f0 push @r15,r0 0abe 93f1 push @r15,r1 0ac0 93f2 push @r15,r2 0ac2 4d01442e12d6 cp %442e,#%12d6 0ac8 ee06 jr nz,%0ad6 0aca 4d0543fe5b20 ld %43fe,#%5b20 0ad0 4d05442e0ef8 ld %442e,#%0ef8 0ad6 3a94ff83 inb rl1,%ff83 0ada 660043f0 bitb %43f0,#0 0ade ee19 jr nz,%0b12 0ae0 a297 resb rl1,#7 0ae2 4a0943f4 cpb rl1,%43f4 0ae6 ee03 jr nz,%0aee 0ae8 620243f0 resb %43f0,#2 0aec e81b jr %0b24 0aee 4a0943f5 cpb rl1,%43f5 0af2 ee03 jr nz,%0afa 0af4 640243f0 setb %43f0,#2 0af8 e815 jr %0b24 0afa 0a091b1b cpb rl1,#%1b 0afe ee09 jr nz,%0b12 0b00 660343f0 bitb %43f0,#3 0b04 ee03 jr nz,%0b0c 0b06 660443f0 bitb %43f0,#4 0b0a e603 jr z,%0b12 0b0c 640543f0 setb %43f0,#5 0b10 e809 jr %0b24 0b12 610043a2 ld r0,%43a2 0b16 d035 calr %0aae 0b18 6f0043a2 ld %43a2,r0 0b1c 6e2941b0 ldb %41b0(r2),rl1 0b20 680043a0 incb %43a0,#1 0b24 c938 ldb rl1,#%38 0b26 3a96ff85 outb %ff85,rl1 0b2a 97f2 pop r2,@r15 0b2c 97f1 pop r1,@r15 0b2e 97f0 pop r0,@r15 0b30 7f01 sc #%01 0b32 8d07 nop 0b34 7b00 iret 0b36 00094241 addb rl1,#%41 0b3a 44204441 orb rh0,%4441(r2) 0b3e 54410d00 ldl rr1,%0d00(r4) 0b42 5f000674 call %0674 0b46 5e0601e0 jp z,%01e0 0b4a 5f00060e call %060e 0b4e a330 res r3,#0 0b50 5d0243de ldl %43de,rr2 0b54 540243de ldl rr2,%43de 0b58 500243ac cpl rr2,%43ac 0b5c e607 jr z,%0b6c 0b5e 5f00102a call %102a 0b62 540e43da ldl rr14,%43da 0b66 abf7 dec r15,#8 0b68 7f01 sc #%01 0b6a 7b00 iret 0b6c 540243ac ldl rr2,%43ac 0b70 610143aa ld r1,%43aa 0b74 7f01 sc #%01 0b76 2f21 ld @r2,r1 0b78 7f02 sc #%02 0b7a 21020ecc ld r2,#%0ecc 0b7e 7c01 di vi 0b80 6f02444a ld %444a,r2 0b84 5f00102a call %102a 0b88 540e43da ldl rr14,%43da 0b8c abf7 dec r15,#8 0b8e 7f01 sc #%01 0b90 93e1 push @r14,r1 0b92 31e10004 ld r1,r14(#%0004) 0b96 7f02 sc #%02 0b98 6f0143b6 ld %43b6,r1 0b9c 05011000 or r1,#%1000 0ba0 7f01 sc #%01 0ba2 33e10004 ld r14(#%0004),r1 0ba6 7f02 sc #%02 0ba8 8c98 clrb rl1 0baa 3a96ffa1 outb %ffa1,rl1 0bae c9c7 ldb rl1,#%c7 0bb0 3a96ffa7 outb %ffa7,rl1 0bb4 610143fa ld r1,%43fa 0bb8 3a96ffa7 outb %ffa7,rl1 0bbc 7d12 ldctl r1,fcw 0bbe a51f set r1,#15 0bc0 7d1a ldctl fcw,r1 0bc2 97e1 pop r1,@r14 0bc4 7b00 iret 0bc6 640243f1 setb %43f1,#2 0bca 5f000674 call %0674 0bce e604 jr z,%0bd8 0bd0 5f000650 call %0650 0bd4 8d34 test r3 0bd6 ee01 jr nz,%0bda 0bd8 bd31 ldk r3,#1 0bda 6f0343fc ld %43fc,r3 0bde 21020e7c ld r2,#%0e7c 0be2 540443ac ldl rr4,%43ac 0be6 500443de cpl rr4,%43de 0bea eec9 jr nz,%0b7e 0bec 610143aa ld r1,%43aa 0bf0 7f01 sc #%01 0bf2 2f41 ld @r4,r1 0bf4 7f02 sc #%02 0bf6 e8c3 jr %0b7e 0bf8 4d0843a6 clr %43a6 0bfc 4d0843a8 clr %43a8 0c00 640043f0 setb %43f0,#0 0c04 4c0443a0 testb %43a0 0c08 e60c jr z,%0c22 0c0a 610043a4 ld r0,%43a4 0c0e 5f000aae call %0aae 0c12 6f0043a4 ld %43a4,r0 0c16 602841b0 ldb rl0,%41b0(r2) 0c1a 6a0043a0 decb %43a0,#1 0c1e dfb9 calr %0cae 0c20 eef1 jr nz,%0c04 0c22 610043a8 ld r0,%43a8 0c26 4b0043a6 cp r0,%43a6 0c2a e6ec jr z,%0c04 0c2c 5f001082 call %1082 0c30 6f0043a8 ld %43a8,r0 0c34 602842b0 ldb rl0,%42b0(r2) 0c38 5f000a68 call %0a68 0c3c e8f2 jr %0c22 0c3e 540243ac ldl rr2,%43ac 0c42 610143aa ld r1,%43aa 0c46 7f01 sc #%01 0c48 2f21 ld @r2,r1 0c4a 7f02 sc #%02 0c4c 4d0843ac clr %43ac 0c50 4d0843ae clr %43ae 0c54 4d0843aa clr %43aa 0c58 4d0543fc0001 ld %43fc,#%0001 0c5e 5f000674 call %0674 0c62 9e06 ret z 0c64 5f00060e call %060e 0c68 9424 ldl rr4,rr2 0c6a e606 jr z,%0c78 0c6c 5f000650 call %0650 0c70 8d34 test r3 0c72 e602 jr z,%0c78 0c74 6f0343fc ld %43fc,r3 0c78 9442 ldl rr2,rr4 0c7a a330 res r3,#0 0c7c 5d0243ac ldl %43ac,rr2 0c80 610143f8 ld r1,%43f8 0c84 7f01 sc #%01 0c86 2d21 ex r1,@r2 0c88 a114 ld r4,r1 0c8a 2121 ld r1,@r2 0c8c 7f02 sc #%02 0c8e 6f0443aa ld %43aa,r4 0c92 4b0143f8 cp r1,%43f8 0c96 9e06 ret z 0c98 4d0543fc0001 ld %43fc,#%0001 0c9e 4d0843ac clr %43ac 0ca2 4d0843ae clr %43ae 0ca6 4d0843aa clr %43aa 0caa 5e0801e0 jp %01e0 0cae 3a04ff85 inb rh0,%ff85 0cb2 a602 bitb rh0,#2 0cb4 e6fc jr z,%0cae 0cb6 3a86ff81 outb %ff81,rl0 0cba 0a080d0d cpb rl0,#%0d 0cbe 9e08 ret 0cc0 4d0843a6 clr %43a6 0cc4 4d0843a8 clr %43a8 0cc8 5f000674 call %0674 0ccc 8d28 clr r2 0cce c303 ldb rh3,#%03 0cd0 dff7 calr %0ce4 0cd2 9e07 ret c 0cd4 6e0b40af ldb %40af,rl3 0cd8 8c34 testb rh3 0cda 9e06 ret z 0cdc 93f3 push @r15,r3 0cde dffe calr %0ce4 0ce0 97f3 pop r3,@r15 0ce2 9e08 ret 0ce4 8cb8 clrb rl3 0ce6 dff5 calr %0cfe 0ce8 9e07 ret c 0cea f303 dbjnz rh3,%0ce6 0cec a083 ldb rh3,rl0 0cee 93f3 push @r15,r3 0cf0 dffa calr %0cfe 0cf2 97f3 pop r3,@r15 0cf4 9e07 ret c 0cf6 8ab8 cpb rl0,rl3 0cf8 9e06 ret z 0cfa 8d81 setflg c 0cfc 9e08 ret 0cfe 602840b0 ldb rl0,%40b0(r2) 0d02 a920 inc r2,#1 0d04 5f0005e6 call %05e6 0d08 9e07 ret c 0d0a 808b addb rl3,rl0 0d0c b309000c sla r0,#12 0d10 602840b0 ldb rl0,%40b0(r2) 0d14 a920 inc r2,#1 0d16 5f0005e6 call %05e6 0d1a 9e07 ret c 0d1c 808b addb rl3,rl0 0d1e 8408 orb rl0,rh0 0d20 8d83 resflg c 0d22 9e08 ret 0d24 a039 ldb rl1,rh3 0d26 dff9 calr %0d36 0d28 21020008 ld r2,#%0008 0d2c d018 calr %0cfe 0d2e 2e48 ldb @r4,rl0 0d30 a940 inc r4,#1 0d32 f904 dbjnz rl1,%0d2c 0d34 9e08 ret 0d36 8d28 clr r2 0d38 d01e calr %0cfe 0d3a a084 ldb rh4,rl0 0d3c d020 calr %0cfe 0d3e a08c ldb rl4,rl0 0d40 9e08 ret 0d42 0019 addb rl1,@r1 0d44 2f49 ld @r4,r9 0d46 4e434f525245 ext4e #%4e434f52,%5245 0d4c 4354204c sub r4,%204c(r5) 0d50 4f4144204144 ext4f #%4f414420,%4144 0d56 44524553 orb rh2,%4553(r5) 0d5a 53200d00 push @r2,%0d00 0d5e 000d2f43 addb rl5,#%43 0d62 4b53554d cp r3,%554d(r5) 0d66 2045 ldb rh5,@r4 0d68 52524f52 subl rr2,%4f52(r5) 0d6c 0d00 .word #%0d00 0d6e 0013 addb rh3,@r1 0d70 2f46 ld @r4,r6 0d72 494c4520 xor r12,%4520(r4) 0d76 57524954 pop %4954(r2),@r5 0d7a 45204552 or r0,%4552(r2) 0d7e 524f5220 subl rr15,%5220(r4) 0d82 0d00 .word #%0d00 0d84 0011 addb rh1,@r1 0d86 2f4f ld @r4,r15 0d88 50454e20 cpl rr5,%4e20(r4) 0d8c 46494c45 andb rl1,%4c45(r4) 0d90 2045 ldb rh5,@r4 0d92 52524f52 subl rr2,%4f52(r5) 0d96 0d00 .word #%0d00 0d98 00072f41 addb rh7,#%41 0d9c 424f5254 subb rl7,%5254(r4) 0da0 0d00 .word #%0d00 0da2 454e5452 or r14,%5452(r4) 0da6 5920504f mult rr0,%504f(r2) 0daa 494e5420 xor r14,%5420(r4) 0dae 00094252 addb rl1,#%52 0db2 45414b20 or r1,%4b20(r4) 0db6 41542020 add r4,%2020(r5) 0dba 00054e4d addb rh5,#%4d 0dbe 49200d00 xor r0,%0d00(r2) 0dc2 5f000cc0 call %0cc0 0dc6 53f043de push @r15,%43de 0dca 5f000674 call %0674 0dce 5f000614 call %0614 0dd2 6f0243de ld %43de,r2 0dd6 640443f0 setb %43f0,#4 0dda 5f00112c call %112c 0dde e64b jr z,%0e76 0de0 5f0010de call %10de 0de4 210240b0 ld r2,#%40b0 0de8 2028 ldb rl0,@r2 0dea 0a082f2f cpb rl0,#%2f 0dee ee0c jr nz,%0e08 0df0 21044130 ld r4,#%4130 0df4 2101007f ld r1,#%007f 0df8 bb210140 ldir @r4,@r2,r1 0dfc 4d05439e007f ld %439e,#%007f 0e02 5f0005a2 call %05a2 0e06 e837 jr %0e76 0e08 660543f0 bitb %43f0,#5 0e0c ee2e jr nz,%0e6a 0e0e 5f000ccc call %0ccc 0e12 ef03 jr nc,%0e1a 0e14 5f001112 call %1112 0e18 e8e3 jr %0de0 0e1a c82e ldb rl0,#%2e 0e1c 5f000a68 call %0a68 0e20 8c34 testb rh3 0e22 ee16 jr nz,%0e50 0e24 5f00111a call %111a 0e28 5f000a80 call %0a80 0e2c 540040b0 ldl rr0,%40b0 0e30 5d00413c ldl %413c,rr0 0e34 21040da2 ld r4,#%0da2 0e38 21024130 ld r2,#%4130 0e3c 21010006 ld r1,#%0006 0e40 bb410120 ldir @r2,@r4,r1 0e44 4d05439e0010 ld %439e,#%0010 0e4a 5f000594 call %0594 0e4e e813 jr %0e76 0e50 5f000d36 call %0d36 0e54 0b048000 cp r4,#%8000 0e58 ef03 jr nc,%0e60 0e5a 21020d42 ld r2,#%0d42 0e5e e807 jr %0e6e 0e60 5f00111a call %111a 0e64 5f000d24 call %0d24 0e68 e8bb jr %0de0 0e6a 21020d98 ld r2,#%0d98 0e6e 5f00050c call %050c 0e72 5f001116 call %1116 0e76 57f043de pop %43de,@r15 0e7a 9e08 ret 0e7c 5d0e43da ldl %43da,rr14 0e80 210f40a0 ld r15,#%40a0 0e84 6f0043be ld %43be,r0 0e88 df5e calr %0fce 0e8a 690743dc inc %43dc,#8 0e8e df6b calr %0fba 0e90 540243ac ldl rr2,%43ac 0e94 610143f8 ld r1,%43f8 0e98 7f01 sc #%01 0e9a 2f21 ld @r2,r1 0e9c 7f02 sc #%02 0e9e 670c43b6 bit %43b6,#12 0ea2 ee02 jr nz,%0ea8 0ea4 630c43e2 res %43e2,#12 0ea8 5f000904 call %0904 0eac 5f000952 call %0952 0eb0 5f000944 call %0944 0eb4 5f000984 call %0984 0eb8 6b0043fc dec %43fc,#1 0ebc 5e0e0bde jp nz,%0bde 0ec0 4d0543fc0001 ld %43fc,#%0001 0ec6 7c05 ei vi 0ec8 5e08016c jp %016c 0ecc 93f2 push @r15,r2 0ece 93f1 push @r15,r1 0ed0 df8c calr %0fba 0ed2 540243ac ldl rr2,%43ac 0ed6 610143f8 ld r1,%43f8 0eda 7f01 sc #%01 0edc 2f21 ld @r2,r1 0ede 7f02 sc #%02 0ee0 670c43b6 bit %43b6,#12 0ee4 ee05 jr nz,%0ef0 0ee6 31f20006 ld r2,r15(#%0006) 0eea a32c res r2,#12 0eec 33f20006 ld r15(#%0006),r2 0ef0 97f1 pop r1,@r15 0ef2 97f2 pop r2,@r15 0ef4 7f01 sc #%01 0ef6 7b00 iret 0ef8 660043f0 bitb %43f0,#0 0efc ee0a jr nz,%0f12 0efe 5d0e43da ldl %43da,rr14 0f02 210f40a0 ld r15,#%40a0 0f06 6f0043be ld %43be,r0 0f0a df9f calr %0fce 0f0c 690743dc inc %43dc,#8 0f10 e804 jr %0f1a 0f12 620043f0 resb %43f0,#0 0f16 210f40a0 ld r15,#%40a0 0f1a 7c05 ei vi 0f1c 5f000a80 call %0a80 0f20 21020dba ld r2,#%0dba 0f24 5f00050c call %050c 0f28 5e08016c jp %016c 0f2c 4cf100010101 cpb %0001(r15),#%01 0f32 ee03 jr nz,%0f3a 0f34 65ff0002 set %0002(r15),#15 0f38 7b00 iret 0f3a 4cf100010202 cpb %0001(r15),#%02 0f40 ee03 jr nz,%0f48 0f42 63ff0002 res %0002(r15),#15 0f46 7b00 iret 0f48 93e0 push @r14,r0 0f4a 7d02 ldctl r0,fcw 0f4c a30f res r0,#15 0f4e 7d0a ldctl fcw,r0 0f50 97f0 pop r0,@r15 0f52 4cf40001 testb %0001(r15) 0f56 ee20 jr nz,%0f98 0f58 6f0043be ld %43be,r0 0f5c 5d0e43da ldl %43da,rr14 0f60 210f40a0 ld r15,#%40a0 0f64 dfcc calr %0fce 0f66 690743dc inc %43dc,#8 0f6a 6b0143e0 dec %43e0,#2 0f6e 6b0043fc dec %43fc,#1 0f72 5e0e0b6c jp nz,%0b6c 0f76 4d0543fc0001 ld %43fc,#%0001 0f7c dfe2 calr %0fba 0f7e 7c05 ei vi 0f80 21020dae ld r2,#%0dae 0f84 5f00050c call %050c 0f88 610543e0 ld r5,%43e0 0f8c 5f000540 call %0540 0f90 5f000594 call %0594 0f94 5e08016c jp %016c 0f98 93f0 push @r15,r0 0f9a 60f00003 ldb rh0,%0003(r15) 0f9e a00b ldb rl3,rh0 0fa0 8c38 clrb rh3 0fa2 03030004 sub r3,#%0004 0fa6 61330056 ld r3,%0056(r3) 0faa 7c05 ei vi 0fac 1f30 call @r3 0fae a103 ld r3,r0 0fb0 7d02 ldctl r0,fcw 0fb2 a50f set r0,#15 0fb4 7d0a ldctl fcw,r0 0fb6 97e0 pop r0,@r14 0fb8 7b00 iret 0fba c9ed ldb rl1,#%ed 0fbc 3a96ffe1 outb %ffe1,rl1 0fc0 c94d ldb rl1,#%4d 0fc2 3a96ffe1 outb %ffe1,rl1 0fc6 c903 ldb rl1,#%03 0fc8 3a96ffa7 outb %ffa7,rl1 0fcc 9e08 ret 0fce 5d0e43b0 ldl %43b0,rr14 0fd2 540e43da ldl rr14,%43da 0fd6 31f00000 ld r0,r15(#%0000) 0fda 6f0043b4 ld %43b4,r0 0fde 31f00002 ld r0,r15(#%0002) 0fe2 6f0043e2 ld %43e2,r0 0fe6 31f00004 ld r0,r15(#%0004) 0fea 6f0043de ld %43de,r0 0fee 31f00006 ld r0,r15(#%0006) 0ff2 6f0043e0 ld %43e0,r0 0ff6 7f01 sc #%01 0ff8 7d06 .word #%7d06 0ffa 7f02 sc #%02 0ffc 6f0043e6 ld %43e6,r0 1000 7d07 ldctl r0,nsp 1002 6f0043e8 ld %43e8,r0 1006 7f01 sc #%01 1008 7d04 .word #%7d04 100a 7f02 sc #%02 100c 6f0043ea ld %43ea,r0 1010 7df5 ldctl r15,psap 1012 6f0f43ec ld %43ec,r15 1016 7df3 ldctl r15,refresh 1018 6f0f43e4 ld %43e4,r15 101c 210f43c0 ld r15,#%43c0 1020 1cf9010c ldm @r15,r1,#13 1024 540e43b0 ldl rr14,%43b0 1028 9e08 ret 102a 5d0e43b0 ldl %43b0,rr14 102e 540e43da ldl rr14,%43da 1032 abf7 dec r15,#8 1034 610143b4 ld r1,%43b4 1038 33f10000 ld r15(#%0000),r1 103c 610143e2 ld r1,%43e2 1040 33f10002 ld r15(#%0002),r1 1044 610143de ld r1,%43de 1048 33f10004 ld r15(#%0004),r1 104c 610143e0 ld r1,%43e0 1050 33f10006 ld r15(#%0006),r1 1054 610143e6 ld r1,%43e6 1058 7f01 sc #%01 105a 7d1e .word #%7d1e 105c 7f02 sc #%02 105e 610143e8 ld r1,%43e8 1062 7d1f ldctl nsp,r1 1064 610143ea ld r1,%43ea 1068 7f01 sc #%01 106a 7d1c .word #%7d1c 106c 7f02 sc #%02 106e 610143ec ld r1,%43ec 1072 7d1d ldctl psap,r1 1074 210f43be ld r15,#%43be 1078 1cf1000d ldm r0,@r15,#14 107c 540e43b0 ldl rr14,%43b0 1080 9e08 ret 1082 a102 ld r2,r0 1084 a900 inc r0,#1 1086 0b0000e8 cp r0,#%00e8 108a 9e07 ret c 108c 8d08 clr r0 108e 9e08 ret 1090 93f0 push @r15,r0 1092 93f1 push @r15,r1 1094 93f2 push @r15,r2 1096 3a94ff81 inb rl1,%ff81 109a 660043f0 bitb %43f0,#0 109e ee01 jr nz,%10a2 10a0 a297 resb rl1,#7 10a2 610043a6 ld r0,%43a6 10a6 d013 calr %1082 10a8 6f0043a6 ld %43a6,r0 10ac 6e2942b0 ldb %42b0(r2),rl1 10b0 c938 ldb rl1,#%38 10b2 3a96ff85 outb %ff85,rl1 10b6 97f2 pop r2,@r15 10b8 97f1 pop r1,@r15 10ba 97f0 pop r0,@r15 10bc 7f01 sc #%01 10be 7b00 iret 10c0 93f1 push @r15,r1 10c2 c930 ldb rl1,#%30 10c4 3a96ff87 outb %ff87,rl1 10c8 e804 jr %10d2 10ca 93f1 push @r15,r1 10cc c930 ldb rl1,#%30 10ce 3a96ff85 outb %ff85,rl1 10d2 c938 ldb rl1,#%38 10d4 3a96ff85 outb %ff85,rl1 10d8 97f1 pop r1,@r15 10da 7f01 sc #%01 10dc 7b00 iret 10de df9b calr %11aa 10e0 0a082f2f cpb rl0,#%2f 10e4 eefc jr nz,%10de 10e6 8d48 clr r4 10e8 cb50 ldb rl3,#%50 10ea dfa1 calr %11aa 10ec 6e4840b0 ldb %40b0(r4),rl0 10f0 0a080d0d cpb rl0,#%0d 10f4 ee02 jr nz,%10fa 10f6 dfb7 calr %118a 10f8 9e08 ret 10fa 0a082020 cpb rl0,#%20 10fe e7f5 jr c,%10ea 1100 a940 inc r4,#1 1102 fb0d dbjnz rl3,%10ea 1104 dfae calr %11aa 1106 0a080d0d cpb rl0,#%0d 110a eefc jr nz,%1104 110c 6e084100 ldb %4100,rl0 1110 9e08 ret 1112 c837 ldb rl0,#%37 1114 e803 jr %111c 1116 c839 ldb rl0,#%39 1118 e801 jr %111c 111a c830 ldb rl0,#%30 111c 6e084130 ldb %4130,rl0 1120 4d05439e0001 ld %439e,#%0001 1126 dfb3 calr %11c2 1128 dfd4 calr %1182 112a 9e08 ret 112c 660543f0 bitb %43f0,#5 1130 e602 jr z,%1136 1132 8d41 setflg z 1134 9e08 ret 1136 21044130 ld r4,#%4130 113a 210240b0 ld r2,#%40b0 113e 21010040 ld r1,#%0040 1142 bb210140 ldir @r4,@r2,r1 1146 4d05439e0080 ld %439e,#%0080 114c dfbf calr %11d0 114e dfe7 calr %1182 1150 dfa9 calr %1200 1152 0a094c4c cpb rl1,#%4c 1156 e601 jr z,%115a 1158 e802 jr %115e 115a dfed calr %1182 115c dfaf calr %1200 115e 0a093939 cpb rl1,#%39 1162 e60d jr z,%117e 1164 0a093030 cpb rl1,#%30 1168 e60a jr z,%117e 116a 0a093737 cpb rl1,#%37 116e e607 jr z,%117e 1170 dfe4 calr %11aa 1172 5f000a68 call %0a68 1176 0a080a0a cpb rl0,#%0a 117a 9e06 ret z 117c e8f9 jr %1170 117e 8d43 resflg z 1180 9e08 ret 1182 dfed calr %11aa 1184 0a080d0d cpb rl0,#%0d 1188 eefc jr nz,%1182 118a 21010200 ld r1,#%0200 118e 610043a8 ld r0,%43a8 1192 4b0043a6 cp r0,%43a6 1196 ee03 jr nz,%119e 1198 ab10 dec r1,#1 119a eef9 jr nz,%118e 119c 9e06 ret z 119e dfd0 calr %1200 11a0 0a092020 cpb rl1,#%20 11a4 9e0d ret pl 11a6 dfff calr %11aa 11a8 e8f0 jr %118a 11aa 610043a8 ld r0,%43a8 11ae 4b0043a6 cp r0,%43a6 11b2 e6fb jr z,%11aa 11b4 5f001082 call %1082 11b8 6f0043a8 ld %43a8,r0 11bc 602842b0 ldb rl0,%42b0(r2) 11c0 9e08 ret 11c2 6102439e ld r2,%439e 11c6 4c2541300d0d ldb %4130(r2),#%0d 11cc 6900439e inc %439e,#1 11d0 8d18 clr r1 11d2 60184130 ldb rl0,%4130(r1) 11d6 a910 inc r1,#1 11d8 5f000cae call %0cae 11dc e603 jr z,%11e4 11de 4b01439e cp r1,%439e 11e2 e7f7 jr c,%11d2 11e4 4d08439e clr %439e 11e8 2101003f ld r1,#%003f 11ec 4d0541302020 ld %4130,#%2020 11f2 21044130 ld r4,#%4130 11f6 21024132 ld r2,#%4132 11fa bb410120 ldir @r2,@r4,r1 11fe 9e08 ret 1200 610043a8 ld r0,%43a8 1204 4b0043a6 cp r0,%43a6 1208 e6fb jr z,%1200 120a 5f001082 call %1082 120e 602942b0 ldb rl1,%42b0(r2) 1212 9e08 ret 1214 0012 addb rh2,@r1 1216 424f4f54 subb rl7,%4f54(r4) 121a 494e4720 xor r14,%4720(r4) 121e 46524f4d andb rh2,%4f4d(r5) 1222 2044 ldb rh4,@r4 1224 49534b0d xor r3,%4b0d(r5) 1228 0012 addb rh2,@r1 122a 424f4f54 subb rl7,%4f54(r4) 122e 494e4720 xor r14,%4720(r4) 1232 46524f4d andb rh2,%4f4d(r5) 1236 2054 ldb rh4,@r5 1238 4150450d add r0,%450d(r5) 123c 0011 addb rh1,@r1 123e 424f4f54 subb rl7,%4f54(r4) 1242 494e4720 xor r14,%4720(r4) 1246 46524f4d andb rh2,%4f4d(r5) 124a 2053 ldb rh3,@r5 124c 4d440d00 test %0d00(r4) 1250 0017 addb rh7,@r1 1252 424f4f54 subb rl7,%4f54(r4) 1256 494e4720 xor r14,%4720(r4) 125a 46524f4d andb rh2,%4f4d(r5) 125e 204d ldb rl5,@r4 1260 494e492d xor r14,%492d(r4) 1264 4449534b orb rl1,%534b(r4) 1268 0d00 .word #%0d00 126a 00000008 addb rh0,#%08 126e 5f000674 call %0674 1272 5e0601e0 jp z,%01e0 1276 0a084444 cpb rl0,#%44 127a e60b jr z,%1292 127c 0a085454 cpb rl0,#%54 1280 e60e jr z,%129e 1282 0a085353 cpb rl0,#%53 1286 e610 jr z,%12a8 1288 0a084d4d cpb rl0,#%4d 128c e613 jr z,%12b4 128e 5e0801e0 jp %01e0 1292 21021214 ld r2,#%1214 1296 dfea calr %12c4 1298 ce03 ldb rl6,#%03 129a 5e082b36 jp %2b36 129e 21021228 ld r2,#%1228 12a2 dff0 calr %12c4 12a4 5e083012 jp %3012 12a8 2102123c ld r2,#%123c 12ac dff5 calr %12c4 12ae ce01 ldb rl6,#%01 12b0 5e082b36 jp %2b36 12b4 21021250 ld r2,#%1250 12b8 dffb calr %12c4 12ba ce02 ldb rl6,#%02 12bc 4d08fe00 clr %fe00 12c0 5e082b36 jp %2b36 12c4 5f00050c call %050c 12c8 6107126a ld r7,%126a 12cc 6105126c ld r5,%126c 12d0 21040001 ld r4,#%0001 12d4 9e08 ret 12d6 5f001468 call %1468 12da 6107126a ld r7,%126a 12de 600e474a ldb rl6,%474a 12e2 0a0e0000 cpb rl6,#%00 12e6 e606 jr z,%12f4 12e8 6105126c ld r5,%126c 12ec a124 ld r4,r2 12ee 8d24 test r2 12f0 5e062b36 jp z,%2b36 12f4 4d05442e0ef8 ld %442e,#%0ef8 12fa 4d0543fe5b20 ld %43fe,#%5b20 1300 7c05 ei vi 1302 5e08016c jp %016c 1306 504f5745 cpl rr15,%5745(r4) 130a 52205550 subl rr0,%5550(r2) 130e 2044 ldb rh4,@r4 1310 4941474e xor r1,%474e(r4) 1314 4f5354494353 ext4f #%4f535449,%4353 131a 0013 addb rh3,@r1 131c 41435449 add r3,%5449(r4) 1320 56452050 addl rr5,%2050(r4) 1324 45524950 or r2,%4950(r5) 1328 48455241 xorb rh5,%5241(r4) 132c 4c53 .word #%4c53 132e 3a00 .word #%3a00 1330 0008434f addb rl0,#%4f 1334 4d504c45 com %4c45(r5) 1338 54450019 ldl rr5,%0019(r4) 133c 2a2a decb @r2,#11 133e 2049 ldb rl1,@r4 1340 4e56414c4944 ext4e #%4e56414c,%4944 1346 2053 ldb rh3,@r5 1348 57495443 pop %5443(r9),@r4 134c 4820434f xorb rh0,%434f(r2) 1350 4445202a orb rh5,%202a(r4) 1354 2a00 .word #%2a00 1356 00034543 addb rh3,#%43 135a 43000003 sub r0,%0003 135e 57444300 pop %4300(r4),@r4 1362 00034d44 addb rh3,#%44 1366 43000003 sub r0,%0003 136a 534d4300 push @r4,%4300(r13) 136e 00034d54 addb rh3,#%54 1372 43000003 sub r0,%0003 1376 54434300 ldl rr3,%4300(r4) 137a 00045353 addb rh4,#%53 137e 42000004 subb rh0,%0004 1382 49435000 xor r3,%5000(r4) 1386 00034650 addb rh3,#%50 138a 5000000b cpl rr0,%000b 138e 2a2a decb @r2,#11 1390 2a20 decb @r2,#1 1392 4552524f or r2,%524f(r5) 1396 52202300 subl rr0,%2300(r2) 139a 0010 addb rh0,@r1 139c 072a and r10,@r2 139e 2a2a decb @r2,#11 13a0 2046 ldb rh6,@r4 13a2 4154414c add r4,%414c(r5) 13a6 2045 ldb rh5,@r4 13a8 52524f52 subl rr2,%4f52(r5) 13ac 00095345 addb rl1,#%45 13b0 474d454e and r13,%454e(r4) 13b4 54454400 ldl rr5,%4400(r4) 13b8 000d4e4f addb rl5,#%4f 13bc 4e2d5345474d ext4e #%4e2d5345,%474d 13c2 454e5445 or r14,%5445(r4) 13c6 44000008 orb rh0,%0008 13ca 204a ldb rl2,@r4 13cc 554d5045 popl %5045(r13),@r4 13d0 52530007 subl rr3,%0007(r5) 13d4 4d4158534547 cp %5853(r4),#%4547 13da 3d00 in r0,@r0 13dc ff47 dbjnz rl7,%1350 13de ff07 dbjnz rl7,%13d2 13e0 ef01 jr nc,%13e4 13e2 ef03 jr nc,%13ea 13e4 ef05 jr nc,%13f0 13e6 ef07 jr nc,%13f6 13e8 ef09 jr nc,%13fc 13ea ef0b jr nc,%1402 13ec ef0d jr nc,%1408 13ee ef0f jr nc,%140e 13f0 00fc addb rl4,@r15 13f2 00fa addb rl2,@r15 13f4 00f6 addb rh6,@r15 13f6 00fc addb rl4,@r15 13f8 00fa addb rl2,@r15 13fa a000 ldb rh0,rh0 13fc a100 ld r0,r0 13fe a100 ld r0,r0 1400 00000000 addb rh0,#%00 1404 01010002 add r1,#%0002 1408 02000303 subb rh0,#%03 140c 01000402 add r0,#%0402 1410 00080400 addb rl0,#%00 1414 100800201000 cpl rr8,#%00201000 141a 40200080 addb rh0,%0080(r2) 141e 0000ff00 addb rh0,#%00 1422 00000000 addb rh0,#%00 1426 0000ff20 addb rh0,#%20 142a 0000ff01 addb rh0,#%01 142e 01000000 add r0,#%0000 1432 01010000 add r1,#%0000 1436 00000020 addb rh0,#%20 143a 00000000 addb rh0,#%00 143e 01090000 add r9,#%0000 1442 43454607 sub r5,%4607(r4) 1446 61626426 ld r2,%6426(r6) 144a 2949 inc @r4,#10 144c 4a0b4c0d cpb rl3,%4c0d 1450 0e4f3451 ext0e #%0e4f3451 1454 52135415 subl rr3,%5415(r1) 1458 1657 addl rr7,@r5 145a 58191a5b multl rq9,%1a5b(r1) 145e 1c793e1f ldm @r7,r14,#16 1462 2760 bit @r6,#0 1464 2650 bitb @r5,#0 1466 2548 set @r4,#8 1468 8888 xorb rl0,rl0 146a 3a86ffc1 outb %ffc1,rl0 146e a880 incb rl0,#1 1470 3a860000 outb %0000,rl0 1474 3a84ffc1 inb rl0,%ffc1 1478 b281fffa srlb rl0,#6 147c 06080303 andb rl0,#%03 1480 6e08474a ldb %474a,rl0 1484 21041306 ld r4,#%1306 1488 6f044744 ld %4744,r4 148c 7f0a sc #%0a 148e 5f0021b8 call %21b8 1492 8988 xor r8,r8 1494 8811 xorb rh1,rh1 1496 6f084740 ld %4740,r8 149a 8966 xor r6,r6 149c 4d0547480000 ld %4748,#%0000 14a2 6f064742 ld %4742,r6 14a6 cda5 ldb rl5,#%a5 14a8 c802 ldb rl0,#%02 14aa a065 ldb rh5,rh6 14ac 21078000 ld r7,#%8000 14b0 7f01 sc #%01 14b2 2f65 ld @r6,r5 14b4 2164 ld r4,@r6 14b6 7f02 sc #%02 14b8 8b45 cp r5,r4 14ba e609 jr z,%14ce 14bc 2107fffe ld r7,#%fffe 14c0 f809 dbjnz rl0,%14b0 14c2 aa60 decb rh6,#1 14c4 0a060000 cpb rh6,#%00 14c8 e906 jr ge,%14d6 14ca 5e0821a6 jp %21a6 14ce 6f064742 ld %4742,r6 14d2 a860 incb rh6,#1 14d4 e8e9 jr %14a8 14d6 5f0021b8 call %21b8 14da 4d05474800e1 ld %4748,#%00e1 14e0 a980 inc r8,#1 14e2 c802 ldb rl0,#%02 14e4 21078000 ld r7,#%8000 14e8 7f01 sc #%01 14ea 206c ldb rl4,@r6 14ec 7f02 sc #%02 14ee 8ac6 cpb rh6,rl4 14f0 e605 jr z,%14fc 14f2 2107fffe ld r7,#%fffe 14f6 f808 dbjnz rl0,%14e8 14f8 5e0821a6 jp %21a6 14fc aa60 decb rh6,#1 14fe 0a060000 cpb rh6,#%00 1502 e9ef jr ge,%14e2 1504 5f0021b8 call %21b8 1508 4d05473a0000 ld %473a,#%0000 150e 8811 xorb rh1,rh1 1510 61064742 ld r6,%4742 1514 7d92 ldctl r9,fcw 1516 21080100 ld r8,#%0100 151a 5f001b5e call %1b5e 151e a980 inc r8,#1 1520 4d0547480000 ld %4748,#%0000 1526 61024740 ld r2,%4740 152a 4b02473a cp r2,%473a 152e e60c jr z,%1548 1530 6f02473a ld %473a,r2 1534 4b064742 cp r6,%4742 1538 ee07 jr nz,%1548 153a aa60 decb rh6,#1 153c 8c64 testb rh6 153e 5e0621a6 jp z,%21a6 1542 6f064742 ld %4742,r6 1546 a860 incb rh6,#1 1548 aa60 decb rh6,#1 154a 0a060000 cpb rh6,#%00 154e eae3 jr gt,%1516 1550 5f0021b8 call %21b8 1554 8966 xor r6,r6 1556 21080100 ld r8,#%0100 155a 2103ffc1 ld r3,#%ffc1 155e a16a ld r10,r6 1560 610c4742 ld r12,%4742 1564 210b1306 ld r11,#%1306 1568 a1bd ld r13,r11 156a 21094764 ld r9,#%4764 156e 03091306 sub r9,#%1306 1572 7f01 sc #%01 1574 bba109c0 ldir @r12,@r10,r9 1578 210d1c08 ld r13,#%1c08 157c 210b1582 ld r11,#%1582 1580 1ec8 jp @r12 1582 7f02 sc #%02 1584 41034740 add r3,%4740 1588 6f034740 ld %4740,r3 158c 8d34 test r3 158e 5e0e21aa jp nz,%21aa 1592 21070000 ld r7,#%0000 1596 21020014 ld r2,#%0014 159a 3f72 out @r7,r2 159c 3d73 in r3,@r7 159e 0703001e and r3,#%001e 15a2 8b23 cp r3,r2 15a4 ee26 jr nz,%15f2 15a6 4d0547480000 ld %4748,#%0000 15ac 93f3 push @r15,r3 15ae 93f9 push @r15,r9 15b0 140600000000 ldl rr6,#%00000000 15b6 5d064760 ldl %4760,rr6 15ba 5d06476c ldl %476c,rr6 15be 6f064770 ld %4770,r6 15c2 140600000001 ldl rr6,#%00000001 15c8 5d064764 ldl %4764,rr6 15cc 5d064768 ldl %4768,rr6 15d0 21060040 ld r6,#%0040 15d4 6f064772 ld %4772,r6 15d8 5f001c42 call %1c42 15dc 5f001d4a call %1d4a 15e0 5f0021b8 call %21b8 15e4 7f02 sc #%02 15e6 97f9 pop r9,@r15 15e8 97f3 pop r3,@r15 15ea 4d0547540001 ld %4754,#%0001 15f0 e808 jr %1602 15f2 4d084754 clr %4754 15f6 5f0021b8 call %21b8 15fa 5f0021b8 call %21b8 15fe 5f0021b8 call %21b8 1602 5f0021b8 call %21b8 1606 8811 xorb rh1,rh1 1608 88aa xorb rl2,rl2 160a 3aa700fc soutb %00fc,rl2 160e a8a0 incb rl2,#1 1610 3aa700fa soutb %00fa,rl2 1614 a8a0 incb rl2,#1 1616 3aa700f6 soutb %00f6,rl2 161a 3aa700f0 soutb %00f0,rl2 161e 3aa711f0 soutb %11f0,rl2 1622 7d95 ldctl r9,psap 1624 61940026 ld r4,%0026(r9) 1628 6f04473a ld %473a,r4 162c 61940016 ld r4,%0016(r9) 1630 6f04473c ld %473c,r4 1634 4d9500240000 ld %0024(r9),#%0000 163a 4d9500224000 ld %0022(r9),#%4000 1640 4d9500262324 ld %0026(r9),#%2324 1646 4d9500124000 ld %0012(r9),#%4000 164c 4d9500140000 ld %0014(r9),#%0000 1652 4d950016231c ld %0016(r9),#%231c 1658 210aa100 ld r10,#%a100 165c 210ba101 ld r11,#%a101 1660 8955 xor r5,r5 1662 210000ff ld r0,#%00ff 1666 2ead ldb @r10,rl5 1668 baa100b0 ldirb @r11,@r10,r0 166c 210aa000 ld r10,#%a000 1670 2ead ldb @r10,rl5 1672 a9a0 inc r10,#1 1674 a950 inc r5,#1 1676 a650 bitb rh5,#0 1678 e6fb jr z,%1670 167a 210aa200 ld r10,#%a200 167e 210ba201 ld r11,#%a201 1682 2105aaaa ld r5,#%aaaa 1686 210000ff ld r0,#%00ff 168a 2ead ldb @r10,rl5 168c baa100b0 ldirb @r11,@r10,r0 1690 210aa300 ld r10,#%a300 1694 210ba301 ld r11,#%a301 1698 21055555 ld r5,#%5555 169c 210000ff ld r0,#%00ff 16a0 2ead ldb @r10,rl5 16a2 baa100b0 ldirb @r11,@r10,r0 16a6 8922 xor r2,r2 16a8 8933 xor r3,r3 16aa 21080300 ld r8,#%0300 16ae 612613f0 ld r6,%13f0(r2) 16b2 210ba000 ld r11,#%a000 16b6 5f0023b2 call %23b2 16ba a8a1 incb rl2,#2 16bc 612613f0 ld r6,%13f0(r2) 16c0 210ba100 ld r11,#%a100 16c4 5f0023b2 call %23b2 16c8 a8a1 incb rl2,#2 16ca 612613f0 ld r6,%13f0(r2) 16ce 5f0023b2 call %23b2 16d2 aaa3 decb rl2,#4 16d4 a139 ld r9,r3 16d6 8129 add r9,r2 16d8 619613f0 ld r6,%13f0(r9) 16dc 613b13fa ld r11,%13fa(r3) 16e0 5f0023d8 call %23d8 16e4 a8b1 incb rl3,#2 16e6 0a0b0606 cpb rl3,#%06 16ea eef4 jr nz,%16d4 16ec 06010101 andb rh1,#%01 16f0 a980 inc r8,#1 16f2 2100001e ld r0,#%001e 16f6 612613f0 ld r6,%13f0(r2) 16fa 21031400 ld r3,#%1400 16fe a16a ld r10,r6 1700 010a0100 add r10,#%0100 1704 203f ldb rl7,@r3 1706 b2f10002 sllb rl7,#2 170a 3a3300a8 soutib @r10,@r3,r0 170e a16a ld r10,r6 1710 010a2000 add r10,#%2000 1714 003f addb rl7,@r3 1716 3a3300a8 soutib @r10,@r3,r0 171a a16a ld r10,r6 171c 010a0f00 add r10,#%0f00 1720 203d ldb rl5,@r3 1722 2109473e ld r9,#%473e 1726 3aa10098 sinib @r9,@r10,r0 172a ab90 dec r9,#1 172c 209c ldb rl4,@r9 172e 5f00217c call %217c 1732 a617 bitb rh1,#7 1734 ee04 jr nz,%173e 1736 a930 inc r3,#1 1738 8c84 testb rl0 173a eee1 jr nz,%16fe 173c a980 inc r8,#1 173e 210ba200 ld r11,#%a200 1742 5f0023b2 call %23b2 1746 5f0023d8 call %23d8 174a 210ba300 ld r11,#%a300 174e 5f0023b2 call %23b2 1752 5f0023d8 call %23d8 1756 8811 xorb rh1,rh1 1758 a980 inc r8,#1 175a 4d05474800a5 ld %4748,#%00a5 1760 2109473e ld r9,#%473e 1764 0d95aaaa ld @r9,#%aaaa 1768 c802 ldb rl0,#%02 176a 209d ldb rl5,@r9 176c 3ad700f0 soutb %00f0,rl5 1770 3ad701f0 soutb %01f0,rl5 1774 3ad720f0 soutb %20f0,rl5 1778 a16a ld r10,r6 177a 010a0000 add r10,#%0000 177e 3aa10b98 sinib @r9,@r10,r11 1782 ab90 dec r9,#1 1784 209c ldb rl4,@r9 1786 a167 ld r7,r6 1788 5f00217c call %217c 178c a16a ld r10,r6 178e 010a0100 add r10,#%0100 1792 3aa10b98 sinib @r9,@r10,r11 1796 ab90 dec r9,#1 1798 209c ldb rl4,@r9 179a 060d3f3f andb rl5,#%3f 179e a870 incb rh7,#1 17a0 5f00217c call %217c 17a4 a16a ld r10,r6 17a6 010a2000 add r10,#%2000 17aa 3aa10b98 sinib @r9,@r10,r11 17ae ab90 dec r9,#1 17b0 209c ldb rl4,@r9 17b2 060d0303 andb rl5,#%03 17b6 c720 ldb rh7,#%20 17b8 5f00217c call %217c 17bc 0d955555 ld @r9,#%5555 17c0 f82c dbjnz rl0,%176a 17c2 a8a1 incb rl2,#2 17c4 0a0a0606 cpb rl2,#%06 17c8 5e0e16a8 jp nz,%16a8 17cc a980 inc r8,#1 17ce 210a0100 ld r10,#%0100 17d2 89bb xor r11,r11 17d4 7f01 sc #%01 17d6 0da50001 ld @r10,#%0001 17da a1ab ld r11,r10 17dc 0da50000 ld @r10,#%0000 17e0 7f02 sc #%02 17e2 7603141e lda r3,%141e 17e6 a134 ld r4,r3 17e8 76051436 lda r5,%1436 17ec 8977 xor r7,r7 17ee 5f0023a8 call %23a8 17f2 c802 ldb rl0,#%02 17f4 21060ffc ld r6,#%0ffc 17f8 21070ffa ld r7,#%0ffa 17fc 21090ff6 ld r9,#%0ff6 1800 21020004 ld r2,#%0004 1804 3a330260 sotirb @r6,@r3,r2 1808 21020004 ld r2,#%0004 180c 3a430270 sotirb @r7,@r4,r2 1810 21020004 ld r2,#%0004 1814 3a530290 sotirb @r9,@r5,r2 1818 7603142e lda r3,%142e 181c 76041432 lda r4,%1432 1820 a145 ld r5,r4 1822 f812 dbjnz rl0,%1800 1824 c8d0 ldb rl0,#%d0 1826 3a8700f0 soutb %00f0,rl0 182a c802 ldb rl0,#%02 182c 3a86ffc1 outb %ffc1,rl0 1830 89bb xor r11,r11 1832 7f01 sc #%01 1834 21ac ld r12,@r10 1836 7f02 sc #%02 1838 8900 xor r0,r0 183a 3a86ffc1 outb %ffc1,rl0 183e 3a8700f0 soutb %00f0,rl0 1842 6f00474e ld %474e,r0 1846 6f0c474c ld %474c,r12 184a 8dc4 test r12 184c e604 jr z,%1856 184e 6500474e set %474e,#0 1852 5e081882 jp %1882 1856 4d0547480094 ld %4748,#%0094 185c 8811 xorb rh1,rh1 185e c802 ldb rl0,#%02 1860 2106ffc9 ld r6,#%ffc9 1864 2105aaaa ld r5,#%aaaa 1868 3e6d outb @r6,rl5 186a 3c6c inb rl4,@r6 186c 5f00217c call %217c 1870 21055555 ld r5,#%5555 1874 3e6d outb @r6,rl5 1876 3c6c inb rl4,@r6 1878 5f00217c call %217c 187c 2106ffd1 ld r6,#%ffd1 1880 f80f dbjnz rl0,%1864 1882 5f0021b8 call %21b8 1886 a980 inc r8,#1 1888 21029000 ld r2,#%9000 188c 3a26ffc9 outb %ffc9,rh2 1890 3a26ffd1 outb %ffd1,rh2 1894 2103141e ld r3,#%141e 1898 a134 ld r4,r3 189a 21051426 ld r5,#%1426 189e 4d04474c test %474c 18a2 e602 jr z,%18a8 18a4 21051422 ld r5,#%1422 18a8 5f00241c call %241c 18ac 2103a000 ld r3,#%a000 18b0 c004 ldb rh0,#%04 18b2 ccd2 ldb rl4,#%d2 18b4 5f002462 call %2462 18b8 5f0021b8 call %21b8 18bc 21038000 ld r3,#%8000 18c0 8800 xorb rh0,rh0 18c2 ccd1 ldb rl4,#%d1 18c4 5f002462 call %2462 18c8 2103141e ld r3,#%141e 18cc 21041426 ld r4,#%1426 18d0 a135 ld r5,r3 18d2 4d04474c test %474c 18d6 e600 jr z,%18d8 18d8 5f00241c call %241c 18dc 5f0021b8 call %21b8 18e0 2103a000 ld r3,#%a000 18e4 8800 xorb rh0,rh0 18e6 ccd2 ldb rl4,#%d2 18e8 5f002462 call %2462 18ec 5f0021b8 call %21b8 18f0 21038000 ld r3,#%8000 18f4 c002 ldb rh0,#%02 18f6 ccd1 ldb rl4,#%d1 18f8 5f002462 call %2462 18fc 2103141e ld r3,#%141e 1900 2104142a ld r4,#%142a 1904 a145 ld r5,r4 1906 5f00241c call %241c 190a 5f0021b8 call %21b8 190e 2103a000 ld r3,#%a000 1912 c004 ldb rh0,#%04 1914 ccd2 ldb rl4,#%d2 1916 5f002462 call %2462 191a 5f0021b8 call %21b8 191e 21038000 ld r3,#%8000 1922 c002 ldb rh0,#%02 1924 ccd1 ldb rl4,#%d1 1926 5f002462 call %2462 192a 5f0021b8 call %21b8 192e a980 inc r8,#1 1930 4d054748009a ld %4748,#%009a 1936 8811 xorb rh1,rh1 1938 a411 setb rh1,#1 193a 2102ffff ld r2,#%ffff 193e 3aa6ffc9 outb %ffc9,rl2 1942 3aa6ffd1 outb %ffd1,rl2 1946 2103141e ld r3,#%141e 194a a134 ld r4,r3 194c a135 ld r5,r3 194e 5f00241c call %241c 1952 8922 xor r2,r2 1954 21039000 ld r3,#%9000 1958 2105aaaa ld r5,#%aaaa 195c 210600fa ld r6,#%00fa 1960 210000d1 ld r0,#%00d1 1964 0d350000 ld @r3,#%0000 1968 4d0547360000 ld %4736,#%0000 196e cc02 ldb rl4,#%02 1970 4d04474c test %474c 1974 e601 jr z,%1978 1976 cc06 ldb rl4,#%06 1978 3ac6ffc1 outb %ffc1,rl4 197c 3a8700fa soutb %00fa,rl0 1980 7d92 ldctl r9,fcw 1982 a59f set r9,#15 1984 4d04474e test %474e 1988 e601 jr z,%198c 198a a39e res r9,#14 198c 7d9a ldctl fcw,r9 198e 2f25 ld @r2,r5 1990 7f02 sc #%02 1992 3a0700fa soutb %00fa,rh0 1996 3a06ffc1 outb %ffc1,rh0 199a a02f ldb rl7,rh2 199c 4d044736 test %4736 19a0 ee0a jr nz,%19b6 19a2 2134 ld r4,@r3 19a4 5f00217c call %217c 19a8 a617 bitb rh1,#7 19aa ee0d jr nz,%19c6 19ac a820 incb rh2,#1 19ae 0a024040 cpb rh2,#%40 19b2 eed8 jr nz,%1964 19b4 e808 jr %19c6 19b6 a980 inc r8,#1 19b8 4d0547480098 ld %4748,#%0098 19be 61054734 ld r5,%4734 19c2 5f0021f2 call %21f2 19c6 5f0021b8 call %21b8 19ca 21080308 ld r8,#%0308 19ce 4d054748009a ld %4748,#%009a 19d4 8811 xorb rh1,rh1 19d6 a411 setb rh1,#1 19d8 210000d2 ld r0,#%00d2 19dc 3a06ffc9 outb %ffc9,rh0 19e0 3a06ffd1 outb %ffd1,rh0 19e4 8922 xor r2,r2 19e6 4d04474c test %474c 19ea e602 jr z,%19f0 19ec 21020040 ld r2,#%0040 19f0 210600f6 ld r6,#%00f6 19f4 0d350000 ld @r3,#%0000 19f8 4d0547360000 ld %4736,#%0000 19fe cc02 ldb rl4,#%02 1a00 4d04474c test %474c 1a04 e601 jr z,%1a08 1a06 cc06 ldb rl4,#%06 1a08 3ac6ffc1 outb %ffc1,rl4 1a0c 3a8700f6 soutb %00f6,rl0 1a10 7d92 ldctl r9,fcw 1a12 a59f set r9,#15 1a14 4d04474e test %474e 1a18 e601 jr z,%1a1c 1a1a a39e res r9,#14 1a1c 7d9a ldctl fcw,r9 1a1e 2f25 ld @r2,r5 1a20 7f02 sc #%02 1a22 3a0700f6 soutb %00f6,rh0 1a26 3a06ffc1 outb %ffc1,rh0 1a2a a02f ldb rl7,rh2 1a2c 4d044736 test %4736 1a30 ee11 jr nz,%1a54 1a32 2134 ld r4,@r3 1a34 5f00217c call %217c 1a38 a617 bitb rh1,#7 1a3a ee14 jr nz,%1a64 1a3c a820 incb rh2,#1 1a3e 4d04474c test %474c 1a42 e604 jr z,%1a4c 1a44 0a028080 cpb rh2,#%80 1a48 eed5 jr nz,%19f4 1a4a e80c jr %1a64 1a4c 0a024040 cpb rh2,#%40 1a50 eed1 jr nz,%19f4 1a52 e808 jr %1a64 1a54 a980 inc r8,#1 1a56 4d0547480098 ld %4748,#%0098 1a5c 61054734 ld r5,%4734 1a60 5f0021f2 call %21f2 1a64 5f0021b8 call %21b8 1a68 21080310 ld r8,#%0310 1a6c 4d054748009a ld %4748,#%009a 1a72 8811 xorb rh1,rh1 1a74 a411 setb rh1,#1 1a76 4d08474e clr %474e 1a7a 7d95 ldctl r9,psap 1a7c 4d950026237a ld %0026(r9),#%237a 1a82 21041b5a ld r4,#%1b5a 1a86 21059000 ld r5,#%9000 1a8a 21030004 ld r3,#%0004 1a8e ba410350 ldirb @r5,@r4,r3 1a92 210000d0 ld r0,#%00d0 1a96 210600fc ld r6,#%00fc 1a9a cb02 ldb rl3,#%02 1a9c c302 ldb rh3,#%02 1a9e 4d04474c test %474c 1aa2 e601 jr z,%1aa6 1aa4 c306 ldb rh3,#%06 1aa6 8922 xor r2,r2 1aa8 a125 ld r5,r2 1aaa a12a ld r10,r2 1aac 210b1acc ld r11,#%1acc 1ab0 210d9000 ld r13,#%9000 1ab4 a12c ld r12,r2 1ab6 4d0547360000 ld %4736,#%0000 1abc 2104aaaa ld r4,#%aaaa 1ac0 3a36ffc1 outb %ffc1,rh3 1ac4 3a8700fc soutb %00fc,rl0 1ac8 7f01 sc #%01 1aca 1ec8 jp @r12 1acc 7f02 sc #%02 1ace 3a0700fc soutb %00fc,rh0 1ad2 3a06ffc1 outb %ffc1,rh0 1ad6 a02f ldb rl7,rh2 1ad8 a6b0 bitb rl3,#0 1ada ee20 jr nz,%1b1c 1adc 4d044736 test %4736 1ae0 ee24 jr nz,%1b2a 1ae2 5f00217c call %217c 1ae6 a617 bitb rh1,#7 1ae8 ee07 jr nz,%1af8 1aea a820 incb rh2,#1 1aec 0a024040 cpb rh2,#%40 1af0 eee1 jr nz,%1ab4 1af2 aab0 decb rl3,#1 1af4 8cb4 testb rl3 1af6 e621 jr z,%1b3a 1af8 5f0021b8 call %21b8 1afc 21080312 ld r8,#%0312 1b00 8811 xorb rh1,rh1 1b02 93f3 push @r15,r3 1b04 21031422 ld r3,#%1422 1b08 2104141e ld r4,#%141e 1b0c a145 ld r5,r4 1b0e 5f00241c call %241c 1b12 97f3 pop r3,@r15 1b14 8922 xor r2,r2 1b16 2105aaaa ld r5,#%aaaa 1b1a e8cc jr %1ab4 1b1c 4d044736 test %4736 1b20 eee4 jr nz,%1aea 1b22 4d0547480090 ld %4748,#%0090 1b28 e806 jr %1b36 1b2a a980 inc r8,#1 1b2c 4d0547480098 ld %4748,#%0098 1b32 61054734 ld r5,%4734 1b36 5f0021f2 call %21f2 1b3a 7d95 ldctl r9,psap 1b3c 6104473a ld r4,%473a 1b40 6f940026 ld %0026(r9),r4 1b44 6104473c ld r4,%473c 1b48 6f940016 ld %0016(r9),r4 1b4c 8888 xorb rl0,rl0 1b4e 3a86ffc1 outb %ffc1,rl0 1b52 3a8700f0 soutb %00f0,rl0 1b56 5e08226c jp %226c 1b5a 8944 xor r4,r4 1b5c 1ea8 jp @r10 1b5e 06010101 andb rh1,#%01 1b62 4d05474800e5 ld %4748,#%00e5 1b68 21070003 ld r7,#%0003 1b6c cd0f ldb rl5,#%0f 1b6e a59f set r9,#15 1b70 7d9a ldctl fcw,r9 1b72 2e6d ldb @r6,rl5 1b74 a39f res r9,#15 1b76 7d9a ldctl fcw,r9 1b78 b370 rl r7,#1 1b7a fd07 dbjnz rl5,%1b6e 1b7c b370 rl r7,#1 1b7e cd0f ldb rl5,#%0f 1b80 a59f set r9,#15 1b82 7d9a ldctl fcw,r9 1b84 206c ldb rl4,@r6 1b86 a39f res r9,#15 1b88 7d9a ldctl fcw,r9 1b8a 5f00217c call %217c 1b8e a617 bitb rh1,#7 1b90 ee02 jr nz,%1b96 1b92 b370 rl r7,#1 1b94 fd0b dbjnz rl5,%1b80 1b96 06010101 andb rh1,#%01 1b9a a411 setb rh1,#1 1b9c 4d05474800ea ld %4748,#%00ea 1ba2 a980 inc r8,#1 1ba4 21078000 ld r7,#%8000 1ba8 21050001 ld r5,#%0001 1bac c811 ldb rl0,#%11 1bae a59f set r9,#15 1bb0 7d9a ldctl fcw,r9 1bb2 2f65 ld @r6,r5 1bb4 2164 ld r4,@r6 1bb6 a39f res r9,#15 1bb8 7d9a ldctl fcw,r9 1bba 5f00217c call %217c 1bbe a617 bitb rh1,#7 1bc0 ee02 jr nz,%1bc6 1bc2 b350 rl r5,#1 1bc4 f80c dbjnz rl0,%1bae 1bc6 2105aaaa ld r5,#%aaaa 1bca a980 inc r8,#1 1bcc 06010303 andb rh1,#%03 1bd0 a16c ld r12,r6 1bd2 210d0002 ld r13,#%0002 1bd6 8977 xor r7,r7 1bd8 21007fff ld r0,#%7fff 1bdc a59f set r9,#15 1bde 7d9a ldctl fcw,r9 1be0 2f65 ld @r6,r5 1be2 bb6100c0 ldir @r12,@r6,r0 1be6 8977 xor r7,r7 1be8 21008000 ld r0,#%8000 1bec bb64005e cpir r5,@r6,r0,nz 1bf0 ab71 dec r7,#2 1bf2 2164 ld r4,@r6 1bf4 a39f res r9,#15 1bf6 7d9a ldctl fcw,r9 1bf8 5f00217c call %217c 1bfc 0a0d5555 cpb rl5,#%55 1c00 9e06 ret z 1c02 21055555 ld r5,#%5555 1c06 e8e1 jr %1bca 1c08 7d92 ldctl r9,fcw 1c0a a39f res r9,#15 1c0c 7d9a ldctl fcw,r9 1c0e 2102ff87 ld r2,#%ff87 1c12 21040001 ld r4,#%0001 1c16 3e2c outb @r2,rl4 1c18 3e24 outb @r2,rh4 1c1a 3c32 inb rh2,@r3 1c1c a420 setb rh2,#0 1c1e 3e32 outb @r3,rh2 1c20 a410 setb rh1,#0 1c22 5f001b5e call %1b5e 1c26 3c32 inb rh2,@r3 1c28 a220 resb rh2,#0 1c2a 3e32 outb @r3,rh2 1c2c 2102ff87 ld r2,#%ff87 1c30 2104011c ld r4,#%011c 1c34 3e24 outb @r2,rh4 1c36 3e2c outb @r2,rl4 1c38 61034740 ld r3,%4740 1c3c a59f set r9,#15 1c3e 7d9a ldctl fcw,r9 1c40 1ea8 jp @r10 1c42 5f0021b8 call %21b8 1c46 8811 xorb rh1,rh1 1c48 4d0547560000 ld %4756,#%0000 1c4e 140800000000 ldl rr8,#%00000000 1c54 21070001 ld r7,#%0001 1c58 21060000 ld r6,#%0000 1c5c 3f76 out @r7,r6 1c5e 4d0547540000 ld %4754,#%0000 1c64 54064764 ldl rr6,%4764 1c68 100680000000 cpl rr6,#%80000000 1c6e e604 jr z,%1c78 1c70 b3650001 slll rr6,#1 1c74 5e081c7e jp %1c7e 1c78 140600000001 ldl rr6,#%00000001 1c7e 5d064764 ldl %4764,rr6 1c82 948c ldl rr12,rr8 1c84 010c0100 add r12,#%0100 1c88 54064760 ldl rr6,%4760 1c8c 5f00206e call %206e 1c90 54064760 ldl rr6,%4760 1c94 54044764 ldl rr4,%4764 1c98 8964 xor r4,r6 1c9a 8975 xor r5,r7 1c9c 21078000 ld r7,#%8000 1ca0 21060000 ld r6,#%0000 1ca4 a123 ld r3,r2 1ca6 5f0020be call %20be 1caa 21078000 ld r7,#%8000 1cae 21060000 ld r6,#%0000 1cb2 5f0020ea call %20ea 1cb6 50024760 cpl rr2,%4760 1cba e604 jr z,%1cc4 1cbc 69004756 inc %4756,#1 1cc0 5e081cfa jp %1cfa 1cc4 69004754 inc %4754,#1 1cc8 21070001 ld r7,#%0001 1ccc 3d72 in r2,@r7 1cce 070200ff and r2,#%00ff 1cd2 0b0200ff cp r2,#%00ff 1cd6 ee04 jr nz,%1ce0 1cd8 4d0147540100 cp %4754,#%0100 1cde e60d jr z,%1cfa 1ce0 4b024754 cp r2,%4754 1ce4 e60a jr z,%1cfa 1ce6 69004756 inc %4756,#1 1cea 4d0547540000 ld %4754,#%0000 1cf0 21070001 ld r7,#%0001 1cf4 21060000 ld r6,#%0000 1cf8 3f76 out @r7,r6 1cfa 540a4760 ldl rr10,%4760 1cfe 160a00010001 addl rr10,#%00010001 1d04 5d0a4760 ldl %4760,rr10 1d08 54064764 ldl rr6,%4764 1d0c 100680000000 cpl rr6,#%80000000 1d12 ee05 jr nz,%1d1e 1d14 140600000001 ldl rr6,#%00000001 1d1a 5e081d22 jp %1d22 1d1e b3650001 slll rr6,#1 1d22 5d064764 ldl %4764,rr6 1d26 160800000001 addl rr8,#%00000001 1d2c 908c cpl rr12,rr8 1d2e e7ac jr c,%1c88 1d30 100800000400 cpl rr8,#%00000400 1d36 e78e jr c,%1c54 1d38 4d0147560000 cp %4756,#%0000 1d3e 9e06 ret z 1d40 21080200 ld r8,#%0200 1d44 5f0021f2 call %21f2 1d48 9e08 ret 1d4a 5f0021b8 call %21b8 1d4e 8811 xorb rh1,rh1 1d50 5f002098 call %2098 1d54 5f00210c call %210c 1d58 140600000000 ldl rr6,#%00000000 1d5e 5d064760 ldl %4760,rr6 1d62 140600000000 ldl rr6,#%00000000 1d68 5d064750 ldl %4750,rr6 1d6c 4d0547540000 ld %4754,#%0000 1d72 21070001 ld r7,#%0001 1d76 21060000 ld r6,#%0000 1d7a 3f76 out @r7,r6 1d7c 540c4750 ldl rr12,%4750 1d80 160c00000100 addl rr12,#%00000100 1d86 540a4768 ldl rr10,%4768 1d8a 5408476c ldl rr8,%476c 1d8e 61034772 ld r3,%4772 1d92 100a00000000 cpl rr10,#%00000000 1d98 e60a jr z,%1dae 1d9a 908a cpl rr10,rr8 1d9c e608 jr z,%1dae 1d9e b385ffff srll rr8,#1 1da2 100800000000 cpl rr8,#%00000000 1da8 ee02 jr nz,%1dae 1daa 21030040 ld r3,#%0040 1dae 4d0147700000 cp %4770,#%0000 1db4 e614 jr z,%1dde 1db6 4b034770 cp r3,%4770 1dba ee11 jr nz,%1dde 1dbc b331ffff srl r3,#1 1dc0 0b030000 cp r3,#%0000 1dc4 ee0c jr nz,%1dde 1dc6 100a80000000 cpl rr10,#%80000000 1dcc e605 jr z,%1dd8 1dce 140880000000 ldl rr8,#%80000000 1dd4 5e081dde jp %1dde 1dd8 140840000000 ldl rr8,#%40000000 1dde 54064760 ldl rr6,%4760 1de2 5f00206e call %206e 1de6 6f034772 ld %4772,r3 1dea 54044760 ldl rr4,%4760 1dee 89a4 xor r4,r10 1df0 89b5 xor r5,r11 1df2 8984 xor r4,r8 1df4 8995 xor r5,r9 1df6 49024770 xor r2,%4770 1dfa 8923 xor r3,r2 1dfc 21078000 ld r7,#%8000 1e00 21060000 ld r6,#%0000 1e04 5f0020be call %20be 1e08 21078000 ld r7,#%8000 1e0c 21060000 ld r6,#%0000 1e10 5f0020ea call %20ea 1e14 5f002126 call %2126 1e18 5f00210c call %210c 1e1c 61024738 ld r2,%4738 1e20 4d0547380000 ld %4738,#%0000 1e26 0b020004 cp r2,#%0004 1e2a 5e0e1f12 jp nz,%1f12 1e2e 69004754 inc %4754,#1 1e32 21070001 ld r7,#%0001 1e36 3d72 in r2,@r7 1e38 070200ff and r2,#%00ff 1e3c 0b0200ff cp r2,#%00ff 1e40 ee04 jr nz,%1e4a 1e42 4d0147540100 cp %4754,#%0100 1e48 e604 jr z,%1e52 1e4a 4b024754 cp r2,%4754 1e4e 5e0e1f18 jp nz,%1f18 1e52 54064760 ldl rr6,%4760 1e56 160600010001 addl rr6,#%00010001 1e5c 5d064760 ldl %4760,rr6 1e60 61034770 ld r3,%4770 1e64 61044772 ld r4,%4772 1e68 100a00000000 cpl rr10,#%00000000 1e6e e60f jr z,%1e8e 1e70 100a80000000 cpl rr10,#%80000000 1e76 e604 jr z,%1e80 1e78 b3a50001 slll rr10,#1 1e7c 5e081ea6 jp %1ea6 1e80 140a00000000 ldl rr10,#%00000000 1e86 21030001 ld r3,#%0001 1e8a 5e081ea6 jp %1ea6 1e8e 0b030040 cp r3,#%0040 1e92 e604 jr z,%1e9c 1e94 b3310001 sll r3,#1 1e98 5e081ea6 jp %1ea6 1e9c 21030000 ld r3,#%0000 1ea0 140a00000001 ldl rr10,#%00000001 1ea6 100800000000 cpl rr8,#%00000000 1eac 5e061ece jp z,%1ece 1eb0 100800000001 cpl rr8,#%00000001 1eb6 e604 jr z,%1ec0 1eb8 b385ffff srll rr8,#1 1ebc 5e081ee6 jp %1ee6 1ec0 140800000000 ldl rr8,#%00000000 1ec6 21040040 ld r4,#%0040 1eca 5e081ee6 jp %1ee6 1ece 0b040001 cp r4,#%0001 1ed2 e604 jr z,%1edc 1ed4 b341ffff srl r4,#1 1ed8 5e081ee6 jp %1ee6 1edc 21040000 ld r4,#%0000 1ee0 140880000000 ldl rr8,#%80000000 1ee6 6f034770 ld %4770,r3 1eea 6f044772 ld %4772,r4 1eee 54064750 ldl rr6,%4750 1ef2 160600000001 addl rr6,#%00000001 1ef8 5d064750 ldl %4750,rr6 1efc 500c4750 cpl rr12,%4750 1f00 5e071d92 jp c,%1d92 1f04 100600000400 cpl rr6,#%00000400 1f0a 5e071d6c jp c,%1d6c 1f0e 5e081f20 jp %1f20 1f12 21080201 ld r8,#%0201 1f16 e802 jr %1f1c 1f18 21080202 ld r8,#%0202 1f1c 5f0021f2 call %21f2 1f20 5f0020b0 call %20b0 1f24 5f002126 call %2126 1f28 9e08 ret 1f2a 5f0021b8 call %21b8 1f2e 8811 xorb rh1,rh1 1f30 4d05474800e0 ld %4748,#%00e0 1f36 4d0547580001 ld %4758,#%0001 1f3c 21070001 ld r7,#%0001 1f40 21060000 ld r6,#%0000 1f44 3f76 out @r7,r6 1f46 61074758 ld r7,%4758 1f4a 21060000 ld r6,#%0000 1f4e 21058000 ld r5,#%8000 1f52 21040000 ld r4,#%0000 1f56 5f002160 call %2160 1f5a 210c0000 ld r12,#%0000 1f5e 4d05475a0000 ld %475a,#%0000 1f64 21084000 ld r8,#%4000 1f68 54c4143a ldl rr4,%143a(r12) 1f6c 6107475a ld r7,%475a 1f70 61064758 ld r6,%4758 1f74 ace6 exb rh6,rl6 1f76 7d92 ldctl r9,fcw 1f78 a59f set r9,#15 1f7a 7d9a ldctl fcw,r9 1f7c 2f64 ld @r6,r4 1f7e 01070002 add r7,#%0002 1f82 2f65 ld @r6,r5 1f84 a39f res r9,#15 1f86 7d9a ldctl fcw,r9 1f88 a971 inc r7,#2 1f8a f88b djnz r8,%1f76 1f8c 21084000 ld r8,#%4000 1f90 6107475a ld r7,%475a 1f94 61064758 ld r6,%4758 1f98 5f0020ea call %20ea 1f9c 50c2143a cpl rr2,%143a(r12) 1fa0 e61a jr z,%1fd6 1fa2 a617 bitb rh1,#7 1fa4 e605 jr z,%1fb0 1fa6 4d044758 test %4758 1faa 5e0e15e4 jp nz,%15e4 1fae e851 jr %2052 1fb0 140400000000 ldl rr4,#%00000000 1fb6 61064758 ld r6,%4758 1fba ace6 exb rh6,rl6 1fbc 6107475a ld r7,%475a 1fc0 21080203 ld r8,#%0203 1fc4 5f0021f2 call %21f2 1fc8 91f6 pushl @r15,rr6 1fca 21060000 ld r6,#%0000 1fce 21070001 ld r7,#%0001 1fd2 3f76 out @r7,r6 1fd4 95f6 popl rr6,@r15 1fd6 a973 inc r7,#4 1fd8 f8a3 djnz r8,%1f94 1fda a9c0 inc r12,#1 1fdc 0b0c0002 cp r12,#%0002 1fe0 e7be jr c,%1f5e 1fe2 61054758 ld r5,%4758 1fe6 0b050000 cp r5,#%0000 1fea 5e062052 jp z,%2052 1fee 4b054742 cp r5,%4742 1ff2 e604 jr z,%1ffc 1ff4 69004758 inc %4758,#1 1ff8 5e081f3c jp %1f3c 1ffc 5e0815e4 jp %15e4 2000 8966 xor r6,r6 2002 2103ffc1 ld r3,#%ffc1 2006 a16a ld r10,r6 2008 610c4742 ld r12,%4742 200c 210b1306 ld r11,#%1306 2010 a1bd ld r13,r11 2012 21094764 ld r9,#%4764 2016 03091306 sub r9,#%1306 201a 7f01 sc #%01 201c bba109c0 ldir @r12,@r10,r9 2020 210d202a ld r13,#%202a 2024 210b15e4 ld r11,#%15e4 2028 1ec8 jp @r12 202a 7d92 ldctl r9,fcw 202c a39f res r9,#15 202e 7d9a ldctl fcw,r9 2030 2102ff87 ld r2,#%ff87 2034 21040001 ld r4,#%0001 2038 3e2c outb @r2,rl4 203a 3e24 outb @r2,rh4 203c 3c32 inb rh2,@r3 203e a420 setb rh2,#0 2040 3e32 outb @r3,rh2 2042 a410 setb rh1,#0 2044 4d0547580000 ld %4758,#%0000 204a 93f2 push @r15,r2 204c 93f3 push @r15,r3 204e 5e081f3c jp %1f3c 2052 97f3 pop r3,@r15 2054 97f2 pop r2,@r15 2056 3c32 inb rh2,@r3 2058 a220 resb rh2,#0 205a 3e32 outb @r3,rh2 205c 2102ff87 ld r2,#%ff87 2060 2104011c ld r4,#%011c 2064 3e24 outb @r2,rh4 2066 3e2c outb @r2,rl4 2068 a59f set r9,#15 206a 7d9a ldctl fcw,r9 206c 1ea8 jp @r10 206e 8d28 clr r2 2070 8d58 clr r5 2072 a17a ld r10,r7 2074 070a0001 and r10,#%0001 2078 e602 jr z,%207e 207a 485a1442 xorb rl2,%1442(r5) 207e a950 inc r5,#1 2080 0b050020 cp r5,#%0020 2084 e603 jr z,%208c 2086 5f002092 call %2092 208a e8f3 jr %2072 208c 0702007f and r2,#%007f 2090 9e08 ret 2092 b365ffff srll rr6,#1 2096 9e08 ret 2098 4d0547380000 ld %4738,#%0000 209e 7d75 ldctl r7,psap 20a0 0107002e add r7,#%002e 20a4 2176 ld r6,@r7 20a6 6f06473a ld %473a,r6 20aa 0d752140 ld @r7,#%2140 20ae 9e08 ret 20b0 7d75 ldctl r7,psap 20b2 0107002e add r7,#%002e 20b6 6106473a ld r6,%473a 20ba 2f76 ld @r7,r6 20bc 9e08 ret 20be ace6 exb rh6,rl6 20c0 3b360002 out %0002,r3 20c4 7f01 sc #%01 20c6 2f64 ld @r6,r4 20c8 01070002 add r7,#%0002 20cc 3b340000 in r3,%0000 20d0 05030080 or r3,#%0080 20d4 3b360000 out %0000,r3 20d8 2f65 ld @r6,r5 20da 3b340000 in r3,%0000 20de 0703ff7f and r3,#%ff7f 20e2 3b360000 out %0000,r3 20e6 7f02 sc #%02 20e8 9e08 ret 20ea ace6 exb rh6,rl6 20ec 7f01 sc #%01 20ee 3b240000 in r2,%0000 20f2 05020040 or r2,#%0040 20f6 3b260000 out %0000,r2 20fa 1462 ldl rr2,@r6 20fc 3b740000 in r7,%0000 2100 0707ffbf and r7,#%ffbf 2104 3b760000 out %0000,r7 2108 7f02 sc #%02 210a 9e08 ret 210c 3aa4ffc1 inb rl2,%ffc1 2110 040a0808 orb rl2,#%08 2114 3aa6ffc1 outb %ffc1,rl2 2118 3b240000 in r2,%0000 211c 05020020 or r2,#%0020 2120 3b260000 out %0000,r2 2124 9e08 ret 2126 3aa4ffc1 inb rl2,%ffc1 212a 060af7f7 andb rl2,#%f7 212e 3aa6ffc1 outb %ffc1,rl2 2132 3b240000 in r2,%0000 2136 0702ffdf and r2,#%ffdf 213a 3b260000 out %0000,r2 213e 9e08 ret 2140 21f2 ld r2,@r15 2142 07020007 and r2,#%0007 2146 0b020004 cp r2,#%0004 214a ee02 jr nz,%2150 214c 6f024738 ld %4738,r2 2150 7f01 sc #%01 2152 7b00 iret 2154 2102002e ld r2,#%002e 2158 6103473a ld r3,%473a 215c 2f23 ld @r2,r3 215e 1e38 jp @r3 2160 ad76 ex r6,r7 2162 ace6 exb rh6,rl6 2164 9462 ldl rr2,rr6 2166 a931 inc r3,#2 2168 ab50 dec r5,#1 216a 7d92 ldctl r9,fcw 216c a59f set r9,#15 216e 7d9a ldctl fcw,r9 2170 2f64 ld @r6,r4 2172 bb610520 ldir @r2,@r6,r5 2176 a39f res r9,#15 2178 7d9a ldctl fcw,r9 217a 9e08 ret 217c a611 bitb rh1,#1 217e e603 jr z,%2186 2180 8b45 cp r5,r4 2182 9e06 ret z 2184 e802 jr %218a 2186 8acd cpb rl5,rl4 2188 9e06 ret z 218a a610 bitb rh1,#0 218c e609 jr z,%21a0 218e 3c32 inb rh2,@r3 2190 a220 resb rh2,#0 2192 3e32 outb @r3,rh2 2194 5f0021f2 call %21f2 2198 3c32 inb rh2,@r3 219a a420 setb rh2,#0 219c 3e32 outb @r3,rh2 219e 9e08 ret 21a0 5f0021f2 call %21f2 21a4 9e08 ret 21a6 5f0021f2 call %21f2 21aa 2102139a ld r2,#%139a 21ae 7f0c sc #%0c 21b0 7f10 sc #%10 21b2 61024740 ld r2,%4740 21b6 9e08 ret 21b8 93f2 push @r15,r2 21ba 61024744 ld r2,%4744 21be a920 inc r2,#1 21c0 c901 ldb rl1,#%01 21c2 0c212020 cpb @r2,#%20 21c6 ee01 jr nz,%21ca 21c8 a890 incb rl1,#1 21ca 5f0021d2 call %21d2 21ce 97f2 pop r2,@r15 21d0 9e08 ret 21d2 91f0 pushl @r15,rr0 21d4 91f2 pushl @r15,rr2 21d6 61024744 ld r2,%4744 21da 2028 ldb rl0,@r2 21dc 7f06 sc #%06 21de a920 inc r2,#1 21e0 f904 dbjnz rl1,%21da 21e2 6f024744 ld %4744,r2 21e6 4d0547460000 ld %4746,#%0000 21ec 95f2 popl rr2,@r15 21ee 95f0 popl rr0,@r15 21f0 9e08 ret 21f2 5c09000e4700 ldm %4700,r0,#15 21f8 93f4 push @r15,r4 21fa 93f5 push @r15,r5 21fc 93f7 push @r15,r7 21fe 93f6 push @r15,r6 2200 93f8 push @r15,r8 2202 4d044746 test %4746 2206 ee01 jr nz,%220a 2208 7f0a sc #%0a 220a 4d054746ffff ld %4746,#%ffff 2210 2102138c ld r2,#%138c 2214 7f0c sc #%0c 2216 97f5 pop r5,@r15 2218 7f0e sc #%0e 221a c920 ldb rl1,#%20 221c 7f16 sc #%16 221e 61074748 ld r7,%4748 2222 21060004 ld r6,#%0004 2226 8877 xorb rh7,rh7 2228 b372 rl r7,#2 222a 97f5 pop r5,@r15 222c 0a070101 cpb rh7,#%01 2230 ee02 jr nz,%2236 2232 7f12 sc #%12 2234 e80a jr %224a 2236 0a070202 cpb rh7,#%02 223a ee02 jr nz,%2240 223c 7f0e sc #%0e 223e e805 jr %224a 2240 0a070303 cpb rh7,#%03 2244 ee02 jr nz,%224a 2246 a05d ldb rl5,rh5 2248 7f14 sc #%14 224a c920 ldb rl1,#%20 224c 7f16 sc #%16 224e f695 djnz r6,%2226 2250 7f10 sc #%10 2252 5c01000e4700 ldm r0,%4700,#15 2258 a612 bitb rh1,#2 225a ee02 jr nz,%2260 225c 69004740 inc %4740,#1 2260 a212 resb rh1,#2 2262 a616 bitb rh1,#6 2264 e601 jr z,%2268 2266 a417 setb rh1,#7 2268 a416 setb rh1,#6 226a 9e08 ret 226c 7f0a sc #%0a 226e 7f0a sc #%0a 2270 2102131a ld r2,#%131a 2274 7f0c sc #%0c 2276 7f10 sc #%10 2278 4d0547360001 ld %4736,#%0001 227e 8911 xor r1,r1 2280 6009474a ldb rl1,%474a 2284 0a090000 cpb rl1,#%00 2288 ee06 jr nz,%2296 228a c901 ldb rl1,#%01 228c 2102133a ld r2,#%133a 2290 7f0c sc #%0c 2292 7f10 sc #%10 2294 e805 jr %22a0 2296 6102442e ld r2,%442e 229a 0b0212d6 cp r2,#%12d6 229e e602 jr z,%22a4 22a0 4d084736 clr %4736 22a4 ab10 dec r1,#1 22a6 21000003 ld r0,#%0003 22aa 91f0 pushl @r15,rr0 22ac b3110001 sll r1,#1 22b0 61181462 ld r8,%1462(r1) 22b4 1f80 call @r8 22b6 95f0 popl rr0,@r15 22b8 a910 inc r1,#1 22ba 0b010003 cp r1,#%0003 22be ee01 jr nz,%22c2 22c0 8911 xor r1,r1 22c2 f08d djnz r0,%22aa 22c4 5f00290c call %290c 22c8 4d044754 test %4754 22cc e604 jr z,%22d6 22ce 21021356 ld r2,#%1356 22d2 7f0c sc #%0c 22d4 7f10 sc #%10 22d6 5f002ade call %2ade 22da 5f002a26 call %2a26 22de 5f0029fc call %29fc 22e2 5f002aa8 call %2aa8 22e6 7f0a sc #%0a 22e8 21021330 ld r2,#%1330 22ec 7f0c sc #%0c 22ee 7f10 sc #%10 22f0 210213b8 ld r2,#%13b8 22f4 4d04474c test %474c 22f8 e602 jr z,%22fe 22fa 210213ac ld r2,#%13ac 22fe 7f0c sc #%0c 2300 210213c8 ld r2,#%13c8 2304 7f0c sc #%0c 2306 7f10 sc #%10 2308 210213d2 ld r2,#%13d2 230c 7f0c sc #%0c 230e 600d4742 ldb rl5,%4742 2312 7f14 sc #%14 2314 7f10 sc #%10 2316 61024740 ld r2,%4740 231a 9e08 ret 231c 65fe0002 set %0002(r15),#14 2320 7f01 sc #%01 2322 7b00 iret 2324 91f2 pushl @r15,rr2 2326 61f20004 ld r2,%0004(r15) 232a ac2a exb rl2,rh2 232c 07020007 and r2,#%0007 2330 0a0a0101 cpb rl2,#%01 2334 e609 jr z,%2348 2336 0a0a0202 cpb rl2,#%02 233a e60b jr z,%2352 233c 0a0a0404 cpb rl2,#%04 2340 e60d jr z,%235c 2342 c2ff ldb rh2,#%ff 2344 8933 xor r3,r3 2346 e80e jr %2364 2348 3ab502fc sinb rl3,%02fc 234c 3a3505fc sinb rh3,%05fc 2350 e809 jr %2364 2352 3ab502fa sinb rl3,%02fa 2356 3a3505fa sinb rh3,%05fa 235a e804 jr %2364 235c 3ab502f6 sinb rl3,%02f6 2360 3a3505f6 sinb rh3,%05f6 2364 6f024736 ld %4736,r2 2368 6f034734 ld %4734,r3 236c 3aa711f0 soutb %11f0,rl2 2370 95f2 popl rr2,@r15 2372 7d92 ldctl r9,fcw 2374 a59f set r9,#15 2376 7d9a ldctl fcw,r9 2378 7b00 iret 237a 3a0700fc soutb %00fc,rh0 237e 3a06ffc1 outb %ffc1,rh0 2382 010f0009 add r15,#%0009 2386 93f2 push @r15,r2 2388 3aa502fc sinb rl2,%02fc 238c 3a2505fc sinb rh2,%05fc 2390 6f024734 ld %4734,r2 2394 4d054736ffff ld %4736,#%ffff 239a 3aa711fc soutb %11fc,rl2 239e 21025000 ld r2,#%5000 23a2 7d2a ldctl fcw,r2 23a4 97f2 pop r2,@r15 23a6 1eb8 jp @r11 23a8 3af701f0 soutb %01f0,rl7 23ac 3a7720f0 soutb %20f0,rh7 23b0 9e08 ret 23b2 5c09000e4700 ldm %4700,r0,#15 23b8 8977 xor r7,r7 23ba 5f0023a8 call %23a8 23be 01060f00 add r6,#%0f00 23c2 21000100 ld r0,#%0100 23c6 3ab30060 sotirb @r6,@r11,r0 23ca 8977 xor r7,r7 23cc 5f0023a8 call %23a8 23d0 5c01000e4700 ldm r0,%4700,#15 23d6 9e08 ret 23d8 91f2 pushl @r15,rr2 23da 93fb push @r15,r11 23dc 4d0547480095 ld %4748,#%0095 23e2 8811 xorb rh1,rh1 23e4 01060f00 add r6,#%0f00 23e8 210aa400 ld r10,#%a400 23ec 21000100 ld r0,#%0100 23f0 3a6100a0 sinirb @r10,@r6,r0 23f4 210aa400 ld r10,#%a400 23f8 21000100 ld r0,#%0100 23fc baa600be cpsirb @r11,@r10,r0,nz 2400 aba0 dec r10,#1 2402 abb0 dec r11,#1 2404 20ac ldb rl4,@r10 2406 20bd ldb rl5,@r11 2408 030aa400 sub r10,#%a400 240c a1a7 ld r7,r10 240e 03060f00 sub r6,#%0f00 2412 5f00217c call %217c 2416 97fb pop r11,@r15 2418 95f2 popl rr2,@r15 241a 9e08 ret 241c 5c09000e4700 ldm %4700,r0,#15 2422 8977 xor r7,r7 2424 5f0023a8 call %23a8 2428 c840 ldb rl0,#%40 242a 21090ffc ld r9,#%0ffc 242e 210a0ffa ld r10,#%0ffa 2432 210b0ff6 ld r11,#%0ff6 2436 21020004 ld r2,#%0004 243a 3a330290 sotirb @r9,@r3,r2 243e ab33 dec r3,#4 2440 21020004 ld r2,#%0004 2444 3a4302a0 sotirb @r10,@r4,r2 2448 ab43 dec r4,#4 244a 21020004 ld r2,#%0004 244e 3a5302b0 sotirb @r11,@r5,r2 2452 ab53 dec r5,#4 2454 f810 dbjnz rl0,%2436 2456 5f0023a8 call %23a8 245a 5c01000e4700 ldm r0,%4700,#15 2460 9e08 ret 2462 91f2 pushl @r15,rr2 2464 93f9 push @r15,r9 2466 8811 xorb rh1,rh1 2468 8922 xor r2,r2 246a 4d04474c test %474c 246e e604 jr z,%2478 2470 c202 ldb rh2,#%02 2472 a6c1 bitb rl4,#1 2474 e601 jr z,%2478 2476 c242 ldb rh2,#%42 2478 4d0547480050 ld %4748,#%0050 247e 4d0547360000 ld %4736,#%0000 2484 c802 ldb rl0,#%02 2486 4d04474c test %474c 248a e623 jr z,%24d2 248c c806 ldb rl0,#%06 248e 3a86ffc1 outb %ffc1,rl0 2492 8844 xorb rh4,rh4 2494 a6c1 bitb rl4,#1 2496 e609 jr z,%24aa 2498 3ac700f6 soutb %00f6,rl4 249c c480 ldb rh4,#%80 249e 3a4700fc soutb %00fc,rh4 24a2 c481 ldb rh4,#%81 24a4 3a4700fa soutb %00fa,rh4 24a8 e81f jr %24e8 24aa a6c0 bitb rl4,#0 24ac e609 jr z,%24c0 24ae 3ac700fa soutb %00fa,rl4 24b2 c480 ldb rh4,#%80 24b4 3a4700fc soutb %00fc,rh4 24b8 c482 ldb rh4,#%82 24ba 3a4700f6 soutb %00f6,rh4 24be e814 jr %24e8 24c0 3ac700fc soutb %00fc,rl4 24c4 c481 ldb rh4,#%81 24c6 3a4700fa soutb %00fa,rh4 24ca c482 ldb rh4,#%82 24cc 3a4700f6 soutb %00f6,rh4 24d0 e80b jr %24e8 24d2 3a86ffc1 outb %ffc1,rl0 24d6 c8d0 ldb rl0,#%d0 24d8 3a8700fc soutb %00fc,rl0 24dc a880 incb rl0,#1 24de 3a8700fa soutb %00fa,rl0 24e2 a880 incb rl0,#1 24e4 3a8700f6 soutb %00f6,rl0 24e8 7d92 ldctl r9,fcw 24ea a59f set r9,#15 24ec 4d04474e test %474e 24f0 e601 jr z,%24f4 24f2 a39e res r9,#14 24f4 7d9a ldctl fcw,r9 24f6 2f25 ld @r2,r5 24f8 7b0a mbit 24fa 7f02 sc #%02 24fc 8888 xorb rl0,rl0 24fe 3a8700f0 soutb %00f0,rl0 2502 3a86ffc1 outb %ffc1,rl0 2506 61064736 ld r6,%4736 250a 8c64 testb rh6 250c ee15 jr nz,%2538 250e 8ae0 cpb rh0,rl6 2510 ee0e jr nz,%252e 2512 a820 incb rh2,#1 2514 4d04474c test %474c 2518 e606 jr z,%2526 251a a6c1 bitb rl4,#1 251c e604 jr z,%2526 251e 0a028080 cpb rh2,#%80 2522 eeaa jr nz,%2478 2524 e80e jr %2542 2526 0a024040 cpb rh2,#%40 252a eea6 jr nz,%2478 252c e80a jr %2542 252e 4d0547480058 ld %4748,#%0058 2534 61054734 ld r5,%4734 2538 a02f ldb rl7,rh2 253a 5f0021f2 call %21f2 253e a617 bitb rh1,#7 2540 e6e8 jr z,%2512 2542 97f9 pop r9,@r15 2544 95f2 popl rr2,@r15 2546 9e08 ret 2548 21081000 ld r8,#%1000 254c 4d0547480000 ld %4748,#%0000 2552 8811 xorb rh1,rh1 2554 21078001 ld r7,#%8001 2558 cea5 ldb rl6,#%a5 255a 3e7e outb @r7,rl6 255c 3c76 inb rh6,@r7 255e 8ae6 cpb rh6,rl6 2560 e605 jr z,%256c 2562 4c01474a0303 cpb %474a,#%03 2568 9e0e ret nz 256a e821 jr %25ae 256c 91f0 pushl @r15,rr0 256e 2102135c ld r2,#%135c 2572 7f0c sc #%0c 2574 7f10 sc #%10 2576 95f0 popl rr0,@r15 2578 4c01474a0303 cpb %474a,#%03 257e 9e0e ret nz 2580 21081002 ld r8,#%1002 2584 3a168001 outb %8001,rh1 2588 21078000 ld r7,#%8000 258c 21068010 ld r6,#%8010 2590 ca04 ldb rl2,#%04 2592 5f0025b4 call %25b4 2596 ee01 jr nz,%259a 2598 9e08 ret 259a 4c01474a0303 cpb %474a,#%03 25a0 e601 jr z,%25a4 25a2 a412 setb rh1,#2 25a4 4d0547480055 ld %4748,#%0055 25aa 5f00260e call %260e 25ae 5f0021f2 call %21f2 25b2 9e08 ret 25b4 3c6d inb rl5,@r6 25b6 a0d5 ldb rh5,rl5 25b8 06050303 andb rh5,#%03 25bc 0a050303 cpb rh5,#%03 25c0 e616 jr z,%25ee 25c2 21040007 ld r4,#%0007 25c6 5f0025f6 call %25f6 25ca e613 jr z,%25f2 25cc 3e7a outb @r7,rl2 25ce 21040007 ld r4,#%0007 25d2 5f0025f6 call %25f6 25d6 e60d jr z,%25f2 25d8 21040003 ld r4,#%0003 25dc 5f0025f6 call %25f6 25e0 e608 jr z,%25f2 25e2 3c6d inb rl5,@r6 25e4 a6d1 bitb rl5,#1 25e6 ee05 jr nz,%25f2 25e8 a6d2 bitb rl5,#2 25ea ee03 jr nz,%25f2 25ec 9e08 ret 25ee 21081001 ld r8,#%1001 25f2 8d43 resflg z 25f4 9e08 ret 25f6 91f2 pushl @r15,rr2 25f8 21000fa0 ld r0,#%0fa0 25fc 3c6a inb rl2,@r6 25fe 26040a00 bitb rl2,r4 2602 ee03 jr nz,%260a 2604 5f0029ee call %29ee 2608 f087 djnz r0,%25fc 260a 95f2 popl rr2,@r15 260c 9e08 ret 260e 88aa xorb rl2,rl2 2610 3aa6800c outb %800c,rl2 2614 3aa68001 outb %8001,rl2 2618 21028000 ld r2,#%8000 261c 3aa6800a outb %800a,rl2 2620 3a26800b outb %800b,rh2 2624 ca03 ldb rl2,#%03 2626 5f0025b4 call %25b4 262a ee09 jr nz,%263e 262c 600e8000 ldb rl6,%8000 2630 600f8001 ldb rl7,%8001 2634 600d8004 ldb rl5,%8004 2638 600c8005 ldb rl4,%8005 263c 9e08 ret 263e 3c6d inb rl5,@r6 2640 4d0547480004 ld %4748,#%0004 2646 9e08 ret 2648 21000004 ld r0,#%0004 264c dffb calr %2658 264e 9e08 ret 2650 21000000 ld r0,#%0000 2654 dfff calr %2658 2656 9e08 ret 2658 8811 xorb rh1,rh1 265a 4d0547480000 ld %4748,#%0000 2660 210af000 ld r10,#%f000 2664 0ca5ffff ldb @r10,#%ff 2668 a1ab ld r11,r10 266a a9b0 inc r11,#1 266c 210c004a ld r12,#%004a 2670 baa10cb0 ldirb @r11,@r10,r12 2674 210df1f1 ld r13,#%f1f1 2678 3bd680f0 out %80f0,r13 267c df96 calr %2752 267e 89dd xor r13,r13 2680 3bd680f0 out %80f0,r13 2684 df9a calr %2752 2686 210bf000 ld r11,#%f000 268a 3bb680f0 out %80f0,r11 268e 210a00b4 ld r10,#%00b4 2692 dfa1 calr %2752 2694 0db15555 cp @r11,#%5555 2698 ee01 jr nz,%269c 269a fa85 djnz r10,%2692 269c 21083000 ld r8,#%3000 26a0 0db1ffff cp @r11,#%ffff 26a4 ee05 jr nz,%26b0 26a6 4c01474a0202 cpb %474a,#%02 26ac 9e0e ret nz 26ae e84e jr %274c 26b0 93f0 push @r15,r0 26b2 21021362 ld r2,#%1362 26b6 7f0c sc #%0c 26b8 7f10 sc #%10 26ba 97f0 pop r0,@r15 26bc 21083001 ld r8,#%3001 26c0 0db15555 cp @r11,#%5555 26c4 e63e jr z,%2742 26c6 0db1aaaa cp @r11,#%aaaa 26ca ee03 jr nz,%26d2 26cc 21083003 ld r8,#%3003 26d0 e838 jr %2742 26d2 0db10000 cp @r11,#%0000 26d6 e607 jr z,%26e6 26d8 21083002 ld r8,#%3002 26dc 21b6 ld r6,@r11 26de 4d0547480080 ld %4748,#%0080 26e4 e82e jr %2742 26e6 610af00c ld r10,%f00c 26ea 0b000004 cp r0,#%0004 26ee e114 jr lt,%2718 26f0 4d05f0320012 ld %f032,#%0012 26f6 4d05f0000100 ld %f000,#%0100 26fc 21000000 ld r0,#%0000 2700 3b0680f0 out %80f0,r0 2704 2100003c ld r0,#%003c 2708 4d01f0000000 cp %f000,#%0000 270e e602 jr z,%2714 2710 dfe0 calr %2752 2712 f086 djnz r0,%2708 2714 610af03c ld r10,%f03c 2718 b3a1fff8 srl r10,#8 271c a7a4 bit r10,#4 271e 9e0e ret nz 2720 070a001f and r10,#%001f 2724 9e06 ret z 2726 4c01474a0202 cpb %474a,#%02 272c 9e0e ret nz 272e a1a8 ld r8,r10 2730 0b080007 cp r8,#%0007 2734 e903 jr ge,%273c 2736 01083003 add r8,#%3003 273a e803 jr %2742 273c 01083009 add r8,#%3009 2740 e800 jr %2742 2742 4c01474a0202 cpb %474a,#%02 2748 e601 jr z,%274c 274a a412 setb rh1,#2 274c 5f0021f2 call %21f2 2750 9e08 ret 2752 210d0004 ld r13,#%0004 2756 210cffff ld r12,#%ffff 275a fc81 djnz r12,%275a 275c fd84 djnz r13,%2756 275e 9e08 ret 2760 2101feba ld r1,#%feba 2764 2100feec ld r0,#%feec 2768 0d18 clr @r1 276a a911 inc r1,#2 276c 8b10 cp r0,r1 276e eefc jr nz,%2768 2770 210401fe ld r4,#%01fe 2774 21000080 ld r0,#%0080 2778 3b067f00 out %7f00,r0 277c 4d05fec4fed2 ld %fec4,#%fed2 2782 4d08fec2 clr %fec2 2786 21084000 ld r8,#%4000 278a 8811 xorb rh1,rh1 278c 4d0547480000 ld %4748,#%0000 2792 3b047f00 in r0,%7f00 2796 0b00ffff cp r0,#%ffff 279a ee06 jr nz,%27a8 279c 4c01474a0101 cpb %474a,#%01 27a2 9e0e ret nz 27a4 5e0828c0 jp %28c0 27a8 21021368 ld r2,#%1368 27ac 7f0c sc #%0c 27ae 7f10 sc #%10 27b0 210003e8 ld r0,#%03e8 27b4 5f0029ee call %29ee 27b8 f083 djnz r0,%27b4 27ba 21084003 ld r8,#%4003 27be 4d0547480080 ld %4748,#%0080 27c4 3b047f00 in r0,%7f00 27c8 06080101 andb rl0,#%01 27cc e605 jr z,%27d8 27ce ab40 dec r4,#1 27d0 eef4 jr nz,%27ba 27d2 3b647f00 in r6,%7f00 27d6 e86f jr %28b6 27d8 2100feba ld r0,#%feba 27dc ac08 exb rl0,rh0 27de c804 ldb rl0,#%04 27e0 df8e calr %28c6 27e2 2100feba ld r0,#%feba 27e6 c805 ldb rl0,#%05 27e8 df92 calr %28c6 27ea 8d08 clr r0 27ec c806 ldb rl0,#%06 27ee df95 calr %28c6 27f0 2100c207 ld r0,#%c207 27f4 df98 calr %28c6 27f6 21000001 ld r0,#%0001 27fa df9b calr %28c6 27fc 21084001 ld r8,#%4001 2800 4d0547480000 ld %4748,#%0000 2806 3b047f00 in r0,%7f00 280a 06088080 andb rl0,#%80 280e ee53 jr nz,%28b6 2810 4c01474a0101 cpb %474a,#%01 2816 9e0e ret nz 2818 21084004 ld r8,#%4004 281c 4d08fee0 clr %fee0 2820 4d05fee2ffff ld %fee2,#%ffff 2826 4d05fed20007 ld %fed2,#%0007 282c dfac calr %28d6 282e 6100fed4 ld r0,%fed4 2832 0a080000 cpb rl0,#%00 2836 ee3f jr nz,%28b6 2838 6100fed8 ld r0,%fed8 283c a08c ldb rl4,rl0 283e 07000100 and r0,#%0100 2842 e639 jr z,%28b6 2844 a0c8 ldb rl0,rl4 2846 07000e00 and r0,#%0e00 284a ee35 jr nz,%28b6 284c a980 inc r8,#1 284e a0c8 ldb rl0,rl4 2850 06080101 andb rl0,#%01 2854 e630 jr z,%28b6 2856 a980 inc r8,#1 2858 a0c8 ldb rl0,rl4 285a 06080202 andb rl0,#%02 285e e62b jr z,%28b6 2860 a980 inc r8,#1 2862 a0c8 ldb rl0,rl4 2864 06081010 andb rl0,#%10 2868 ee26 jr nz,%28b6 286a a980 inc r8,#1 286c a0c8 ldb rl0,rl4 286e 06080808 andb rl0,#%08 2872 ee21 jr nz,%28b6 2874 a980 inc r8,#1 2876 060c0404 andb rl4,#%04 287a ee1d jr nz,%28b6 287c 21084010 ld r8,#%4010 2880 4d0547480080 ld %4748,#%0080 2886 21040002 ld r4,#%0002 288a 4d08fee0 clr %fee0 288e 4d05fed2000f ld %fed2,#%000f 2894 dfe0 calr %28d6 2896 6106fed4 ld r6,%fed4 289a 0a0e0000 cpb rl6,#%00 289e 9e06 ret z 28a0 4d08fee0 clr %fee0 28a4 4d05fee2ffff ld %fee2,#%ffff 28aa 4d05fed20007 ld %fed2,#%0007 28b0 dfee calr %28d6 28b2 ab40 dec r4,#1 28b4 eeea jr nz,%288a 28b6 4c01474a0101 cpb %474a,#%01 28bc e601 jr z,%28c0 28be a412 setb rh1,#2 28c0 5f0021f2 call %21f2 28c4 9e08 ret 28c6 3b067f00 out %7f00,r0 28ca 3b047f00 in r0,%7f00 28ce 06080101 andb rl0,#%01 28d2 eefb jr nz,%28ca 28d4 9e08 ret 28d6 4d05feba0001 ld %feba,#%0001 28dc 21000008 ld r0,#%0008 28e0 3b067f00 out %7f00,r0 28e4 3b047f00 in r0,%7f00 28e8 a702 bit r0,#2 28ea e6fc jr z,%28e4 28ec 21000040 ld r0,#%0040 28f0 3b067f00 out %7f00,r0 28f4 4d05feba0000 ld %feba,#%0000 28fa 07003f00 and r0,#%3f00 28fe 0b000300 cp r0,#%0300 2902 ee03 jr nz,%290a 2904 4d05fed40003 ld %fed4,#%0003 290a 9e08 ret 290c 4d0547480000 ld %4748,#%0000 2912 8811 xorb rh1,rh1 2914 21082000 ld r8,#%2000 2918 cda5 ldb rl5,#%a5 291a a0d5 ldb rh5,rl5 291c 3b560048 out %0048,r5 2920 3b440048 in r4,%0048 2924 8b45 cp r5,r4 2926 9e0e ret nz 2928 93f1 push @r15,r1 292a 21021374 ld r2,#%1374 292e 7f0c sc #%0c 2930 7f10 sc #%10 2932 97f1 pop r1,@r15 2934 5f0029d0 call %29d0 2938 a616 bitb rh1,#6 293a 9e0e ret nz 293c 4d054748001a ld %4748,#%001a 2942 a980 inc r8,#1 2944 21070042 ld r7,#%0042 2948 21050010 ld r5,#%0010 294c a411 setb rh1,#1 294e 210000c8 ld r0,#%00c8 2952 3f75 out @r7,r5 2954 ab71 dec r7,#2 2956 21055555 ld r5,#%5555 295a 3d74 in r4,@r7 295c 8b45 cp r5,r4 295e e604 jr z,%2968 2960 5f0029ee call %29ee 2964 f086 djnz r0,%295a 2966 e82f jr %29c6 2968 a971 inc r7,#2 296a 3d74 in r4,@r7 296c 5f00217c call %217c 2970 a616 bitb rh1,#6 2972 ee2b jr nz,%29ca 2974 0b07004e cp r7,#%004e 2978 eef7 jr nz,%2968 297a 06010202 andb rh1,#%02 297e a980 inc r8,#1 2980 21070040 ld r7,#%0040 2984 2105aaaa ld r5,#%aaaa 2988 3f75 out @r7,r5 298a 3d74 in r4,@r7 298c 5f00217c call %217c 2990 a616 bitb rh1,#6 2992 ee1b jr nz,%29ca 2994 a971 inc r7,#2 2996 0b07004e cp r7,#%004e 299a e3f6 jr ule,%2988 299c 5f0029ee call %29ee 29a0 8811 xorb rh1,rh1 29a2 4d05474800a8 ld %4748,#%00a8 29a8 a980 inc r8,#1 29aa 210a0040 ld r10,#%0040 29ae 3da6 in r6,@r10 29b0 a660 bitb rh6,#0 29b2 9e06 ret z 29b4 210c004a ld r12,#%004a 29b8 210b004e ld r11,#%004e 29bc 3dc7 in r7,@r12 29be 3db5 in r5,@r11 29c0 a6f2 bitb rl7,#2 29c2 e601 jr z,%29c6 29c4 a980 inc r8,#1 29c6 5f0021f2 call %21f2 29ca 6b004740 dec %4740,#1 29ce 9e08 ret 29d0 a980 inc r8,#1 29d2 21002ee0 ld r0,#%2ee0 29d6 3b440040 in r4,%0040 29da a641 bitb rh4,#1 29dc 9e06 ret z 29de 5f0029ee call %29ee 29e2 f087 djnz r0,%29d6 29e4 a412 setb rh1,#2 29e6 a416 setb rh1,#6 29e8 5f0021f2 call %21f2 29ec 9e08 ret 29ee 93f0 push @r15,r0 29f0 21000c0f ld r0,#%0c0f 29f4 8d07 nop 29f6 f082 djnz r0,%29f4 29f8 97f0 pop r0,@r15 29fa 9e08 ret 29fc 8811 xorb rh1,rh1 29fe 4d0547480000 ld %4748,#%0000 2a04 210aaaaa ld r10,#%aaaa 2a08 3ba61010 out %1010,r10 2a0c 89aa xor r10,r10 2a0e 3ba41010 in r10,%1010 2a12 0b0aaaaa cp r10,#%aaaa 2a16 9e0e ret nz 2a18 93f1 push @r15,r1 2a1a 2102136e ld r2,#%136e 2a1e 7f0c sc #%0c 2a20 7f10 sc #%10 2a22 97f1 pop r1,@r15 2a24 9e08 ret 2a26 8811 xorb rh1,rh1 2a28 4d0547480000 ld %4748,#%0000 2a2e 8900 xor r0,r0 2a30 21047000 ld r4,#%7000 2a34 a146 ld r6,r4 2a36 a860 incb rh6,#1 2a38 21051234 ld r5,#%1234 2a3c 2107abcd ld r7,#%abcd 2a40 7f01 sc #%01 2a42 2f47 ld @r4,r7 2a44 2f65 ld @r6,r5 2a46 214a ld r10,@r4 2a48 216b ld r11,@r6 2a4a 7f02 sc #%02 2a4c 8ba7 cp r7,r10 2a4e e609 jr z,%2a62 2a50 8bb5 cp r5,r11 2a52 e607 jr z,%2a62 2a54 a841 incb rh4,#2 2a56 a861 incb rh6,#2 2a58 a880 incb rl0,#1 2a5a 0a080808 cpb rl0,#%08 2a5e 9e06 ret z 2a60 e8ef jr %2a40 2a62 a10d ld r13,r0 2a64 b3d10001 sll r13,#1 2a68 61dc13e0 ld r12,%13e0(r13) 2a6c 3ec0 outb @r12,rh0 2a6e a405 setb rh0,#5 2a70 3ec0 outb @r12,rh0 2a72 7f01 sc #%01 2a74 214a ld r10,@r4 2a76 216b ld r11,@r6 2a78 7f02 sc #%02 2a7a 8ba7 cp r7,r10 2a7c e6eb jr z,%2a54 2a7e 8bb5 cp r5,r11 2a80 e6e9 jr z,%2a54 2a82 a205 resb rh0,#5 2a84 3ec0 outb @r12,rh0 2a86 030f001e sub r15,#%001e 2a8a 1cf9000e ldm @r15,r0,#15 2a8e 21021380 ld r2,#%1380 2a92 7f0c sc #%0c 2a94 a089 ldb rl1,rl0 2a96 00093030 addb rl1,#%30 2a9a 7f16 sc #%16 2a9c 7f10 sc #%10 2a9e 1cf1000e ldm r0,@r15,#15 2aa2 010f001e add r15,#%001e 2aa6 e8d6 jr %2a54 2aa8 8811 xorb rh1,rh1 2aaa 4d0547480000 ld %4748,#%0000 2ab0 3b36200e out %200e,r3 2ab4 3b362000 out %2000,r3 2ab8 21034321 ld r3,#%4321 2abc 3b362002 out %2002,r3 2ac0 3b36200e out %200e,r3 2ac4 3b362000 out %2000,r3 2ac8 3b442002 in r4,%2002 2acc 8b43 cp r3,r4 2ace 9e0e ret nz 2ad0 3b36200e out %200e,r3 2ad4 21021386 ld r2,#%1386 2ad8 7f0c sc #%0c 2ada 7f10 sc #%10 2adc 9e08 ret 2ade 8811 xorb rh1,rh1 2ae0 4d0547480000 ld %4748,#%0000 2ae6 8900 xor r0,r0 2ae8 ca02 ldb rl2,#%02 2aea c2a0 ldb rh2,#%a0 2aec a10d ld r13,r0 2aee b3d10001 sll r13,#1 2af2 61d413dc ld r4,%13dc(r13) 2af6 3e4a outb @r4,rl2 2af8 3e42 outb @r4,rh2 2afa 3e4a outb @r4,rl2 2afc 3c4b inb rl3,@r4 2afe 060bf0f0 andb rl3,#%f0 2b02 8ab2 cpb rh2,rl3 2b04 ee02 jr nz,%2b0a 2b06 5f002b14 call %2b14 2b0a a880 incb rl0,#1 2b0c 0a080202 cpb rl0,#%02 2b10 9e06 ret z 2b12 e8ec jr %2aec 2b14 030f001e sub r15,#%001e 2b18 1cf9000e ldm @r15,r0,#15 2b1c 2102137a ld r2,#%137a 2b20 7f0c sc #%0c 2b22 a089 ldb rl1,rl0 2b24 00093030 addb rl1,#%30 2b28 7f16 sc #%16 2b2a 7f10 sc #%10 2b2c 1cf1000e ldm r0,@r15,#15 2b30 010f001e add r15,#%001e 2b34 9e08 ret 2b36 21024000 ld r2,#%4000 2b3a 7d2a ldctl fcw,r2 2b3c 2102f000 ld r2,#%f000 2b40 a12f ld r15,r2 2b42 76012b50 lda r1,%2b50 2b46 210e0453 ld r14,#%0453 2b4a ba110e20 ldirb @r2,@r1,r14 2b4e 1ef8 jp @r15 2b50 91f6 pushl @r15,rr6 2b52 6e0efff0 ldb %fff0,rl6 2b56 0a0e0303 cpb rl6,#%03 2b5a ee01 jr nz,%2b5e 2b5c df29 calr %2d0c 2b5e 0a0e0101 cpb rl6,#%01 2b62 ee01 jr nz,%2b66 2b64 dee5 calr %2d9c 2b66 0a0e0202 cpb rl6,#%02 2b6a ee01 jr nz,%2b6e 2b6c de53 calr %2ec8 2b6e 91f4 pushl @r15,rr4 2b70 8d44 test r4 2b72 ee02 jr nz,%2b78 2b74 340e03ed ldar r14,%2f65 2b78 df72 calr %2c96 2b7a c801 ldb rl0,#%01 2b7c 3a86ffc1 outb %ffc1,rl0 2b80 340803de ldar r8,%2f62 2b84 df7e calr %2c8a 2b86 210afe28 ld r10,#%fe28 2b8a a1ab ld r11,r10 2b8c a1bc ld r12,r11 2b8e df73 calr %2caa 2b90 0a080a0a cpb rl0,#%0a 2b94 e60a jr z,%2baa 2b96 0a082f2f cpb rl0,#%2f 2b9a e603 jr z,%2ba2 2b9c 2ec8 ldb @r12,rl0 2b9e a9c0 inc r12,#1 2ba0 e8f6 jr %2b8e 2ba2 8bbc cp r12,r11 2ba4 e6f4 jr z,%2b8e 2ba6 df95 calr %2c7e 2ba8 e8f1 jr %2b8c 2baa df97 calr %2c7e 2bac 0cb8 clrb @r11 2bae bdb2 ldk r11,#2 2bb0 dfd1 calr %2c10 2bb2 0ca4 testb @r10 2bb4 e611 jr z,%2bd8 2bb6 dfa6 calr %2c6c 2bb8 e627 jr z,%2c08 2bba 979b pop r11,@r9 2bbc 8db4 test r11 2bbe e607 jr z,%2bce 2bc0 bd0e ldk r0,#14 2bc2 a191 ld r1,r9 2bc4 a1a2 ld r2,r10 2bc6 ba1600ae cpsirb @r10,@r1,r0,nz 2bca eef2 jr nz,%2bb0 2bcc a12a ld r10,r2 2bce a99d inc r9,#14 2bd0 0b09fc00 cp r9,#%fc00 2bd4 e9f0 jr ge,%2bb6 2bd6 e8f1 jr %2bba 2bd8 dfb7 calr %2c6c 2bda 0d91e707 cp @r9,#%e707 2bde ee14 jr nz,%2c08 2be0 619b0010 ld r11,%0010(r9) 2be4 21000018 ld r0,#%0018 2be8 4190000a add r0,%000a(r9) 2bec 8109 add r9,r0 2bee bda0 ldk r10,#0 2bf0 8d02 neg r0 2bf2 01000200 add r0,#%0200 2bf6 ba9100a0 ldirb @r10,@r9,r0 2bfa dfc8 calr %2c6c 2bfc 21000200 ld r0,#%0200 2c00 eefa jr nz,%2bf6 2c02 95f4 popl rr4,@r15 2c04 95f6 popl rr6,@r15 2c06 1eb8 jp @r11 2c08 3408035e ldar r8,%2f6a 2c0c dfc2 calr %2c8a 2c0e e8b8 jr %2b80 2c10 a9be inc r11,#15 2c12 a1b5 ld r5,r11 2c14 b351fffd srl r5,#3 2c18 8944 xor r4,r4 2c1a df99 calr %2cea 2c1c 070b0007 and r11,#%0007 2c20 b3b10006 sll r11,#6 2c24 010bfa08 add r11,#%fa08 2c28 95bc popl rr12,@r11 2c2a 160c000001ff addl rr12,#%000001ff 2c30 b3c5fff7 srll rr12,#9 2c34 210cfc00 ld r12,#%fc00 2c38 a1c9 ld r9,r12 2c3a bd1a ldk r1,#10 2c3c 0c98 clrb @r9 2c3e a990 inc r9,#1 2c40 bd03 ldk r0,#3 2c42 bab10090 ldirb @r9,@r11,r0 2c46 ab10 dec r1,#1 2c48 eef9 jr nz,%2c3c 2c4a 0b0d000a cp r13,#%000a 2c4e 9e02 ret le 2c50 8844 xorb rh4,rh4 2c52 20bc ldb rl4,@r11 2c54 a9b0 inc r11,#1 2c56 20b5 ldb rh5,@r11 2c58 a9b0 inc r11,#1 2c5a 20bd ldb rl5,@r11 2c5c dfba calr %2cea 2c5e 2101fa00 ld r1,#%fa00 2c62 21000200 ld r0,#%0200 2c66 ba110090 ldirb @r9,@r1,r0 2c6a 9e08 ret 2c6c 8dd4 test r13 2c6e 9e06 ret z 2c70 95c4 popl rr4,@r12 2c72 dfc5 calr %2cea 2c74 2109fa00 ld r9,#%fa00 2c78 abd0 dec r13,#1 2c7a 8d43 resflg z 2c7c 9e08 ret 2c7e a9bd inc r11,#14 2c80 8bbc cp r12,r11 2c82 9e09 ret ge 2c84 0cc8 clrb @r12 2c86 a9c0 inc r12,#1 2c88 e8fb jr %2c80 2c8a 2088 ldb rl0,@r8 2c8c 8c84 testb rl0 2c8e 9e06 ret z 2c90 dfe4 calr %2cca 2c92 a980 inc r8,#1 2c94 e8fa jr %2c8a 2c96 2102ff87 ld r2,#%ff87 2c9a 340102cf ldar r1,%2f6d 2c9e bd09 ldk r0,#9 2ca0 3a120020 otirb @r2,@r1,r0 2ca4 9e08 ret 2ca6 340e02bb ldar r14,%2f65 2caa 8de4 test r14 2cac e603 jr z,%2cb4 2cae 20e8 ldb rl0,@r14 2cb0 a9e0 inc r14,#1 2cb2 e806 jr %2cc0 2cb4 3a84ff87 inb rl0,%ff87 2cb8 a680 bitb rl0,#0 2cba e6fc jr z,%2cb4 2cbc 3a84ff83 inb rl0,%ff83 2cc0 a287 resb rl0,#7 2cc2 0a080d0d cpb rl0,#%0d 2cc6 ee01 jr nz,%2cca 2cc8 bd0a ldk r0,#10 2cca 0a080a0a cpb rl0,#%0a 2cce ee06 jr nz,%2cdc 2cd0 8bac cp r12,r10 2cd2 e6e9 jr z,%2ca6 2cd4 bde0 ldk r14,#0 2cd6 bd0d ldk r0,#13 2cd8 dfff calr %2cdc 2cda bd0a ldk r0,#10 2cdc 3a04ff87 inb rh0,%ff87 2ce0 a602 bitb rh0,#2 2ce2 e6fc jr z,%2cdc 2ce4 3a86ff83 outb %ff83,rl0 2ce8 9e08 ret 2cea 6008fff0 ldb rl0,%fff0 2cee 0a080303 cpb rl0,#%03 2cf2 ee02 jr nz,%2cf8 2cf4 dfd3 calr %2d50 2cf6 9e08 ret 2cf8 0a080101 cpb rl0,#%01 2cfc ee02 jr nz,%2d02 2cfe df5d calr %2e46 2d00 9e08 ret 2d02 0a080202 cpb rl0,#%02 2d06 9e0e ret nz 2d08 def7 calr %2f1c 2d0a 9e08 ret 2d0c 4c05feb60303 ldb %feb6,#%03 2d12 4c05feb71818 ldb %feb7,#%18 2d18 2100feb4 ld r0,#%feb4 2d1c 3b06800a out %800a,r0 2d20 ac80 exb rh0,rl0 2d22 3b06800b out %800b,r0 2d26 8900 xor r0,r0 2d28 3b06800c out %800c,r0 2d2c 3b068010 out %8010,r0 2d30 21000016 ld r0,#%0016 2d34 e800 jr %2d36 2d36 3b068000 out %8000,r0 2d3a 3b048010 in r0,%8010 2d3e a707 bit r0,#7 2d40 e6fc jr z,%2d3a 2d42 3b048010 in r0,%8010 2d46 a701 bit r0,#1 2d48 9e0e ret nz 2d4a a703 bit r0,#3 2d4c e6fa jr z,%2d42 2d4e 9e08 ret 2d50 9442 ldl rr2,rr4 2d52 9200 subl rr0,rr0 2d54 1a0000000018 divl rq0,#%00000018 2d5a 3b168005 out %8005,r1 2d5e 6008feb6 ldb rl0,%feb6 2d62 8800 xorb rh0,rh0 2d64 9b02 div rr2,r0 2d66 3b268002 out %8002,r2 2d6a 8900 xor r0,r0 2d6c 3b068010 out %8010,r0 2d70 3b068001 out %8001,r0 2d74 3b068008 out %8008,r0 2d78 3b06800a out %800a,r0 2d7c 3b06800c out %800c,r0 2d80 ac38 exb rl0,rh3 2d82 3b368003 out %8003,r3 2d86 3b068004 out %8004,r0 2d8a 2100fa00 ld r0,#%fa00 2d8e ac08 exb rl0,rh0 2d90 3b06800b out %800b,r0 2d94 bd01 ldk r0,#1 2d96 3b068009 out %8009,r0 2d9a e8cd jr %2d36 2d9c 2101feba ld r1,#%feba 2da0 2100feec ld r0,#%feec 2da4 0d18 clr @r1 2da6 a911 inc r1,#2 2da8 8b10 cp r0,r1 2daa eefc jr nz,%2da4 2dac 210101fe ld r1,#%01fe 2db0 a112 ld r2,r1 2db2 21000080 ld r0,#%0080 2db6 3b067f00 out %7f00,r0 2dba 4d05fec4fed2 ld %fec4,#%fed2 2dc0 4d08fec2 clr %fec2 2dc4 3b047f00 in r0,%7f00 2dc8 06080101 andb rl0,#%01 2dcc e60a jr z,%2de2 2dce ab10 dec r1,#1 2dd0 eef9 jr nz,%2dc4 2dd2 ab20 dec r2,#1 2dd4 eef7 jr nz,%2dc4 2dd6 21022f76 ld r2,#%2f76 2dda 5f00050c call %050c 2dde 5e08016c jp %016c 2de2 2100feba ld r0,#%feba 2de6 ac08 exb rl0,rh0 2de8 c804 ldb rl0,#%04 2dea dfdb calr %2e36 2dec 2100feba ld r0,#%feba 2df0 c805 ldb rl0,#%05 2df2 dfdf calr %2e36 2df4 8d08 clr r0 2df6 c806 ldb rl0,#%06 2df8 dfe2 calr %2e36 2dfa 2100c207 ld r0,#%c207 2dfe dfe5 calr %2e36 2e00 21000001 ld r0,#%0001 2e04 dfe8 calr %2e36 2e06 3b047f00 in r0,%7f00 2e0a 06088080 andb rl0,#%80 2e0e e606 jr z,%2e1c 2e10 21022f82 ld r2,#%2f82 2e14 5f00050c call %050c 2e18 5e08016c jp %016c 2e1c 4d08fee0 clr %fee0 2e20 4d05fed2000f ld %fed2,#%000f 2e26 dfd7 calr %2e7a 2e28 6100fee8 ld r0,%fee8 2e2c 6101fee4 ld r1,%fee4 2e30 5d00feb6 ldl %feb6,rr0 2e34 9e08 ret 2e36 3b067f00 out %7f00,r0 2e3a 3b247f00 in r2,%7f00 2e3e 060a0101 andb rl2,#%01 2e42 eefb jr nz,%2e3a 2e44 9e08 ret 2e46 9442 ldl rr2,rr4 2e48 9200 subl rr0,rr0 2e4a 4d08feb4 clr %feb4 2e4e 5a00feb4 divl rq0,%feb4 2e52 6f01fee8 ld %fee8,r1 2e56 5b02feb8 div rr2,%feb8 2e5a ad32 ex r2,r3 2e5c 5d02fee2 ldl %fee2,rr2 2e60 4d08fee0 clr %fee0 2e64 4d08fedc clr %fedc 2e68 4d05feda0200 ld %feda,#%0200 2e6e 4d05fedefa00 ld %fede,#%fa00 2e74 4d05fed2000e ld %fed2,#%000e 2e7a 4d05feba0001 ld %feba,#%0001 2e80 21000008 ld r0,#%0008 2e84 3b067f00 out %7f00,r0 2e88 3b047f00 in r0,%7f00 2e8c a702 bit r0,#2 2e8e e6fc jr z,%2e88 2e90 4d05feba0000 ld %feba,#%0000 2e96 07003f00 and r0,#%3f00 2e9a 03000300 sub r0,#%0300 2e9e ee03 jr nz,%2ea6 2ea0 4d05fed40003 ld %fed4,#%0003 2ea6 4d04fed4 test %fed4 2eaa e609 jr z,%2ebe 2eac 88aa xorb rl2,rl2 2eae 3aa6ffc1 outb %ffc1,rl2 2eb2 21022f90 ld r2,#%2f90 2eb6 5f00050c call %050c 2eba 5e08016c jp %016c 2ebe 21000040 ld r0,#%0040 2ec2 3b067f00 out %7f00,r0 2ec6 9e08 ret 2ec8 2102ffff ld r2,#%ffff 2ecc dfea calr %2efa 2ece 2101f1f1 ld r1,#%f1f1 2ed2 3b1680f0 out %80f0,r1 2ed6 dfe6 calr %2f0c 2ed8 8d18 clr r1 2eda 3b1680f0 out %80f0,r1 2ede dfea calr %2f0c 2ee0 2101feb4 ld r1,#%feb4 2ee4 3b1680f0 out %80f0,r1 2ee8 210000e1 ld r0,#%00e1 2eec 8d18 clr r1 2eee 4d04feb4 test %feb4 2ef2 9e06 ret z 2ef4 f184 djnz r1,%2eee 2ef6 f085 djnz r0,%2eee 2ef8 e8e7 jr %2ec8 2efa 2101feb4 ld r1,#%feb4 2efe 2100fefe ld r0,#%fefe 2f02 2f12 ld @r1,r2 2f04 a911 inc r1,#2 2f06 8b10 cp r0,r1 2f08 eefc jr nz,%2f02 2f0a 9e08 ret 2f0c 8d18 clr r1 2f0e 21000005 ld r0,#%0005 2f12 ab10 dec r1,#1 2f14 eefe jr nz,%2f12 2f16 ab00 dec r0,#1 2f18 eefc jr nz,%2f12 2f1a 9e08 ret 2f1c 2107feb4 ld r7,#%feb4 2f20 21000010 ld r0,#%0010 2f24 33700002 ld r7(#%0002),r0 2f28 33750004 ld r7(#%0004),r5 2f2c bd01 ldk r0,#1 2f2e 33700006 ld r7(#%0006),r0 2f32 2100fa00 ld r0,#%fa00 2f36 33700008 ld r7(#%0008),r0 2f3a 8900 xor r0,r0 2f3c 3370000a ld r7(#%000a),r0 2f40 3370000c ld r7(#%000c),r0 2f44 0d750001 ld @r7,#%0001 2f48 3b0680f0 out %80f0,r0 2f4c 0d74 test @r7 2f4e eefe jr nz,%2f4c 2f50 3170000c ld r0,r7(#%000c) 2f54 8d04 test r0 2f56 eee2 jr nz,%2f1c 2f58 9e08 ret 2f5a 8988 xor r8,r8 2f5c f881 djnz r8,%2f5c 2f5e f083 djnz r0,%2f5a 2f60 9e08 ret 2f62 3e20 outb @r2,rh0 2f64 0062 addb rh2,@r6 2f66 6f6f740a ld %740a(r6),r15 2f6a 3f0a out @r0,r10 2f6c 0018 addb rl0,@r1 2f6e 14cc ldl rr12,@r12 2f70 03c1 sub r1,@r12 2f72 05ea or r10,@r14 2f74 1100 .word #%1100 2f76 0009494e addb rl1,#%4e 2f7a 49542045 xor r4,%2045(r5) 2f7e 52520d00 subl rr2,%0d00(r5) 2f82 000c4454 addb rl4,#%54 2f86 204e ldb rl6,@r4 2f88 4f542053454e ext4f #%4f542053,%454e 2f8e 540d0011 ldl rr13,%0011 2f92 4430204e orb rh0,%204e(r3) 2f96 4f5420464f52 ext4f #%4f542046,%4f52 2f9c 4d4154544544 cp %5454(r4),#%4544 2fa2 0d00 .word #%0d00 2fa4 210ff800 ld r15,#%f800 2fa8 c801 ldb rl0,#%01 2faa 3a86ffc1 outb %ffc1,rl0 2fae dfd7 calr %3002 2fb0 21000003 ld r0,#%0003 2fb4 dfdc calr %2ffe 2fb6 2100000a ld r0,#%000a 2fba dfdf calr %2ffe 2fbc 2100000b ld r0,#%000b 2fc0 dfe2 calr %2ffe 2fc2 2100000f ld r0,#%000f 2fc6 dfe5 calr %2ffe 2fc8 2100000e ld r0,#%000e 2fcc dfe8 calr %2ffe 2fce bd00 ldk r0,#0 2fd0 3b06004e out %004e,r0 2fd4 21000009 ld r0,#%0009 2fd8 dfee calr %2ffe 2fda 3b04004a in r0,%004a 2fde a700 bit r0,#0 2fe0 eee6 jr nz,%2fae 2fe2 bd00 ldk r0,#0 2fe4 3b060044 out %0044,r0 2fe8 3b060046 out %0046,r0 2fec 21004000 ld r0,#%4000 2ff0 3b060048 out %0048,r0 2ff4 21000001 ld r0,#%0001 2ff8 dffe calr %2ffe 2ffa 5e080000 jp %0000 2ffe 3b060042 out %0042,r0 3002 2100012c ld r0,#%012c 3006 f081 djnz r0,%3006 3008 3b040040 in r0,%0040 300c a709 bit r0,#9 300e eefc jr nz,%3008 3010 9e08 ret 3012 21004000 ld r0,#%4000 3016 7d0a ldctl fcw,r0 3018 2102f800 ld r2,#%f800 301c 76012fa4 lda r1,%2fa4 3020 2100006e ld r0,#%006e 3024 ba110020 ldirb @r2,@r1,r0 3028 5e08f800 jp %f800 302c 00000000 addb rh0,#%00 3030 00000000 addb rh0,#%00 3034 00000000 addb rh0,#%00 3038 00000000 addb rh0,#%00 303c 00000000 addb rh0,#%00 3040 00000000 addb rh0,#%00 3044 00000000 addb rh0,#%00 3048 00000000 addb rh0,#%00 304c 00000000 addb rh0,#%00 3050 00000000 addb rh0,#%00 3054 00000000 addb rh0,#%00 3058 00000000 addb rh0,#%00 305c 00000000 addb rh0,#%00 3060 00000000 addb rh0,#%00 3064 00000000 addb rh0,#%00 3068 00000000 addb rh0,#%00 306c 00000000 addb rh0,#%00 3070 00000000 addb rh0,#%00 3074 00000000 addb rh0,#%00 3078 00000000 addb rh0,#%00 307c 00000000 addb rh0,#%00 3080 00000000 addb rh0,#%00 3084 00000000 addb rh0,#%00 3088 00000000 addb rh0,#%00 308c 00000000 addb rh0,#%00 3090 00000000 addb rh0,#%00 3094 00000000 addb rh0,#%00 3098 00000000 addb rh0,#%00 309c 00000000 addb rh0,#%00 30a0 00000000 addb rh0,#%00 30a4 00000000 addb rh0,#%00 30a8 00000000 addb rh0,#%00 30ac 00000000 addb rh0,#%00 30b0 00000000 addb rh0,#%00 30b4 00000000 addb rh0,#%00 30b8 00000000 addb rh0,#%00 30bc 00000000 addb rh0,#%00 30c0 00000000 addb rh0,#%00 30c4 00000000 addb rh0,#%00 30c8 00000000 addb rh0,#%00 30cc 00000000 addb rh0,#%00 30d0 00000000 addb rh0,#%00 30d4 00000000 addb rh0,#%00 30d8 00000000 addb rh0,#%00 30dc 00000000 addb rh0,#%00 30e0 00000000 addb rh0,#%00 30e4 00000000 addb rh0,#%00 30e8 00000000 addb rh0,#%00 30ec 00000000 addb rh0,#%00 30f0 00000000 addb rh0,#%00 30f4 00000000 addb rh0,#%00 30f8 00000000 addb rh0,#%00 30fc 00000000 addb rh0,#%00