ORG $5000 BIDECLE $500D, $500D ; 5000 000D 0050 000D 0050 BIDECLE $5028, $500D ; 5004 0028 0050 000D 0050 BIDECLE $500F, $5014 ; 5008 000F 0050 0014 0050 DECLE $03C0, $0000, $0000, $0001 ; 500C 03C0 0000 0000 0001 DECLE $0001, $0001, $0001, $0001 ; 5010 0001 0001 0001 0001 DECLE $0066 ; 5014 0066 STRING "Tag-Along Todd #2a" ; 5015 DECLE $0000 ; 5027 0000 DIS ; 5028 0003 MVII #$02F0, R6 ; 5029 02BE 02F0 MVII #$025D, R1 ; 502B 02B9 025D MVII #$0102, R4 ; 502D 02BC 0102 JSR R5, L_54F4 ; 502F 0004 0154 00F4 MVO R7, .SYS.57 ; 5032 0247 0347 JSR R5, L_57CD ; 5034 0004 0154 03CD MVII #$545F, R0 ; 5037 02B8 545F MVO R0, .ISRVEC.0 ; 5039 0240 0100 SWAP R0, 1 ; 503B 0040 MVO R0, .ISRVEC.1 ; 503C 0240 0101 MVO R7, .SYS.55 ; 503E 0247 0345 EIS ; 5040 0002 L_5041: JSR R5, L_5062 ; 5041 0004 0150 0062 JSR R5, L_576F ; 5044 0004 0154 036F JSR R5, L_50CE ; 5047 0004 0150 00CE JSR R5, L_576F ; 504A 0004 0154 036F JSR R5, L_524C ; 504D 0004 0150 024C JSR R5, L_576F ; 5050 0004 0154 036F JSR R5, L_51CB ; 5053 0004 0150 01CB JSR R5, L_576F ; 5056 0004 0154 036F B L_5041 ; 5059 0220 0019 DECLE $505E, $505E, $505E ; 505B 505E 505E 505E SWAP R2, 2 ; 505E 0046 BPL L_57B4 ; 505F 0203 0753 MOVR R5, R7 ; 5061 00AF L_5062: PSHR R5 ; 5062 0275 JSR R5, L_54F0 ; 5063 0004 0154 00F0 JSR R5, L_54D0 ; 5066 0004 0154 00D0 DECLE $0001, $0216, $003E, $003E ; 5069 0001 0216 003E 003E DECLE $003E, $0020, $0053, $0044 ; 506D 003E 0020 0053 0044 DECLE $004B, $002D, $0031, $0036 ; 5071 004B 002D 0031 0036 DECLE $0030, $0030, $0020, $003C ; 5075 0030 0030 0020 003C DECLE $003C, $003C, $0020, $0020 ; 5079 003C 003C 0020 0020 DECLE $0020, $0020, $0020, $0020 ; 507D 0020 0020 0020 0020 DECLE $0020, $0020, $0070, $0072 ; 5081 0020 0020 0070 0072 DECLE $0065, $0073, $0065, $006E ; 5085 0065 0073 0065 006E DECLE $0074, $0073, $0000 ; 5089 0074 0073 0000 JSR R5, L_54D0 ; 508C 0004 0154 00D0 DECLE $0004, $027A, $0054, $0061 ; 508F 0004 027A 0054 0061 DECLE $0067, $002D, $0041, $006C ; 5093 0067 002D 0041 006C DECLE $006F, $006E, $0067, $0020 ; 5097 006F 006E 0067 0020 DECLE $0054, $006F, $0064, $0064 ; 509B 0054 006F 0064 0064 DECLE $0020, $0032, $0000 ; 509F 0020 0032 0000 JSR R5, L_54D0 ; 50A2 0004 0154 00D0 DECLE $0000, $02CB, $0043, $006F ; 50A5 0000 02CB 0043 006F DECLE $0070, $0079, $0072, $0069 ; 50A9 0070 0079 0072 0069 DECLE $0067, $0068, $0074, $0020 ; 50AD 0067 0068 0074 0020 DECLE $0032, $0030, $0030, $0032 ; 50B1 0032 0030 0030 0032 DECLE $0000 ; 50B5 0000 JSR R5, L_5883 ; 50B6 0004 0158 0083 DECLE $002B ; 50B9 002B CLRR R0 ; 50BA 01C0 MVO R0, .RAM.14 ; 50BB 0240 0114 MVII #$505B, R0 ; 50BD 02B8 505B MVO R0, .SYS.30 ; 50BF 0240 0320 MVO R7, .SYS.57 ; 50C1 0247 0347 MVII #$0321, R4 ; 50C3 02BC 0321 MVII #$0018, R1 ; 50C5 02B9 0018 JSR R5, L_54F4 ; 50C7 0004 0154 00F4 PULR R7 ; 50CA 02B7 DECLE $513B, $0000, $5184 ; 50CB 513B 0000 5184 L_50CE: PSHR R5 ; 50CE 0275 JSR R5, L_54F0 ; 50CF 0004 0154 00F0 JSR R5, L_54D0 ; 50D2 0004 0154 00D0 DECLE $0004, $0229, $0053, $006B ; 50D5 0004 0229 0053 006B DECLE $0069, $006C, $006C, $0020 ; 50D9 0069 006C 006C 0020 DECLE $006C, $0065, $0076, $0065 ; 50DD 006C 0065 0076 0065 DECLE $006C, $0020, $005B, $0031 ; 50E1 006C 0020 005B 0031 DECLE $002D, $0039, $005D, $003A ; 50E5 002D 0039 005D 003A DECLE $0000 ; 50E9 0000 JSR R5, L_54D0 ; 50EA 0004 0154 00D0 DECLE $0004, $0265, $0044, $0075 ; 50ED 0004 0265 0044 0075 DECLE $0072, $0061, $0074, $0069 ; 50F1 0072 0061 0074 0069 DECLE $006F, $006E, $0020, $0020 ; 50F5 006F 006E 0020 0020 DECLE $0020, $0020, $005B, $0031 ; 50F9 0020 0020 005B 0031 DECLE $002D, $0039, $005D, $003A ; 50FD 002D 0039 005D 003A DECLE $0000 ; 5101 0000 JSR R5, L_54D0 ; 5102 0004 0154 00D0 DECLE $0001, $0245, $0035, $0000 ; 5105 0001 0245 0035 0000 JSR R5, L_54D0 ; 5109 0004 0154 00D0 DECLE $0001, $0281, $0035, $0000 ; 510C 0001 0281 0035 0000 JSR R5, L_54D0 ; 5110 0004 0154 00D0 DECLE $0001, $02BC, $0047, $006F ; 5113 0001 02BC 0047 006F DECLE $0021, $0000 ; 5117 0021 0000 MVII #$00A0, R0 ; 5119 02B8 00A0 MVO R0, .SYS.5A ; 511B 0240 034A MVII #$0032, R0 ; 511D 02B8 0032 MVO R0, .RAM.1E ; 511F 0240 011E MVII #$0005, R0 ; 5121 02B8 0005 MVO R0, .SYS.58 ; 5123 0240 0348 MVO R0, .SYS.59 ; 5125 0240 0349 MVII #$003C, R0 ; 5127 02B8 003C MVO R0, .RAM.22 ; 5129 0240 0122 MVII #$50CB, R0 ; 512B 02B8 50CB MVO R0, .SYS.30 ; 512D 0240 0320 JSR R5, L_5750 ; 512F 0004 0154 0350 DECLE $0000, $51C2, $001E, $001E ; 5132 0000 51C2 001E 001E MVII #$0001, R0 ; 5136 02B8 0001 MVO R0, .RAM.14 ; 5138 0240 0114 PULR R7 ; 513A 02B7 ANDI #$00FF, R2 ; 513B 03BA 00FF CMPI #$0080, R2 ; 513D 037A 0080 BLT L_5142 ; 513F 0205 0001 L_5141: MOVR R5, R7 ; 5141 00AF L_5142: TSTR R2 ; 5142 0092 BEQ L_5141 ; 5143 0224 0003 CMPI #$000A, R2 ; 5145 037A 000A BEQ L_5141 ; 5147 0224 0007 BLT L_5161 ; 5149 0205 0016 MVI .RAM.22,R4 ; 514B 0284 0122 ADDI #$020C, R4 ; 514D 02FC 020C CLRR R0 ; 514F 01C0 MVO@ R0, R4 ; 5150 0260 MVI .RAM.22,R1 ; 5151 0281 0122 ADDI #$003C, R1 ; 5153 02F9 003C CMPI #$00B4, R1 ; 5155 0379 00B4 BGT L_57B4 ; 5157 020E 065B MVO R1, .RAM.22 ; 5159 0241 0122 ADDI #$020C, R1 ; 515B 02F9 020C MVII #$081E, R0 ; 515D 02B8 081E MVO@ R0, R1 ; 515F 0248 MOVR R5, R7 ; 5160 00AF L_5161: MVI .RAM.22,R4 ; 5161 0284 0122 CMPI #$0078, R4 ; 5163 037C 0078 BGT L_5141 ; 5165 022E 0025 BEQ L_5173 ; 5167 0204 000A MVO R2, .SYS.58 ; 5169 0242 0348 MOVR R2, R1 ; 516B 0091 SLL R1, 2 ; 516C 004D SLL R1, 2 ; 516D 004D SLL R1, 1 ; 516E 0049 MVO R1, .SYS.5A ; 516F 0241 034A B L_517B ; 5171 0200 0008 L_5173: MVO R2, .SYS.59 ; 5173 0242 0349 MOVR R2, R1 ; 5175 0091 SLL R1, 2 ; 5176 004D ADDR R2, R1 ; 5177 00D1 SLL R1, 1 ; 5178 0049 MVO R1, .RAM.1E ; 5179 0241 011E L_517B: ADDI #$0209, R4 ; 517B 02FC 0209 MOVR R2, R1 ; 517D 0091 SLL R1, 2 ; 517E 004D SLL R1, 1 ; 517F 0049 ADDI #$0081, R1 ; 5180 02F9 0081 MVO@ R1, R4 ; 5182 0261 MOVR R5, R7 ; 5183 00AF ANDI #$00FF, R2 ; 5184 03BA 00FF CMPI #$0080, R2 ; 5186 037A 0080 BLT L_518B ; 5188 0205 0001 L_518A: MOVR R5, R7 ; 518A 00AF L_518B: MVI .RAM.22,R0 ; 518B 0280 0122 MOVR R0, R1 ; 518D 0081 CMPI #$0002, R2 ; 518E 037A 0002 BLT L_518A ; 5190 0225 0007 CMPI #$000D, R2 ; 5192 037A 000D BGT L_518A ; 5194 022E 000B CMPI #$0005, R2 ; 5196 037A 0005 BLE L_51B0 ; 5198 0206 0016 CMPI #$000A, R2 ; 519A 037A 000A BLT L_518A ; 519C 0225 0013 ADDI #$003C, R0 ; 519E 02F8 003C CMPI #$00B4, R0 ; 51A0 0378 00B4 BGT L_518A ; 51A2 022E 0019 MVO R0, .RAM.22 ; 51A4 0240 0122 ADDI #$020C, R1 ; 51A6 02F9 020C CLRR R0 ; 51A8 01C0 MVO@ R0, R1 ; 51A9 0248 ADDI #$003C, R1 ; 51AA 02F9 003C MVII #$081E, R0 ; 51AC 02B8 081E MVO@ R0, R1 ; 51AE 0248 MOVR R5, R7 ; 51AF 00AF L_51B0: SUBI #$003C, R0 ; 51B0 0338 003C CMPI #$003C, R0 ; 51B2 0378 003C BLT L_518A ; 51B4 0225 002B MVO R0, .RAM.22 ; 51B6 0240 0122 ADDI #$020C, R1 ; 51B8 02F9 020C CLRR R0 ; 51BA 01C0 MVO@ R0, R1 ; 51BB 0248 SUBI #$003C, R1 ; 51BC 0339 003C MVII #$081E, R0 ; 51BE 02B8 081E MVO@ R0, R1 ; 51C0 0248 MOVR R5, R7 ; 51C1 00AF MVI .RAM.22,R1 ; 51C2 0281 0122 ADDI #$020C, R1 ; 51C4 02F9 020C MVII #$081E, R2 ; 51C6 02BA 081E XOR@ R1, R2 ; 51C8 03CA MVO@ R2, R1 ; 51C9 024A MOVR R5, R7 ; 51CA 00AF L_51CB: PSHR R5 ; 51CB 0275 JSR R5, L_5869 ; 51CC 0004 0158 0069 DECLE $002D ; 51CF 002D MVII #$0002, R1 ; 51D0 02B9 0002 MVO R1, .PSG0.chn_a_hi ; 51D2 0241 01F4 MVII #$0038, R1 ; 51D4 02B9 0038 MVO R1, .PSG0.chan_enable ; 51D6 0241 01F8 MVO R1, .PSG0.chn_a_vol ; 51D8 0241 01FB MVII #$00FF, R1 ; 51DA 02B9 00FF MVO R1, .PSG0.envlp_lo ; 51DC 0241 01F3 MVII #$003F, R1 ; 51DE 02B9 003F MVO R1, .PSG0.envlp_hi ; 51E0 0241 01F7 CLRR R1 ; 51E2 01C9 MVO R1, .PSG0.chn_a_lo ; 51E3 0241 01F0 MVO R1, .PSG0.envelope ; 51E5 0241 01FA JSR R5, L_54D0 ; 51E7 0004 0154 00D0 DECLE $0002, $0254, $0020, $0047 ; 51EA 0002 0254 0020 0047 DECLE $0041, $004D, $0045, $0020 ; 51EE 0041 004D 0045 0020 DECLE $004F, $0056, $0045, $0052 ; 51F2 004F 0056 0045 0052 DECLE $0021, $0020, $0000 ; 51F6 0021 0020 0000 JSR R5, L_54D0 ; 51F9 0004 0154 00D0 DECLE $0001, $027D, $0020, $0053 ; 51FC 0001 027D 0020 0053 DECLE $006B, $0069, $006C, $006C ; 5200 006B 0069 006C 006C DECLE $003A, $0020, $0020, $0000 ; 5204 003A 0020 0020 0000 MVI .SYS.58,R0 ; 5208 0280 0348 SLL R0, 2 ; 520A 004C SLL R0, 1 ; 520B 0048 ADDI #$0084, R0 ; 520C 02F8 0084 MVO@ R0, R4 ; 520E 0260 JSR R5, L_54D0 ; 520F 0004 0154 00D0 DECLE $0001, $0290, $0020, $004C ; 5212 0001 0290 0020 004C DECLE $0065, $006E, $0067, $0074 ; 5216 0065 006E 0067 0074 DECLE $0068, $003A, $0020, $0020 ; 521A 0068 003A 0020 0020 DECLE $0000 ; 521E 0000 MVI .SYS.59,R0 ; 521F 0280 0349 SLL R0, 2 ; 5221 004C SLL R0, 1 ; 5222 0048 ADDI #$0084, R0 ; 5223 02F8 0084 MVO@ R0, R4 ; 5225 0260 MVO R7, .SYS.57 ; 5226 0247 0347 MVII #$0321, R4 ; 5228 02BC 0321 MVII #$0018, R1 ; 522A 02B9 0018 JSR R5, L_54F4 ; 522C 0004 0154 00F4 JSR R5, L_5869 ; 522F 0004 0158 0069 DECLE $002E ; 5232 002E MVI .RAM.20,R0 ; 5233 0280 0120 JSR R5, L_58A5 ; 5235 0004 0158 00A5 JSR R5, L_5750 ; 5238 0004 0154 0350 DECLE $0000, $5247, $00F1, $00F1 ; 523B 0000 5247 00F1 00F1 CLRR R0 ; 523F 01C0 MVO R0, .SYS.30 ; 5240 0240 0320 MVII #$0001, R0 ; 5242 02B8 0001 MVO R0, .RAM.14 ; 5244 0240 0114 PULR R7 ; 5246 02B7 MVII #$505B, R0 ; 5247 02B8 505B MVO R0, .SYS.30 ; 5249 0240 0320 MOVR R5, R7 ; 524B 00AF L_524C: PSHR R5 ; 524C 0275 JSR R5, L_54F0 ; 524D 0004 0154 00F0 MVII #$2000, R0 ; 5250 02B8 2000 MVO R0, .BTAB.DC ; 5252 0240 02DC JSR R5, L_54D0 ; 5254 0004 0154 00D0 DECLE $0006, $02DD, $0054, $0069 ; 5257 0006 02DD 0054 0069 DECLE $006D, $0065, $003A, $0020 ; 525B 006D 0065 003A 0020 DECLE $0020, $0020, $0020, $0020 ; 525F 0020 0020 0020 0020 DECLE $0043, $0061, $006E, $0073 ; 5263 0043 0061 006E 0073 DECLE $003A, $0020, $0020, $0020 ; 5267 003A 0020 0020 0020 DECLE $0020, $0000 ; 526B 0020 0000 MVII #$0087, R0 ; 526D 02B8 0087 MVO R0, .BTAB.EE ; 526F 0240 02EE MVII #$530E, R0 ; 5271 02B8 530E MVO R0, .SYS.30 ; 5273 0240 0320 JSR R5, L_5750 ; 5275 0004 0154 0350 DECLE $0000, $5333, $0078, $0028 ; 5278 0000 5333 0078 0028 JSR R5, L_5750 ; 527C 0004 0154 0350 DECLE $0001, $52D4, $0002, $0078 ; 527F 0001 52D4 0002 0078 MVI .RAM.1E,R0 ; 5283 0280 011E INCR R0 ; 5285 0008 MVO R0, .RAM.1F ; 5286 0240 011F MVII #$0339, R4 ; 5288 02BC 0339 MVII #$000C, R1 ; 528A 02B9 000C JSR R5, L_54F4 ; 528C 0004 0154 00F4 MVII #$1000, R0 ; 528F 02B8 1000 MVO R0, .SYS.4B ; 5291 0240 033B MVO R0, .SYS.4E ; 5293 0240 033E MVII #$9B00, R0 ; 5295 02B8 9B00 MVO R0, .SYS.51 ; 5297 0240 0341 MVII #$5500, R0 ; 5299 02B8 5500 MVO R0, .SYS.54 ; 529B 0240 0344 MVI .SYS.5A,R0 ; 529D 0280 034A MVO R0, .SYS.5B ; 529F 0240 034B JSR R5, L_52B9 ; 52A1 0004 0150 02B9 CLRR R0 ; 52A4 01C0 MVO R0, .SYS.57 ; 52A5 0240 0347 MVO R0, .RAM.20 ; 52A7 0240 0120 JSR R5, L_5869 ; 52A9 0004 0158 0069 DECLE $002C ; 52AC 002C JSR R5, L_5869 ; 52AD 0004 0158 0069 DECLE $0004 ; 52B0 0004 JSR R5, L_5892 ; 52B1 0004 0158 0092 MVII #$0002, R0 ; 52B4 02B8 0002 MVO R0, .RAM.14 ; 52B6 0240 0114 PULR R7 ; 52B8 02B7 L_52B9: PSHR R5 ; 52B9 0275 MVII #$0814, R2 ; 52BA 02BA 0814 MVII #$000C, R1 ; 52BC 02B9 000C MVO R1, .RAM.21 ; 52BE 0241 0121 L_52C0: MVII #$0008, R0 ; 52C0 02B8 0008 JSR R5, L_553F ; 52C2 0004 0154 013F CMPI #$00DC, R0 ; 52C5 0378 00DC BGE L_52C0 ; 52C7 022D 0008 ADDI #$0200, R0 ; 52C9 02F8 0200 MOVR R0, R3 ; 52CB 0083 CMP@ R3, R2 ; 52CC 035A BEQ L_52C0 ; 52CD 0224 000E MVO@ R2, R3 ; 52CF 025A DECR R1 ; 52D0 0011 BNEQ L_52C0 ; 52D1 022C 0012 PULR R7 ; 52D3 02B7 MVI .SYS.5B,R0 ; 52D4 0280 034B INCR R0 ; 52D6 0008 MVO R0, .SYS.5B ; 52D7 0240 034B MVI .RAM.1F,R0 ; 52D9 0280 011F DECR R0 ; 52DB 0010 BMI L_57B4 ; 52DC 020B 04D6 MVO R0, .RAM.1F ; 52DE 0240 011F MVII #$0040, R1 ; 52E0 02B9 0040 MVO R1, .PSG0.chn_a_lo ; 52E2 0241 01F0 CLRR R1 ; 52E4 01C9 MVO R1, .PSG0.chn_a_hi ; 52E5 0241 01F4 MVII #$0038, R1 ; 52E7 02B9 0038 MVO R1, .PSG0.chan_enable ; 52E9 0241 01F8 MVO R1, .PSG0.chn_a_vol ; 52EB 0241 01FB MVII #$003F, R1 ; 52ED 02B9 003F MVO R1, .PSG0.envlp_lo ; 52EF 0241 01F3 CLRR R1 ; 52F1 01C9 MVO R1, .PSG0.envlp_hi ; 52F2 0241 01F7 MVO R1, .PSG0.envelope ; 52F4 0241 01FA MVII #$0003, R2 ; 52F6 02BA 0003 MVII #$0007, R3 ; 52F8 02BB 0007 MVII #$02E3, R4 ; 52FA 02BC 02E3 B L_5588 ; 52FC 0200 028A DECLE $0000, $00C3, $0169, $01D8 ; 52FE 0000 00C3 0169 01D8 DECLE $01FF, $01D8, $0169, $00C3 ; 5302 01FF 01D8 0169 00C3 DECLE $0000, $FF3D, $FE97, $FE28 ; 5306 0000 FF3D FE97 FE28 DECLE $FE01, $FE28, $FE97, $FF3D ; 530A FE01 FE28 FE97 FF3D DECLE $5311, $5312, $5313 ; 530E 5311 5312 5313 MOVR R5, R7 ; 5311 00AF MOVR R5, R7 ; 5312 00AF PSHR R5 ; 5313 0275 ANDI #$00FF, R2 ; 5314 03BA 00FF CMPI #$0080, R2 ; 5316 037A 0080 BLT L_5320 ; 5318 0205 0006 CLRR R0 ; 531A 01C0 MVO R0, .SYS.49 ; 531B 0240 0339 MVO R0, .SYS.4C ; 531D 0240 033C PULR R7 ; 531F 02B7 L_5320: MOVR R2, R1 ; 5320 0091 ADDI #$0004, R1 ; 5321 02F9 0004 ANDI #$000F, R1 ; 5323 03B9 000F ADDI #$52FE, R2 ; 5325 02FA 52FE ADDI #$52FE, R1 ; 5327 02F9 52FE MVI@ R2, R2 ; 5329 0292 MVI@ R1, R1 ; 532A 0289 NEGR R2 ; 532B 0022 SARC R1, 1 ; 532C 0079 SARC R2, 1 ; 532D 007A MVO R2, .SYS.4C ; 532E 0242 033C MVO R1, .SYS.49 ; 5330 0241 0339 PULR R7 ; 5332 02B7 CLRR R0 ; 5333 01C0 CLRR R1 ; 5334 01C9 MVI .SYS.4B,R2 ; 5335 0282 033B MVI .SYS.51,R3 ; 5337 0283 0341 SLR R2, 2 ; 5339 0066 SLR R3, 2 ; 533A 0067 CMPR R3, R2 ; 533B 015A BEQ L_5343 ; 533C 0204 0005 MVI .SYS.5B,R0 ; 533E 0280 034B BGT L_5343 ; 5340 020E 0001 NEGR R0 ; 5342 0020 L_5343: SUBR R3, R2 ; 5343 011A BPL L_5347 ; 5344 0203 0001 NEGR R2 ; 5346 0022 L_5347: CMPI #$0002, R2 ; 5347 037A 0002 BGE L_534C ; 5349 020D 0001 CLRR R0 ; 534B 01C0 L_534C: MVI .SYS.4E,R2 ; 534C 0282 033E MVI .SYS.54,R3 ; 534E 0283 0344 SLR R2, 2 ; 5350 0066 SLR R3, 2 ; 5351 0067 CMPR R3, R2 ; 5352 015A BEQ L_535A ; 5353 0204 0005 MVI .SYS.5B,R1 ; 5355 0281 034B BGT L_535A ; 5357 020E 0001 NEGR R1 ; 5359 0021 L_535A: SUBR R3, R2 ; 535A 011A BPL L_535E ; 535B 0203 0001 NEGR R2 ; 535D 0022 L_535E: CMPI #$0002, R2 ; 535E 037A 0002 BGE L_5363 ; 5360 020D 0001 CLRR R1 ; 5362 01C9 L_5363: MVO R0, .SYS.4F ; 5363 0240 033F MVO R1, .SYS.52 ; 5365 0241 0342 MOVR R5, R7 ; 5367 00AF PSHR R5 ; 5368 0275 JSR R5, L_5410 ; 5369 0004 0154 0010 DECLE $0339 ; 536C 0339 INCR R3 ; 536D 000B ADD@ R3, R0 ; 536E 02D8 JSR R5, L_541C ; 536F 0004 0154 001C MVO@ R0, R3 ; 5372 0258 JSR R5, L_5410 ; 5373 0004 0154 0010 DECLE $033C ; 5376 033C INCR R3 ; 5377 000B ADD@ R3, R0 ; 5378 02D8 JSR R5, L_542A ; 5379 0004 0154 002A MVO@ R0, R3 ; 537C 0258 JSR R5, L_5410 ; 537D 0004 0154 0010 DECLE $033F ; 5380 033F INCR R3 ; 5381 000B ADD@ R3, R0 ; 5382 02D8 JSR R5, L_541C ; 5383 0004 0154 001C MVO@ R0, R3 ; 5386 0258 JSR R5, L_5410 ; 5387 0004 0154 0010 DECLE $0342 ; 538A 0342 INCR R3 ; 538B 000B ADD@ R3, R0 ; 538C 02D8 JSR R5, L_542A ; 538D 0004 0154 002A MVO@ R0, R3 ; 5390 0258 MVII #$540A, R4 ; 5391 02BC 540A MVII #$0321, R5 ; 5393 02BD 0321 MVI .SYS.4B,R0 ; 5395 0280 033B SWAP R0, 1 ; 5397 0040 ANDI #$00FF, R0 ; 5398 03B8 00FF XOR@ R4, R0 ; 539A 03E0 MVO@ R0, R5 ; 539B 0268 MVI .SYS.51,R0 ; 539C 0280 0341 SWAP R0, 1 ; 539E 0040 ANDI #$00FF, R0 ; 539F 03B8 00FF XOR@ R4, R0 ; 53A1 03E0 MVO@ R0, R5 ; 53A2 0268 ADDI #$0006, R5 ; 53A3 02FD 0006 MVI .SYS.4E,R0 ; 53A5 0280 033E SWAP R0, 1 ; 53A7 0040 ANDI #$007F, R0 ; 53A8 03B8 007F XOR@ R4, R0 ; 53AA 03E0 MVO@ R0, R5 ; 53AB 0268 MVI .SYS.54,R0 ; 53AC 0280 0344 SWAP R0, 1 ; 53AE 0040 ANDI #$007F, R0 ; 53AF 03B8 007F XOR@ R4, R0 ; 53B1 03E0 MVO@ R0, R5 ; 53B2 0268 ADDI #$0006, R5 ; 53B3 02FD 0006 MVI@ R4, R0 ; 53B5 02A0 MVO@ R0, R5 ; 53B6 0268 MVI@ R4, R0 ; 53B7 02A0 MVO@ R0, R5 ; 53B8 0268 CLRR R0 ; 53B9 01C0 MVO R0, .SYS.57 ; 53BA 0240 0347 MVI .SYS.4E,R1 ; 53BC 0281 033E SWAP R1, 1 ; 53BE 0041 SUBI #$0004, R1 ; 53BF 0339 0004 ANDI #$00F8, R1 ; 53C1 03B9 00F8 MOVR R1, R2 ; 53C3 008A ADDR R1, R2 ; 53C4 00CA SLR R1, 1 ; 53C5 0061 ADDR R1, R2 ; 53C6 00CA MVI .SYS.4B,R1 ; 53C7 0281 033B SWAP R1, 1 ; 53C9 0041 SUBI #$0004, R1 ; 53CA 0339 0004 ANDI #$00F8, R1 ; 53CC 03B9 00F8 SLR R1, 2 ; 53CE 0065 SLR R1, 1 ; 53CF 0061 ADDR R1, R2 ; 53D0 00CA ADDI #$0200, R2 ; 53D1 02FA 0200 MVI@ R2, R1 ; 53D3 0291 CMPI #$0814, R1 ; 53D4 0379 0814 BNEQ L_53F2 ; 53D6 020C 001A CLRR R1 ; 53D8 01C9 MVO@ R1, R2 ; 53D9 0251 MVI .RAM.20,R0 ; 53DA 0280 0120 INCR R0 ; 53DC 0008 MVO R0, .RAM.20 ; 53DD 0240 0120 MVII #$02EC, R4 ; 53DF 02BC 02EC MVII #$0002, R2 ; 53E1 02BA 0002 MVII #$8007, R3 ; 53E3 02BB 8007 JSR R5, L_5586 ; 53E5 0004 0154 0186 MVI .RAM.21,R0 ; 53E8 0280 0121 DECR R0 ; 53EA 0010 MVO R0, .RAM.21 ; 53EB 0240 0121 BNEQ L_53F2 ; 53ED 020C 0003 JSR R5, L_52B9 ; 53EF 0004 0150 02B9 L_53F2: MVI .SYS.4B,R0 ; 53F2 0280 033B SUB .SYS.51,R0 ; 53F4 0300 0341 ADCR R7 ; 53F6 002F NEGR R0 ; 53F7 0020 L_53F8: CMPI #$0400, R0 ; 53F8 0378 0400 BC L_5409 ; 53FA 0201 000D MVI .SYS.4E,R0 ; 53FC 0280 033E SUB .SYS.54,R0 ; 53FE 0300 0344 ADCR R7 ; 5400 002F NEGR R0 ; 5401 0020 L_5402: CMPI #$0400, R0 ; 5402 0378 0400 BC L_5409 ; 5404 0201 0003 PULR R5 ; 5406 02B5 B L_57B4 ; 5407 0200 03AB L_5409: PULR R7 ; 5409 02B7 DECLE $0200, $0200, $0080, $0080 ; 540A 0200 0200 0080 0080 DECLE $0801, $0802 ; 540E 0801 0802 L_5410: MVI@ R5, R3 ; 5410 02AB MVI@ R3, R0 ; 5411 0298 INCR R3 ; 5412 000B SUB@ R3, R0 ; 5413 0318 BMI L_5418 ; 5414 020B 0002 ADDI #$0003, R0 ; 5416 02F8 0003 L_5418: SARC R0, 2 ; 5418 007C ADD@ R3, R0 ; 5419 02D8 MVO@ R0, R3 ; 541A 0258 MOVR R5, R7 ; 541B 00AF L_541C: CMPI #$0900, R0 ; 541C 0378 0900 BC L_5423 ; 541E 0201 0003 MVII #$0900, R0 ; 5420 02B8 0900 MOVR R5, R7 ; 5422 00AF L_5423: CMPI #$9F00, R0 ; 5423 0378 9F00 BNC L_5429 ; 5425 0209 0002 MVII #$9F00, R0 ; 5427 02B8 9F00 L_5429: MOVR R5, R7 ; 5429 00AF L_542A: CMPI #$0900, R0 ; 542A 0378 0900 BC L_5431 ; 542C 0201 0003 MVII #$0900, R0 ; 542E 02B8 0900 MOVR R5, R7 ; 5430 00AF L_5431: CMPI #$5700, R0 ; 5431 0378 5700 BNC L_5437 ; 5433 0209 0002 MVII #$5700, R0 ; 5435 02B8 5700 L_5437: MOVR R5, R7 ; 5437 00AF MVO R0, .STIC.VIDEN ; 5438 0240 0020 MVI .STIC.MODE,R0 ; 543A 0280 0021 MVII #$0008, R0 ; 543C 02B8 0008 MVO R0, .STIC.CS.0 ; 543E 0240 0028 MVII #$0001, R0 ; 5440 02B8 0001 MVO R0, .STIC.CS.1 ; 5442 0240 0029 MVO R0, .STIC.BORD ; 5444 0240 002C JSR R5, L_54FA ; 5446 0004 0154 00FA DECLE $0000, $0321, $0018, $0280 ; 5449 0000 0321 0018 0280 DECLE $0347, $0080, $020C, $0007 ; 544D 0347 0080 020C 0007 MVO R7, .SYS.57 ; 5451 0247 0347 MVII #$5368, R0 ; 5453 02B8 5368 JSRD R5, L_579D ; 5455 0004 0156 039D DECLE $0004, $0154, $03EB ; 5458 0004 0154 03EB MVII #$1014, R5 ; 545B 02BD 1014 B L_5719 ; 545D 0200 02BA PSHR R5 ; 545F 0275 JSR R5, L_551D ; 5460 0004 0154 011D DECLE $3800, $546E, $0010 ; 5463 3800 546E 0010 MVII #$5438, R0 ; 5466 02B8 5438 MVO R0, .ISRVEC.0 ; 5468 0240 0100 SWAP R0, 1 ; 546A 0040 MVO R0, .ISRVEC.1 ; 546B 0240 0101 PULR R7 ; 546D 02B7 DECLE $3810, $1038, $7C10, $BABA ; 546E 3810 1038 7C10 BABA DECLE $BABA, $2838, $2828, $6C28 ; 5472 BABA 2838 2828 6C28 DECLE $0000, $8870, $3E7C, $001C ; 5476 0000 8870 3E7C 001C DECLE $0000, $6030, $60FF, $0030 ; 547A 0000 6030 60FF 0030 DECLE $5482, $54AC, $54B9, $54C3 ; 547E 5482 54AC 54B9 54C3 DECLE $5B97, $5C81, $0004, $5E93 ; 5482 5B97 5C81 0004 5E93 DECLE $0005, $59A8, $5AD7, $59CE ; 5486 0005 59A8 5AD7 59CE DECLE $5A26, $5BB1, $0004, $5CCA ; 548A 5A26 5BB1 0004 5CCA DECLE $5CDA, $5B66, $5E93, $5E82 ; 548E 5CDA 5B66 5E93 5E82 DECLE $5A26, $5C1C, $5D39, $5D27 ; 5492 5A26 5C1C 5D39 5D27 DECLE $5D27, $0004, $5D49, $5979 ; 5496 5D27 0004 5D49 5979 DECLE $5B21, $0005, $5979, $5BE6 ; 549A 5B21 0005 5979 5BE6 DECLE $5911, $5C08, $5B0F, $0004 ; 549E 5911 5C08 5B0F 0004 DECLE $5D49, $5911, $5911, $0005 ; 54A2 5D49 5911 5911 0005 DECLE $59DE, $0004, $5D49, $5D7A ; 54A6 59DE 0004 5D49 5D7A DECLE $0004, $0000, $5BE6, $5A26 ; 54AA 0004 0000 5BE6 5A26 DECLE $5A26, $0005, $5D49, $5D27 ; 54AE 5A26 0005 5D49 5D27 DECLE $0004, $5CCA, $5BE6, $5A26 ; 54B2 0004 5CCA 5BE6 5A26 DECLE $5AD7, $0004, $0000, $0001 ; 54B6 5AD7 0004 0000 0001 DECLE $5B21, $5AD7, $5BF7, $0004 ; 54BA 5B21 5AD7 5BF7 0004 DECLE $5C81, $5D94, $5A4F, $0001 ; 54BE 5C81 5D94 5A4F 0001 DECLE $0000, $5AF4, $5985, $5C34 ; 54C2 0000 5AF4 5985 5C34 DECLE $5979, $5BE6, $0004, $5D27 ; 54C6 5979 5BE6 0004 5D27 DECLE $5D27, $0005, $5BD0, $5C60 ; 54CA 5D27 0005 5BD0 5C60 DECLE $0003, $0000 ; 54CE 0003 0000 L_54D0: MVI@ R5, R1 ; 54D0 02A9 MVI@ R5, R4 ; 54D1 02AC B L_54DB ; 54D2 0200 0007 MVI@ R5, R1 ; 54D4 02A9 MVI@ R5, R4 ; 54D5 02AC MVI@ R5, R0 ; 54D6 02A8 PSHR R5 ; 54D7 0275 MOVR R0, R5 ; 54D8 0085 SETC ; 54D9 0007 INCR R7 ; 54DA 000F L_54DB: CLRC ; 54DB 0006 L_54DC: SLL R1, 1 ; 54DC 0049 RRC R1, 1 ; 54DD 0071 B L_54E6 ; 54DE 0200 0006 L_54E0: SUBI #$0020, R0 ; 54E0 0338 0020 SLL R0, 2 ; 54E2 004C SLL R0, 1 ; 54E3 0048 ADDR R1, R0 ; 54E4 00C8 MVO@ R0, R4 ; 54E5 0260 L_54E6: MVI@ R5, R0 ; 54E6 02A8 TSTR R0 ; 54E7 0080 BNEQ L_54E0 ; 54E8 022C 0009 SLLC R1, 1 ; 54EA 0059 ADCR R0 ; 54EB 0028 SLR R1, 1 ; 54EC 0061 ADDR R0, R7 ; 54ED 00C7 MOVR R5, R7 ; 54EE 00AF PULR R7 ; 54EF 02B7 L_54F0: MVII #$00F0, R1 ; 54F0 02B9 00F0 MVII #$0200, R4 ; 54F2 02BC 0200 L_54F4: CLRR R0 ; 54F4 01C0 L_54F5: MVO@ R0, R4 ; 54F5 0260 DECR R1 ; 54F6 0011 BNEQ L_54F5 ; 54F7 022C 0003 MOVR R5, R7 ; 54F9 00AF L_54FA: MVI@ R5, R4 ; 54FA 02AC MVI@ R5, R1 ; 54FB 02A9 MVI@ R5, R0 ; 54FC 02A8 PSHR R5 ; 54FD 0275 MOVR R1, R5 ; 54FE 008D MOVR R0, R1 ; 54FF 0081 SLR R0, 2 ; 5500 0064 SLR R0, 1 ; 5501 0060 ANDI #$0007, R1 ; 5502 03B9 0007 ADDR R1, R1 ; 5504 00C9 SUBI #$5519, R1 ; 5505 0339 5519 NEGR R1 ; 5507 0021 MOVR R1, R7 ; 5508 008F L_5509: MVI@ R5, R1 ; 5509 02A9 MVO@ R1, R4 ; 550A 0261 MVI@ R5, R1 ; 550B 02A9 MVO@ R1, R4 ; 550C 0261 MVI@ R5, R1 ; 550D 02A9 MVO@ R1, R4 ; 550E 0261 MVI@ R5, R1 ; 550F 02A9 MVO@ R1, R4 ; 5510 0261 MVI@ R5, R1 ; 5511 02A9 MVO@ R1, R4 ; 5512 0261 MVI@ R5, R1 ; 5513 02A9 MVO@ R1, R4 ; 5514 0261 MVI@ R5, R1 ; 5515 02A9 MVO@ R1, R4 ; 5516 0261 MVI@ R5, R1 ; 5517 02A9 MVO@ R1, R4 ; 5518 0261 DECR R0 ; 5519 0010 BPL L_5509 ; 551A 0223 0012 PULR R7 ; 551C 02B7 L_551D: MVI@ R5, R4 ; 551D 02AC MVI@ R5, R1 ; 551E 02A9 MVI@ R5, R0 ; 551F 02A8 PSHR R5 ; 5520 0275 MOVR R1, R5 ; 5521 008D MOVR R0, R1 ; 5522 0081 SLR R0, 2 ; 5523 0064 ANDI #$0003, R1 ; 5524 03B9 0003 SLL R1, 2 ; 5526 004D SUBI #$553B, R1 ; 5527 0339 553B NEGR R1 ; 5529 0021 MOVR R1, R7 ; 552A 008F L_552B: MVI@ R5, R1 ; 552B 02A9 MVO@ R1, R4 ; 552C 0261 SWAP R1, 1 ; 552D 0041 MVO@ R1, R4 ; 552E 0261 MVI@ R5, R1 ; 552F 02A9 MVO@ R1, R4 ; 5530 0261 SWAP R1, 1 ; 5531 0041 MVO@ R1, R4 ; 5532 0261 MVI@ R5, R1 ; 5533 02A9 MVO@ R1, R4 ; 5534 0261 SWAP R1, 1 ; 5535 0041 MVO@ R1, R4 ; 5536 0261 MVI@ R5, R1 ; 5537 02A9 MVO@ R1, R4 ; 5538 0261 SWAP R1, 1 ; 5539 0041 MVO@ R1, R4 ; 553A 0261 DECR R0 ; 553B 0010 BPL L_552B ; 553C 0223 0012 PULR R7 ; 553E 02B7 L_553F: PSHR R5 ; 553F 0275 PSHR R4 ; 5540 0274 PSHR R3 ; 5541 0273 PSHR R2 ; 5542 0272 PSHR R1 ; 5543 0271 MVII #$0001, R1 ; 5544 02B9 0001 TSTR R0 ; 5546 0080 BEQ L_5566 ; 5547 0204 001D MVII #$04C1, R5 ; 5549 02BD 04C1 MVII #$1DB7, R4 ; 554B 02BC 1DB7 MVI .SYS.55,R3 ; 554D 0283 0345 MVI .SYS.56,R2 ; 554F 0282 0346 TSTR R3 ; 5551 009B BNEQ L_5558 ; 5552 020C 0004 TSTR R2 ; 5554 0092 SETC ; 5555 0007 BEQ L_555A ; 5556 0204 0002 L_5558: SLLC R2, 1 ; 5558 005A RLC R3, 1 ; 5559 0053 L_555A: SLL R1, 1 ; 555A 0049 BNC L_555F ; 555B 0209 0002 XORR R4, R2 ; 555D 01E2 XORR R5, R3 ; 555E 01EB L_555F: DECR R0 ; 555F 0010 BNEQ L_5558 ; 5560 022C 0009 MVO R3, .SYS.55 ; 5562 0243 0345 MVO R2, .SYS.56 ; 5564 0242 0346 L_5566: DECR R1 ; 5566 0011 ANDR R1, R2 ; 5567 018A MOVR R2, R0 ; 5568 0090 PULR R1 ; 5569 02B1 PULR R2 ; 556A 02B2 PULR R3 ; 556B 02B3 PULR R4 ; 556C 02B4 PULR R7 ; 556D 02B7 DECLE $00A0, $0086, $0001, $0000 ; 556E 00A0 0086 0001 0000 DECLE $0010, $0027, $0000, $0000 ; 5572 0010 0027 0000 0000 DECLE $00E8, $0003, $0000, $0000 ; 5576 00E8 0003 0000 0000 DECLE $0064, $0000, $0000, $0000 ; 557A 0064 0000 0000 0000 DECLE $000A, $0000, $0000, $0000 ; 557E 000A 0000 0000 0000 DECLE $0001, $0000, $0000, $0000 ; 5582 0001 0000 0000 0000 L_5586: SETC ; 5586 0007 INCR R7 ; 5587 000F L_5588: CLRC ; 5588 0006 L_5589: SLL R3, 1 ; 5589 004B RRC R3, 1 ; 558A 0073 CLRR R1 ; 558B 01C9 PSHR R5 ; 558C 0275 MOVR R7, R5 ; 558D 00BD SUBI #$001C, R5 ; 558E 033D 001C MVO R4, .RAM.1C ; 5590 0244 011C MVO R2, .RAM.1D ; 5592 0242 011D MVII #$0005, R4 ; 5594 02BC 0005 MOVR R1, R2 ; 5596 008A INCR R7 ; 5597 000F L_5598: CLRR R2 ; 5598 01D2 L_5599: SDBD ; 5599 0001 MVI@ R5, R1 ; 559A 02A9 ADDI #$0002, R5 ; 559B 02FD 0002 L_559D: INCR R2 ; 559D 000A SUBR R1, R0 ; 559E 0108 BC L_559D ; 559F 0221 0003 ADDR R1, R0 ; 55A1 00C8 DECR R2 ; 55A2 0012 BNEQ L_55A8 ; 55A3 020C 0003 TSTR R3 ; 55A5 009B BMI L_55B3 ; 55A6 020B 000B L_55A8: SLL R3, 1 ; 55A8 004B SLR R3, 1 ; 55A9 0063 MVI .RAM.1D,R1 ; 55AA 0281 011D DECR R1 ; 55AC 0011 BMI L_55BD ; 55AD 020B 000E MVO R1, .RAM.1D ; 55AF 0241 011D B L_55CA ; 55B1 0200 0017 L_55B3: MOVR R3, R2 ; 55B3 009A MVI .RAM.1D,R1 ; 55B4 0281 011D DECR R1 ; 55B6 0011 BMI L_55C2 ; 55B7 020B 0009 MVO R1, .RAM.1D ; 55B9 0241 011D B L_55CA ; 55BB 0200 000D L_55BD: ADDI #$0010, R2 ; 55BD 02FA 0010 SLL R2, 2 ; 55BF 004E ADDR R2, R2 ; 55C0 00D2 XORR R3, R2 ; 55C1 01DA L_55C2: MVI .RAM.1C,R1 ; 55C2 0281 011C XORI #$0200, R1 ; 55C4 03F9 0200 MVO@ R2, R1 ; 55C6 024A INCR R1 ; 55C7 0009 MVO R1, .RAM.1C ; 55C8 0241 011C L_55CA: DECR R4 ; 55CA 0014 BNEQ L_5598 ; 55CB 022C 0034 MVI .RAM.1C,R4 ; 55CD 0284 011C MVI .RAM.1D,R2 ; 55CF 0282 011D PULR R7 ; 55D1 02B7 TSTR R0 ; 55D2 0080 BNEQ L_5586 ; 55D3 022C 004E MVII #$0005, R1 ; 55D5 02B9 0005 SUBR R2, R1 ; 55D7 0111 BLE L_55E6 ; 55D8 0206 000C ADDI #$0200, R4 ; 55DA 02FC 0200 INCR R7 ; 55DC 000F L_55DD: MVO@ R3, R4 ; 55DD 0263 L_55DE: DECR R1 ; 55DE 0011 BNEQ L_55DD ; 55DF 022C 0003 XORI #$0080, R3 ; 55E1 03FB 0080 MVO@ R3, R4 ; 55E3 0263 XORI #$0080, R3 ; 55E4 03FB 0080 L_55E6: MOVR R5, R7 ; 55E6 00AF L_55E7: PSHR R5 ; 55E7 0275 MVII #$01FE, R1 ; 55E8 02B9 01FE MVII #$0119, R2 ; 55EA 02BA 0119 JSR R5, L_55F4 ; 55EC 0004 0154 01F4 MVII #$01FF, R1 ; 55EF 02B9 01FF MVII #$0116, R2 ; 55F1 02BA 0116 INCR R7 ; 55F3 000F L_55F4: PSHR R5 ; 55F4 0275 L_55F5: MVI@ R1, R0 ; 55F5 0288 CMP@ R2, R0 ; 55F6 0350 BEQ L_5602 ; 55F7 0204 0009 MVO@ R0, R2 ; 55F9 0250 INCR R2 ; 55FA 000A MVII #$0007, R3 ; 55FB 02BB 0007 AND@ R2, R3 ; 55FD 0393 XORI #$0060, R3 ; 55FE 03FB 0060 MVO@ R3, R2 ; 5600 0253 PULR R7 ; 5601 02B7 L_5602: INCR R2 ; 5602 000A MVI@ R2, R3 ; 5603 0293 SUBI #$0008, R3 ; 5604 033B 0008 BMI L_560D ; 5606 020B 0005 MVO@ R3, R2 ; 5608 0253 CMPI #$0008, R3 ; 5609 037B 0008 BLE L_560E ; 560B 0206 0001 L_560D: PULR R7 ; 560D 02B7 L_560E: INCR R2 ; 560E 000A MOVR R0, R4 ; 560F 0084 XORI #$00FF, R4 ; 5610 03FC 00FF CMP@ R2, R4 ; 5612 0354 BEQ L_560D ; 5613 0224 0007 PSHR R0 ; 5615 0270 ANDI #$0007, R3 ; 5616 03BB 0007 MOVR R3, R4 ; 5618 009C ANDI #$0001, R4 ; 5619 03BC 0001 BEQ L_5641 ; 561B 0204 0024 MVII #$001F, R4 ; 561D 02BC 001F ANDR R0, R4 ; 561F 0184 CMPI #$001F, R4 ; 5620 037C 001F BNEQ L_562C ; 5622 020C 0008 L_5624: XORI #$0001, R3 ; 5624 03FB 0001 JSR R5, L_5709 ; 5626 0004 0154 0309 DECLE $0002 ; 5629 0002 B L_5641 ; 562A 0200 0015 L_562C: MOVR R0, R4 ; 562C 0084 AND@ R2, R4 ; 562D 0394 BNEQ L_5641 ; 562E 020C 0011 MOVR R3, R4 ; 5630 009C ANDI #$0002, R4 ; 5631 03BC 0002 BNEQ L_5641 ; 5633 020C 000C MOVR R0, R4 ; 5635 0084 XORI #$00FF, R4 ; 5636 03FC 00FF MVII #$5677, R5 ; 5638 02BD 5677 L_563A: CMP@ R5, R4 ; 563A 036C BEQ L_5624 ; 563B 0224 0018 CMPI #$5683, R5 ; 563D 037D 5683 BNEQ L_563A ; 563F 022C 0006 L_5641: MOVR R3, R4 ; 5641 009C ANDI #$0002, R4 ; 5642 03BC 0002 BEQ L_5654 ; 5644 0204 000E MOVR R0, R4 ; 5646 0084 AND@ R2, R4 ; 5647 0394 ANDI #$00E0, R4 ; 5648 03BC 00E0 BEQ L_565F ; 564A 0204 0013 XORI #$0002, R3 ; 564C 03FB 0002 JSR R5, L_5709 ; 564E 0004 0154 0309 DECLE $0001 ; 5651 0001 B L_565F ; 5652 0200 000B L_5654: MOVR R3, R4 ; 5654 009C ANDI #$0004, R4 ; 5655 03BC 0004 BEQ L_565F ; 5657 0204 0006 XORI #$0004, R3 ; 5659 03FB 0004 JSR R5, L_5709 ; 565B 0004 0154 0309 DECLE $0000 ; 565E 0000 L_565F: PULR R0 ; 565F 02B0 MVI@ R2, R4 ; 5660 0294 MVO R4, .RAM.15 ; 5661 0244 0115 XORI #$00FF, R0 ; 5663 03F8 00FF MVO@ R0, R2 ; 5665 0250 BNEQ L_566C ; 5666 020C 0004 DECR R2 ; 5668 0012 MVO@ R0, R2 ; 5669 0250 B L_5676 ; 566A 0200 000A L_566C: DECR R2 ; 566C 0012 MVO@ R3, R2 ; 566D 0253 ANDI #$0007, R3 ; 566E 03BB 0007 BEQ L_5696 ; 5670 0204 0024 ANDI #$0004, R3 ; 5672 03BB 0004 BEQ L_56A5 ; 5674 0204 002F L_5676: PULR R7 ; 5676 02B7 DECLE $0028, $0088, $0024, $0044 ; 5677 0028 0088 0024 0044 DECLE $0084, $0022, $0042, $0082 ; 567B 0084 0022 0042 0082 DECLE $0021, $0041, $0081, $0048 ; 567F 0021 0041 0081 0048 DECLE $00C0, $0060, $00A0, $0012 ; 5683 00C0 0060 00A0 0012 DECLE $0013, $0003, $0001, $0011 ; 5687 0013 0003 0001 0011 DECLE $0019, $0009, $0008, $0018 ; 568B 0019 0009 0008 0018 DECLE $001C, $000C, $0004 ; 568F 001C 000C 0004 DECR R4 ; 5692 0014 DECR R6 ; 5693 0016 CLRC ; 5694 0006 EIS ; 5695 0002 L_5696: MOVR R0, R4 ; 5696 0084 ANDI #$0010, R4 ; 5697 03BC 0010 BNEQ L_56A5 ; 5699 020C 000A MVII #$5677, R4 ; 569B 02BC 5677 MVII #$000B, R5 ; 569D 02BD 000B L_569F: CMP@ R4, R0 ; 569F 0360 BEQ L_56D1 ; 56A0 0204 002F DECR R5 ; 56A2 0015 BPL L_569F ; 56A3 0223 0005 L_56A5: MVI@ R2, R3 ; 56A5 0293 ANDI #$0002, R3 ; 56A6 03BB 0002 BNEQ L_56B7 ; 56A8 020C 000D MVII #$5683, R4 ; 56AA 02BC 5683 MOVR R0, R3 ; 56AC 0083 ANDI #$00E0, R3 ; 56AD 03BB 00E0 MVII #$0003, R5 ; 56AF 02BD 0003 L_56B1: CMP@ R4, R3 ; 56B1 0363 BEQ L_56DA ; 56B2 0204 0026 DECR R5 ; 56B4 0015 BPL L_56B1 ; 56B5 0223 0005 L_56B7: MVI@ R2, R3 ; 56B7 0293 ANDI #$0001, R3 ; 56B8 03BB 0001 BEQ L_56C3 ; 56BA 0204 0007 MVI .RAM.15,R3 ; 56BC 0283 0115 XORR R0, R3 ; 56BE 01C3 ANDI #$001F, R3 ; 56BF 03BB 001F BEQ L_56D0 ; 56C1 0204 000D L_56C3: MVII #$5686, R4 ; 56C3 02BC 5686 MOVR R0, R3 ; 56C5 0083 ANDI #$001F, R3 ; 56C6 03BB 001F MVII #$000F, R5 ; 56C8 02BD 000F L_56CA: CMP@ R4, R3 ; 56CA 0363 BEQ L_56ED ; 56CB 0204 0020 DECR R5 ; 56CD 0015 BPL L_56CA ; 56CE 0223 0005 L_56D0: PULR R7 ; 56D0 02B7 L_56D1: MVI@ R2, R0 ; 56D1 0290 ANDI #$00FB, R0 ; 56D2 03B8 00FB XORI #$0004, R0 ; 56D4 03F8 0004 MVO@ R0, R2 ; 56D6 0250 CLRR R4 ; 56D7 01E4 B L_56F5 ; 56D8 0200 001B L_56DA: MVII #$56B7, R4 ; 56DA 02BC 56B7 PSHR R4 ; 56DC 0274 PSHR R0 ; 56DD 0270 PSHR R1 ; 56DE 0271 PSHR R2 ; 56DF 0272 MVII #$5715, R0 ; 56E0 02B8 5715 PSHR R0 ; 56E2 0270 MVI@ R2, R0 ; 56E3 0290 ANDI #$00FD, R0 ; 56E4 03B8 00FD XORI #$0002, R0 ; 56E6 03F8 0002 MVO@ R0, R2 ; 56E8 0250 MVII #$0001, R4 ; 56E9 02BC 0001 B L_56F5 ; 56EB 0200 0008 L_56ED: MVI@ R2, R0 ; 56ED 0290 ANDI #$00FE, R0 ; 56EE 03B8 00FE XORI #$0001, R0 ; 56F0 03F8 0001 MVO@ R0, R2 ; 56F2 0250 MVII #$0002, R4 ; 56F3 02BC 0002 L_56F5: SARC R1, 1 ; 56F5 0079 BC L_56FA ; 56F6 0201 0002 XORI #$0100, R5 ; 56F8 03FD 0100 L_56FA: MVI .SYS.30,R2 ; 56FA 0282 0320 TSTR R2 ; 56FC 0092 BEQ L_5676 ; 56FD 0224 0088 ADDR R4, R2 ; 56FF 00E2 MVI@ R2, R0 ; 5700 0290 TSTR R0 ; 5701 0080 BEQ L_5676 ; 5702 0224 008D MOVR R5, R1 ; 5704 00A9 PULR R5 ; 5705 02B5 JD L_579D ; 5706 0004 0356 039D L_5709: MVI@ R5, R4 ; 5709 02AC PSHR R5 ; 570A 0275 PSHR R0 ; 570B 0270 MVII #$0080, R5 ; 570C 02BD 0080 PSHR R1 ; 570E 0271 PSHR R2 ; 570F 0272 MVII #$5715, R0 ; 5710 02B8 5715 PSHR R0 ; 5712 0270 B L_56F5 ; 5713 0220 001F PULR R2 ; 5715 02B2 PULR R1 ; 5716 02B1 PULR R0 ; 5717 02B0 PULR R7 ; 5718 02B7 L_5719: PSHR R5 ; 5719 0275 MVI .RAM.14,R0 ; 571A 0280 0114 TSTR R0 ; 571C 0080 BEQ L_574F ; 571D 0204 0030 MVII #$031A, R3 ; 571F 02BB 031A L_5721: MVI@ R3, R1 ; 5721 0299 TSTR R1 ; 5722 0089 BLE L_574A ; 5723 0206 0025 SUBI #$0002, R1 ; 5725 0339 0002 BNEQ L_572D ; 5727 020C 0004 INCR R3 ; 5729 000B MVI@ R3, R1 ; 572A 0299 DECR R3 ; 572B 0013 SUBR R2, R2 ; 572C 0112 L_572D: MVO@ R1, R3 ; 572D 0259 BGT L_574A ; 572E 020E 001A MOVR R3, R4 ; 5730 009C SUBI #$0002, R4 ; 5731 033C 0002 MVI@ R4, R2 ; 5733 02A2 MVI .RAM.02,R1 ; 5734 0281 0102 INCR R1 ; 5736 0009 ANDI #$0007, R1 ; 5737 03B9 0007 CMP .RAM.03,R1 ; 5739 0341 0103 BEQ L_574F ; 573B 0204 0012 MOVR R1, R5 ; 573D 008D ADDR R1, R5 ; 573E 00CD ADDI #$0104, R5 ; 573F 02FD 0104 MVO R1, .RAM.02 ; 5741 0241 0102 ADDI #$0310, R1 ; 5743 02F9 0310 MVO@ R2, R1 ; 5745 024A MVI@ R4, R2 ; 5746 02A2 MVO@ R2, R5 ; 5747 026A SWAP R2, 1 ; 5748 0042 MVO@ R2, R5 ; 5749 026A L_574A: ADDI #$0004, R3 ; 574A 02FB 0004 DECR R0 ; 574C 0010 BNEQ L_5721 ; 574D 022C 002D L_574F: PULR R7 ; 574F 02B7 L_5750: MVI@ R5, R0 ; 5750 02A8 SLL R0, 2 ; 5751 004C MVII #$0318, R4 ; 5752 02BC 0318 ADDR R0, R4 ; 5754 00C4 DIS ; 5755 0003 MVI@ R5, R0 ; 5756 02A8 MVO@ R0, R4 ; 5757 0260 MVO@ R2, R4 ; 5758 0262 MVI@ R5, R0 ; 5759 02A8 MVO@ R0, R4 ; 575A 0260 MVI@ R5, R0 ; 575B 02A8 MVO@ R0, R4 ; 575C 0260 EIS ; 575D 0002 MOVR R5, R7 ; 575E 00AF SLL R3, 2 ; 575F 004F ADDI #$031A, R3 ; 5760 02FB 031A CLRR R0 ; 5762 01C0 DECR R0 ; 5763 0010 MVO@ R0, R3 ; 5764 0258 MOVR R5, R7 ; 5765 00AF SLL R3, 2 ; 5766 004F ADDI #$031B, R3 ; 5767 02FB 031B DIS ; 5769 0003 MVI@ R3, R0 ; 576A 0298 DECR R3 ; 576B 0013 MVO@ R0, R3 ; 576C 0258 EIS ; 576D 0002 MOVR R5, R7 ; 576E 00AF L_576F: PSHR R5 ; 576F 0275 L_5770: MOVR R7, R5 ; 5770 00BD DECR R5 ; 5771 0015 DIS ; 5772 0003 MVI .RAM.03,R1 ; 5773 0281 0103 CMP .RAM.02,R1 ; 5775 0341 0102 BEQ L_5789 ; 5777 0204 0010 INCR R1 ; 5779 0009 ANDI #$0007, R1 ; 577A 03B9 0007 MVO R1, .RAM.03 ; 577C 0241 0103 MOVR R1, R4 ; 577E 008C ADDR R4, R4 ; 577F 00E4 ADDI #$0104, R4 ; 5780 02FC 0104 SDBD ; 5782 0001 MVI@ R4, R2 ; 5783 02A2 ADDI #$0310, R1 ; 5784 02F9 0310 MVI@ R1, R0 ; 5786 0288 EIS ; 5787 0002 MOVR R0, R7 ; 5788 0087 L_5789: EIS ; 5789 0002 MVII #$000F, R0 ; 578A 02B8 000F JSR R5, L_553F ; 578C 0004 0154 013F JSR R5, L_55E7 ; 578F 0004 0154 01E7 MVI .ECSCBL.00,R0 ; 5792 0280 CF00 CMPI #$0069, R0 ; 5794 0378 0069 BNEQ L_5770 ; 5796 022C 0027 JSR R5, .ECSCBL.POLL ; 5798 0004 01CC 0301 B L_5770 ; 579B 0220 002C L_579D: MVI .RAM.02,R2 ; 579D 0282 0102 INCR R2 ; 579F 000A ANDI #$0007, R2 ; 57A0 03BA 0007 CMP .RAM.03,R2 ; 57A2 0342 0103 BEQ L_57B2 ; 57A4 0204 000C MVO R2, .RAM.02 ; 57A6 0242 0102 MOVR R2, R4 ; 57A8 0094 ADDR R2, R4 ; 57A9 00D4 ADDI #$0310, R2 ; 57AA 02FA 0310 MVO@ R0, R2 ; 57AC 0250 ADDI #$0104, R4 ; 57AD 02FC 0104 MVO@ R1, R4 ; 57AF 0261 SWAP R1, 1 ; 57B0 0041 MVO@ R1, R4 ; 57B1 0261 L_57B2: EIS ; 57B2 0002 MOVR R5, R7 ; 57B3 00AF L_57B4: PSHR R5 ; 57B4 0275 JSRD R5, L_57BE ; 57B5 0004 0156 03BE MVII #$57BD, R0 ; 57B8 02B8 57BD PULR R5 ; 57BA 02B5 B L_579D ; 57BB 0220 001F PULR R7 ; 57BD 02B7 L_57BE: CLRR R1 ; 57BE 01C9 MVO R1, .RAM.02 ; 57BF 0241 0102 MVO R1, .RAM.03 ; 57C1 0241 0103 MVI .RAM.14,R0 ; 57C3 0280 0114 MVO R1, .RAM.14 ; 57C5 0241 0114 DECR R1 ; 57C7 0011 MVO R1, .SYS.2A ; 57C8 0241 031A MVO R1, .SYS.2E ; 57CA 0241 031E MOVR R5, R7 ; 57CC 00AF L_57CD: MVII #$0400, R0 ; 57CD 02B8 0400 MVO R0, .IV.FIFO ; 57CF 0240 0081 MVI .IV.FIFO,R0 ; 57D1 0280 0081 RLC R0, 2 ; 57D3 0054 BOV L_57E0 ; 57D4 0202 000A CLRR R0 ; 57D6 01C0 MVO R0, .SYS.5C ; 57D7 0240 034C MVO R0, .SYS.5D ; 57D9 0240 034D MVO R0, .RAM.23 ; 57DB 0240 0123 MVO R0, .RAM.24 ; 57DD 0240 0124 MOVR R5, R7 ; 57DF 00AF L_57E0: CLRR R0 ; 57E0 01C0 MVO R0, .SYS.5C ; 57E1 0240 034C MVO R0, .SYS.5D ; 57E3 0240 034D DECR R0 ; 57E5 0010 MVO R0, .RAM.23 ; 57E6 0240 0123 MVO R0, .RAM.24 ; 57E8 0240 0124 MOVR R5, R7 ; 57EA 00AF DECLE $0281, $0124, $0045, $0203 ; 57EB 0281 0124 0045 0203 DECLE $0001, $00AF, $0284, $034C ; 57EF 0001 00AF 0284 034C DECLE $00A4, $0204, $0015, $0280 ; 57F3 00A4 0204 0015 0280 DECLE $0081, $0058, $0201, $0010 ; 57F7 0081 0058 0201 0010 DECLE $02A0, $0240, $0081, $0280 ; 57FB 02A0 0240 0081 0280 DECLE $012D, $0010, $0240, $012D ; 57FF 012D 0010 0240 012D DECLE $0204, $0004, $0244, $034C ; 5803 0204 0004 0244 034C DECLE $0220, $0012, $0240, $034C ; 5807 0220 0012 0240 034C DECLE $0280, $0080, $0058, $0229 ; 580B 0280 0080 0058 0229 DECLE $001F, $03B9, $0040, $0204 ; 580F 001F 03B9 0040 0204 DECLE $0008 ; 5813 0008 XOR .RAM.24,R1 ; 5814 03C1 0124 MVO R1, .RAM.24 ; 5816 0241 0124 CLRR R1 ; 5818 01C9 MVO R1, .IV.ALD ; 5819 0241 0080 MOVR R5, R7 ; 581B 00AF DECLE $0284, $034D, $00A4, $0204 ; 581C 0284 034D 00A4 0204 DECLE $0006, $02A0, $0080, $020C ; 5820 0006 02A0 0080 020C DECLE $0020, $0240, $034D, $0281 ; 5824 0020 0240 034D 0281 DECLE $0124, $0088, $03B9, $0007 ; 5828 0124 0088 03B9 0007 DECLE $0341, $0123, $0224, $003F ; 582C 0341 0123 0224 003F INCR R0 ; 5830 0008 ANDI #$00F7, R0 ; 5831 03B8 00F7 MVO R0, .RAM.24 ; 5833 0240 0124 ADDI #$0125, R1 ; 5835 02F9 0125 MVI@ R1, R4 ; 5837 028C CMPI #$002B, R4 ; 5838 037C 002B BNC L_5842 ; 583A 0209 0006 ADDI #$5453, R4 ; 583C 02FC 5453 MVI@ R4, R4 ; 583E 02A4 MVO R4, .SYS.5D ; 583F 0244 034D MOVR R5, R7 ; 5841 00AF L_5842: MVO R4, .IV.ALD ; 5842 0244 0080 MOVR R5, R7 ; 5844 00AF DECLE $0244, $034D, $0378, $002B ; 5845 0244 034D 0378 002B DECLE $0201, $0003 ; 5849 0201 0003 MVO R0, .IV.ALD ; 584B 0240 0080 MOVR R5, R7 ; 584D 00AF DECLE $0281, $034C, $0089, $0204 ; 584E 0281 034C 0089 0204 DECLE $0004 ; 5852 0004 DECR R4 ; 5853 0014 MVO R4, .SYS.5D ; 5854 0244 034D MOVR R5, R7 ; 5856 00AF DECLE $0084, $02A0, $0240, $012D ; 5857 0084 02A0 0240 012D DECLE $0244, $034C, $0280, $0124 ; 585B 0244 034C 0280 0124 DECLE $03F8, $0040, $0240, $0124 ; 585F 03F8 0040 0240 0124 DECLE $03B8, $0040, $020C, $0001 ; 5863 03B8 0040 020C 0001 DECLE $0000 ; 5867 0000 MOVR R5, R7 ; 5868 00AF L_5869: MVI@ R5, R0 ; 5869 02A8 MVI .RAM.24,R1 ; 586A 0281 0124 SWAP R1, 2 ; 586C 0045 BMI L_5882 ; 586D 020B 0013 DECR R1 ; 586F 0011 ANDI #$0007, R1 ; 5870 03B9 0007 CMP .RAM.23,R1 ; 5872 0341 0123 BEQ L_5882 ; 5874 0204 000C L_5876: MVI .RAM.23,R1 ; 5876 0281 0123 PSHR R1 ; 5878 0271 INCR R1 ; 5879 0009 ANDI #$00F7, R1 ; 587A 03B9 00F7 MVO R1, .RAM.23 ; 587C 0241 0123 PULR R1 ; 587E 02B1 ADDI #$0125, R1 ; 587F 02F9 0125 MVO@ R0, R1 ; 5881 0248 L_5882: MOVR R5, R7 ; 5882 00AF L_5883: MVI@ R5, R0 ; 5883 02A8 L_5884: MVI .RAM.24,R1 ; 5884 0281 0124 SWAP R1, 2 ; 5886 0045 BMI L_5882 ; 5887 022B 0006 DECR R1 ; 5889 0011 ANDI #$0007, R1 ; 588A 03B9 0007 CMP .RAM.23,R1 ; 588C 0341 0123 BEQ L_5884 ; 588E 0224 000B B L_5876 ; 5890 0220 001B L_5892: MVI .RAM.23,R0 ; 5892 0280 0123 SWAP R0, 1 ; 5894 0040 SWAP R0, 1 ; 5895 0040 BMI L_58A4 ; 5896 020B 000C L_5898: CMP .RAM.24,R0 ; 5898 0340 0124 BNEQ L_5898 ; 589A 022C 0003 L_589C: MVI .IV.FIFO,R0 ; 589C 0280 0081 COMR R0 ; 589E 0018 AND .IV.ALD,R0 ; 589F 0380 0080 TSTR R0 ; 58A1 0080 BPL L_589C ; 58A2 0223 0007 L_58A4: MOVR R5, R7 ; 58A4 00AF L_58A5: PSHR R5 ; 58A5 0275 TSTR R0 ; 58A6 0080 BEQ L_58EE ; 58A7 0204 0045 CLRR R1 ; 58A9 01C9 L_58AA: INCR R1 ; 58AA 0009 SUBI #$03E8, R0 ; 58AB 0338 03E8 BC L_58AA ; 58AD 0221 0004 ADDI #$03E8, R0 ; 58AF 02F8 03E8 PSHR R0 ; 58B1 0270 DECR R1 ; 58B2 0011 BEQ L_58BC ; 58B3 0204 0007 JSR R5, L_58D5 ; 58B5 0004 0158 00D5 JSR R5, L_5883 ; 58B8 0004 0158 0083 DECLE $0024 ; 58BB 0024 L_58BC: PULR R1 ; 58BC 02B1 MVII #$0006, R0 ; 58BD 02B8 0006 CMPI #$0064, R1 ; 58BF 0379 0064 BNC L_58D6 ; 58C1 0209 0013 L_58C3: INCR R0 ; 58C3 0008 SUBI #$0064, R1 ; 58C4 0339 0064 BC L_58C3 ; 58C6 0221 0004 ADDI #$0064, R1 ; 58C8 02F9 0064 PSHR R1 ; 58CA 0271 JSR R5, L_5884 ; 58CB 0004 0158 0084 JSR R5, L_5883 ; 58CE 0004 0158 0083 DECLE $0023 ; 58D1 0023 PULR R1 ; 58D2 02B1 B L_58D6 ; 58D3 0200 0001 L_58D5: PSHR R5 ; 58D5 0275 L_58D6: MOVR R1, R0 ; 58D6 0088 BEQ L_58F3 ; 58D7 0204 001A SUBI #$0014, R1 ; 58D9 0339 0014 BNC L_58EE ; 58DB 0209 0011 MVII #$001A, R0 ; 58DD 02B8 001A L_58DF: INCR R0 ; 58DF 0008 SUBI #$000A, R1 ; 58E0 0339 000A BC L_58DF ; 58E2 0221 0004 ADDI #$000A, R1 ; 58E4 02F9 000A PSHR R1 ; 58E6 0271 JSR R5, L_5884 ; 58E7 0004 0158 0084 PULR R0 ; 58EA 02B0 TSTR R0 ; 58EB 0080 BEQ L_58F3 ; 58EC 0204 0005 L_58EE: ADDI #$0007, R0 ; 58EE 02F8 0007 JSR R5, L_5884 ; 58F0 0004 0158 0084 L_58F3: PULR R7 ; 58F3 02B7 DECLE $0010, $0318, $014C, $016F ; 58F4 0010 0318 014C 016F DECLE $02CE, $03AF, $015F, $01B1 ; 58F8 02CE 03AF 015F 01B1 DECLE $008E, $0088, $0392, $01EA ; 58FC 008E 0088 0392 01EA DECLE $024B, $03AA, $039B, $000F ; 5900 024B 03AA 039B 000F DECLE $0000, $000B, $0118, $038E ; 5904 0000 000B 0118 038E DECLE $016E, $01FC, $0149, $0043 ; 5908 016E 01FC 0149 0043 DECLE $026F, $036E, $01CC, $0005 ; 590C 026F 036E 01CC 0005 DECLE $0000, $000B, $0018, $010E ; 5910 0000 000B 0018 010E DECLE $016F, $0225, $00C6, $02C4 ; 5914 016F 0225 00C6 02C4 DECLE $030F, $0160, $024B, $0005 ; 5918 030F 0160 024B 0005 DECLE $0000, $0045, $0218 ; 591C 0000 0045 0218 SUBR R1, R4 ; 591F 010C CMPR R5, R6 ; 5920 016E COMR R6 ; 5921 001E INCR R3 ; 5922 000B MOVR R2, R1 ; 5923 0091 SUB@ R5, R7 ; 5924 032F DECLE $00DE, $018B, $0095, $0003 ; 5925 00DE 018B 0095 0003 DECLE $0238, $0027, $01E0, $03E8 ; 5929 0238 0027 01E0 03E8 DECLE $0090, $0003, $01C7 ; 592D 0090 0003 01C7 NEGR R0 ; 5930 0020 XOR@ R3, R6 ; 5931 03DE SUBR R0, R0 ; 5932 0100 ANDR R2, R0 ; 5933 0190 XORR R1, R2 ; 5934 01CA MVI@ R5, R3 ; 5935 02AB MOVR R6, R7 ; 5936 00B7 DECLE $004A, $0386, $0100, $0144 ; 5937 004A 0386 0100 0144 DECLE $02B6, $0024, $0320, $0011 ; 593B 02B6 0024 0320 0011 DECLE $0041, $01DF, $0316, $014C ; 593F 0041 01DF 0316 014C DECLE $016E, $001E, $00C4, $02B2 ; 5943 016E 001E 00C4 02B2 DECLE $031E, $0264, $02AA, $019D ; 5947 031E 0264 02AA 019D DECLE $01BE, $000B, $00F0, $006A ; 594B 01BE 000B 00F0 006A DECLE $01CE, $00D6, $015B, $03B5 ; 594F 01CE 00D6 015B 03B5 DECLE $03E4, $0000, $0380, $0007 ; 5953 03E4 0000 0380 0007 DECLE $0312, $03E8, $030C, $016D ; 5957 0312 03E8 030C 016D DECLE $02EE, $0085, $03C2, $03EC ; 595B 02EE 0085 03C2 03EC DECLE $0283, $024A, $0005, $0000 ; 595F 0283 024A 0005 0000 DECLE $0015, $0010, $01CE, $016E ; 5963 0015 0010 01CE 016E DECLE $02BE, $0375, $034F, $0220 ; 5967 02BE 0375 034F 0220 DECLE $0290, $008A, $026D, $013F ; 596B 0290 008A 026D 013F L_596F: XORR R2, R5 ; 596F 01D5 SUB@ R2, R6 ; 5970 0316 MVI@ R3, R7 ; 5971 029F DECLE $02E2, $018A, $0170, $0035 ; 5972 02E2 018A 0170 0035 DECLE $00BD, $0000, $0000, $000B ; 5976 00BD 0000 0000 000B DECLE $0218, $02CD, $016F, $02F5 ; 597A 0218 02CD 016F 02F5 DECLE $0386, $00C2, $00CD, $0094 ; 597E 0386 00C2 00CD 0094 DECLE $010C, $0005, $0000 ; 5982 010C 0005 0000 NEGR R2 ; 5985 0022 SUBR R2, R0 ; 5986 0110 AND@ R1, R4 ; 5987 038C CMPR R5, R6 ; 5988 016E PULR R7 ; 5989 03B7 PULR R3 ; 598A 03B3 MVI@ R5, R7 ; 598B 02AF DECLE $0221, $009E, $01AA, $01B3 ; 598C 0221 009E 01AA 01B3 DECLE $00BF ; 5990 00BF ADD@ R4, R7 ; 5991 02E7 MVO@ R3, R3 ; 5992 025B CMP@ R2, R4 ; 5993 0354 ADDR R3, R2 ; 5994 00DA CMPR R7, R7 ; 5995 017F ANDR R1, R2 ; 5996 018A PULR R3 ; 5997 03F3 MOVR R5, R7 ; 5998 00AF DECLE $02D5, $0356, $027F ; 5999 02D5 0356 027F CMPR R7, R2 ; 599C 017A XORR R7, R3 ; 599D 01FB SUBR R3, R6 ; 599E 011E ANDR R7, R1 ; 599F 01B9 XOR@ R4, R5 ; 59A0 03E5 MVI@ R3, R7 ; 59A1 029F DECLE $025A, $0076, $0148, $0124 ; 59A2 025A 0076 0148 0124 DECLE $003D, $0000 ; 59A6 003D 0000 DECR R3 ; 59A8 0013 SUB@ R3, R0 ; 59A9 0318 SLL R0, 2 ; 59AA 004C CMPR R5, R4 ; 59AB 016C ADDR R7, R3 ; 59AC 00FB ADDR R0, R7 ; 59AD 00C7 DECLE $0144, $002E, $030C, $010E ; 59AE 0144 002E 030C 010E DECLE $018C, $01DC, $00AB, $00C9 ; 59B2 018C 01DC 00AB 00C9 DECLE $0268, $01F7, $021D, $01B3 ; 59B6 0268 01F7 021D 01B3 DECLE $0098, $0000, $0011, $00F4 ; 59BA 0098 0000 0011 00F4 DECLE $0046, $0062, $0200, $0221 ; 59BE 0046 0062 0200 0221 XOR@ R4, R4 ; 59C2 03E4 MOVR R0, R7 ; 59C3 0087 CMPR R5, R7 ; 59C4 016F MVI@ R4, R6 ; 59C5 02A6 PULR R7 ; 59C6 02B7 DECLE $0212, $0326, $0368, $01BF ; 59C7 0212 0326 0368 01BF DECLE $0338, $0196, $0002, $000F ; 59CB 0338 0196 0002 000F DECLE $00F5, $0146, $0052, $0000 ; 59CF 00F5 0146 0052 0000 DECLE $032A, $0049, $0032, $02F2 ; 59D3 032A 0049 0032 02F2 DECLE $02A5, $0000, $026D, $0119 ; 59D7 02A5 0000 026D 0119 DECLE $0124, $00F6, $0000, $000D ; 59DB 0124 00F6 0000 000D DECLE $0318, $034C, $016E, $0397 ; 59DF 0318 034C 016E 0397 DECLE $01B9, $0020, $02B1, $008E ; 59E3 01B9 0020 02B1 008E DECLE $0349, $0291, $01D8, $0072 ; 59E7 0349 0291 01D8 0072 DECLE $0000, $0011, $00F4, $00C6 ; 59EB 0000 0011 00F4 00C6 DECLE $00F2, $0000, $0129, $00A6 ; 59EF 00F2 0000 0129 00A6 DECLE $0246, $01F3, $02C6, $02B7 ; 59F3 0246 01F3 02C6 02B7 DECLE $028E, $0064, $0362, $01CF ; 59F7 028E 0064 0362 01CF DECLE $0379, $01D5, $0002, $0013 ; 59FB 0379 01D5 0002 0013 DECLE $0018, $034F, $016D, $030B ; 59FF 0018 034F 016D 030B DECLE $0306, $0363, $017E, $006A ; 5A03 0306 0363 017E 006A DECLE $0164, $019E, $01DA, $00CB ; 5A07 0164 019E 01DA 00CB DECLE $00E8, $027A, $03E8, $01D7 ; 5A0B 00E8 027A 03E8 01D7 DECLE $0173, $00A1, $0000, $0013 ; 5A0F 0173 00A1 0000 0013 DECLE $0119, $034C, $016D, $030B ; 5A13 0119 034C 016D 030B DECLE $0306, $0363, $017E, $006A ; 5A17 0306 0363 017E 006A DECLE $0164, $019E, $01DA, $00CB ; 5A1B 0164 019E 01DA 00CB DECLE $00E8, $027A, $03E8, $01D7 ; 5A1F 00E8 027A 03E8 01D7 DECLE $0173, $00A1, $0000, $000B ; 5A23 0173 00A1 0000 000B DECLE $0218, $02CD, $016F, $0105 ; 5A27 0218 02CD 016F 0105 DECLE $014B, $0224, $02CF, $0274 ; 5A2B 014B 0224 02CF 0274 DECLE $014C, $0005, $0000 ; 5A2F 014C 0005 0000 COMR R4 ; 5A32 001C SUBR R3, R0 ; 5A33 0118 AND@ R1, R5 ; 5A34 038D CMPR R5, R6 ; 5A35 016E SUBR R3, R4 ; 5A36 011C MOVR R1, R3 ; 5A37 008B XOR@ R2, R2 ; 5A38 03D2 SUB@ R1, R7 ; 5A39 030F DECLE $0262, $006C, $019D, $01CC ; 5A3A 0262 006C 019D 01CC DECLE $022B, $0170, $0078, $03FE ; 5A3E 022B 0170 0078 03FE DECLE $0018, $0183, $03A3, $010D ; 5A42 0018 0183 03A3 010D DECLE $016E, $012E, $00C6, $00C3 ; 5A46 016E 012E 00C6 00C3 DECLE $0300, $0060, $000D, $0005 ; 5A4A 0300 0060 000D 0005 DECLE $0000, $0040, $0118, $034C ; 5A4E 0000 0040 0118 034C DECLE $016E, $001C, $0089, $01C3 ; 5A52 016E 001C 0089 01C3 DECLE $034E, $03E6, $00AB, $0095 ; 5A56 034E 03E6 00AB 0095 DECLE $0001, $0000, $03FC, $0381 ; 5A5A 0001 0000 03FC 0381 DECLE $0000 ; 5A5E 0000 ANDR R1, R0 ; 5A5F 0188 XORR R3, R2 ; 5A60 01DA ADDR R1, R3 ; 5A61 00CB ADDR R4, R7 ; 5A62 00E7 DECLE $0048, $03A6, $0244, $016C ; 5A63 0048 03A6 0244 016C DECLE $01A8, $03E4, $0000, $0002 ; 5A67 01A8 03E4 0000 0002 DECLE $0001, $00FC, $01DA, $02E4 ; 5A6B 0001 00FC 01DA 02E4 DECLE $0000, $0002, $0008, $0200 ; 5A6F 0000 0002 0008 0200 DECLE $0217, $0164, $0000, $000E ; 5A73 0217 0164 0000 000E DECLE $0038, $0014, $01EA, $0264 ; 5A77 0038 0014 01EA 0264 DECLE $0000, $0002, $0048, $01EC ; 5A7B 0000 0002 0048 01EC DECLE $02F1, $03CC, $016D, $021E ; 5A7F 02F1 03CC 016D 021E DECLE $0048, $00C2, $034E, $036A ; 5A83 0048 00C2 034E 036A DECLE $000D, $008D, $000B, $0200 ; 5A87 000D 008D 000B 0200 DECLE $0047, $0022, $03A8, $0000 ; 5A8B 0047 0022 03A8 0000 DECLE $0000, $0046, $0218, $034C ; 5A8F 0000 0046 0218 034C DECLE $016E, $001C, $0089, $01C3 ; 5A93 016E 001C 0089 01C3 DECLE $034E, $03E6, $00AB, $0095 ; 5A97 034E 03E6 00AB 0095 DECLE $0001, $0000, $03FC, $0381 ; 5A9B 0001 0000 03FC 0381 DECLE $0000 ; 5A9F 0000 ANDR R2, R0 ; 5AA0 0190 XORR R3, R0 ; 5AA1 01D8 ADDR R1, R3 ; 5AA2 00CB ADDR R4, R7 ; 5AA3 00E7 DECLE $0058, $01A6, $0244, $0164 ; 5AA4 0058 01A6 0244 0164 DECLE $02A9, $0024, $0000, $0000 ; 5AA8 02A9 0024 0000 0000 DECLE $0007, $0201, $02F8, $02E4 ; 5AAC 0007 0201 02F8 02E4 DECLE $0000, $0002, $0001, $00FC ; 5AB0 0000 0002 0001 00FC DECLE $02DA, $0024, $0000, $0002 ; 5AB4 02DA 0024 0000 0002 DECLE $0008, $0200, $0217, $0024 ; 5AB8 0008 0200 0217 0024 DECLE $0000, $000E, $0038, $0014 ; 5ABC 0000 000E 0038 0014 DECLE $03EA, $03A4, $0000, $0002 ; 5AC0 03EA 03A4 0000 0002 DECLE $0048, $01EC, $03F1, $038C ; 5AC4 0048 01EC 03F1 038C DECLE $016D, $021E, $0048, $00C2 ; 5AC8 016D 021E 0048 00C2 DECLE $034E, $036A, $000D, $009D ; 5ACC 034E 036A 000D 009D DECLE $0003, $0200, $0047, $0022 ; 5AD0 0003 0200 0047 0022 DECLE $03A8, $0000, $0000 ; 5AD4 03A8 0000 0000 COMR R4 ; 5AD7 001C SUB@ R2, R0 ; 5AD8 0310 AND@ R1, R4 ; 5AD9 038C CMPR R5, R6 ; 5ADA 016E MVI@ R4, R7 ; 5ADB 02A7 MOVR R7, R3 ; 5ADC 00BB CMPR R4, R0 ; 5ADD 0160 MVI@ R2, R0 ; 5ADE 0290 MOVR R2, R4 ; 5ADF 0094 XORR R1, R2 ; 5AE0 01CA AND@ R5, R1 ; 5AE1 03A9 ADDR R0, R1 ; 5AE2 00C1 ADD@ R2, R7 ; 5AE3 02D7 CMPR R3, R3 ; 5AE4 015B XORR R2, R4 ; 5AE5 01D4 XOR@ R1, R6 ; 5AE6 03CE L_5AE7: ADDI #$00EA, R7 ; 5AE7 02FF 00EA DECLE $03E7, $0041, $0277, $025B ; 5AE9 03E7 0041 0277 025B DECLE $0355, $03C9, $0103, $02EA ; 5AED 0355 03C9 0103 02EA DECLE $03E4, $003F, $0000, $0008 ; 5AF1 03E4 003F 0000 0008 DECLE $0119, $03C8, $0000, $00A7 ; 5AF5 0119 03C8 0000 00A7 DECLE $0094, $0138, $01C6, $0000 ; 5AF9 0094 0138 01C6 0000 DECR R1 ; 5AFD 0011 ADDR R6, R4 ; 5AFE 00F4 ADDR R0, R6 ; 5AFF 00C6 ADDR R0, R2 ; 5B00 00C2 B L_5B18 ; 5B01 0200 0015 XORI #$0283, R6 ; 5B03 03FE 0283 XORR R7, R5 ; 5B05 01FD XORR R4, R6 ; 5B06 01E6 MOVR R6, R7 ; 5B07 00B7 SUB@ R1, R2 ; 5B08 030A CMP@ R4, R4 ; 5B09 0364 PULR R1 ; 5B0A 0331 CMPR R7, R7 ; 5B0B 017F SUBI #$0215, R5 ; 5B0C 033D 0215 EIS ; 5B0E 0002 DECR R1 ; 5B0F 0011 ADDR R6, R4 ; 5B10 00F4 SUBR R0, R6 ; 5B11 0106 RRC R2, 1 ; 5B12 0072 SUB .STIC.MODE,R0 ; 5B13 0300 0021 SUB@ R1, R0 ; 5B15 0308 RSWD R1 ; 5B16 0039 CMPR R6, R3 ; 5B17 0173 L_5B18: ADDR R0, R6 ; 5B18 00C6 MOVR R6, R7 ; 5B19 00B7 DECLE $037E, $03A3, $0319, $0177 ; 5B1A 037E 03A3 0319 0177 DECLE $0036, $0217 ; 5B1E 0036 0217 EIS ; 5B20 0002 DECR R1 ; 5B21 0011 ADDR R7, R0 ; 5B22 00F8 CMPR R0, R6 ; 5B23 0146 ADDR R6, R2 ; 5B24 00F2 SUBR R0, R0 ; 5B25 0100 SUBR R6, R2 ; 5B26 0132 AND@ R5, R0 ; 5B27 03A8 RLC R1, 2 ; 5B28 0055 XORR R6, R5 ; 5B29 01F5 MOVR R4, R6 ; 5B2A 00A6 PULR R7 ; 5B2B 02B7 DECLE $0291, $0326, $0368, $0167 ; 5B2C 0291 0326 0368 0167 DECLE $023A, $01C6, $0002, $0014 ; 5B30 023A 01C6 0002 0014 DECLE $0218, $01C9, $0000 ; 5B34 0218 01C9 0000 MOVR R2, R5 ; 5B37 0095 SUBR R4, R7 ; 5B38 0127 DECLE $0060, $01D6, $0213, $0002 ; 5B39 0060 01D6 0213 0002 DECLE $01AE, $033E, $01A0, $03C4 ; 5B3D 01AE 033E 01A0 03C4 DECLE $0122, $0001, $0218, $01E4 ; 5B41 0122 0001 0218 01E4 DECLE $03FD, $0019, $0000, $0011 ; 5B45 03FD 0019 0000 0011 DECLE $0218, $00CB, $0000, $0086 ; 5B49 0218 00CB 0000 0086 DECLE $000F, $0240, $0182, $031A ; 5B4D 000F 0240 0182 031A DECLE $02DB, $0008, $0293, $0067 ; 5B51 02DB 0008 0293 0067 DECLE $00BD, $01E0, $0092, $000C ; 5B55 00BD 01E0 0092 000C DECLE $0000, $000B, $0118, $02CD ; 5B59 0000 000B 0118 02CD DECLE $016F, $0205, $0144, $02C3 ; 5B5D 016F 0205 0144 02C3 DECLE $00FE, $031A, $000D, $0005 ; 5B61 00FE 031A 000D 0005 DECLE $0000, $0030, $0318, $02CC ; 5B65 0000 0030 0318 02CC DECLE $016F, $0008, $030B, $01C3 ; 5B69 016F 0008 030B 01C3 DECLE $0330, $0178, $002B, $019D ; 5B6D 0330 0178 002B 019D DECLE $01F6, $018B, $01E1, $0010 ; 5B71 01F6 018B 01E1 0010 DECLE $020D ; 5B75 020D CMP@ R3, R0 ; 5B76 0358 CMPR R3, R7 ; 5B77 015F MVI@ R4, R4 ; 5B78 02A4 ADD@ R1, R4 ; 5B79 02CC CMPR R5, R7 ; 5B7A 016F SUBR R1, R1 ; 5B7B 0109 SUB@ R1, R3 ; 5B7C 030B ANDR R2, R3 ; 5B7D 0193 SUB@ R4, R0 ; 5B7E 0320 CMPR R7, R2 ; 5B7F 017A CMP@ R1, R4 ; 5B80 034C MOVR R3, R4 ; 5B81 009C L_5B82: DECR R7 ; 5B82 0017 DECLE $0001, $0200 ; 5B83 0001 0200 XOR .STIC.VIDEN,R1 ; 5B85 03C1 0020 MOVR R4, R7 ; 5B87 00A7 DECLE $001D, $0001, $0104, $003D ; 5B88 001D 0001 0104 003D DECLE $0040, $01A7, $01CA, $018B ; 5B8C 0040 01A7 01CA 018B DECLE $0160, $0078, $01F6, $0343 ; 5B90 0160 0078 01F6 0343 DECLE $01C7, $0090, $0000, $0019 ; 5B94 01C7 0090 0000 0019 DECLE $0018, $0149, $0001, $00A4 ; 5B98 0018 0149 0001 00A4 DECLE $0321, $0180, $01F4, $039A ; 5B9C 0321 0180 01F4 039A DECLE $02DC, $023C ; 5BA0 02DC 023C SUBR R3, R2 ; 5BA2 011A SWAP R3, 2 ; 5BA3 0047 B L_5BA7 ; 5BA4 0200 0001 ANDR R1, R6 ; 5BA6 018E L_5BA7: CMP@ R1, R6 ; 5BA7 034E AND@ R2, R4 ; 5BA8 0394 CMP@ R2, R6 ; 5BA9 0356 ADD .RAM.0C,R1 ; 5BAA 02C1 010C XORI #$0129, R5 ; 5BAC 03FD 0129 MOVR R6, R7 ; 5BAE 00B7 DECLE $01BA, $0000, $000F, $00F4 ; 5BAF 01BA 0000 000F 00F4 DECLE $00C6, $00D2, $0000, $023A ; 5BB3 00C6 00D2 0000 023A XOR@ R4, R0 ; 5BB7 03E0 ADD@ R2, R1 ; 5BB8 02D1 ADD@ R4, R5 ; 5BB9 02E5 ANDR R0, R4 ; 5BBA 0184 B L_5BFE ; 5BBB 0200 0041 DECLE $0210, $0188, $00C5, $0000 ; 5BBD 0210 0188 00C5 0000 DECLE $000E, $021D, $023C, $0211 ; 5BC1 000E 021D 023C 0211 DECLE $003C, $0180, $024D, $0008 ; 5BC5 003C 0180 024D 0008 DECLE $032B, $025B, $002D, $01DC ; 5BC9 032B 025B 002D 01DC DECLE $01E3, $007A, $0000 ; 5BCD 01E3 007A 0000 DECR R5 ; 5BD0 0015 ADDR R6, R7 ; 5BD1 00F7 DECLE $0046, $01D2, $0300, $0131 ; 5BD2 0046 01D2 0300 0131 DECLE $006C, $006E, $00F1, $00E4 ; 5BD6 006C 006E 00F1 00E4 DECLE $0000, $025A, $010D, $0110 ; 5BDA 0000 025A 010D 0110 DECLE $01F9, $014A, $0001, $00B5 ; 5BDE 01F9 014A 0001 00B5 DECLE $01A2, $00D8, $01CE, $0000 ; 5BE2 01A2 00D8 01CE 0000 DECLE $0010, $0318, $038C, $016D ; 5BE6 0010 0318 038C 016D DECLE $029E, $0333, $0260, $0221 ; 5BEA 029E 0333 0260 0221 DECLE $0294, $01C4, $0299, $025A ; 5BEE 0294 01C4 0299 025A DECLE $00E6, $014C, $012C, $0031 ; 5BF2 00E6 014C 012C 0031 DECLE $0000, $0010, $0210 ; 5BF6 0000 0010 0210 CMP@ R1, R5 ; 5BF9 034D CMPR R5, R5 ; 5BFA 016D PULR R5 ; 5BFB 03F5 MOVR R6, R0 ; 5BFC 00B0 ADCR R6 ; 5BFD 002E L_5BFE: B L_596F ; 5BFE 0220 0290 XOR@ R1, R6 ; 5C00 03CE PULR R6 ; 5C01 02B6 AND@ R5, R2 ; 5C02 03AA ADDR R6, R3 ; 5C03 00F3 ADDR R1, R7 ; 5C04 00CF DECLE $015D, $016E, $0000 ; 5C05 015D 016E 0000 DECR R3 ; 5C08 0013 SUBR R3, R0 ; 5C09 0118 XOR@ R1, R5 ; 5C0A 03CD CMPR R5, R6 ; 5C0B 016E ADDR R3, R4 ; 5C0C 00DC SUB@ R5, R7 ; 5C0D 032F DECLE $01BF, $01E0, $0116, $02AB ; 5C0E 01BF 01E0 0116 02AB DECLE $029A, $0358, $01DB, $015B ; 5C12 029A 0358 01DB 015B DECLE $01A7, $02FD, $02B1, $03D2 ; 5C16 01A7 02FD 02B1 03D2 DECLE $0356, $0000, $0017, $0318 ; 5C1A 0356 0000 0017 0318 DECLE $03CD, $016C, $0203, $0306 ; 5C1E 03CD 016C 0203 0306 DECLE $03C3, $015F, $0270, $002A ; 5C22 03C3 015F 0270 002A DECLE $009D, $000D, $0248, $01B4 ; 5C26 009D 000D 0248 01B4 DECLE $0120, $01E1, $00C8, $0003 ; 5C2A 0120 01E1 00C8 0003 DECLE $0040, $0000, $0080, $015F ; 5C2E 0040 0000 0080 015F DECLE $0006, $0000, $002B, $0018 ; 5C32 0006 0000 002B 0018 DECLE $034D, $016D, $0203, $0306 ; 5C36 034D 016D 0203 0306 DECLE $03C3, $015F, $0270, $002A ; 5C3A 03C3 015F 0270 002A DECLE $0095, $0003, $0248, $01B4 ; 5C3E 0095 0003 0248 01B4 DECLE $0120, $01E1, $0090, $000B ; 5C42 0120 01E1 0090 000B DECLE $0040, $0000, $0080, $015F ; 5C46 0040 0000 0080 015F DECLE $019E, $01F6, $028B, $00E0 ; 5C4A 019E 01F6 028B 00E0 DECLE $0266, $03F6, $01D8, $0143 ; 5C4E 0266 03F6 01D8 0143 DECLE $01A8, $0024, $00C0, $0080 ; 5C52 01A8 0024 00C0 0080 DECLE $0000, $01E6, $0321, $0024 ; 5C56 0000 01E6 0321 0024 DECLE $0260, $000A, $0008, $03FE ; 5C5A 0260 000A 0008 03FE DECLE $0000, $0000, $0020, $0218 ; 5C5E 0000 0000 0020 0218 DECLE $018C, $016D, $02A6, $03AB ; 5C62 018C 016D 02A6 03AB DECLE $004F, $0301, $0390, $02EA ; 5C66 004F 0301 0390 02EA DECLE $0289, $0228, $0356, $01CF ; 5C6A 0289 0228 0356 01CF ADD@ R2, R5 ; 5C6E 02D5 SUBR R6, R5 ; 5C6F 0135 SARC R1, 2 ; 5C70 007D PULR R5 ; 5C71 02B5 MVI@ R5, R7 ; 5C72 02AF DECLE $024A, $02E2, $0153, $0167 ; 5C73 024A 02E2 0153 0167 DECLE $0333, $02A9, $02B3, $039A ; 5C77 0333 02A9 02B3 039A DECLE $0351, $0147, $03CD, $0339 ; 5C7B 0351 0147 03CD 0339 DECLE $02DA, $0000 ; 5C7F 02DA 0000 DECR R5 ; 5C81 0015 SUB@ R2, R0 ; 5C82 0310 CMP@ R1, R4 ; 5C83 034C CMPR R5, R6 ; 5C84 016E MVI@ R5, R6 ; 5C85 02AE PULR R1 ; 5C86 03B1 ADDR R1, R7 ; 5C87 00CF DECLE $0304, $0192, $018A, $022B ; 5C88 0304 0192 018A 022B DECLE $0041, $0277, $015B, $0395 ; 5C8C 0041 0277 015B 0395 DECLE $03D1, $0082, $03CE, $00B6 ; 5C90 03D1 0082 03CE 00B6 DECLE $03BB, $02DA, $0000, $0022 ; 5C94 03BB 02DA 0000 0022 DECLE $0310, $014C, $016E, $02A6 ; 5C98 0310 014C 016E 02A6 DECLE $03AF, $00CF, $0304, $0192 ; 5C9C 03AF 00CF 0304 0192 DECLE $03CA, $01A8, $007F, $0155 ; 5CA0 03CA 01A8 007F 0155 DECLE $02B4, $027F ; 5CA4 02B4 027F ADDR R4, R2 ; 5CA6 00E2 CMP@ R5, R2 ; 5CA7 036A SUB@ R3, R7 ; 5CA8 031F CMP@ R3, R5 ; 5CA9 035D SUBR R2, R6 ; 5CAA 0116 XORR R2, R5 ; 5CAB 01D5 PULR R4 ; 5CAC 02F4 MVO@ R7, R3 ; 5CAD 025F SUBI #$038A, R2 ; 5CAE 033A 038A CMPR R1, R7 ; 5CB0 014F ANDR R6, R5 ; 5CB1 01B5 XOR@ R2, R5 ; 5CB2 03D5 MVI@ R2, R7 ; 5CB3 0297 DECLE $02DA, $03F2, $0167, $0124 ; 5CB4 02DA 03F2 0167 0124 DECLE $03FB, $0001, $0002, $00F1 ; 5CB8 03FB 0001 0002 00F1 DECLE $0000, $0002, $00F4, $0000 ; 5CBC 0000 0002 00F4 0000 EIS ; 5CC0 0002 ADDR R6, R7 ; 5CC1 00F7 DECLE $0000, $0002, $00FF, $0000 ; 5CC2 0000 0002 00FF 0000 DECLE $0003, $031D, $003F, $0000 ; 5CC6 0003 031D 003F 0000 DECLE $000F, $00FD, $0106, $0052 ; 5CCA 000F 00FD 0106 0052 DECLE $0000, $022A, $03A5, $0277 ; 5CCE 0000 022A 03A5 0277 DECLE $035F, $0184, $0000 ; 5CD2 035F 0184 0000 RLC R1, 2 ; 5CD5 0055 AND@ R2, R1 ; 5CD6 0391 ADDR R5, R3 ; 5CD7 00EB ADDR R1, R7 ; 5CD8 00CF DECLE $0000, $0018, $0118, $01CD ; 5CD9 0000 0018 0118 01CD DECLE $016C, $029E, $0171, $038E ; 5CDD 016C 029E 0171 038E DECLE $01E0, $0190, $0245, $0299 ; 5CE1 01E0 0190 0245 0299 DECLE $01AA, $02E2, $01C7, $02DE ; 5CE5 01AA 02E2 01C7 02DE DECLE $0125, $00B5, $02C5, $028F ; 5CE9 0125 00B5 02C5 028F DECLE $024E, $035E, $01CB, $02EC ; 5CED 024E 035E 01CB 02EC DECLE $0005, $0000, $0019, $0218 ; 5CF1 0005 0000 0019 0218 XOR@ R1, R4 ; 5CF5 03CC CMPR R5, R4 ; 5CF6 016C SUB@ R1, R4 ; 5CF7 030C ADD@ R1, R0 ; 5CF8 02C8 AND@ R2, R3 ; 5CF9 0393 ADD@ R1, R5 ; 5CFA 02CD MVO@ R6, R3 ; 5CFB 025E MOVR R1, R2 ; 5CFC 008A ANDR R3, R5 ; 5CFD 019D ANDR R5, R4 ; 5CFE 01AC ADD@ R1, R3 ; 5CFF 02CB MOVR R7, R6 ; 5D00 00BE SWAP R2, 2 ; 5D01 0046 CMPR R7, R6 ; 5D02 017E XORR R0, R2 ; 5D03 01C2 CMPR R6, R4 ; 5D04 0174 MOVR R4, R1 ; 5D05 00A1 XORR R4, R5 ; 5D06 01E5 ADDR R4, R0 ; 5D07 00E0 SUBR R1, R6 ; 5D08 010E SETC ; 5D09 0007 SUB@ R2, R3 ; 5D0A 0313 L_5D0B: DECR R7 ; 5D0B 0017 DECLE $0000, $0019, $0218, $0109 ; 5D0C 0000 0019 0218 0109 DECLE $0000, $007A, $0187, $02E0 ; 5D10 0000 007A 0187 02E0 DECLE $03F6, $0311, $0002, $0126 ; 5D14 03F6 0311 0002 0126 DECLE $0242, $0161, $03E9, $0219 ; 5D18 0242 0161 03E9 0219 DECLE $016C, $0300, $0013, $0045 ; 5D1C 016C 0300 0013 0045 DECLE $0124, $0005, $024C, $005C ; 5D20 0124 0005 024C 005C DECLE $0182, $03C2, $0001, $0008 ; 5D24 0182 03C2 0001 0008 DECLE $0218, $01CA, $0001, $0128 ; 5D28 0218 01CA 0001 0128 DECLE $001C, $0149, $01C6, $0000 ; 5D2C 001C 0149 01C6 0000 DECLE $0008, $0019, $0349, $0000 ; 5D30 0008 0019 0349 0000 DECLE $00C6, $0212, $01D8, $01CA ; 5D34 00C6 0212 01D8 01CA DECLE $0000, $000F, $00F6, $0046 ; 5D38 0000 000F 00F6 0046 DECLE $0142, $0100, $0042, $0088 ; 5D3C 0142 0100 0042 0088 DECLE $027E, $02EF, $01A4, $0200 ; 5D40 027E 02EF 01A4 0200 DECLE $0049, $0290, $00FC, $00E8 ; 5D44 0049 0290 00FC 00E8 DECLE $0000, $0013, $00F5, $00C6 ; 5D48 0000 0013 00F5 00C6 DECLE $01D2, $0100, $0335, $00E9 ; 5D4C 01D2 0100 0335 00E9 DECLE $0042, $027A, $02A4, $0000 ; 5D50 0042 027A 02A4 0000 DECLE $0062, $01D1, $014C, $03EA ; 5D54 0062 01D1 014C 03EA DECLE $02EC, $01E0, $0007, $03A7 ; 5D58 02EC 01E0 0007 03A7 DECLE $0000, $000B, $0018, $034E ; 5D5C 0000 000B 0018 034E DECLE $016E, $01FF, $0349, $00D2 ; 5D60 016E 01FF 0349 00D2 DECLE $003C, $030C, $008B, $0005 ; 5D64 003C 030C 008B 0005 DECLE $0000, $0010, $0318, $014C ; 5D68 0000 0010 0318 014C DECLE $016F, $029E, $03BD, $03BD ; 5D6C 016F 029E 03BD 03BD DECLE $0271, $0212, $0325, $0291 ; 5D70 0271 0212 0325 0291 DECLE $016A, $027B, $014A, $03B4 ; 5D74 016A 027B 014A 03B4 DECLE $0133, $0001 ; 5D78 0133 0001 COMR R1 ; 5D7A 0019 COMR R0 ; 5D7B 0018 CMP@ R1, R6 ; 5D7C 034E CMPR R5, R6 ; 5D7D 016E PULR R6 ; 5D7E 02F6 SUBR R0, R7 ; 5D7F 0107 DECLE $02C2, $006D, $0090, $03AC ; 5D80 02C2 006D 0090 03AC DECLE $01A4, $01DC, $03AB, $0128 ; 5D84 01A4 01DC 03AB 0128 DECLE $0076, $03E6, $0119, $014F ; 5D88 0076 03E6 0119 014F DECLE $03A6, $03A5, $0020, $0090 ; 5D8C 03A6 03A5 0020 0090 DECLE $0001, $02EE, $00BB, $0000 ; 5D90 0001 02EE 00BB 0000 DECLE $001C, $0218 ; 5D94 001C 0218 SUB@ R1, R5 ; 5D96 030D CMPR R5, R4 ; 5D97 016C SUBR R1, R3 ; 5D98 010B SUBR R1, R3 ; 5D99 010B MOVR R2, R5 ; 5D9A 0095 CMP@ R1, R7 ; 5D9B 034F XOR@ R4, R4 ; 5D9C 03E4 SUBR R1, R0 ; 5D9D 0108 ANDR R6, R5 ; 5D9E 01B5 ANDR R7, R6 ; 5D9F 01BE MVI@ R1, R3 ; 5DA0 028B CMPR R4, R0 ; 5DA1 0160 MOVR R5, R2 ; 5DA2 00AA XOR@ R4, R4 ; 5DA3 03E4 SUBR R0, R6 ; 5DA4 0106 ADDR R5, R3 ; 5DA5 00EB ADD@ R3, R6 ; 5DA6 02DE CMPR R1, R4 ; 5DA7 014C CMPR R5, R6 ; 5DA8 016E ADDR R6, R6 ; 5DA9 00F6 SUBR R0, R7 ; 5DAA 0107 DECLE $00D2, $00CD, $0296, $00E4 ; 5DAB 00D2 00CD 0296 00E4 DECLE $0006, $0000, $001F, $0218 ; 5DAF 0006 0000 001F 0218 DECLE $00C9, $0000, $0084, $038E ; 5DB3 00C9 0000 0084 038E DECLE $0147, $03A4, $0195, $0000 ; 5DB7 0147 03A4 0195 0000 DECLE $012E, $0118, $0150, $02D1 ; 5DBB 012E 0118 0150 02D1 DECLE $0232, $01B7, $03F1, $0237 ; 5DBF 0232 01B7 03F1 0237 DECLE $01C8, $03B1, $0227, $01AE ; 5DC3 01C8 03B1 0227 01AE DECLE $0254, $0329, $032D, $01BF ; 5DC7 0254 0329 032D 01BF CMPR R5, R1 ; 5DCB 0169 ANDR R3, R2 ; 5DCC 019A SUB .RAM.81,R7 ; 5DCD 0307 0181 DECLE $028D, $0000 ; 5DCF 028D 0000 COMR R4 ; 5DD1 001C SUBR R3, R0 ; 5DD2 0118 CMP@ R1, R5 ; 5DD3 034D CMPR R5, R4 ; 5DD4 016C ADDR R7, R2 ; 5DD5 00FA ADD G_0072, R7 ; 5DD6 02C7 0072 DECLE $03CC, $0109, $000B, $01AD ; 5DD8 03CC 0109 000B 01AD DECLE $019E, $016B, $0130, $0278 ; 5DDC 019E 016B 0130 0278 DECLE $01F8, $0314, $017E, $029E ; 5DE0 01F8 0314 017E 029E DECLE $014D, $016D, $0205, $0147 ; 5DE4 014D 016D 0205 0147 DECLE $02E2, $001A, $010A, $026E ; 5DE8 02E2 001A 010A 026E DECLE $0004, $0000 ; 5DEC 0004 0000 ADCR R3 ; 5DEE 002B SUB@ R3, R0 ; 5DEF 0318 CMP@ R1, R4 ; 5DF0 034C CMPR R5, R6 ; 5DF1 016E MVI@ R4, R6 ; 5DF2 02A6 ANDI #$002F, R3 ; 5DF3 03BB 002F MVI@ R2, R0 ; 5DF5 0290 MOVR R1, R6 ; 5DF6 008E SLL R3, 1 ; 5DF7 004B AND@ R2, R2 ; 5DF8 0392 XORR R3, R2 ; 5DF9 01DA MVO@ R3, R1 ; 5DFA 024B SUBR R7, R2 ; 5DFB 013A XORR R3, R2 ; 5DFC 01DA SUBR R5, R7 ; 5DFD 012F MOVR R6, R5 ; 5DFE 00B5 ADD@ R4, R5 ; 5DFF 02E5 MVI@ R2, R7 ; 5E00 0297 ADD@ R3, R4 ; 5E01 02DC PULR R2 ; 5E02 0372 CMPR R1, R3 ; 5E03 014B CMPR R5, R5 ; 5E04 016D PULR R7 ; 5E05 0377 ADDR R4, R7 ; 5E06 00E7 PULR R6 ; 5E07 0376 AND@ R1, R2 ; 5E08 038A XORR R1, R6 ; 5E09 01CE MVO@ R3, R5 ; 5E0A 026B ADDI #$01AA, R2 ; 5E0B 02FA 01AA SUBR R3, R6 ; 5E0D 011E RRC R1, 1 ; 5E0E 0071 ADDR R2, R5 ; 5E0F 00D5 MVI@ R2, R7 ; 5E10 0297 DECLE $02BC, $02EA, $01C7, $02D7 ; 5E11 02BC 02EA 01C7 02D7 DECLE $0135, $0155, $01DD, $0007 ; 5E15 0135 0155 01DD 0007 DECLE $0000, $001D, $0318, $03CC ; 5E19 0000 001D 0318 03CC DECLE $016E, $0197, $00FD, $0130 ; 5E1D 016E 0197 00FD 0130 DECLE $0270, $0094, $0328, $0291 ; 5E21 0270 0094 0328 0291 DECLE $0168, $007E, $01CC, $02F5 ; 5E25 0168 007E 01CC 02F5 DECLE $0125, $02B5, $00F4, $0298 ; 5E29 0125 02B5 00F4 0298 DECLE $01DA, $03F6, $0153, $0126 ; 5E2D 01DA 03F6 0153 0126 DECLE $03B9, $00AB, $0293, $03DB ; 5E31 03B9 00AB 0293 03DB DECLE $0175, $01B9, $0001, $001D ; 5E35 0175 01B9 0001 001D DECLE $0318, $01CC, $016E, $0015 ; 5E39 0318 01CC 016E 0015 DECLE $00CB, $0263, $0320, $0078 ; 5E3D 00CB 0263 0320 0078 DECLE $01CE, $0094, $001F, $0040 ; 5E41 01CE 0094 001F 0040 DECLE $0320, $03BF, $0230, $00A7 ; 5E45 0320 03BF 0230 00A7 DECLE $000F, $01FE, $03FC, $01E2 ; 5E49 000F 01FE 03FC 01E2 DECLE $00D0, $0089, $000F, $0248 ; 5E4D 00D0 0089 000F 0248 DECLE $032B, $03FD, $01CF, $0001 ; 5E51 032B 03FD 01CF 0001 DECLE $0000, $002B, $0318, $01CC ; 5E55 0000 002B 0318 01CC DECLE $016E, $0015, $00CB, $0263 ; 5E59 016E 0015 00CB 0263 DECLE $0320, $0078, $01CE, $0094 ; 5E5D 0320 0078 01CE 0094 DECLE $001F, $0040, $0320, $03BF ; 5E61 001F 0040 0320 03BF DECLE $0230, $00A7, $000F, $01FE ; 5E65 0230 00A7 000F 01FE DECLE $03FC, $01E2, $00D0, $0089 ; 5E69 03FC 01E2 00D0 0089 DECLE $000F, $0248, $032B, $03FD ; 5E6D 000F 0248 032B 03FD DECLE $01CF, $0199, $01EE, $008B ; 5E71 01CF 0199 01EE 008B DECLE $0161, $0232, $0004, $0318 ; 5E75 0161 0232 0004 0318 DECLE $01A7, $0198, $0124, $03E0 ; 5E79 01A7 0198 0124 03E0 DECLE $0001 ; 5E7D 0001 SDBD ; 5E7E 0001 SUB@ R1, R7 ; 5E7F 030F DECLE $0027, $0000, $0010, $0310 ; 5E80 0027 0000 0010 0310 DECLE $014D, $016E, $00C3, $03B9 ; 5E84 014D 016E 00C3 03B9 DECLE $01BF, $0241, $0012, $0163 ; 5E88 01BF 0241 0012 0163 DECLE $00E1, $0000, $0080, $0084 ; 5E8C 00E1 0000 0080 0084 DECLE $023F, $003F, $0000, $0019 ; 5E90 023F 003F 0000 0019 DECLE $0218, $010D, $016F, $0225 ; 5E94 0218 010D 016F 0225 DECLE $0351, $00B5, $02A0, $02EE ; 5E98 0351 00B5 02A0 02EE DECLE $00E9, $014D, $002C, $0360 ; 5E9C 00E9 014D 002C 0360 DECLE $0008, $00EC, $004C, $0342 ; 5EA0 0008 00EC 004C 0342 DECLE $03D4, $0156, $0052, $0131 ; 5EA4 03D4 0156 0052 0131 DECLE $0008, $03B0, $01BE, $0172 ; 5EA8 0008 03B0 01BE 0172 DECLE $0000, $0000, $0000, $0000 ; 5EAC 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EB0 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EB4 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EB8 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EBC 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EC0 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EC4 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EC8 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5ECC 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5ED0 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5ED4 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5ED8 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EDC 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EE0 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EE4 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EE8 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EEC 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EF0 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EF4 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EF8 0000 0000 0000 0000 DECLE $0000, $0000, $0000, $0000 ; 5EFC 0000 0000 0000 0000