; ************************** ; **** ÍÓ,ÏÎÃÎÄÈ! ÈÌ-02 **** ; ************************** ; PAGE #00 WAKE FROM HALT 0000 70 LP #0H 0001 58 TIM ; TIme=0 0002 8F BR 0C 0003 E2 CZP 2E ; P12W3D 0004 AE BR 11 0005 F2 CZP 32 ; P13W3D 0006 B7 BR 08 0007 A2 BR 2E 0008 73 LP #3H 0009 C0 CZP 00 ; P10W00 000A 89 BR 2C 000B A2 BR 2E 000C C4 CZP 2D ; P10W2D 000D F2 CZP 32 ; P13W3D 000E A1 BR 19 000F 71 LP #1H 0010 BA BR 1D 0011 47 LAS DP,#39H 0012 05 BM0 (DP)bit#1H ; Clear bit 0013 06 BM0 (DP)bit#2H ; Clear bit 0014 07 BM0 (DP)bit#3H ; Clear bit 0015 6C DEC L ; Skip L=0 0016 05 BM0 (DP)bit#1H ; Clear bit 0017 7D LP #DH 0018 AB BR 13 0019 74 LP #4H 001A C4 CZP 2D ; P10W2D 001B 9D BR 1E 001C 74 LP #4H 001D F9 CZP 0F ; P13W2C 001E 47 LAS DP,#39H 001F 55 SM1 (DP)bit#1H ; Skip b=1 0020 A2 BR 2E 0021 71 LP #1H 0022 C0 CZP 00 ; P10W00 0023 5E 04 LDF A,T 0025 38 AS A,#8H ; Add 0026 98 BR 23 0027 F2 CZP 32 ; P13W3D 0028 89 BR 2C 0029 74 LP #4H 002A F9 CZP 0F ; P13W2C 002B A2 BR 2E 002C 74 LP #4H 002D C4 CZP 2D ; P10W2D 002E E4 CZP 31 ; P12W2D 002F 80 BR 00 0030 4F LAS DP,#3BH 0031 06 BM0 (DP)bit#2H ; Clear bit 0032 47 LAS DP,#39H 0033 07 BM0 (DP)bit#3H ; Clear bit 0034 6C DEC L ; Skip L=0 0035 06 BM0 (DP)bit#2H ; Clear bit 0036 23 LC A,#3H ; Next LC->NOP 0037 01 OAR R,A 0038 5E 00 HLT 003A 00 NOP 003B 00 NOP 003C 00 NOP 003D 00 NOP 003E 00 NOP 003F 80 BR 00 ; PAGE #01 0040 20 LC A,#0H ; Next LC->NOP 0041 01 OAR R,A 0042 21 LC A,#1H ; Next LC->NOP 0043 01 OAR R,A 0044 5E 04 LDF A,T ; 00=HLT 04=LDF A,T 0046 3C AS A,#CH ; Add 0047 80 BR 00 0048 B4 BR 1C 0049 66 CLC 004A 5F LAF DP,#8H 004C B9 BR 0F 004D 40 LAS DP,#00H 004E 67 STC 004F 20 LC A,#0H ; Next LC->NOP 0050 01 OAR R,A 0051 52 SC0 ; Skip C=0 0052 9A BR 15 0053 00 NOP 0054 00 NOP 0055 00 NOP 0056 00 NOP 0057 00 NOP 0058 31 AS A,#1H ; Add 0059 9C BR 10 005A 64 INC L ; Skip L=7 005B 9C BR 10 005C 6E RT 005D E4 CZP 31 ; P12W2D 005E 8C BR 34 005F 4B LAS DP,#3AH 0060 05 BM0 (DP)bit#1H ; Clear bit 0061 D2 CZP 2B ; P11W3D 0062 3C AS A,#CH ; Add 0063 92 BR 2B 0064 18 LM A,(DP) 0065 38 AS A,#8H ; Add 0066 89 BR 2C 0067 18 LM A,(DP) 0068 34 AS A,#4H ; Add 0069 28 LC A,#8H ; Next LC->NOP 006A 24 LC A,#4H ; Next LC->NOP 006B 21 LC A,#1H ; Next LC->NOP 006C 22 LC A,#2H ; Next LC->NOP 006D 5F LAF DP,#47H 006F 10 XM A,(DP) ; Exchange 0070 73 LP #3H 0071 DD CZP 1E ; P11W16 0072 72 LP #2H 0073 AB BR 13 0074 7A LP #AH 0075 B6 BR 25 0076 21 LC A,#1H ; Next LC->NOP 0077 14 XI A,(DP) ; Exchange L++ Skip L=7 0078 52 SC0 ; Skip C=0 0079 2F LC A,#FH ; Next LC->NOP 007A 29 LC A,#9H ; Next LC->NOP 007B 10 XM A,(DP) ; Exchange 007C 7B LP #BH 007D 80 BR 00 007E 00 NOP 007F 80 BR 00 ; PAGE #02 0080 4C LAS DP,#0BH 0081 04 BM0 (DP)bit#0H ; Clear bit 0082 4D LAS DP,#1BH 0083 04 BM0 (DP)bit#0H ; Clear bit 0084 64 INC L ; Skip L=7 0085 D5 CZP 3A ; P11W3C 0086 19 LE A,(DP),H^1H 0087 D5 CZP 3A ; P11W3C 0088 5F LAF DP,#16H 008A 04 BM0 (DP)bit#0H ; Clear bit 008B 5F LAF DP,#4H 008D 57 SM1 (DP)bit#3H ; Skip b=1 008E 9C BR 10 008F 94 BR 38 0090 78 LP #8H 0091 9B BR 26 0092 E9 CZP 37 ; P12W2C 0093 66 CLC 0094 4C LAS DP,#0BH 0095 E5 CZP 2A ; P12W3C 0096 48 LAS DP,#0AH 0097 F9 CZP 0F ; P13W2C 0098 4C LAS DP,#0BH 0099 CB CZP 29 ; P10W29 009A 4C LAS DP,#0BH 009B D0 CZP 1A ; P11W00 009C 4D LAS DP,#1BH 009D D0 CZP 1A ; P11W00 009E 4D LAS DP,#1BH 009F 52 SC0 ; Skip C=0 00A0 07 BM0 (DP)bit#3H ; Clear bit 00A1 52 SC0 ; Skip C=0 00A2 AD BR 27 00A3 E4 CZP 31 ; P12W2D 00A4 A5 BR 2A 00A5 79 LP #9H 00A6 AC BR 24 00A7 E4 CZP 31 ; P12W2D 00A8 82 BR 3D 00A9 B6 BR 25 00AA 77 LP #7H 00AB F6 CZP 25 ; P13W17 00AC 77 LP #7H 00AD C0 CZP 00 ; P10W00 00AE FC CZP 04 ; P13W34 00AF C9 CZP 2C ; P10W2C 00B0 73 LP #3H 00B1 C0 CZP 00 ; P10W00 00B2 89 BR 2C 00B3 FC CZP 04 ; P13W34 00B4 D3 CZP 36 ; P11W18 00B5 41 LAS DP,#10H 00B6 56 SM1 (DP)bit#2H ; Skip b=1 00B7 91 BR 2F 00B8 4B LAS DP,#3AH 00B9 57 SM1 (DP)bit#3H ; Skip b=1 00BA 97 BR 12 00BB 79 LP #9H 00BC 98 BR 23 00BD 78 LP #8H 00BE 80 BR 00 00BF 80 BR 00 ; PAGE #03 00C0 2B LC A,#BH ; Next LC->NOP 00C1 01 OAR R,A 00C2 5F LAF DP,#47H 00C4 6A ICD A,D 00C5 53 SAM A,(DP) ; Skip A=M 00C6 B7 BR 08 00C7 6F RTS ; Skip 00C8 5A SA0 A ; Skip A=0 00C9 9E BR 0B 00CA 6F RTS ; Skip 00CB 6C DEC L ; Skip L=0 00CC 10 XM A,(DP) ; Exchange 00CD 21 LC A,#1H ; Next LC->NOP 00CE 53 SAM A,(DP) ; Skip A=M 00CF AE BR 11 00D0 B4 BR 1C 00D1 22 LC A,#2H ; Next LC->NOP 00D2 53 SAM A,(DP) ; Skip A=M 00D3 9A BR 15 00D4 B4 BR 1C 00D5 24 LC A,#4H ; Next LC->NOP 00D6 53 SAM A,(DP) ; Skip A=M 00D7 A1 BR 19 00D8 B4 BR 1C 00D9 28 LC A,#8H ; Next LC->NOP 00DA 53 SAM A,(DP) ; Skip A=M 00DB 6F RTS ; Skip 00DC 64 INC L ; Skip L=7 00DD 10 XM A,(DP) ; Exchange 00DE 18 LM A,(DP) 00DF 48 LAS DP,#0AH 00E0 05 BM0 (DP)bit#1H ; Clear bit 00E1 06 BM0 (DP)bit#2H ; Clear bit 00E2 07 BM0 (DP)bit#3H ; Clear bit 00E3 49 LAS DP,#1AH 00E4 07 BM0 (DP)bit#3H ; Clear bit 00E5 05 BM0 (DP)bit#1H ; Clear bit 00E6 04 BM0 (DP)bit#0H ; Clear bit 00E7 38 AS A,#8H ; Add 00E8 A2 BR 2E 00E9 48 LAS DP,#0AH 00EA 0D BM1 (DP),bit#1H ; Set bit 00EB 49 LAS DP,#1AH 00EC 0D BM1 (DP),bit#1H ; Set bit 00ED 6E RT 00EE 34 AS A,#4H ; Add 00EF 99 BR 33 00F0 49 LAS DP,#1AH 00F1 0C BM1 (DP),bit#0H ; Set bit 00F2 89 BR 2C 00F3 48 LAS DP,#0AH 00F4 0E BM1 (DP),bit#2H ; Set bit 00F5 32 AS A,#2H ; Add 00F6 49 LAS DP,#1AH 00F7 0F BM1 (DP),bit#3H ; Set bit 00F8 6E RT 00F9 C9 CZP 2C ; P10W2C 00FA C2 CZP 3D ; P10W3D 00FB C2 CZP 3D ; P10W3D 00FC C2 CZP 3D ; P10W3D 00FD 79 LP #9H 00FE A8 BR 1B 00FF 80 BR 00 ; PAGE #04 0100 60 CTB ; LCD 7dec 0101 45 LAS DP,#19H 0102 52 SC0 ; Skip C=0 0103 19 LE A,(DP),H^1H 0104 18 LM A,(DP) 0105 57 SM1 (DP)bit#3H ; Skip b=1 0106 BB BR 09 0107 63 OA1 O8,A ; LCD 0108 BD BR 0A 0109 62 OA0 O8,A ; LCD 010A 64 INC L ; Skip L=7 010B 2D LC A,#DH ; Next LC->NOP 010C 5B SAL A,L ; Skip A=L 010D BC BR 04 010E D0 CZP 1A ; P11W00 010F 47 LAS DP,#39H 0110 54 SM1 (DP)bit#0H ; Skip b=1 0111 9A BR 15 0112 5F LAF DP,#14H 0114 0E BM1 (DP),bit#2H ; Set bit 0115 4B LAS DP,#3AH 0116 0E BM1 (DP),bit#2H ; Set bit 0117 49 LAS DP,#1AH 0118 06 BM0 (DP)bit#2H ; Clear bit 0119 5F LAF DP,#24H 011B 1B LE A,(DP),H^3H 011C 0D BM1 (DP),bit#1H ; Set bit 011D 04 BM0 (DP)bit#0H ; Clear bit 011E 3E AS A,#EH ; Add 011F B6 BR 25 0120 49 LAS DP,#1AH 0121 0E BM1 (DP),bit#2H ; Set bit 0122 5F LAF DP,#14H 0124 05 BM0 (DP)bit#1H ; Clear bit 0125 1B LE A,(DP),H^3H 0126 54 SM1 (DP)bit#0H ; Skip b=1 0127 A5 BR 2A 0128 1B LE A,(DP),H^3H 0129 0C BM1 (DP),bit#0H ; Set bit 012A 5F LAF DP,#25H 012C E1 CZP 19 ; P12W3E 012D 4B LAS DP,#3AH 012E 06 BM0 (DP)bit#2H ; Clear bit 012F 5F LAF DP,#40H 0131 18 LM A,(DP) 0132 0B XL A,L ; Exchange 0133 35 AS A,#5H ; Add 0134 0B XL A,L ; Exchange 0135 6B BS0 0136 14 XI A,(DP) ; Exchange L++ Skip L=7 0137 AA BR 39 0138 E0 CZP 01 ; P12W00 0139 0B XL A,L ; Exchange 013A 3B AS A,#BH ; Add 013B 00 NOP 013C 0B XL A,L ; Exchange 013D 02 BS1 013E A4 BR 31 013F 80 BR 00 ; PAGE #05 0140 5F LAF DP,#14H 0142 52 SC0 ; Skip C=0 0143 19 LE A,(DP),H^1H 0144 18 LM A,(DP) 0145 57 SM1 (DP)bit#3H ; Skip b=1 0146 BB BR 09 0147 63 OA1 O8,A ; LCD 0148 BD BR 0A 0149 62 OA0 O8,A ; LCD 014A 69 LD0 ; LCD 7dec 014B 4B LAS DP,#3AH 014C 56 SM1 (DP)bit#2H ; Skip b=1 014D 68 CLL A,0 014E 5F LAF DP,#5H 0150 19 LE A,(DP),H^1H 0151 5D DAF 0152 69 LD0 ; LCD 7dec 0153 54 SM1 (DP)bit#0H ; Skip b=1 0154 68 CLL A,0 0155 5F LAF DP,#6H 0157 19 LE A,(DP),H^1H 0158 5D DAF 0159 69 LD0 ; LCD 7dec 015A 54 SM1 (DP)bit#0H ; Skip b=1 015B 68 CLL A,0 015C 5F LAF DP,#7H 015E 19 LE A,(DP),H^1H 015F 5D DAF 0160 5F LAF DP,#18H 0162 52 SC0 ; Skip C=0 0163 19 LE A,(DP),H^1H 0164 18 LM A,(DP) 0165 57 SM1 (DP)bit#3H ; Skip b=1 0166 8B BR 29 0167 63 OA1 O8,A ; LCD 0168 A5 BR 2A 0169 62 OA0 O8,A ; LCD 016A 52 SC0 ; Skip C=0 016B 91 BR 2F 016C 67 STC 016D 5C ABF O',O 016E C0 CZP 00 ; P10W00 016F 5F LAF DP,#14H 0171 06 BM0 (DP)bit#2H ; Clear bit 0172 07 BM0 (DP)bit#3H ; Clear bit 0173 19 LE A,(DP),H^1H 0174 06 BM0 (DP)bit#2H ; Clear bit 0175 6E RT 0176 0A COM A ; Not A 0177 09 AC A,(DP),C ; Add,Skip if C 0178 6F RTS ; Skip 0179 6E RT 017A 00 NOP 017B 00 NOP 017C 93 BR 36 017D 66 CLC 017E C0 CZP 00 ; P10W00 017F 80 BR 00 ; PAGE #06 0180 5F LAF DP,#5H 0182 20 LC A,#0H ; Next LC->NOP 0183 53 SAM A,(DP) ; Skip A=M 0184 9E BR 0B 0185 2B LC A,#BH ; Next LC->NOP 0186 14 XI A,(DP) ; Exchange L++ Skip L=7 0187 53 SAM A,(DP) ; Skip A=M 0188 9E BR 0B 0189 2B LC A,#BH ; Next LC->NOP 018A 10 XM A,(DP) ; Exchange 018B 47 LAS DP,#39H 018C 57 SM1 (DP)bit#3H ; Skip b=1 018D B9 BR 0F 018E A4 BR 31 018F 56 SM1 (DP)bit#2H ; Skip b=1 0190 87 BR 20 0191 06 BM0 (DP)bit#2H ; Clear bit 0192 54 SM1 (DP)bit#0H ; Skip b=1 0193 A4 BR 31 0194 5F LAF DP,#24H 0196 19 LE A,(DP),H^1H 0197 53 SAM A,(DP) ; Skip A=M 0198 9D BR 1E 0199 64 INC L ; Skip L=7 019A 8D BR 16 019B 47 LAS DP,#39H 019C 0D BM1 (DP),bit#1H ; Set bit 019D 87 BR 20 019E 47 LAS DP,#39H 019F 05 BM0 (DP)bit#1H ; Clear bit 01A0 55 SM1 (DP)bit#1H ; Skip b=1 01A1 A4 BR 31 01A2 5F LAF DP,#4H 01A4 0F BM1 (DP),bit#3H ; Set bit 01A5 06 BM0 (DP)bit#2H ; Clear bit 01A6 19 LE A,(DP),H^1H 01A7 06 BM0 (DP)bit#2H ; Clear bit 01A8 0F BM1 (DP),bit#3H ; Set bit 01A9 5E 04 LDF A,T 01AB 38 AS A,#8H ; Add 01AC A4 BR 31 01AD 07 BM0 (DP)bit#3H ; Clear bit 01AE 0E BM1 (DP),bit#2H ; Set bit 01AF 19 LE A,(DP),H^1H 01B0 0E BM1 (DP),bit#2H ; Set bit 01B1 D2 CZP 2B ; P11W3D 01B2 1A LE A,(DP),H^2H 01B3 16 XEI A,(DP),H^2H ; Exchange L++ XOR 01B4 B2 BR 32 01B5 9E BR 0B 01B6 40 LAS DP,#00H 01B7 19 LE A,(DP),H^1H 01B8 53 SAM A,(DP) ; Skip A=M 01B9 82 BR 3D 01BA 5F LAF DP,#1H 01BC 19 LE A,(DP),H^1H 01BD D5 CZP 3A ; P11W3C 01BE B2 BR 32 01BF 80 BR 00 ; PAGE #07 01C0 67 STC 01C1 4F LAS DP,#3BH 01C2 55 SM1 (DP)bit#1H ; Skip b=1 01C3 B7 BR 08 01C4 5E 04 LDF A,T 01C6 38 AS A,#8H ; Add 01C7 66 CLC 01C8 4E LAS DP,#2BH 01C9 21 LC A,#1H ; Next LC->NOP 01CA 53 SAM A,(DP) ; Skip A=M 01CB 97 BR 12 01CC 5F LAF DP,#15H 01CE 04 BM0 (DP)bit#0H ; Clear bit 01CF 52 SC0 ; Skip C=0 01D0 0C BM1 (DP),bit#0H ; Set bit 01D1 9D BR 1E 01D2 22 LC A,#2H ; Next LC->NOP 01D3 53 SAM A,(DP) ; Skip A=M 01D4 B4 BR 1C 01D5 5F LAF DP,#4H 01D7 05 BM0 (DP)bit#1H ; Clear bit 01D8 52 SC0 ; Skip C=0 01D9 0D BM1 (DP),bit#1H ; Set bit 01DA 67 STC 01DB 8F BR 0C 01DC 23 LC A,#3H ; Next LC->NOP 01DD 53 SAM A,(DP) ; Skip A=M 01DE C4 CZP 2D ; P10W2D 01DF 5F LAF DP,#4H 01E1 04 BM0 (DP)bit#0H ; Clear bit 01E2 52 SC0 ; Skip C=0 01E3 0C BM1 (DP),bit#0H ; Set bit 01E4 A1 BR 19 01E5 5F LAF DP,#5H 01E7 20 LC A,#0H ; Next LC->NOP 01E8 01 OAR R,A 01E9 00 NOP 01EA 31 AS A,#1H ; Add 01EB 96 BR 28 01EC 64 INC L ; Skip L=7 01ED 96 BR 28 01EE 6E RT 01EF 4C LAS DP,#0BH 01F0 0F BM1 (DP),bit#3H ; Set bit 01F1 19 LE A,(DP),H^1H 01F2 0F BM1 (DP),bit#3H ; Set bit 01F3 4B LAS DP,#3AH 01F4 07 BM0 (DP)bit#3H ; Clear bit 01F5 79 LP #9H 01F6 AB BR 13 01F7 71 LP #1H 01F8 FB CZP 09 ; P13W29 01F9 C2 CZP 3D ; P10W3D 01FA C2 CZP 3D ; P10W3D 01FB C2 CZP 3D ; P10W3D 01FC C2 CZP 3D ; P10W3D 01FD 73 LP #3H 01FE AA BR 39 01FF 80 BR 00 ; PAGE #08 0200 4F LAS DP,#3BH 0201 55 SM1 (DP)bit#1H ; Skip b=1 0202 BE BR 05 0203 05 BM0 (DP)bit#1H ; Clear bit 0204 BD BR 0A 0205 0D BM1 (DP),bit#1H ; Set bit 0206 50 SI1 ; Skip Not INT1 0207 BD BR 0A 0208 4E LAS DP,#2BH 0209 DE CZP 0B ; P11W1F 020A CA CZP 3B ; P10W3B 020B D5 CZP 3A ; P11W3C 020C 44 LAS DP,#09H 020D 04 BM0 (DP)bit#0H ; Clear bit 020E 45 LAS DP,#19H 020F 04 BM0 (DP)bit#0H ; Clear bit 0210 4D LAS DP,#1BH 0211 07 BM0 (DP)bit#3H ; Clear bit 0212 4C LAS DP,#0BH 0213 07 BM0 (DP)bit#3H ; Clear bit 0214 77 LP #7H 0215 C0 CZP 00 ; P10W00 0216 4E LAS DP,#2BH 0217 23 LC A,#3H ; Next LC->NOP 0218 53 SAM A,(DP) ; Skip A=M 0219 BA BR 1D 021A 4F LAS DP,#3BH 021B 55 SM1 (DP)bit#1H ; Skip b=1 021C 98 BR 23 021D 50 SI1 ; Skip Not INT1 021E A3 BR 21 021F 7C LP #CH 0220 86 BR 17 0221 7B LP #BH 0222 B0 BR 02 0223 C8 CZP 30 ; P10W30 0224 7A LP #AH 0225 B2 BR 32 0226 E9 CZP 37 ; P12W2C 0227 77 LP #7H 0228 C0 CZP 00 ; P10W00 0229 C9 CZP 2C ; P10W2C 022A 73 LP #3H 022B C0 CZP 00 ; P10W00 022C AD BR 27 022D FC CZP 04 ; P13W34 022E 21 LC A,#1H ; Next LC->NOP 022F 5B SAL A,L ; Skip A=L 0230 AD BR 27 0231 D3 CZP 36 ; P11W18 0232 D3 CZP 36 ; P11W18 0233 41 LAS DP,#10H 0234 57 SM1 (DP)bit#3H ; Skip b=1 0235 8B BR 29 0236 4E LAS DP,#2BH 0237 23 LC A,#3H ; Next LC->NOP 0238 53 SAM A,(DP) ; Skip A=M 0239 9F BR 06 023A 4F LAS DP,#3BH 023B 05 BM0 (DP)bit#1H ; Clear bit 023C BD BR 0A 023D 00 NOP 023E 00 NOP 023F 80 BR 00 ; PAGE #09 0240 26 LC A,#6H ; Next LC->NOP 0241 09 AC A,(DP),C ; Add,Skip if C 0242 B7 BR 08 0243 1C XD A,(DP),L- ; Skip L=0 0244 80 BR 00 0245 6D CMS ; !MSB 0246 7C LP #CH 0247 A4 BR 31 0248 3A A10 A,10 0249 10 XM A,(DP) ; Exchange 024A 6D CMS ; !MSB 024B 7C LP #CH 024C AB BR 13 024D 44 LAS DP,#09H 024E 0C BM1 (DP),bit#0H ; Set bit 024F 19 LE A,(DP),H^1H 0250 0C BM1 (DP),bit#0H ; Set bit 0251 4B LAS DP,#3AH 0252 0F BM1 (DP),bit#3H ; Set bit 0253 E4 CZP 31 ; P12W2D 0254 86 BR 17 0255 70 LP #0H 0256 B4 BR 1C 0257 77 LP #7H 0258 C0 CZP 00 ; P10W00 0259 77 LP #7H 025A A9 BR 37 025B 44 LAS DP,#09H 025C 07 BM0 (DP)bit#3H ; Clear bit 025D 6C DEC L ; Skip L=0 025E D5 CZP 3A ; P11W3C 025F 19 LE A,(DP),H^1H 0260 D5 CZP 3A ; P11W3C 0261 72 LP #2H 0262 80 BR 00 0263 E9 CZP 37 ; P12W2C 0264 66 CLC 0265 45 LAS DP,#19H 0266 F9 CZP 0F ; P13W2C 0267 45 LAS DP,#19H 0268 E5 CZP 2A ; P12W3C 0269 45 LAS DP,#19H 026A D0 CZP 1A ; P11W00 026B 45 LAS DP,#19H 026C CB CZP 29 ; P10W29 026D 44 LAS DP,#09H 026E CB CZP 29 ; P10W29 026F 44 LAS DP,#09H 0270 52 SC0 ; Skip C=0 0271 04 BM0 (DP)bit#0H ; Clear bit 0272 52 SC0 ; Skip C=0 0273 94 BR 38 0274 E4 CZP 31 ; P12W2D 0275 82 BR 3D 0276 7B LP #BH 0277 90 BR 1A 0278 E4 CZP 31 ; P12W2D 0279 8A BR 3B 027A 93 BR 36 027B 78 LP #8H 027C 80 BR 00 027D 72 LP #2H 027E A5 BR 2A 027F 80 BR 00 ; PAGE #0A 0280 77 LP #7H 0281 C0 CZP 00 ; P10W00 0282 4B LAS DP,#3AH 0283 54 SM1 (DP)bit#0H ; Skip b=1 0284 8F BR 0C 0285 E4 CZP 31 ; P12W2D 0286 BD BR 0A 0287 6D CMS ; !MSB 0288 75 LP #5H 0289 A2 BR 2E 028A 7B LP #BH 028B B0 BR 02 028C FC CZP 04 ; P13W34 028D EC CZP 24 ; P12W34 028E 18 LM A,(DP) 028F 02 BS1 0290 53 SAM A,(DP) ; Skip A=M 0291 BE BR 05 0292 EC CZP 24 ; P12W34 0293 D5 CZP 3A ; P11W3C 0294 E4 CZP 31 ; P12W2D 0295 83 BR 18 0296 70 LP #0H 0297 B4 BR 1C 0298 CA CZP 3B ; P10W3B 0299 CF CZP 0C ; P10W0C 029A FC CZP 04 ; P13W34 029B 5F LAF DP,#42H 029D 67 STC 029E 79 LP #9H 029F 80 BR 00 02A0 73 LP #3H 02A1 DD CZP 1E ; P11W16 02A2 A7 BR 0D 02A3 00 NOP 02A4 00 NOP 02A5 0D BM1 (DP),bit#1H ; Set bit 02A6 4F LAS DP,#3BH 02A7 0F BM1 (DP),bit#3H ; Set bit 02A8 E6 CZP 35 ; P12W17 02A9 06 BM0 (DP)bit#2H ; Clear bit 02AA 5F LAF DP,#12H 02AC 25 LC A,#5H ; Next LC->NOP 02AD 10 XM A,(DP) ; Exchange 02AE CA CZP 3B ; P10W3B 02AF D5 CZP 3A ; P11W3C 02B0 71 LP #1H 02B1 8E BR 1F 02B2 C9 CZP 2C ; P10W2C 02B3 6D CMS ; !MSB 02B4 7A LP #AH 02B5 80 BR 00 02B6 77 LP #7H 02B7 F6 CZP 25 ; P13W17 02B8 FC CZP 04 ; P13W34 02B9 57 SM1 (DP)bit#3H ; Skip b=1 02BA B2 BR 32 02BB 70 LP #0H 02BC 80 BR 00 02BD 00 NOP 02BE 00 NOP 02BF 80 BR 00 ; PAGE #0B 02C0 77 LP #7H 02C1 C0 CZP 00 ; P10W00 02C2 C9 CZP 2C ; P10W2C 02C3 4B LAS DP,#3AH 02C4 05 BM0 (DP)bit#1H ; Clear bit 02C5 6D CMS ; !MSB 02C6 7A LP #AH 02C7 CF CZP 0C ; P10W0C 02C8 6D CMS ; !MSB 02C9 76 LP #6H 02CA D3 CZP 36 ; P11W18 02CB 90 BR 1A 02CC 73 LP #3H 02CD C0 CZP 00 ; P10W00 02CE 97 BR 12 02CF D3 CZP 36 ; P11W18 02D0 FC CZP 04 ; P13W34 02D1 B0 BR 02 02D2 D2 CZP 2B ; P11W3D 02D3 4B LAS DP,#3AH 02D4 54 SM1 (DP)bit#0H ; Skip b=1 02D5 93 BR 36 02D6 AD BR 27 02D7 6D CMS ; !MSB 02D8 75 LP #5H 02D9 AC BR 24 02DA E9 CZP 37 ; P12W2C 02DB 4B LAS DP,#3AH 02DC 54 SM1 (DP)bit#0H ; Skip b=1 02DD 86 BR 17 02DE 5F LAF DP,#15H 02E0 54 SM1 (DP)bit#0H ; Skip b=1 02E1 92 BR 2B 02E2 04 BM0 (DP)bit#0H ; Clear bit 02E3 5F LAF DP,#4H 02E5 04 BM0 (DP)bit#0H ; Clear bit 02E6 05 BM0 (DP)bit#1H ; Clear bit 02E7 74 LP #4H 02E8 C4 CZP 2D ; P10W2D 02E9 7A LP #AH 02EA B0 BR 02 02EB 71 LP #1H 02EC FB CZP 09 ; P13W29 02ED 5F LAF DP,#33H 02EF CF CZP 0C ; P10W0C 02F0 C5 CZP 3C ; P10W3C 02F1 93 BR 36 02F2 4B LAS DP,#3AH 02F3 04 BM0 (DP)bit#0H ; Clear bit 02F4 4E LAS DP,#2BH 02F5 D5 CZP 3A ; P11W3C 02F6 7A LP #AH 02F7 80 BR 00 02F8 77 LP #7H 02F9 C0 CZP 00 ; P10W00 02FA 71 LP #1H 02FB E7 CZP 0D ; P12W20 02FC B0 BR 02 02FD 00 NOP 02FE 00 NOP 02FF 80 BR 00 ; PAGE #0C 0300 5F LAF DP,#32H 0302 52 SC0 ; Skip C=0 0303 19 LE A,(DP),H^1H 0304 18 LM A,(DP) 0305 02 BS1 0306 10 XM A,(DP) ; Exchange 0307 6B BS0 0308 6C DEC L ; Skip L=0 0309 BC BR 04 030A 4B LAS DP,#3AH 030B 04 BM0 (DP)bit#0H ; Clear bit 030C 4F LAS DP,#3BH 030D 05 BM0 (DP)bit#1H ; Clear bit 030E EC CZP 24 ; P12W34 030F D5 CZP 3A ; P11W3C 0310 4E LAS DP,#2BH 0311 D5 CZP 3A ; P11W3C 0312 D2 CZP 2B ; P11W3D 0313 4A LAS DP,#2AH 0314 10 XM A,(DP) ; Exchange 0315 07 BM0 (DP)bit#3H ; Clear bit 0316 06 BM0 (DP)bit#2H ; Clear bit 0317 CA CZP 3B ; P10W3B 0318 D5 CZP 3A ; P11W3C 0319 E6 CZP 35 ; P12W17 031A 06 BM0 (DP)bit#2H ; Clear bit 031B E9 CZP 37 ; P12W2C 031C 5F LAF DP,#47H 031E 73 LP #3H 031F DD CZP 1E ; P11W16 0320 C0 CZP 00 ; P10W00 0321 B6 BR 25 0322 44 LAS DP,#09H 0323 0D BM1 (DP),bit#1H ; Set bit 0324 8B BR 29 0325 4D LAS DP,#1BH 0326 0E BM1 (DP),bit#2H ; Set bit 0327 8B BR 29 0328 C4 CZP 2D ; P10W2D 0329 4E LAS DP,#2BH 032A C5 CZP 3C ; P10W3C 032B 8A BR 3B 032C 77 LP #7H 032D C0 CZP 00 ; P10W00 032E 58 TIM ; TIme=0 032F 96 BR 28 0330 E2 CZP 2E ; P12W3D 0331 A2 BR 2E 0332 5F LAF DP,#42H 0334 D4 CZP 38 ; P11W2D 0335 66 CLC 0336 C0 CZP 00 ; P10W00 0337 67 STC 0338 40 LAS DP,#00H 0339 71 LP #1H 033A 93 BR 36 033B 7B LP #BH 033C 80 BR 00 033D 00 NOP 033E 00 NOP 033F 80 BR 00 ; PAGE #0D 0340 18 LM A,(DP) 0341 3C AS A,#CH ; Add 0342 BE BR 05 0343 D9 CZP 33 ; P11W2C 0344 9F BR 06 0345 CC CZP 34 ; P10W34 0346 7F LP #FH 0347 88 BR 30 0348 0E BM1 (DP),bit#2H ; Set bit 0349 5E 04 LDF A,T 034B 38 AS A,#8H ; Add 034C 00 NOP 034D 41 LAS DP,#10H 034E 10 XM A,(DP) ; Exchange 034F 04 BM0 (DP)bit#0H ; Clear bit 0350 05 BM0 (DP)bit#1H ; Clear bit 0351 7E LP #EH 0352 A4 BR 31 0353 40 LAS DP,#00H 0354 54 SM1 (DP)bit#0H ; Skip b=1 0355 8E BR 1F 0356 B2 BR 32 0357 47 LAS DP,#39H 0358 57 SM1 (DP)bit#3H ; Skip b=1 0359 A8 BR 1B 035A 8E BR 1F 035B 65 SYN 035C 00 NOP 035D 58 TIM ; TIme=0 035E 00 NOP 035F 47 LAS DP,#39H 0360 05 BM0 (DP)bit#1H ; Clear bit 0361 5F LAF DP,#38H 0363 05 BM0 (DP)bit#1H ; Clear bit 0364 C8 CZP 30 ; P10W30 0365 40 LAS DP,#00H 0366 57 SM1 (DP)bit#3H ; Skip b=1 0367 92 BR 2B 0368 6D CMS ; !MSB 0369 7B LP #BH 036A 8F BR 0C 036B 47 LAS DP,#39H 036C 07 BM0 (DP)bit#3H ; Clear bit 036D 4F LAS DP,#3BH 036E 06 BM0 (DP)bit#2H ; Clear bit 036F 40 LAS DP,#00H 0370 54 SM1 (DP)bit#0H ; Skip b=1 0371 8A BR 3B 0372 5F LAF DP,#38H 0374 0E BM1 (DP),bit#2H ; Set bit 0375 5F LAF DP,#49H 0377 D5 CZP 3A ; P11W3C 0378 6D CMS ; !MSB 0379 7B LP #BH 037A A3 BR 21 037B 6D CMS ; !MSB 037C 7B LP #BH 037D 80 BR 00 037E 00 NOP 037F 80 BR 00 ; PAGE #0E 0380 C9 CZP 2C ; P10W2C 0381 F2 CZP 32 ; P13W3D 0382 9C BR 10 0383 47 LAS DP,#39H 0384 07 BM0 (DP)bit#3H ; Clear bit 0385 4F LAS DP,#3BH 0386 06 BM0 (DP)bit#2H ; Clear bit 0387 71 LP #1H 0388 BA BR 1D 0389 5F LAF DP,#14H 038B 0E BM1 (DP),bit#2H ; Set bit 038C 0F BM1 (DP),bit#3H ; Set bit 038D 19 LE A,(DP),H^1H 038E 0E BM1 (DP),bit#2H ; Set bit 038F 0F BM1 (DP),bit#3H ; Set bit 0390 E2 CZP 2E ; P12W3D 0391 85 BR 3C 0392 D1 CZP 2F ; P11W3E 0393 B1 BR 22 0394 4F LAS DP,#3BH 0395 56 SM1 (DP)bit#2H ; Skip b=1 0396 9D BR 1E 0397 D3 CZP 36 ; P11W18 0398 D3 CZP 36 ; P11W18 0399 6A ICD A,D 039A 5A SA0 A ; Skip A=0 039B 9D BR 1E 039C 4F LAS DP,#3BH 039D 06 BM0 (DP)bit#2H ; Clear bit 039E 47 LAS DP,#39H 039F 57 SM1 (DP)bit#3H ; Skip b=1 03A0 9C BR 10 03A1 80 BR 00 03A2 4F LAS DP,#3BH 03A3 56 SM1 (DP)bit#2H ; Skip b=1 03A4 95 BR 3A 03A5 5E 04 LDF A,T 03A7 41 LAS DP,#10H 03A8 10 XM A,(DP) ; Exchange 03A9 04 BM0 (DP)bit#0H ; Clear bit 03AA 05 BM0 (DP)bit#1H ; Clear bit 03AB 10 XM A,(DP) ; Exchange 03AC 53 SAM A,(DP) ; Skip A=M 03AD 9D BR 1E 03AE 34 AS A,#4H ; Add 03AF 00 NOP 03B0 10 XM A,(DP) ; Exchange 03B1 47 LAS DP,#39H 03B2 57 SM1 (DP)bit#3H ; Skip b=1 03B3 93 BR 36 03B4 E6 CZP 35 ; P12W17 03B5 EA CZP 39 ; P12W3B 03B6 C8 CZP 30 ; P10W30 03B7 40 LAS DP,#00H 03B8 7D LP #DH 03B9 80 BR 00 03BA 7D LP #DH 03BB B7 BR 08 03BC 7D LP #DH 03BD 86 BR 17 03BE 00 NOP 03BF 80 BR 00 ; PAGE #0F - RESET 03C0 68 CLL A,0 03C1 21 LC A,#1H ; Next LC->NOP 03C2 03 EN LCD,A 03C3 2F LC A,#FH ; Next LC->NOP 03C4 01 OAR R,A 03C5 48 LAS DP,#0AH 03C6 63 OA1 O8,A ; LCD 03C7 6C DEC L ; Skip L=0 03C8 9F BR 06 03C9 5C ABF O',O 03CA 50 SI1 ; Skip Not INT1 03CB BD BR 0A 03CC 20 LC A,#0H ; Next LC->NOP 03CD 62 OA0 O8,A ; LCD 03CE 6C DEC L ; Skip L=0 03CF A7 BR 0D 03D0 51 SI0 ; Skip Not INT0 03D1 9C BR 10 03D2 5F LAF DP,#2CH 03D4 D4 CZP 38 ; P11W2D 03D5 19 LE A,(DP),H^1H 03D6 D4 CZP 38 ; P11W2D 03D7 5F LAF DP,#25H 03D9 22 LC A,#2H ; Next LC->NOP 03DA 1C XD A,(DP),L- ; Skip L=0 03DB 0C BM1 (DP),bit#0H ; Set bit 03DC 19 LE A,(DP),H^1H 03DD 23 LC A,#3H ; Next LC->NOP 03DE 14 XI A,(DP) ; Exchange L++ Skip L=7 03DF 0D BM1 (DP),bit#1H ; Set bit 03E0 5F LAF DP,#CH 03E2 2F LC A,#FH ; Next LC->NOP 03E3 11 XE A,(DP),H^1H ; Exchange XOR 03E4 2F LC A,#FH ; Next LC->NOP 03E5 1D XED A,(DP),L-,H^1H ; Skip L=0 03E6 B1 BR 22 03E7 5F LAF DP,#47H 03E9 21 LC A,#1H ; Next LC->NOP 03EA 10 XM A,(DP) ; Exchange 03EB 88 BR 30 03EC 47 LAS DP,#39H 03ED 57 SM1 (DP)bit#3H ; Skip b=1 03EE 88 BR 30 03EF E6 CZP 35 ; P12W17 03F0 74 LP #4H 03F1 F9 CZP 0F ; P13W2C 03F2 47 LAS DP,#39H 03F3 57 SM1 (DP)bit#3H ; Skip b=1 03F4 94 BR 38 03F5 EA CZP 39 ; P12W3B 03F6 7E LP #EH 03F7 80 BR 00 03F8 7E LP #EH 03F9 BB BR 09 03FA 00 NOP 03FB 00 NOP 03FC 00 NOP 03FD 00 NOP 03FE 00 NOP 03FF 80 BR 00 ; BANK 1 ; PAGE #10 - SUBROUTINES 0400 4F LAS DP,#3BH 0401 57 SM1 (DP)bit#3H ; Skip b=1 0402 6E RT 0403 6F RTS ; Skip 0404 5F LAF DP,#11H 0406 21 LC A,#1H ; Next LC->NOP 0407 66 CLC 0408 09 AC A,(DP),C ; Add,Skip if C 0409 B3 BR 0E 040A 1C XD A,(DP),L- ; Skip L=0 040B 21 LC A,#1H ; Next LC->NOP 040C 2F LC A,#FH ; Next LC->NOP 040D 08 AM A,(DP) ; Add 040E D9 CBR P11W2C 040F 52 SC0 ; Skip C=0 0410 8D BR 16 0411 54 SM1 (DP)bit#0H ; Skip b=1 0412 A1 BR 19 0413 04 BM0 (DP)bit#0H ; Clear bit 0414 67 STC 0415 A1 BR 19 0416 54 SM1 (DP)bit#0H ; Skip b=1 0417 66 CLC 0418 0C BM1 (DP),bit#0H ; Set bit 0419 E2 CBR P12W3D 041A 52 SC0 ; Skip C=0 041B 87 BR 20 041C 55 SM1 (DP)bit#1H ; Skip b=1 041D A1 BR 19 041E 05 BM0 (DP)bit#1H ; Clear bit 041F B5 BR 14 0420 55 SM1 (DP)bit#1H ; Skip b=1 0421 66 CLC 0422 0D BM1 (DP),bit#1H ; Set bit 0423 A1 BR 19 0424 5F LAF DP,#17H 0426 6E RT 0427 4B LAS DP,#3AH 0428 D2 CBR P11W3D 0429 E0 CBR P12W00 042A E5 CBR P12W3C 042B D0 CBR P11W00 042C F0 CBR P13W00 042D F1 CBR P13W3E 042E DD CBR P11W16 042F D6 CBR P11W17 0430 DB CBR P11W29 0431 D1 CBR P11W3E 0432 D4 CBR P11W2D 0433 F5 CBR P13W3C 0434 F2 CBR P13W3D 0435 E8 CBR P12W30 0436 EB CBR P12W29 0437 E3 CBR P12W18 0438 E1 CBR P12W3E 0439 DC CBR P11W34 043A DA CBR P11W3B 043B EA CBR P12W3B 043C D5 CBR P11W3C 043D E7 CBR P12W20 043E 00 NOP 043F 80 BR 00 ; PAGE #11 0440 5E 04 LDF A,T 0442 46 LAS DP,#29H 0443 08 AM A,(DP) ; Add 0444 6C DEC L ; Skip L=0 0445 B8 BR 03 0446 5F LAF DP,#2CH 0448 08 AM A,(DP) ; Add 0449 10 XM A,(DP) ; Exchange 044A 67 STC 044B 36 AS A,#6H ; Add 044C 66 CLC 044D 10 XM A,(DP) ; Exchange 044E 6E RT 044F 5F LAF DP,#38H 0451 55 SM1 (DP)bit#1H ; Skip b=1 0452 6E RT 0453 6F RTS ; Skip 0454 20 LC A,#0H ; Next LC->NOP 0455 A7 BR 0D 0456 27 LC A,#7H ; Next LC->NOP 0457 2B LC A,#BH ; Next LC->NOP 0458 01 OAR R,A 0459 4C LAS DP,#0BH 045A 6A ICD A,D 045B 5A SA0 A ; Skip A=0 045C 9D BR 1E 045D 6F RTS ; Skip 045E 26 LC A,#6H ; Next LC->NOP 045F 31 AS A,#1H ; Add 0460 8E BR 1F 0461 6C DEC L ; Skip L=0 0462 9D BR 1E 0463 6A ICD A,D 0464 5A SA0 A ; Skip A=0 0465 AD BR 27 0466 6F RTS ; Skip 0467 40 LAS DP,#00H 0468 A7 BR 0D 0469 5F LAF DP,#49H 046B 25 LC A,#5H ; Next LC->NOP 046C A7 BR 0D 046D 5F LAF DP,#49H 046F 18 LM A,(DP) 0470 5A SA0 A ; Skip A=0 0471 6E RT 0472 6F RTS ; Skip 0473 00 NOP 0474 5F LAF DP,#34H 0476 19 LE A,(DP),H^1H 0477 11 XE A,(DP),H^1H ; Exchange XOR 0478 15 XEI A,(DP),H^1H ; Exchange L++ XOR 0479 93 BR 36 047A 6E RT 047B B5 BR 14 047C 91 BR 2F 047D AE BR 11 047E B9 BR 0F 047F 80 BR 00 ; PAGE #12 0480 52 SC0 ; Skip C=0 0481 9F BR 06 0482 56 SM1 (DP)bit#2H ; Skip b=1 0483 B5 BR 14 0484 06 BM0 (DP)bit#2H ; Clear bit 0485 B9 BR 0F 0486 56 SM1 (DP)bit#2H ; Skip b=1 0487 66 CLC 0488 0E BM1 (DP),bit#2H ; Set bit 0489 B5 BR 14 048A 52 SC0 ; Skip C=0 048B AE BR 11 048C 57 SM1 (DP)bit#3H ; Skip b=1 048D B5 BR 14 048E 07 BM0 (DP)bit#3H ; Clear bit 048F 67 STC 0490 B5 BR 14 0491 57 SM1 (DP)bit#3H ; Skip b=1 0492 66 CLC 0493 0F BM1 (DP),bit#3H ; Set bit 0494 4B LAS DP,#3AH 0495 52 SC0 ; Skip C=0 0496 0D BM1 (DP),bit#1H ; Set bit 0497 6E RT 0498 5F LAF DP,#11H 049A 20 LC A,#0H ; Next LC->NOP 049B 1C XD A,(DP),L- ; Skip L=0 049C 90 BR 1A 049D 6E RT 049E 00 NOP 049F 00 NOP 04A0 20 LC A,#0H ; Next LC->NOP 04A1 A5 BR 2A 04A2 00 NOP 04A3 0F BM1 (DP),bit#3H ; Set bit 04A4 0E BM1 (DP),bit#2H ; Set bit 04A5 6E RT 04A6 5F LAF DP,#2H 04A8 6E RT 04A9 2D LC A,#DH ; Next LC->NOP 04AA 44 LAS DP,#09H 04AB 64 INC L ; Skip L=7 04AC 92 BR 2B 04AD 31 AS A,#1H ; Add 04AE 92 BR 2B 04AF 6E RT 04B0 5F LAF DP,#CH 04B2 20 LC A,#0H ; Next LC->NOP 04B3 11 XE A,(DP),H^1H ; Exchange XOR 04B4 20 LC A,#0H ; Next LC->NOP 04B5 1D XED A,(DP),L-,H^1H ; Skip L=0 04B6 23 LC A,#3H ; Next LC->NOP 04B7 5B SAL A,L ; Skip A=L 04B8 B2 BR 32 04B9 64 INC L ; Skip L=7 04BA 98 BR 23 04BB 9B BR 26 04BC BD BR 0A 04BD B5 BR 14 04BE 90 BR 1A 04BF 80 BR 00 ; PAGE #13 04C0 58 TIM ; TIme=0 04C1 B8 BR 03 04C2 6E RT 04C3 46 LAS DP,#29H 04C4 66 CLC 04C5 18 LM A,(DP) 04C6 37 AS A,#7H ; Add 04C7 A6 BR 35 04C8 1C XD A,(DP),L- ; Skip L=0 04C9 18 LM A,(DP) 04CA 3B AS A,#BH ; Add 04CB A6 BR 35 04CC 10 XM A,(DP) ; Exchange 04CD 52 SC0 ; Skip C=0 04CE 85 BR 3C 04CF 67 STC 04D0 5F LAF DP,#27H 04D2 BE BR 05 04D3 5F LAF DP,#24H 04D5 54 SM1 (DP)bit#0H ; Skip b=1 04D6 88 BR 30 04D7 64 INC L ; Skip L=7 04D8 18 LM A,(DP) 04D9 3F AS A,#FH ; Add 04DA A6 BR 35 04DB 3F AS A,#FH ; Add 04DC A3 BR 21 04DD 21 LC A,#1H ; Next LC->NOP 04DE 1C XD A,(DP),L- ; Skip L=0 04DF 04 BM0 (DP)bit#0H ; Clear bit 04E0 96 BR 28 04E1 22 LC A,#2H ; Next LC->NOP 04E2 1C XD A,(DP),L- ; Skip L=0 04E3 55 SM1 (DP)bit#1H ; Skip b=1 04E4 AD BR 27 04E5 05 BM0 (DP)bit#1H ; Clear bit 04E6 96 BR 28 04E7 0D BM1 (DP),bit#1H ; Set bit 04E8 47 LAS DP,#39H 04E9 0E BM1 (DP),bit#2H ; Set bit 04EA 02 BS1 04EB 18 LM A,(DP) 04EC 3F AS A,#FH ; Add 04ED 91 BR 2F 04EE 10 XM A,(DP) ; Exchange 04EF 6E RT 04F0 64 INC L ; Skip L=7 04F1 18 LM A,(DP) 04F2 37 AS A,#7H ; Add 04F3 A6 BR 35 04F4 1C XD A,(DP),L- ; Skip L=0 04F5 21 LC A,#1H ; Next LC->NOP 04F6 08 AM A,(DP) ; Add 04F7 10 XM A,(DP) ; Exchange 04F8 52 SC0 ; Skip C=0 04F9 96 BR 28 04FA 6E RT 04FB 00 NOP 04FC AB BR 13 04FD B9 BR 0F 04FE B8 BR 03 04FF 80 BR 00 ; PAGE #14 0500 5F LAF DP,#40H 0502 22 LC A,#2H ; Next LC->NOP 0503 53 SAM A,(DP) ; Skip A=M 0504 9F BR 06 0505 BB BR 09 0506 25 LC A,#5H ; Next LC->NOP 0507 53 SAM A,(DP) ; Skip A=M 0508 9E BR 0B 0509 4B LAS DP,#3AH 050A 0C BM1 (DP),bit#0H ; Set bit 050B C0 CZP 00 ; P10W00 050C B9 BR 0F 050D 43 LAS DP,#30H 050E 9C BR 10 050F 42 LAS DP,#20H 0510 18 LM A,(DP) 0511 02 BS1 0512 53 SAM A,(DP) ; Skip A=M 0513 90 BR 1A 0514 6B BS0 0515 64 INC L ; Skip L=7 0516 23 LC A,#3H ; Next LC->NOP 0517 5B SAL A,L ; Skip A=L 0518 9C BR 10 0519 AC BR 24 051A 0A COM A ; Not A 051B 09 AC A,(DP),C ; Add,Skip if C 051C AC BR 24 051D 18 LM A,(DP) 051E 6B BS0 051F 14 XI A,(DP) ; Exchange L++ Skip L=7 0520 02 BS1 0521 23 LC A,#3H ; Next LC->NOP 0522 5B SAL A,L ; Skip A=L 0523 BA BR 1D 0524 4B LAS DP,#3AH 0525 54 SM1 (DP)bit#0H ; Skip b=1 0526 B2 BR 32 0527 4F LAS DP,#3BH 0528 05 BM0 (DP)bit#1H ; Clear bit 0529 4E LAS DP,#2BH 052A C5 CZP 3C ; P10W3C 052B 84 BR 2D 052C B2 BR 32 052D 5F LAF DP,#33H 052F 27 LC A,#7H ; Next LC->NOP 0530 10 XM A,(DP) ; Exchange 0531 8C BR 34 0532 4B LAS DP,#3AH 0533 04 BM0 (DP)bit#0H ; Clear bit 0534 6D CMS ; !MSB 0535 7B LP #BH 0536 94 BR 38 0537 00 NOP 0538 00 NOP 0539 00 NOP 053A 00 NOP 053B 00 NOP 053C 00 NOP 053D 00 NOP 053E 00 NOP 053F 80 BR 00 ; PAGE #15 0540 5F LAF DP,#3H 0542 20 LC A,#0H ; Next LC->NOP 0543 01 OAR R,A 0544 31 AS A,#1H ; Add 0545 B8 BR 03 0546 6C DEC L ; Skip L=0 0547 B8 BR 03 0548 6E RT 0549 4C LAS DP,#0BH 054A 2C LC A,#CH ; Next LC->NOP 054B 01 OAR R,A 054C 31 AS A,#1H ; Add 054D 00 NOP 054E 01 OAR R,A 054F 00 NOP 0550 31 AS A,#1H ; Add 0551 9E BR 0B 0552 6C DEC L ; Skip L=0 0553 BD BR 0A 0554 6E RT 0555 5F LAF DP,#2H 0557 20 LC A,#0H ; Next LC->NOP 0558 01 OAR R,A 0559 00 NOP 055A 31 AS A,#1H ; Add 055B 00 NOP 055C 01 OAR R,A 055D 00 NOP 055E 00 NOP 055F 31 AS A,#1H ; Add 0560 83 BR 18 0561 6C DEC L ; Skip L=0 0562 83 BR 18 0563 6E RT 0564 46 LAS DP,#29H 0565 18 LM A,(DP) 0566 67 STC 0567 3B AS A,#BH ; Add 0568 66 CLC 0569 5F LAF DP,#4H 056B 07 BM0 (DP)bit#3H ; Clear bit 056C 52 SC0 ; Skip C=0 056D 0F BM1 (DP),bit#3H ; Set bit 056E EC CZP 24 ; P12W34 056F D5 CZP 3A ; P11W3C 0570 5A SA0 A ; Skip A=0 0571 8C BR 34 0572 76 LP #6H 0573 80 BR 00 0574 3C AS A,#CH ; Add 0575 AA BR 39 0576 6D CMS ; !MSB 0577 77 LP #7H 0578 91 BR 2F 0579 6D CMS ; !MSB 057A 79 LP #9H 057B A7 BR 0D 057C 00 NOP 057D 00 NOP 057E 00 NOP 057F 80 BR 00 ; PAGE #16 0580 4A LAS DP,#2AH 0581 DE CZP 0B ; P11W1F 0582 06 BM0 (DP)bit#2H ; Clear bit 0583 3F AS A,#FH ; Add 0584 A6 BR 35 0585 3F AS A,#FH ; Add 0586 A9 BR 37 0587 3F AS A,#FH ; Add 0588 AA BR 39 0589 C0 CZP 00 ; P10W00 058A 8F BR 0C 058B AE BR 11 058C 4E LAS DP,#2BH 058D 23 LC A,#3H ; Next LC->NOP 058E 53 SAM A,(DP) ; Skip A=M 058F AE BR 11 0590 9A BR 15 0591 5F LAF DP,#16H 0593 54 SM1 (DP)bit#0H ; Skip b=1 0594 86 BR 17 0595 66 CLC 0596 B1 BR 22 0597 79 LP #9H 0598 D3 CZP 36 ; P11W18 0599 9A BR 15 059A D2 CZP 2B ; P11W3D 059B CA CZP 3B ; P10W3B 059C 52 SC0 ; Skip C=0 059D 87 BR 20 059E C5 CZP 3C ; P10W3C 059F B1 BR 22 05A0 DE CZP 0B ; P11W1F 05A1 F5 CZP 14 ; P13W3C 05A2 5F LAF DP,#16H 05A4 F9 CZP 0F ; P13W2C 05A5 5F LAF DP,#8H 05A7 E5 CZP 2A ; P12W3C 05A8 5F LAF DP,#18H 05AA E5 CZP 2A ; P12W3C 05AB 5F LAF DP,#18H 05AD CB CZP 29 ; P10W29 05AE 5F LAF DP,#8H 05B0 CB CZP 29 ; P10W29 05B1 EC CZP 24 ; P12W34 05B2 D0 CZP 1A ; P11W00 05B3 77 LP #7H 05B4 80 BR 00 05B5 79 LP #9H 05B6 B7 BR 08 05B7 77 LP #7H 05B8 8E BR 1F 05B9 78 LP #8H 05BA B5 BR 14 05BB 00 NOP 05BC 00 NOP 05BD 00 NOP 05BE 00 NOP 05BF 80 BR 00 ; PAGE #17 05C0 E4 CZP 31 ; P12W2D 05C1 ED CZP 27 ; P12W16 05C2 AF BR 07 05C3 6D CMS ; !MSB 05C4 77 LP #7H 05C5 F6 CZP 25 ; P13W17 05C6 6D CMS ; !MSB 05C7 ED CZP 27 ; P12W16 05C8 A8 BR 1B 05C9 5F LAF DP,#23H 05CB D5 CZP 3A ; P11W3C 05CC E4 CZP 31 ; P12W2D 05CD B5 BR 14 05CE EC CZP 24 ; P12W34 05CF C5 CZP 3C ; P10W3C 05D0 86 BR 17 05D1 6D CMS ; !MSB 05D2 70 LP #0H 05D3 B4 BR 1C 05D4 6D CMS ; !MSB 05D5 7A LP #AH 05D6 80 BR 00 05D7 CA CZP 3B ; P10W3B 05D8 CF CZP 0C ; P10W0C 05D9 7A LP #AH 05DA B2 BR 32 05DB 7B LP #BH 05DC A9 BR 37 05DD 76 LP #6H 05DE 80 BR 00 05DF C0 CZP 00 ; P10W00 05E0 B1 BR 22 05E1 96 BR 28 05E2 4E LAS DP,#2BH 05E3 21 LC A,#1H ; Next LC->NOP 05E4 53 SAM A,(DP) ; Skip A=M 05E5 96 BR 28 05E6 66 CLC 05E7 94 BR 38 05E8 5F LAF DP,#18H 05EA 55 SM1 (DP)bit#1H ; Skip b=1 05EB 84 BR 2D 05EC 9B BR 26 05ED 79 LP #9H 05EE D3 CZP 36 ; P11W18 05EF 9B BR 26 05F0 D2 CZP 2B ; P11W3D 05F1 CA CZP 3B ; P10W3B 05F2 52 SC0 ; Skip C=0 05F3 93 BR 36 05F4 C5 CZP 3C ; P10W3C 05F5 94 BR 38 05F6 DE CZP 0B ; P11W1F 05F7 F5 CZP 14 ; P13W3C 05F8 5F LAF DP,#18H 05FA D0 CZP 1A ; P11W00 05FB 78 LP #8H 05FC 80 BR 00 05FD 00 NOP 05FE 00 NOP 05FF 80 BR 00 ; PAGE #18 0600 5F LAF DP,#8H 0602 D0 CZP 1A ; P11W00 0603 5F LAF DP,#18H 0605 F9 CZP 0F ; P13W2C 0606 5F LAF DP,#8H 0608 F9 CZP 0F ; P13W2C 0609 44 LAS DP,#09H 060A E5 CZP 2A ; P12W3C 060B EC CZP 24 ; P12W34 060C F9 CZP 0F ; P13W2C 060D E4 CZP 31 ; P12W2D 060E ED CZP 27 ; P12W16 060F 97 BR 12 0610 75 LP #5H 0611 FB CZP 09 ; P13W29 0612 77 LP #7H 0613 AF BR 07 0614 C0 CZP 00 ; P10W00 0615 86 BR 17 0616 BA BR 1D 0617 4E LAS DP,#2BH 0618 22 LC A,#2H ; Next LC->NOP 0619 53 SAM A,(DP) ; Skip A=M 061A BA BR 1D 061B 66 CLC 061C 84 BR 2D 061D 5F LAF DP,#CH 061F 54 SM1 (DP)bit#0H ; Skip b=1 0620 B1 BR 22 0621 A8 BR 1B 0622 79 LP #9H 0623 D3 CZP 36 ; P11W18 0624 A8 BR 1B 0625 D2 CZP 2B ; P11W3D 0626 CA CZP 3B ; P10W3B 0627 52 SC0 ; Skip C=0 0628 92 BR 2B 0629 C5 CZP 3C ; P10W3C 062A 84 BR 2D 062B DE CZP 0B ; P11W1F 062C F5 CZP 14 ; P13W3C 062D 5F LAF DP,#CH 062F F9 CZP 0F ; P13W2C 0630 5F LAF DP,#1CH 0632 F9 CZP 0F ; P13W2C 0633 5F LAF DP,#1CH 0635 D0 CZP 1A ; P11W00 0636 5F LAF DP,#CH 0638 D0 CZP 1A ; P11W00 0639 5F LAF DP,#CH 063B CB CZP 29 ; P10W29 063C EC CZP 24 ; P12W34 063D 79 LP #9H 063E 80 BR 00 063F 80 BR 00 ; PAGE #19 0640 E5 CZP 2A ; P12W3C 0641 E4 CZP 31 ; P12W2D 0642 ED CZP 27 ; P12W16 0643 9F BR 06 0644 75 LP #5H 0645 C0 CZP 00 ; P10W00 0646 77 LP #7H 0647 AF BR 07 0648 C0 CZP 00 ; P10W00 0649 9E BR 0B 064A AE BR 11 064B 4E LAS DP,#2BH 064C 20 LC A,#0H ; Next LC->NOP 064D 53 SAM A,(DP) ; Skip A=M 064E AE BR 11 064F 66 CLC 0650 A3 BR 21 0651 5F LAF DP,#1CH 0653 56 SM1 (DP)bit#2H ; Skip b=1 0654 8D BR 16 0655 B9 BR 0F 0656 79 LP #9H 0657 D3 CZP 36 ; P11W18 0658 B9 BR 0F 0659 D2 CZP 2B ; P11W3D 065A CA CZP 3B ; P10W3B 065B 52 SC0 ; Skip C=0 065C 8E BR 1F 065D C5 CZP 3C ; P10W3C 065E A3 BR 21 065F DE CZP 0B ; P11W1F 0660 F5 CZP 14 ; P13W3C 0661 5F LAF DP,#1CH 0663 CB CZP 29 ; P10W29 0664 5F LAF DP,#1CH 0666 E5 CZP 2A ; P12W3C 0667 5F LAF DP,#CH 0669 E5 CZP 2A ; P12W3C 066A 4C LAS DP,#0BH 066B F9 CZP 0F ; P13W2C 066C 4D LAS DP,#1BH 066D F9 CZP 0F ; P13W2C 066E EC CZP 24 ; P12W34 066F CB CZP 29 ; P10W29 0670 E4 CZP 31 ; P12W2D 0671 ED CZP 27 ; P12W16 0672 9F BR 06 0673 75 LP #5H 0674 DA CZP 15 ; P11W3B 0675 9F BR 06 0676 5F LAF DP,#2H 0678 19 LE A,(DP),H^1H 0679 0A COM A ; Not A 067A 66 CLC 067B 09 AC A,(DP),C ; Add,Skip if C 067C 6E RT 067D 6F RTS ; Skip 067E 00 NOP 067F 80 BR 00 ; PAGE #1A 0680 75 LP #5H 0681 DA CZP 15 ; P11W3B 0682 75 LP #5H 0683 DA CZP 15 ; P11W3B 0684 75 LP #5H 0685 FB CZP 09 ; P13W29 0686 48 LAS DP,#0AH 0687 75 LP #5H 0688 F0 CZP 02 ; P13W00 0689 6D CMS ; !MSB 068A 7A LP #AH 068B 93 BR 36 068C 5F LAF DP,#40H 068E 18 LM A,(DP) 068F 66 CLC 0690 64 INC L ; Skip L=7 0691 09 AC A,(DP),C ; Add,Skip if C 0692 B5 BR 14 0693 AD BR 27 0694 32 AS A,#2H ; Add 0695 86 BR 17 0696 9B BR 26 0697 33 AS A,#3H ; Add 0698 90 BR 1A 0699 B6 BR 25 069A 32 AS A,#2H ; Add 069B BA BR 1D 069C AC BR 24 069D 34 AS A,#4H ; Add 069E 87 BR 20 069F 98 BR 23 06A0 34 AS A,#4H ; Add 06A1 89 BR 2C 06A2 23 LC A,#3H ; Next LC->NOP 06A3 24 LC A,#4H ; Next LC->NOP 06A4 25 LC A,#5H ; Next LC->NOP 06A5 27 LC A,#7H ; Next LC->NOP 06A6 29 LC A,#9H ; Next LC->NOP 06A7 2C LC A,#CH ; Next LC->NOP 06A8 5F LAF DP,#12H 06AA 10 XM A,(DP) ; Exchange 06AB 6E RT 06AC 64 INC L ; Skip L=7 06AD 18 LM A,(DP) 06AE 3B AS A,#BH ; Add 06AF 21 LC A,#1H ; Next LC->NOP 06B0 22 LC A,#2H ; Next LC->NOP 06B1 96 BR 28 06B2 D2 CZP 2B ; P11W3D 06B3 3C AS A,#CH ; Add 06B4 AA BR 39 06B5 EC CZP 24 ; P12W34 06B6 18 LM A,(DP) 06B7 02 BS1 06B8 10 XM A,(DP) ; Exchange 06B9 5F LAF DP,#47H 06BB 6D CMS ; !MSB 06BC 7A LP #AH 06BD 87 BR 20 06BE 00 NOP 06BF 80 BR 00 ; PAGE #1B 06C0 66 CLC 06C1 56 SM1 (DP)bit#2H ; Skip b=1 06C2 AF BR 07 06C3 67 STC 06C4 4F LAS DP,#3BH 06C5 07 BM0 (DP)bit#3H ; Clear bit 06C6 BB BR 09 06C7 4F LAS DP,#3BH 06C8 0F BM1 (DP),bit#3H ; Set bit 06C9 6D CMS ; !MSB 06CA 7C LP #CH 06CB 80 BR 00 06CC 4F LAS DP,#3BH 06CD 56 SM1 (DP)bit#2H ; Skip b=1 06CE 97 BR 12 06CF 6D CMS ; !MSB 06D0 7E LP #EH 06D1 80 BR 00 06D2 0E BM1 (DP),bit#2H ; Set bit 06D3 47 LAS DP,#39H 06D4 0F BM1 (DP),bit#3H ; Set bit 06D5 0E BM1 (DP),bit#2H ; Set bit 06D6 C8 CZP 30 ; P10W30 06D7 47 LAS DP,#39H 06D8 54 SM1 (DP)bit#0H ; Skip b=1 06D9 B4 BR 1C 06DA 04 BM0 (DP)bit#0H ; Clear bit 06DB BA BR 1D 06DC 0C BM1 (DP),bit#0H ; Set bit 06DD EA CZP 39 ; P12W3B 06DE 6D CMS ; !MSB 06DF 7F LP #FH 06E0 89 BR 2C 06E1 E6 CZP 35 ; P12W17 06E2 EA CZP 39 ; P12W3B 06E3 6D CMS ; !MSB 06E4 74 LP #4H 06E5 F9 CZP 0F ; P13W2C 06E6 6D CMS ; !MSB 06E7 EA CZP 39 ; P12W3B 06E8 E2 CZP 2E ; P12W3D 06E9 A6 BR 35 06EA D3 CZP 36 ; P11W18 06EB D3 CZP 36 ; P11W18 06EC 6A ICD A,D 06ED 5A SA0 A ; Skip A=0 06EE A6 BR 35 06EF 5F LAF DP,#38H 06F1 06 BM0 (DP)bit#2H ; Clear bit 06F2 6D CMS ; !MSB 06F3 71 LP #1H 06F4 BA BR 1D 06F5 7C LP #CH 06F6 80 BR 00 06F7 5F LAF DP,#23H 06F9 DE CZP 0B ; P11W1F 06FA 18 LM A,(DP) 06FB 77 LP #7H 06FC 3D AS A,#DH ; Add 06FD BA BR 1D 06FE BB BR 09 06FF 80 BR 00 ; PAGE #1C 0700 58 TIM ; TIme=0 0701 BC BR 04 0702 7B LP #BH 0703 96 BR 28 0704 C4 CZP 2D ; P10W2D 0705 40 LAS DP,#00H 0706 57 SM1 (DP)bit#3H ; Skip b=1 0707 BB BR 09 0708 B0 BR 02 0709 47 LAS DP,#39H 070A 55 SM1 (DP)bit#1H ; Skip b=1 070B 9C BR 10 070C 6D CMS ; !MSB 070D 71 LP #1H 070E C0 CZP 00 ; P10W00 070F 6D CMS ; !MSB 0710 6D CMS ; !MSB 0711 7D LP #DH 0712 B2 BR 32 0713 21 LC A,#1H ; Next LC->NOP 0714 5B SAL A,L ; Skip A=L 0715 89 BR 2C 0716 5F LAF DP,#1H 0718 2F LC A,#FH ; Next LC->NOP 0719 66 CLC 071A 09 AC A,(DP),C ; Add,Skip if C 071B BA BR 1D 071C 87 BR 20 071D 1C XD A,(DP),L- ; Skip L=0 071E 2F LC A,#FH ; Next LC->NOP 071F 08 AM A,(DP) ; Add 0720 10 XM A,(DP) ; Exchange 0721 40 LAS DP,#00H 0722 C5 CZP 3C ; P10W3C 0723 A5 BR 2A 0724 64 INC L ; Skip L=7 0725 25 LC A,#5H ; Next LC->NOP 0726 53 SAM A,(DP) ; Skip A=M 0727 A5 BR 2A 0728 26 LC A,#6H ; Next LC->NOP 0729 10 XM A,(DP) ; Exchange 072A 74 LP #4H 072B 9E BR 0B 072C 20 LC A,#0H ; Next LC->NOP 072D 5B SAL A,L ; Skip A=L 072E A5 BR 2A 072F 29 LC A,#9H ; Next LC->NOP 0730 53 SAM A,(DP) ; Skip A=M 0731 27 LC A,#7H ; Next LC->NOP 0732 20 LC A,#0H ; Next LC->NOP 0733 5F LAF DP,#1H 0735 EF CZP 07 ; P12W0C 0736 74 LP #4H 0737 80 BR 00 0738 00 NOP 0739 00 NOP 073A 00 NOP 073B 00 NOP 073C 00 NOP 073D 00 NOP 073E 00 NOP 073F 80 BR 00 ; PAGE #1D #1E #1F - ILLEGAL! ;******** THE END ********