REM > BRIDGE/S REM Source for Econet Bridge OS_CLI=&FFF7:OSBYTE=&FFF4:OSWORD=&FFF1:OSWRCH=&FFEE OSWRCR=&FFEC:OSNEWL=&FFE7:OSASCI=&FFE3:OSRDCH=&FFE0 load%=&E000 DIM mcode% &2014 FOR P=0 TO 1 P%=load%:O%=mcode% [OPT P*3+4 \ RESET \ ===== \ &Cxxx - network A \ &C000 - network ID \ &C8xx - ALDC \ &Dxxx - network B \ &D000 - network ID \ &D8xx - ALDC .LE000 CLI:CLD:JSR LE424 :\ Clear network address buffers JSR LE3F0:JSR LE40A :\ Initialise ALDCs LDY #&00:STY &80 LDA #&17:STA &81 :\ &80/1=>&1700 .LE013 :\ Check memory? INC &81 LDA #&AA:STA (&80),Y INC &00 LDA (&80),Y CMP #&AA:BNE LE02D LDA #&55:STA (&80),Y INC &00 LDA (&80),Y CMP #&55:BEQ LE013 .LE02D DEC &81 :\ E02D= C6 81 F. LDA &81 :\ E02F= A5 81 %. STA &82 :\ E031= 85 82 .. LDA #&00 :\ E033= A9 00 ). STA &0229 :\ E035= 8D 29 02 .). JSR LE458 :\ E038= 20 58 E4 Xd JSR LE6DC :\ E03B= 20 DC E6 \f JSR LE517 :\ E03E= 20 17 E5 .e LDA &C000 :\ E041= AD 00 C0 -.@ STA &0460 :\ E044= 8D 60 04 .`. LDA #&04 :\ E047= A9 04 ). STA &81 :\ E049= 85 81 .. JSR LE690 :\ E04B= 20 90 E6 .f JSR LE4C0 :\ E04E= 20 C0 E4 @d .LE051 LDA &C801 :\ E051= AD 01 C8 -.H AND #&81 :\ E054= 29 81 ). BEQ LE05D :\ E056= F0 05 p. LDA #&C2 :\ E058= A9 C2 )B STA &C800 :\ E05A= 8D 00 C8 ..H .LE05D LDX #&82 :\ E05D= A2 82 ". STX &C800 :\ E05F= 8E 00 C8 ..H LDY #&67 :\ E062= A0 67 g STY &C801 :\ E064= 8C 01 C8 ..H LDA &D801 :\ E067= AD 01 D8 -.X AND #&81 :\ E06A= 29 81 ). BEQ LE073 :\ E06C= F0 05 p. LDA #&C2 :\ E06E= A9 C2 )B STA &D800 :\ E070= 8D 00 D8 ..X .LE073 STX &D800 :\ E073= 8E 00 D8 ..X STY &D801 :\ E076= 8C 01 D8 ..X .LE079 BIT &D800 :\ E079= 2C 00 D8 ,.X BPL LE081 :\ E07C= 10 03 .. JMP LE263 :\ E07E= 4C 63 E2 Lcb .LE081 BIT &C800 :\ E081= 2C 00 C8 ,.H BPL LE089 :\ E084= 10 03 .. JMP LE0E2 :\ E086= 4C E2 E0 Lb` .LE089 LDA &0229 :\ E089= AD 29 02 -). BEQ LE079 :\ E08C= F0 EB pk DEC &022A :\ E08E= CE 2A 02 N*. BNE LE079 :\ E091= D0 E6 Pf DEC &022B :\ E093= CE 2B 02 N+. BNE LE079 :\ E096= D0 E1 Pa JSR LE458 :\ E098= 20 58 E4 Xd LDA #&81 :\ E09B= A9 81 ). STA &045E :\ E09D= 8D 5E 04 .^. BIT &0229 :\ E0A0= 2C 29 02 ,). BMI LE0CA :\ E0A3= 30 25 0% LDA #&C2 :\ E0A5= A9 C2 )B STA &D800 :\ E0A7= 8D 00 D8 ..X JSR LE6DC :\ E0AA= 20 DC E6 \f JSR LE517 :\ E0AD= 20 17 E5 .e DEC &022C :\ E0B0= CE 2C 02 N,. BEQ LE0C2 :\ E0B3= F0 0D p. .LE0B5 LDA #&80 :\ E0B5= A9 80 ). STA &022B :\ E0B7= 8D 2B 02 .+. LDA #&00 :\ E0BA= A9 00 ). STA &022A :\ E0BC= 8D 2A 02 .*. JMP LE051 :\ E0BF= 4C 51 E0 LQ` .LE0C2 LDA #&00 :\ E0C2= A9 00 ). STA &0229 :\ E0C4= 8D 29 02 .). JMP LE051 :\ E0C7= 4C 51 E0 LQ` .LE0CA LDA &C000 :\ E0CA= AD 00 C0 -.@ STA &0460 :\ E0CD= 8D 60 04 .`. LDA #&C2 :\ E0D0= A9 C2 )B STA &C800 :\ E0D2= 8D 00 C8 ..H JSR LE690 :\ E0D5= 20 90 E6 .f JSR LE4C0 :\ E0D8= 20 C0 E4 @d DEC &022C :\ E0DB= CE 2C 02 N,. BEQ LE0C2 :\ E0DE= F0 E2 pb BNE LE0B5 :\ E0E0= D0 D3 PS .LE0E2 LDA #&01 :\ E0E2= A9 01 ). BIT &C801 :\ E0E4= 2C 01 C8 ,.H BEQ LE13C :\ E0E7= F0 53 pS LDA &C802 :\ E0E9= AD 02 C8 -.H STA &023C :\ E0EC= 8D 3C 02 .<. JSR LE3E4 :\ E0EF= 20 E4 E3 dc BIT &C801 :\ E0F2= 2C 01 C8 ,.H BPL LE13C :\ E0F5= 10 45 .E LDY &C802 :\ E0F7= AC 02 C8 ,.H BEQ LE13F :\ E0FA= F0 43 pC LDA &025A,Y :\ E0FC= B9 5A 02 9Z. BEQ LE13F :\ E0FF= F0 3E p> STY &023D :\ E101= 8C 3D 02 .=. LDY #&02 :\ E104= A0 02 . .LE106 JSR LE3E4 :\ E106= 20 E4 E3 dc BIT &C801 :\ E109= 2C 01 C8 ,.H BPL LE120 :\ E10C= 10 12 .. LDA &C802 :\ E10E= AD 02 C8 -.H STA &023C,Y :\ E111= 99 3C 02 .<. INY :\ E114= C8 H LDA &C802 :\ E115= AD 02 C8 -.H STA &023C,Y :\ E118= 99 3C 02 .<. INY :\ E11B= C8 H CPY #&14 :\ E11C= C0 14 @. BCC LE106 :\ E11E= 90 E6 .f .LE120 LDA #&00 :\ E120= A9 00 ). STA &C800 :\ E122= 8D 00 C8 ..H LDA #&84 :\ E125= A9 84 ). STA &C801 :\ E127= 8D 01 C8 ..H LDA #&02 :\ E12A= A9 02 ). BIT &C801 :\ E12C= 2C 01 C8 ,.H BEQ LE13C :\ E12F= F0 0B p. BPL LE14A :\ E131= 10 17 .. LDA &C802 :\ E133= AD 02 C8 -.H STA &023C,Y :\ E136= 99 3C 02 .<. INY :\ E139= C8 H BNE LE14A :\ E13A= D0 0E P. .LE13C JMP LE051 :\ E13C= 4C 51 E0 LQ` .LE13F LDA #&A2 :\ E13F= A9 A2 )" STA &C800 :\ E141= 8D 00 C8 ..H JMP LE079 :\ E144= 4C 79 E0 Ly` .LE147 JMP LE208 :\ E147= 4C 08 E2 L.b .LE14A STY &0228 :\ E14A= 8C 28 02 .(. CPY #&06 :\ E14D= C0 06 @. BCC LE13C :\ E14F= 90 EB .k LDA &023F :\ E151= AD 3F 02 -?. BNE LE15C :\ E154= D0 06 P. LDA &C000 :\ E156= AD 00 C0 -.@ STA &023F :\ E159= 8D 3F 02 .?. .LE15C LDA &D000 :\ E15C= AD 00 D0 -.P CMP &023D :\ E15F= CD 3D 02 M=. BNE LE169 :\ E162= D0 05 P. LDA #&00 :\ E164= A9 00 ). STA &023D :\ E166= 8D 3D 02 .=. \ &023C = dest.stn \ &023D = dest.net .LE169 LDA &023C:AND &023D :\ Check net.stn reception transmitted to CMP #&FF:BNE LE147 :\ If not &FFFF, jump to... JSR LE3FF :\ Talk to ALDC LDA #&C2:STA &C800 \ &0240 = control byte \ &0241 = port \ &0242 = "BRIDGE" \ &0248 = reply_port \ &0249 = data byte \ LDA &0241 :\ Get port number CMP #&9C:BNE LE147 :\ Not BridgeQuery port LDA &0240 :\ Get control byte CMP #&81:BEQ LE1EE CMP #&80:BEQ LE1D6 CMP #&82:BEQ LE19D :\ WhatBridge query CMP #&83:BNE LE208 :\ Not IsNet query \ Bridge Query &83 - IsNet \ ------------------------ LDY &0249 :\ Get network being asked about LDA &025A,Y :\ Look in network buffer BEQ LE1D3 :\ Not known, jump to... \ Bridge Query &82 - WhatNet \ -------------------------- .LE19D JSR LE3FF :\ Talk to ALDC JSR LE48D :\ E1A0= 20 8D E4 .d LDA &D000 :\ E1A3= AD 00 D0 -.P STA &045D :\ E1A6= 8D 5D 04 .]. STA &0214 :\ E1A9= 8D 14 02 ... JSR LE448 :\ E1AC= 20 48 E4 Hd JSR LE6DC :\ E1AF= 20 DC E6 \f JSR LE517 :\ E1B2= 20 17 E5 .e JSR LE56E :\ E1B5= 20 6E E5 ne JSR LE48D :\ E1B8= 20 8D E4 .d LDA &D000 :\ E1BB= AD 00 D0 -.P STA &045D :\ E1BE= 8D 5D 04 .]. LDA &C000 :\ E1C1= AD 00 C0 -.@ STA &045E :\ E1C4= 8D 5E 04 .^. LDA &0249 :\ E1C7= AD 49 02 -I. STA &045F :\ E1CA= 8D 5F 04 ._. JSR LE517 :\ E1CD= 20 17 E5 .e JSR LE56E :\ E1D0= 20 6E E5 ne .LE1D3 JMP LE051 :\ E1D3= 4C 51 E0 LQ` \ Bridge Query &80 \ ---------------- .LE1D6 JSR LE424 :\ Reset network tables LDA &D000:STA &022B :\ Get network B number LDA #&00:STA &022A LDA #&0A:STA &022C LDA #&40:STA &0229 \ &0229 = &40 \ &022A = &00 \ &022B = netB \ &022C = &0A \ Bridge Query &81 \ ---------------- .LE1EE LDY #&06 :\ E1EE= A0 06 . .LE1F0 LDA &023C,Y :\ E1F0= B9 3C 02 9<. TAX :\ E1F3= AA * LDA #&FF :\ E1F4= A9 FF ). STA &035A,X :\ E1F6= 9D 5A 03 .Z. INY :\ E1F9= C8 H CPY &0228 :\ E1FA= CC 28 02 L(. BNE LE1F0 :\ E1FD= D0 F1 Pq LDA &C000 :\ E1FF= AD 00 C0 -.@ STA &023C,Y :\ E202= 99 3C 02 .<. INC &0228 :\ E205= EE 28 02 n(. .LE208 LDA &0228 :\ E208= AD 28 02 -(. TAX :\ E20B= AA * AND #&FE :\ E20C= 29 FE )~ STA &0228 :\ E20E= 8D 28 02 .(. JSR LE690 :\ E211= 20 90 E6 .f LDY #&00 :\ E214= A0 00 . .LE216 JSR LE3EA :\ E216= 20 EA E3 jc BIT &D800 :\ E219= 2C 00 D8 ,.X BVC LE260 :\ E21C= 50 42 PB LDA &023C,Y :\ E21E= B9 3C 02 9<. STA &D802 :\ E221= 8D 02 D8 ..X INY :\ E224= C8 H LDA &023C,Y :\ E225= B9 3C 02 9<. STA &D802 :\ E228= 8D 02 D8 ..X INY :\ E22B= C8 H CPY &0228 :\ E22C= CC 28 02 L(. BCC LE216 :\ E22F= 90 E5 .e TXA :\ E231= 8A . ROR A :\ E232= 6A j BCC LE23E :\ E233= 90 09 .. JSR LE3EA :\ E235= 20 EA E3 jc LDA &023C,Y :\ E238= B9 3C 02 9<. STA &D802 :\ E23B= 8D 02 D8 ..X .LE23E LDA #&3F :\ E23E= A9 3F )? STA &D801 :\ E240= 8D 01 D8 ..X JSR LE3EA :\ E243= 20 EA E3 jc LDA #&5A :\ E246= A9 5A )Z STA &80 :\ E248= 85 80 .. LDA #&04 :\ E24A= A9 04 ). STA &81 :\ E24C= 85 81 .. JSR LE5FF :\ E24E= 20 FF E5 .e JSR LE517 :\ E251= 20 17 E5 .e JSR LE56E :\ E254= 20 6E E5 ne JSR LE4C0 :\ E257= 20 C0 E4 @d JSR LE5FF :\ E25A= 20 FF E5 .e JSR LE517 :\ E25D= 20 17 E5 .e .LE260 JMP LE051 :\ E260= 4C 51 E0 LQ` .LE263 LDA #&01 :\ E263= A9 01 ). BIT &D801 :\ E265= 2C 01 D8 ,.X BEQ LE2BD :\ E268= F0 53 pS LDA &D802 :\ E26A= AD 02 D8 -.X STA &023C :\ E26D= 8D 3C 02 .<. JSR LE3EA :\ E270= 20 EA E3 jc BIT &D801 :\ E273= 2C 01 D8 ,.X BPL LE2BD :\ E276= 10 45 .E LDY &D802 :\ E278= AC 02 D8 ,.X BEQ LE2C0 :\ E27B= F0 43 pC LDA &035A,Y :\ E27D= B9 5A 03 9Z. BEQ LE2C0 :\ E280= F0 3E p> STY &023D :\ E282= 8C 3D 02 .=. LDY #&02 :\ E285= A0 02 . .LE287 JSR LE3EA :\ E287= 20 EA E3 jc BIT &D801 :\ E28A= 2C 01 D8 ,.X BPL LE2A1 :\ E28D= 10 12 .. LDA &D802 :\ E28F= AD 02 D8 -.X STA &023C,Y :\ E292= 99 3C 02 .<. INY :\ E295= C8 H LDA &D802 :\ E296= AD 02 D8 -.X STA &023C,Y :\ E299= 99 3C 02 .<. INY :\ E29C= C8 H CPY #&14 :\ E29D= C0 14 @. BCC LE287 :\ E29F= 90 E6 .f .LE2A1 LDA #&00 :\ E2A1= A9 00 ). STA &D800 :\ E2A3= 8D 00 D8 ..X LDA #&84 :\ E2A6= A9 84 ). STA &D801 :\ E2A8= 8D 01 D8 ..X LDA #&02 :\ E2AB= A9 02 ). BIT &D801 :\ E2AD= 2C 01 D8 ,.X BEQ LE2BD :\ E2B0= F0 0B p. BPL LE2CB :\ E2B2= 10 17 .. LDA &D802 :\ E2B4= AD 02 D8 -.X STA &023C,Y :\ E2B7= 99 3C 02 .<. INY :\ E2BA= C8 H BNE LE2CB :\ E2BB= D0 0E P. .LE2BD JMP LE051 :\ E2BD= 4C 51 E0 LQ` .LE2C0 LDA #&A2 :\ E2C0= A9 A2 )" STA &D800 :\ E2C2= 8D 00 D8 ..X JMP LE079 :\ E2C5= 4C 79 E0 Ly` .LE2C8 JMP LE389 :\ E2C8= 4C 89 E3 L.c .LE2CB STY &0228 :\ E2CB= 8C 28 02 .(. CPY #&06 :\ E2CE= C0 06 @. BCC LE2BD :\ E2D0= 90 EB .k LDA &023F :\ E2D2= AD 3F 02 -?. BNE LE2DD :\ E2D5= D0 06 P. LDA &D000 :\ E2D7= AD 00 D0 -.P STA &023F :\ E2DA= 8D 3F 02 .?. .LE2DD LDA &C000 :\ E2DD= AD 00 C0 -.@ CMP &023D :\ E2E0= CD 3D 02 M=. BNE LE2EA :\ E2E3= D0 05 P. LDA #&00 :\ E2E5= A9 00 ). STA &023D :\ E2E7= 8D 3D 02 .=. .LE2EA LDA &023C :\ E2EA= AD 3C 02 -<. AND &023D :\ E2ED= 2D 3D 02 -=. CMP #&FF :\ E2F0= C9 FF I. BNE LE2C8 :\ E2F2= D0 D4 PT JSR LE419 :\ E2F4= 20 19 E4 .d LDA #&C2 :\ E2F7= A9 C2 )B STA &D800 :\ E2F9= 8D 00 D8 ..X LDA &0241 :\ E2FC= AD 41 02 -A. CMP #&9C :\ E2FF= C9 9C I. BNE LE2C8 :\ E301= D0 C5 PE LDA &0240 :\ E303= AD 40 02 -@. CMP #&81 :\ E306= C9 81 I. BEQ LE36F :\ E308= F0 65 pe CMP #&80 :\ E30A= C9 80 I. BEQ LE357 :\ E30C= F0 49 pI CMP #&82 :\ E30E= C9 82 I. BEQ LE31E :\ E310= F0 0C p. CMP #&83 :\ E312= C9 83 I. BNE LE389 :\ E314= D0 73 Ps LDY &0249 :\ E316= AC 49 02 ,I. LDA &035A,Y :\ E319= B9 5A 03 9Z. BEQ LE354 :\ E31C= F0 36 p6 .LE31E JSR LE419 :\ E31E= 20 19 E4 .d JSR LE48D :\ E321= 20 8D E4 .d LDA &C000 :\ E324= AD 00 C0 -.@ STA &045D :\ E327= 8D 5D 04 .]. STA &0214 :\ E32A= 8D 14 02 ... JSR LE448 :\ E32D= 20 48 E4 Hd JSR LE690 :\ E330= 20 90 E6 .f JSR LE4C0 :\ E333= 20 C0 E4 @d JSR LE5FF :\ E336= 20 FF E5 .e JSR LE48D :\ E339= 20 8D E4 .d LDA &C000 :\ E33C= AD 00 C0 -.@ STA &045D :\ E33F= 8D 5D 04 .]. LDA &D000 :\ E342= AD 00 D0 -.P STA &045E :\ E345= 8D 5E 04 .^. LDA &0249 :\ E348= AD 49 02 -I. STA &045F :\ E34B= 8D 5F 04 ._. JSR LE4C0 :\ E34E= 20 C0 E4 @d JSR LE5FF :\ E351= 20 FF E5 .e .LE354 JMP LE051 :\ E354= 4C 51 E0 LQ` .LE357 JSR LE424 :\ E357= 20 24 E4 $d LDA &C000 :\ E35A= AD 00 C0 -.@ STA &022B :\ E35D= 8D 2B 02 .+. LDA #&00 :\ E360= A9 00 ). STA &022A :\ E362= 8D 2A 02 .*. LDA #&0A :\ E365= A9 0A ). STA &022C :\ E367= 8D 2C 02 .,. LDA #&80 :\ E36A= A9 80 ). STA &0229 :\ E36C= 8D 29 02 .). .LE36F LDY #&06 :\ E36F= A0 06 . .LE371 LDA &023C,Y :\ E371= B9 3C 02 9<. TAX :\ E374= AA * LDA #&FF :\ E375= A9 FF ). STA &025A,X :\ E377= 9D 5A 02 .Z. INY :\ E37A= C8 H CPY &0228 :\ E37B= CC 28 02 L(. BNE LE371 :\ E37E= D0 F1 Pq LDA &D000 :\ E380= AD 00 D0 -.P STA &023C,Y :\ E383= 99 3C 02 .<. INC &0228 :\ E386= EE 28 02 n(. .LE389 LDA &0228 :\ E389= AD 28 02 -(. TAX :\ E38C= AA * AND #&FE :\ E38D= 29 FE )~ STA &0228 :\ E38F= 8D 28 02 .(. JSR LE6DC :\ E392= 20 DC E6 \f LDY #&00 :\ E395= A0 00 . .LE397 JSR LE3E4 :\ E397= 20 E4 E3 dc BIT &C800 :\ E39A= 2C 00 C8 ,.H BVC LE3E1 :\ E39D= 50 42 PB LDA &023C,Y :\ E39F= B9 3C 02 9<. STA &C802 :\ E3A2= 8D 02 C8 ..H INY :\ E3A5= C8 H LDA &023C,Y :\ E3A6= B9 3C 02 9<. STA &C802 :\ E3A9= 8D 02 C8 ..H INY :\ E3AC= C8 H CPY &0228 :\ E3AD= CC 28 02 L(. BCC LE397 :\ E3B0= 90 E5 .e TXA :\ E3B2= 8A . ROR A :\ E3B3= 6A j BCC LE3BF :\ E3B4= 90 09 .. JSR LE3E4 :\ E3B6= 20 E4 E3 dc LDA &023C,Y :\ E3B9= B9 3C 02 9<. STA &C802 :\ E3BC= 8D 02 C8 ..H .LE3BF LDA #&3F :\ E3BF= A9 3F )? STA &C801 :\ E3C1= 8D 01 C8 ..H JSR LE3E4 :\ E3C4= 20 E4 E3 dc LDA #&5A :\ E3C7= A9 5A )Z STA &80 :\ E3C9= 85 80 .. LDA #&04 :\ E3CB= A9 04 ). STA &81 :\ E3CD= 85 81 .. JSR LE56E :\ E3CF= 20 6E E5 ne JSR LE4C0 :\ E3D2= 20 C0 E4 @d JSR LE5FF :\ E3D5= 20 FF E5 .e JSR LE517 :\ E3D8= 20 17 E5 .e JSR LE56E :\ E3DB= 20 6E E5 ne JSR LE4C0 :\ E3DE= 20 C0 E4 @d .LE3E1 JMP LE051 :\ E3E1= 4C 51 E0 LQ` .LE3E4 BIT &C800 :\ E3E4= 2C 00 C8 ,.H BPL LE3E4 :\ E3E7= 10 FB .{ RTS :\ E3E9= 60 ` .LE3EA BIT &D800 :\ E3EA= 2C 00 D8 ,.X BPL LE3EA :\ E3ED= 10 FB .{ RTS :\ E3EF= 60 ` \ Initialise ALDC A (?) \ --------------------- .LE3F0 LDA #&C1:STA &C800 LDA #&1E:STA &C803 LDA #&00:STA &C801 .LE3FF LDA #&82:STA &C800 LDA #&67:STA &C801 RTS \ Initialise ALDC B (?) \ --------------------- .LE40A LDA #&C1:STA &D800 LDA #&1E:STA &D803 LDA #&00:STA &D801 .LE419 LDA #&82:STA &D800 LDA #&67:STA &D801 RTS \ Note what networks to receive from on each side \ ----------------------------------------------- \ &25A,n = &FF if network n recognised on side 'A' \ &35A,n = &FF is network n recognised on side 'B' \ Sets network 'A' and 'B' and &FF for broadcasts .LE424 LDY #&00:LDA #&00 .LE428 STA &025A,Y:STA &035A,Y :\ Clear memory 025A-0459 INY:BNE LE428 LDA #&FF LDY &C000:STA &035A,Y :\ Set (&35A+network A) to &FF LDY &D000:STA &025A,Y :\ Set (&25A+network B) to &FF LDY #&FF STA &025A,Y:STA &035A,Y :\ Set (&35A+&FF and &2%A+&FF) to &FF RTS .LE448 LDY #&40 :\ E448= A0 40 @ .LE44A DEY :\ E44A= 88 . BNE LE44A :\ E44B= D0 FD P} .LE44D LDY #&14 :\ E44D= A0 14 . .LE44F DEY :\ E44F= 88 . BNE LE44F :\ E450= D0 FD P} DEC &0214 :\ E452= CE 14 02 N.. BNE LE44D :\ E455= D0 F6 Pv RTS :\ E457= 60 ` .LE458 LDA #&FF :\ E458= A9 FF ). STA &045A :\ E45A= 8D 5A 04 .Z. STA &045B :\ E45D= 8D 5B 04 .[. LDA #&18 :\ E460= A9 18 ). STA &045C :\ E462= 8D 5C 04 .\. STA &045D :\ E465= 8D 5D 04 .]. LDA #&9C :\ E468= A9 9C ). STA &045F :\ E46A= 8D 5F 04 ._. LDA #&80 :\ E46D= A9 80 ). STA &045E :\ E46F= 8D 5E 04 .^. LDA &D000 :\ E472= AD 00 D0 -.P STA &0460 :\ E475= 8D 60 04 .`. LDX #&01 :\ E478= A2 01 ". LDA #&06 :\ E47A= A9 06 ). STA &0200 :\ E47C= 8D 00 02 ... LDA #&04 :\ E47F= A9 04 ). STA &0201 :\ E481= 8D 01 02 ... LDA #&5A :\ E484= A9 5A )Z STA &80 :\ E486= 85 80 .. LDA #&04 :\ E488= A9 04 ). STA &81 :\ E48A= 85 81 .. RTS :\ E48C= 60 ` .LE48D LDA &023E :\ E48D= AD 3E 02 ->. STA &045A :\ E490= 8D 5A 04 .Z. LDA #&00 :\ E493= A9 00 ). STA &045B :\ E495= 8D 5B 04 .[. LDA #&00 :\ E498= A9 00 ). STA &045C :\ E49A= 8D 5C 04 .\. STA &045D :\ E49D= 8D 5D 04 .]. LDA #&80 :\ E4A0= A9 80 ). STA &045E :\ E4A2= 8D 5E 04 .^. LDA &0248 :\ E4A5= AD 48 02 -H. STA &045F :\ E4A8= 8D 5F 04 ._. LDX #&00 :\ E4AB= A2 00 ". LDA #&06 :\ E4AD= A9 06 ). STA &0200 :\ E4AF= 8D 00 02 ... LDA #&04 :\ E4B2= A9 04 ). STA &0201 :\ E4B4= 8D 01 02 ... LDA #&5A :\ E4B7= A9 5A )Z STA &80 :\ E4B9= 85 80 .. LDA #&04 :\ E4BB= A9 04 ). STA &81 :\ E4BD= 85 81 .. RTS :\ E4BF= 60 ` .LE4C0 LDA #&E7 :\ E4C0= A9 E7 )g STA &D801 :\ E4C2= 8D 01 D8 ..X LDA #&44 :\ E4C5= A9 44 )D STA &D800 :\ E4C7= 8D 00 D8 ..X LDY #&00 :\ E4CA= A0 00 . .LE4CC JSR LE3EA :\ E4CC= 20 EA E3 jc BIT &D800 :\ E4CF= 2C 00 D8 ,.X BVS LE4D9 :\ E4D2= 70 05 p. .LE4D4 PLA :\ E4D4= 68 h PLA :\ E4D5= 68 h JMP LE051 :\ E4D6= 4C 51 E0 LQ` .LE4D9 LDA (&80),Y :\ E4D9= B1 80 1. STA &D802 :\ E4DB= 8D 02 D8 ..X INY :\ E4DE= C8 H LDA (&80),Y :\ E4DF= B1 80 1. STA &D802 :\ E4E1= 8D 02 D8 ..X INY :\ E4E4= C8 H BNE LE4E9 :\ E4E5= D0 02 P. INC &81 :\ E4E7= E6 81 f. .LE4E9 CPY &0200 :\ E4E9= CC 00 02 L.. BNE LE4CC :\ E4EC= D0 DE P^ LDA &81 :\ E4EE= A5 81 %. CMP &0201 :\ E4F0= CD 01 02 M.. BCC LE4CC :\ E4F3= 90 D7 .W TXA :\ E4F5= 8A . ROR A :\ E4F6= 6A j BCC LE506 :\ E4F7= 90 0D .. JSR LE3EA :\ E4F9= 20 EA E3 jc BIT &D800 :\ E4FC= 2C 00 D8 ,.X BVC LE4D4 :\ E4FF= 50 D3 PS LDA (&80),Y :\ E501= B1 80 1. STA &D802 :\ E503= 8D 02 D8 ..X .LE506 LDA #&3F :\ E506= A9 3F )? STA &D801 :\ E508= 8D 01 D8 ..X JSR LE3EA :\ E50B= 20 EA E3 jc LDA #&5A :\ E50E= A9 5A )Z STA &80 :\ E510= 85 80 .. LDA #&04 :\ E512= A9 04 ). STA &81 :\ E514= 85 81 .. RTS :\ E516= 60 ` .LE517 LDA #&E7 :\ E517= A9 E7 )g STA &C801 :\ E519= 8D 01 C8 ..H LDA #&44 :\ E51C= A9 44 )D STA &C800 :\ E51E= 8D 00 C8 ..H LDY #&00 :\ E521= A0 00 . .LE523 JSR LE3E4 :\ E523= 20 E4 E3 dc BIT &C800 :\ E526= 2C 00 C8 ,.H BVS LE530 :\ E529= 70 05 p. .LE52B PLA :\ E52B= 68 h PLA :\ E52C= 68 h JMP LE051 :\ E52D= 4C 51 E0 LQ` .LE530 LDA (&80),Y :\ E530= B1 80 1. STA &C802 :\ E532= 8D 02 C8 ..H INY :\ E535= C8 H LDA (&80),Y :\ E536= B1 80 1. STA &C802 :\ E538= 8D 02 C8 ..H INY :\ E53B= C8 H BNE LE540 :\ E53C= D0 02 P. INC &81 :\ E53E= E6 81 f. .LE540 CPY &0200 :\ E540= CC 00 02 L.. BNE LE523 :\ E543= D0 DE P^ LDA &81 :\ E545= A5 81 %. CMP &0201 :\ E547= CD 01 02 M.. BCC LE523 :\ E54A= 90 D7 .W TXA :\ E54C= 8A . ROR A :\ E54D= 6A j BCC LE55D :\ E54E= 90 0D .. JSR LE3E4 :\ E550= 20 E4 E3 dc BIT &C800 :\ E553= 2C 00 C8 ,.H BVC LE52B :\ E556= 50 D3 PS LDA (&80),Y :\ E558= B1 80 1. STA &C802 :\ E55A= 8D 02 C8 ..H .LE55D LDA #&3F :\ E55D= A9 3F )? STA &C801 :\ E55F= 8D 01 C8 ..H JSR LE3E4 :\ E562= 20 E4 E3 dc LDA #&5A :\ E565= A9 5A )Z STA &80 :\ E567= 85 80 .. LDA #&04 :\ E569= A9 04 ). STA &81 :\ E56B= 85 81 .. RTS :\ E56D= 60 ` .LE56E LDA #&82 :\ E56E= A9 82 ). STA &C800 :\ E570= 8D 00 C8 ..H LDA #&01 :\ E573= A9 01 ). JSR LE3E4 :\ E575= 20 E4 E3 dc BIT &C801 :\ E578= 2C 01 C8 ,.H BEQ LE5B1 :\ E57B= F0 34 p4 LDA &C802 :\ E57D= AD 02 C8 -.H STA &045A :\ E580= 8D 5A 04 .Z. JSR LE3E4 :\ E583= 20 E4 E3 dc BIT &C801 :\ E586= 2C 01 C8 ,.H BPL LE5B1 :\ E589= 10 26 .& LDA &C802 :\ E58B= AD 02 C8 -.H STA &045B :\ E58E= 8D 5B 04 .[. LDY #&02 :\ E591= A0 02 . .LE593 JSR LE3E4 :\ E593= 20 E4 E3 dc BIT &C801 :\ E596= 2C 01 C8 ,.H BPL LE5B6 :\ E599= 10 1B .. LDA &C802 :\ E59B= AD 02 C8 -.H STA (&80),Y :\ E59E= 91 80 .. INY :\ E5A0= C8 H LDA &C802 :\ E5A1= AD 02 C8 -.H STA (&80),Y :\ E5A4= 91 80 .. INY :\ E5A6= C8 H BNE LE593 :\ E5A7= D0 EA Pj INC &81 :\ E5A9= E6 81 f. LDA &81 :\ E5AB= A5 81 %. CMP &82 :\ E5AD= C5 82 E. BCC LE593 :\ E5AF= 90 E2 .b .LE5B1 PLA :\ E5B1= 68 h PLA :\ E5B2= 68 h JMP LE051 :\ E5B3= 4C 51 E0 LQ` .LE5B6 LDA #&00 :\ E5B6= A9 00 ). STA &C800 :\ E5B8= 8D 00 C8 ..H LDA #&84 :\ E5BB= A9 84 ). STA &C801 :\ E5BD= 8D 01 C8 ..H LDA #&02 :\ E5C0= A9 02 ). BIT &C801 :\ E5C2= 2C 01 C8 ,.H BEQ LE5B1 :\ E5C5= F0 EA pj BPL LE5CF :\ E5C7= 10 06 .. LDA &C802 :\ E5C9= AD 02 C8 -.H STA (&80),Y :\ E5CC= 91 80 .. INY :\ E5CE= C8 H .LE5CF TYA :\ E5CF= 98 . TAX :\ E5D0= AA * AND #&FE :\ E5D1= 29 FE )~ STA &0200 :\ E5D3= 8D 00 02 ... LDA &045D :\ E5D6= AD 5D 04 -]. BNE LE5E1 :\ E5D9= D0 06 P. LDA &C000 :\ E5DB= AD 00 C0 -.@ STA &045D :\ E5DE= 8D 5D 04 .]. .LE5E1 LDY &045B :\ E5E1= AC 5B 04 ,[. BEQ LE5B1 :\ E5E4= F0 CB pK LDA &025A,Y :\ E5E6= B9 5A 02 9Z. BEQ LE5B1 :\ E5E9= F0 C6 pF CPY &D000 :\ E5EB= CC 00 D0 L.P BNE LE5F5 :\ E5EE= D0 05 P. LDA #&00 :\ E5F0= A9 00 ). STA &045B :\ E5F2= 8D 5B 04 .[. .LE5F5 LDA &81 :\ E5F5= A5 81 %. STA &0201 :\ E5F7= 8D 01 02 ... LDA #&04 :\ E5FA= A9 04 ). STA &81 :\ E5FC= 85 81 .. RTS :\ E5FE= 60 ` .LE5FF LDA #&82 :\ E5FF= A9 82 ). STA &D800 :\ E601= 8D 00 D8 ..X LDA #&01 :\ E604= A9 01 ). JSR LE3EA :\ E606= 20 EA E3 jc BIT &D801 :\ E609= 2C 01 D8 ,.X BEQ LE642 :\ E60C= F0 34 p4 LDA &D802 :\ E60E= AD 02 D8 -.X STA &045A :\ E611= 8D 5A 04 .Z. JSR LE3EA :\ E614= 20 EA E3 jc BIT &D801 :\ E617= 2C 01 D8 ,.X BPL LE642 :\ E61A= 10 26 .& LDA &D802 :\ E61C= AD 02 D8 -.X STA &045B :\ E61F= 8D 5B 04 .[. LDY #&02 :\ E622= A0 02 . .LE624 JSR LE3EA :\ E624= 20 EA E3 jc BIT &D801 :\ E627= 2C 01 D8 ,.X BPL LE647 :\ E62A= 10 1B .. LDA &D802 :\ E62C= AD 02 D8 -.X STA (&80),Y :\ E62F= 91 80 .. INY :\ E631= C8 H LDA &D802 :\ E632= AD 02 D8 -.X STA (&80),Y :\ E635= 91 80 .. INY :\ E637= C8 H BNE LE624 :\ E638= D0 EA Pj INC &81 :\ E63A= E6 81 f. LDA &81 :\ E63C= A5 81 %. CMP &82 :\ E63E= C5 82 E. BCC LE624 :\ E640= 90 E2 .b .LE642 PLA :\ E642= 68 h PLA :\ E643= 68 h JMP LE051 :\ E644= 4C 51 E0 LQ` .LE647 LDA #&00 :\ E647= A9 00 ). STA &D800 :\ E649= 8D 00 D8 ..X LDA #&84 :\ E64C= A9 84 ). STA &D801 :\ E64E= 8D 01 D8 ..X LDA #&02 :\ E651= A9 02 ). BIT &D801 :\ E653= 2C 01 D8 ,.X BEQ LE642 :\ E656= F0 EA pj BPL LE660 :\ E658= 10 06 .. LDA &D802 :\ E65A= AD 02 D8 -.X STA (&80),Y :\ E65D= 91 80 .. INY :\ E65F= C8 H .LE660 TYA :\ E660= 98 . TAX :\ E661= AA * AND #&FE :\ E662= 29 FE )~ STA &0200 :\ E664= 8D 00 02 ... LDA &045D :\ E667= AD 5D 04 -]. BNE LE672 :\ E66A= D0 06 P. LDA &D000 :\ E66C= AD 00 D0 -.P STA &045D :\ E66F= 8D 5D 04 .]. .LE672 LDY &045B :\ E672= AC 5B 04 ,[. BEQ LE642 :\ E675= F0 CB pK LDA &035A,Y :\ E677= B9 5A 03 9Z. BEQ LE642 :\ E67A= F0 C6 pF CPY &C000 :\ E67C= CC 00 C0 L.@ BNE LE686 :\ E67F= D0 05 P. LDA #&00 :\ E681= A9 00 ). STA &045B :\ E683= 8D 5B 04 .[. .LE686 LDA &81 :\ E686= A5 81 %. STA &0201 :\ E688= 8D 01 02 ... LDA #&04 :\ E68B= A9 04 ). STA &81 :\ E68D= 85 81 .. RTS :\ E68F= 60 ` .LE690 LDA #&00 :\ E690= A9 00 ). STA &0214 :\ E692= 8D 14 02 ... STA &0215 :\ E695= 8D 15 02 ... LDA #&FE :\ E698= A9 FE )~ STA &0216 :\ E69A= 8D 16 02 ... LDA &D801 :\ E69D= AD 01 D8 -.X LDY #&E7 :\ E6A0= A0 E7 g .LE6A2 LDA #&67 :\ E6A2= A9 67 )g STA &D801 :\ E6A4= 8D 01 D8 ..X LDA #&04 :\ E6A7= A9 04 ). BIT &D801 :\ E6A9= 2C 01 D8 ,.X BNE LE6D3 :\ E6AC= D0 25 P% LDA &D801 :\ E6AE= AD 01 D8 -.X AND #&81 :\ E6B1= 29 81 ). BEQ LE6BF :\ E6B3= F0 0A p. LDA #&C2 :\ E6B5= A9 C2 )B STA &D800 :\ E6B7= 8D 00 D8 ..X LDA #&82 :\ E6BA= A9 82 ). STA &D800 :\ E6BC= 8D 00 D8 ..X .LE6BF INC &0214 :\ E6BF= EE 14 02 n.. BNE LE6A2 :\ E6C2= D0 DE P^ INC &0215 :\ E6C4= EE 15 02 n.. BNE LE6A2 :\ E6C7= D0 D9 PY INC &0216 :\ E6C9= EE 16 02 n.. BNE LE6A2 :\ E6CC= D0 D4 PT PLA :\ E6CE= 68 h PLA :\ E6CF= 68 h JMP LE051 :\ E6D0= 4C 51 E0 LQ` .LE6D3 STY &D801 :\ E6D3= 8C 01 D8 ..X LDA #&44 :\ E6D6= A9 44 )D STA &D800 :\ E6D8= 8D 00 D8 ..X RTS :\ E6DB= 60 ` .LE6DC LDA #&00 :\ E6DC= A9 00 ). STA &0214 :\ E6DE= 8D 14 02 ... STA &0215 :\ E6E1= 8D 15 02 ... LDA #&FE :\ E6E4= A9 FE )~ STA &0216 :\ E6E6= 8D 16 02 ... LDA &C801 :\ E6E9= AD 01 C8 -.H LDY #&E7 :\ E6EC= A0 E7 g .LE6EE LDA #&67 :\ E6EE= A9 67 )g STA &C801 :\ E6F0= 8D 01 C8 ..H LDA #&04 :\ E6F3= A9 04 ). BIT &C801 :\ E6F5= 2C 01 C8 ,.H BNE LE71F :\ E6F8= D0 25 P% LDA &C801 :\ E6FA= AD 01 C8 -.H AND #&81 :\ E6FD= 29 81 ). BEQ LE70B :\ E6FF= F0 0A p. LDA #&C2 :\ E701= A9 C2 )B STA &C800 :\ E703= 8D 00 C8 ..H LDA #&82 :\ E706= A9 82 ). STA &C800 :\ E708= 8D 00 C8 ..H .LE70B INC &0214 :\ E70B= EE 14 02 n.. BNE LE6EE :\ E70E= D0 DE P^ INC &0215 :\ E710= EE 15 02 n.. BNE LE6EE :\ E713= D0 D9 PY INC &0216 :\ E715= EE 16 02 n.. BNE LE6EE :\ E718= D0 D4 PT PLA :\ E71A= 68 h PLA :\ E71B= 68 h JMP LE051 :\ E71C= 4C 51 E0 LQ` .LE71F STY &C801 :\ E71F= 8C 01 C8 ..H LDA #&44 :\ E722= A9 44 )D STA &C800 :\ E724= 8D 00 C8 ..H RTS :\ E727= 60 ` BBS 7,&FF,&EFFD :\ E728= FF FF FF ... BBS 7,&FF,&EFFD :\ E72B= FF FF FF ... BBS 7,&FF,&EFFD :\ EFFA= FF FF FF ... BBS 7,&FF,&F039 :\ EFFD= FF FF FF ... \ NMI \ === .LF000 SEI:LDA #&00:STA &03 .LF005 LDA #&C1:STA &C800:STA &D800 :\ Talk to both ALDCs LDA #&1E:STA &C803:STA &D803 LDA #&80:STA &C801 LDA #&80:STA &D801 LDA #&82:STA &C800:STA &D800 LDA #&67:STA &C801:STA &D801 .LF02F LDA #&55 .LF031 STA &00:STA &01:STA &02 CMP &00:BNE LF09D CMP &01:BNE LF09D CMP &02:BNE LF09D CMP #&AA:BEQ LF04C LDA #&AA:JMP LF031 .LF04C LDA #&00:STA &00 LDA #&20:STA &02 LDA #&E0:STA &01 LDY #&00:TYA .LF05B CLC :\ F05B= 18 . ADC (&00),Y :\ F05C= 71 00 q. INY :\ F05E= C8 H BNE LF05B :\ F05F= D0 FA Pz INC &01 :\ F061= E6 01 f. DEC &02 :\ F063= C6 02 F. BNE LF05B :\ F065= D0 F4 Pt CMP #&55 :\ F067= C9 55 IU BEQ LF070 :\ F069= F0 05 p. LDA #&02 :\ F06B= A9 02 ). JMP LF2C7 :\ F06D= 4C C7 F2 LGr .LF070 LDA #&00 :\ F070= A9 00 ). STA &00 :\ F072= 85 00 .. LDA #&00 :\ F074= A9 00 ). STA &01 :\ F076= 85 01 .. LDA #&20 :\ F078= A9 20 ) STA &02 :\ F07A= 85 02 .. LDY #&04 :\ F07C= A0 04 . .LF07E LDA #&55 :\ F07E= A9 55 )U STA (&00),Y :\ F080= 91 00 .. LDA (&00),Y :\ F082= B1 00 1. CMP #&55 :\ F084= C9 55 IU BNE LF09D :\ F086= D0 15 P. LDA #&AA :\ F088= A9 AA )* STA (&00),Y :\ F08A= 91 00 .. LDA (&00),Y :\ F08C= B1 00 1. CMP #&AA :\ F08E= C9 AA I* BNE LF09D :\ F090= D0 0B P. INY :\ F092= C8 H BNE LF07E :\ F093= D0 E9 Pi INC &01 :\ F095= E6 01 f. DEC &02 :\ F097= C6 02 F. BNE LF07E :\ F099= D0 E3 Pc BEQ LF0A0 :\ F09B= F0 03 p. .LF09D JMP LF28C :\ F09D= 4C 8C F2 L.r .LF0A0 LDA #&00 :\ F0A0= A9 00 ). STA &01 :\ F0A2= 85 01 .. LDA #&20 :\ F0A4= A9 20 ) STA &02 :\ F0A6= 85 02 .. LDY #&04 :\ F0A8= A0 04 . LDX #&00 :\ F0AA= A2 00 ". .LF0AC TXA :\ F0AC= 8A . STA (&00),Y :\ F0AD= 91 00 .. INX :\ F0AF= E8 h INY :\ F0B0= C8 H BNE LF0AC :\ F0B1= D0 F9 Py INC &01 :\ F0B3= E6 01 f. INX :\ F0B5= E8 h DEC &02 :\ F0B6= C6 02 F. BNE LF0AC :\ F0B8= D0 F2 Pr LDA #&00 :\ F0BA= A9 00 ). STA &01 :\ F0BC= 85 01 .. LDA #&20 :\ F0BE= A9 20 ) STA &02 :\ F0C0= 85 02 .. LDY #&04 :\ F0C2= A0 04 . LDX #&00 :\ F0C4= A2 00 ". .LF0C6 TXA :\ F0C6= 8A . CMP (&00),Y :\ F0C7= D1 00 Q. BNE LF09D :\ F0C9= D0 D2 PR INX :\ F0CB= E8 h INY :\ F0CC= C8 H BNE LF0C6 :\ F0CD= D0 F7 Pw INC &01 :\ F0CF= E6 01 f. INX :\ F0D1= E8 h DEC &02 :\ F0D2= C6 02 F. BNE LF0C6 :\ F0D4= D0 F0 Pp LDA #&10 :\ F0D6= A9 10 ). BIT &C800 :\ F0D8= 2C 00 C8 ,.H BEQ LF105 :\ F0DB= F0 28 p( LDA #&04 :\ F0DD= A9 04 ). BIT &C801 :\ F0DF= 2C 01 C8 ,.H BEQ LF105 :\ F0E2= F0 21 p! LDA #&20 :\ F0E4= A9 20 ) BIT &C801 :\ F0E6= 2C 01 C8 ,.H BNE LF105 :\ F0E9= D0 1A P. LDA #&10 :\ F0EB= A9 10 ). BIT &D800 :\ F0ED= 2C 00 D8 ,.X BEQ LF100 :\ F0F0= F0 0E p. LDA #&04 :\ F0F2= A9 04 ). BIT &D801 :\ F0F4= 2C 01 D8 ,.X BEQ LF100 :\ F0F7= F0 07 p. LDA #&20 :\ F0F9= A9 20 ) BIT &D801 :\ F0FB= 2C 01 D8 ,.X BEQ LF10A :\ F0FE= F0 0A p. .LF100 LDA #&04 :\ F100= A9 04 ). JMP LF2C7 :\ F102= 4C C7 F2 LGr .LF105 LDA #&03 :\ F105= A9 03 ). JMP LF2C7 :\ F107= 4C C7 F2 LGr .LF10A LDA #&C0 :\ F10A= A9 C0 )@ STA &C800 :\ F10C= 8D 00 C8 ..H STA &D800 :\ F10F= 8D 00 D8 ..X LDA #&82 :\ F112= A9 82 ). STA &D800 :\ F114= 8D 00 D8 ..X LDA #&E7 :\ F117= A9 E7 )g STA &C801 :\ F119= 8D 01 C8 ..H LDA #&44 :\ F11C= A9 44 )D STA &C800 :\ F11E= 8D 00 C8 ..H LDY #&00 :\ F121= A0 00 . LDX #&00 :\ F123= A2 00 ". .LF125 JSR LE3E4 :\ F125= 20 E4 E3 dc BIT &C800 :\ F128= 2C 00 C8 ,.H BVC LF151 :\ F12B= 50 24 P$ STY &C802 :\ F12D= 8C 02 C8 ..H INY :\ F130= C8 H STY &C802 :\ F131= 8C 02 C8 ..H INY :\ F134= C8 H CPY #&08 :\ F135= C0 08 @. BNE LF125 :\ F137= D0 EC Pl JSR LE3EA :\ F139= 20 EA E3 jc LDA #&01 :\ F13C= A9 01 ). BIT &D801 :\ F13E= 2C 01 D8 ,.X BEQ LF151 :\ F141= F0 0E p. CPX &D802 :\ F143= EC 02 D8 l.X BNE LF151 :\ F146= D0 09 P. INX :\ F148= E8 h JSR LE3EA :\ F149= 20 EA E3 jc BIT &D801 :\ F14C= 2C 01 D8 ,.X BMI LF156 :\ F14F= 30 05 0. .LF151 LDA #&05 :\ F151= A9 05 ). JMP LF2C7 :\ F153= 4C C7 F2 LGr .LF156 CPX &D802 :\ F156= EC 02 D8 l.X BNE LF151 :\ F159= D0 F6 Pv INX :\ F15B= E8 h .LF15C JSR LE3E4 :\ F15C= 20 E4 E3 dc BIT &C800 :\ F15F= 2C 00 C8 ,.H BVC LF151 :\ F162= 50 ED Pm STY &C802 :\ F164= 8C 02 C8 ..H INY :\ F167= C8 H STY &C802 :\ F168= 8C 02 C8 ..H INY :\ F16B= C8 H JSR LE3EA :\ F16C= 20 EA E3 jc BIT &D801 :\ F16F= 2C 01 D8 ,.X BPL LF151 :\ F172= 10 DD .] CPX &D802 :\ F174= EC 02 D8 l.X BNE LF151 :\ F177= D0 D8 PX INX :\ F179= E8 h CPX &D802 :\ F17A= EC 02 D8 l.X BNE LF151 :\ F17D= D0 D2 PR INX :\ F17F= E8 h CPY #&00 :\ F180= C0 00 @. BNE LF15C :\ F182= D0 D8 PX LDA #&3F :\ F184= A9 3F )? STA &C801 :\ F186= 8D 01 C8 ..H .LF189 JSR LE3EA :\ F189= 20 EA E3 jc BIT &D801 :\ F18C= 2C 01 D8 ,.X BPL LF151 :\ F18F= 10 C0 .@ CPX &D802 :\ F191= EC 02 D8 l.X BNE LF151 :\ F194= D0 BB P; INX :\ F196= E8 h CPX &D802 :\ F197= EC 02 D8 l.X BNE LF151 :\ F19A= D0 B5 P5 INX :\ F19C= E8 h CPX #&00 :\ F19D= E0 00 `. BNE LF189 :\ F19F= D0 E8 Ph JSR LE3EA :\ F1A1= 20 EA E3 jc LDA #&02 :\ F1A4= A9 02 ). BIT &D801 :\ F1A6= 2C 01 D8 ,.X BEQ LF151 :\ F1A9= F0 A6 p& LDA #&C0 :\ F1AB= A9 C0 )@ STA &C800 :\ F1AD= 8D 00 C8 ..H STA &D800 :\ F1B0= 8D 00 D8 ..X LDA #&82 :\ F1B3= A9 82 ). STA &C800 :\ F1B5= 8D 00 C8 ..H LDA #&E7 :\ F1B8= A9 E7 )g STA &D801 :\ F1BA= 8D 01 D8 ..X LDA #&44 :\ F1BD= A9 44 )D STA &D800 :\ F1BF= 8D 00 D8 ..X LDY #&00 :\ F1C2= A0 00 . LDX #&00 :\ F1C4= A2 00 ". .LF1C6 JSR LE3EA :\ F1C6= 20 EA E3 jc BIT &D800 :\ F1C9= 2C 00 D8 ,.X BVC LF1F2 :\ F1CC= 50 24 P$ STY &D802 :\ F1CE= 8C 02 D8 ..X INY :\ F1D1= C8 H STY &D802 :\ F1D2= 8C 02 D8 ..X INY :\ F1D5= C8 H CPY #&08 :\ F1D6= C0 08 @. BNE LF1C6 :\ F1D8= D0 EC Pl JSR LE3E4 :\ F1DA= 20 E4 E3 dc LDA #&01 :\ F1DD= A9 01 ). BIT &C801 :\ F1DF= 2C 01 C8 ,.H BEQ LF1F2 :\ F1E2= F0 0E p. CPX &C802 :\ F1E4= EC 02 C8 l.H BNE LF1F2 :\ F1E7= D0 09 P. INX :\ F1E9= E8 h JSR LE3E4 :\ F1EA= 20 E4 E3 dc BIT &C801 :\ F1ED= 2C 01 C8 ,.H BMI LF1F7 :\ F1F0= 30 05 0. .LF1F2 LDA #&06 :\ F1F2= A9 06 ). JMP LF2C7 :\ F1F4= 4C C7 F2 LGr .LF1F7 CPX &C802 :\ F1F7= EC 02 C8 l.H BNE LF1F2 :\ F1FA= D0 F6 Pv INX :\ F1FC= E8 h .LF1FD JSR LE3EA :\ F1FD= 20 EA E3 jc BIT &D800 :\ F200= 2C 00 D8 ,.X BVC LF1F2 :\ F203= 50 ED Pm STY &D802 :\ F205= 8C 02 D8 ..X INY :\ F208= C8 H STY &D802 :\ F209= 8C 02 D8 ..X INY :\ F20C= C8 H JSR LE3E4 :\ F20D= 20 E4 E3 dc BIT &C801 :\ F210= 2C 01 C8 ,.H BPL LF1F2 :\ F213= 10 DD .] CPX &C802 :\ F215= EC 02 C8 l.H BNE LF1F2 :\ F218= D0 D8 PX INX :\ F21A= E8 h CPX &C802 :\ F21B= EC 02 C8 l.H BNE LF1F2 :\ F21E= D0 D2 PR INX :\ F220= E8 h CPY #&00 :\ F221= C0 00 @. BNE LF1FD :\ F223= D0 D8 PX LDA #&3F :\ F225= A9 3F )? STA &D801 :\ F227= 8D 01 D8 ..X .LF22A JSR LE3E4 :\ F22A= 20 E4 E3 dc BIT &C801 :\ F22D= 2C 01 C8 ,.H BPL LF1F2 :\ F230= 10 C0 .@ CPX &C802 :\ F232= EC 02 C8 l.H BNE LF1F2 :\ F235= D0 BB P; INX :\ F237= E8 h CPX &C802 :\ F238= EC 02 C8 l.H BNE LF1F2 :\ F23B= D0 B5 P5 INX :\ F23D= E8 h CPX #&00 :\ F23E= E0 00 `. BNE LF22A :\ F240= D0 E8 Ph JSR LE3E4 :\ F242= 20 E4 E3 dc LDA #&02 :\ F245= A9 02 ). BIT &C801 :\ F247= 2C 01 C8 ,.H BEQ LF1F2 :\ F24A= F0 A6 p& LDA &C000 :\ F24C= AD 00 C0 -.@ CMP #&01 :\ F24F= C9 01 I. BEQ LF258 :\ F251= F0 05 p. LDA #&07 :\ F253= A9 07 ). JMP LF2C7 :\ F255= 4C C7 F2 LGr .LF258 LDA &D000 :\ F258= AD 00 D0 -.P CMP #&02 :\ F25B= C9 02 I. BEQ LF264 :\ F25D= F0 05 p. LDA #&08 :\ F25F= A9 08 ). JMP LF2C7 :\ F261= 4C C7 F2 LGr .LF264 LDA &03 :\ F264= A5 03 %. EOR #&FF :\ F266= 49 FF I. STA &03 :\ F268= 85 03 .. BMI LF26F :\ F26A= 30 03 0. JMP LF005 :\ F26C= 4C 05 F0 L.p .LF26F LDA #&C1 :\ F26F= A9 C1 )A STA &C800 :\ F271= 8D 00 C8 ..H LDA #&00 :\ F274= A9 00 ). STA &C801 :\ F276= 8D 01 C8 ..H LDA #&82 :\ F279= A9 82 ). STA &C800 :\ F27B= 8D 00 C8 ..H STA &D800 :\ F27E= 8D 00 D8 ..X LDA #&67 :\ F281= A9 67 )g STA &C801 :\ F283= 8D 01 C8 ..H STA &D801 :\ F286= 8D 01 D8 ..X JMP LF02F :\ F289= 4C 2F F0 L/p .LF28C LDX #&01 :\ F28C= A2 01 ". STX &C800 :\ F28E= 8E 00 C8 ..H .LF291 LDX #&00 :\ F291= A2 00 ". STX &C801 :\ F293= 8E 01 C8 ..H LDX #&00 :\ F296= A2 00 ". LDY #&00 :\ F298= A0 00 . .LF29A DEX :\ F29A= CA J BNE LF29A :\ F29B= D0 FD P} DEY :\ F29D= 88 . BNE LF29A :\ F29E= D0 FA Pz LDX #&80 :\ F2A0= A2 80 ". STX &C801 :\ F2A2= 8E 01 C8 ..H LDY #&00 :\ F2A5= A0 00 . LDX #&00 :\ F2A7= A2 00 ". .LF2A9 DEC LE000,X :\ F2A9= DE 00 E0 ^.` DEC LE000,X :\ F2AC= DE 00 E0 ^.` DEC LE000,X :\ F2AF= DE 00 E0 ^.` DEC LE000,X :\ F2B2= DE 00 E0 ^.` DEC LE000,X :\ F2B5= DE 00 E0 ^.` DEC LE000,X :\ F2B8= DE 00 E0 ^.` DEC LE000,X :\ F2BB= DE 00 E0 ^.` DEX :\ F2BE= CA J BNE LF2A9 :\ F2BF= D0 E8 Ph DEY :\ F2C1= 88 . BNE LF2A9 :\ F2C2= D0 E5 Pe JMP LF291 :\ F2C4= 4C 91 F2 L.r .LF2C7 STA &00 :\ F2C7= 85 00 .. STA &01 :\ F2C9= 85 01 .. LDX #&01 :\ F2CB= A2 01 ". STX &C800 :\ F2CD= 8E 00 C8 ..H .LF2D0 LDX #&00 :\ F2D0= A2 00 ". STX &C801 :\ F2D2= 8E 01 C8 ..H LDY #&00 :\ F2D5= A0 00 . LDX #&00 :\ F2D7= A2 00 ". .LF2D9 DEX :\ F2D9= CA J BNE LF2D9 :\ F2DA= D0 FD P} DEY :\ F2DC= 88 . BNE LF2D9 :\ F2DD= D0 FA Pz LDX #&80 :\ F2DF= A2 80 ". STX &C801 :\ F2E1= 8E 01 C8 ..H LDY #&00 :\ F2E4= A0 00 . LDX #&00 :\ F2E6= A2 00 ". .LF2E8 DEX :\ F2E8= CA J BNE LF2E8 :\ F2E9= D0 FD P} DEY :\ F2EB= 88 . BNE LF2E8 :\ F2EC= D0 FA Pz DEC &01 :\ F2EE= C6 01 F. BNE LF2D0 :\ F2F0= D0 DE P^ LDA #&08 :\ F2F2= A9 08 ). STA &01 :\ F2F4= 85 01 .. LDY #&00 :\ F2F6= A0 00 . LDX #&00 :\ F2F8= A2 00 ". .LF2FA DEX :\ F2FA= CA J BNE LF2FA :\ F2FB= D0 FD P} DEY :\ F2FD= 88 . BNE LF2FA :\ F2FE= D0 FA Pz DEC &01 :\ F300= C6 01 F. BNE LF2FA :\ F302= D0 F6 Pv LDA &00 :\ F304= A5 00 %. STA &01 :\ F306= 85 01 .. JMP LF2D0 :\ F308= 4C D0 F2 LPr BBS 7,&FF,&F30D :\ F30B= FF FF FF ... BBS 7,&FF,&F310 :\ F30E= FF FF FF ... BBS 7,&FF,&FEFE :\ FEFC= FF FF FF ... BBS 7,&F7,&FF01 :\ FEFF= FF F7 FF .w. BBS 7,&FF,&FF04 :\ FF02= FF FF FF ... BBS 7,&FF,&FFEE :\ FFEC= FF FF FF ... BBS 7,&46,OSWORD :\ FFEF= FF 46 FF .F. BBS 7,&FF,&FFF4 :\ FFF2= FF FF FF ... BBS 7,&FF,&FFF7 :\ FFF5= FF FF FF ... EQUW &FFFF :\ FFF8= FF FF EQUW &FFFF :\ FFFA= FF FF EQUW LE000 :\ RESET EQUW LF000 :\ NMI ]NEXT PRINT "*SAVE BRIDGE ";~mcode%;" ";~O%;" ";~exec%;" ";~load%