1 * 2 * MURYADEN/AFFICHE ENTETE MENU 3 * (C)1989 BY DECKARD 4 * 5 ; 6 ORG $4000 7 ; 8 Y EQU $1A 9 HPOSN EQU $F411 10 RESULM EQU $26 ; RESULTAT(-) APRES JSR HPOSN 11 ; 12 ; 4000: A9 20 13 LDA #$20 ; PAGE 1 4002: 85 E6 14 STA $E6 4004: 20 F2 F3 15 JSR $F3F2 ; EFFACE ECRAN HGR EN NOIR 4007: A9 00 16 DEBUT LDA #$00 ; (VALEUR DE Y INITIALE) 4009: 85 1A 17 STA Y 18 ; 19 ; BOUCLE Y 20 ; 400B: A5 1A 21 LOOPY LDA Y 400D: C9 30 22 CMP #48 ; =48? 400F: D0 0D 23 BNE FOLLOW1 24 ; 4011: 2C 54 C0 25 BIT $C054 ; AFFICHE LE TRAVAIL 4014: 2C 50 C0 26 BIT $C050 4017: 2C 57 C0 27 BIT $C057 401A: 2C 52 C0 28 BIT $C052 401D: 60 29 RTS ; FIN DU PROGRAMME 30 ; 31 ; DETERMINE POSITION ECRAN 32 ; 401E: A2 00 33 FOLLOW1 LDX #00 ; X(-) 4020: A0 00 34 LDY #00 ; X(+) 4022: A5 1A 35 LDA Y 4024: 20 11 F4 36 JSR HPOSN 37 ; 38 ; BOUCLE X 39 ; 4027: A0 00 40 LDY #$00 4029: A2 00 41 LDX #$00 402B: BD 4C 40 42 CHARGE LDA STOCK,X ; 402E: 91 26 43 STA (RESULM),Y 4030: E8 44 INX 4031: C8 45 INY 4032: E0 28 46 CPX #40 ; X=40? 4034: D0 F5 47 BNE CHARGE 48 ; 49 ; AUGMENTE VALEUR DE STOCK 50 ; 4036: 18 51 CLC 4037: AD 2C 40 52 LDA CHARGE+1 ; (-) 403A: 69 28 53 ADC #40 403C: 8D 2C 40 54 STA CHARGE+1 ; (-) 403F: AD 2D 40 55 LDA CHARGE+2 4042: 69 00 56 ADC #$00 ; RETENUES 4044: 8D 2D 40 57 STA CHARGE+2 58 ; 4047: E6 1A 59 INC Y 4049: 4C 0B 40 60 JMP LOOPY 61 ; 62 ; DEBUT DATA ECRAN ENTETE 63 ; 64 STOCK 65 404C: 80 80 80 66 HEX 808080808080808080787F7F7F7F7F7F 404F: 80 80 80 80 80 80 78 7F 4057: 7F 7F 7F 7F 7F 405C: 7F 7F 7F 67 HEX 7F7F7F7F7F7F7F7F7F7F7F7F7F7F0F80 405F: 7F 7F 7F 7F 7F 7F 7F 7F 4067: 7F 7F 7F 0F 80 406C: 80 80 80 68 HEX 80808080808080808080808080808080 406F: 80 80 80 80 80 80 80 80 4077: 80 80 80 80 80 407C: 80 7C 7F 69 HEX 807C7F7F7F7F7F7F7F7F7F7F7F7F7F7F 407F: 7F 7F 7F 7F 7F 7F 7F 7F 4087: 7F 7F 7F 7F 7F 408C: 7F 7F 7F 70 HEX 7F7F7F7F7F7F1F808080808080808080 408F: 7F 7F 7F 1F 80 80 80 80 4097: 80 80 80 80 80 409C: 80 80 80 71 HEX 8080808080808080801E000000000000 409F: 80 80 80 80 80 80 1E 00 40A7: 00 00 00 00 00 40AC: 00 00 00 72 HEX 00000000000000000000000000003C80 40AF: 00 00 00 00 00 00 00 00 40B7: 00 00 00 3C 80 40BC: 80 80 80 73 HEX 80808080808080808080808080808080 40BF: 80 80 80 80 80 80 80 80 40C7: 80 80 80 80 80 40CC: 80 0F 00 74 HEX 800F0000000000000000000000000000 40CF: 00 00 00 00 00 00 00 00 40D7: 00 00 00 00 00 40DC: 00 00 00 75 HEX 00000000000078808080808080808080 40DF: 00 00 00 78 80 80 80 80 40E7: 80 80 80 80 80 40EC: 80 80 80 76 HEX 80808080808080808007000000000000 40EF: 80 80 80 80 80 80 07 00 40F7: 00 00 00 00 00 40FC: 00 00 00 77 HEX 00000000000000000000000000007080 40FF: 00 00 00 00 00 00 00 00 4107: 00 00 00 70 80 410C: 80 80 42 78 HEX 80804280808080808080808080A10080 410F: 80 80 80 80 80 80 80 80 4117: 80 80 A1 00 80 411C: 80 07 00 79 HEX 80070000000000000000000000000000 411F: 00 00 00 00 00 00 00 00 4127: 00 00 00 00 00 412C: 00 00 00 80 HEX 000000000000708080800C0380808080 412F: 00 00 00 70 80 80 80 0C 4137: 03 80 80 80 80 413C: 80 80 80 81 HEX 80808080E01800808007000000000000 413F: 80 E0 18 00 80 80 07 00 4147: 00 00 00 00 00 414C: 00 00 00 82 HEX 00000000000000000000000000007080 414F: 00 00 00 00 00 00 00 00 4157: 00 00 00 70 80 415C: 80 80 18 83 HEX 808018078080808080808080F00C0080 415F: 07 80 80 80 80 80 80 80 4167: 80 F0 0C 00 80 416C: 80 07 00 84 HEX 80070000000000000000000000000000 416F: 00 00 00 00 00 00 00 00 4177: 00 00 00 00 00 417C: 00 00 00 85 HEX 00000000000070808010381F80808080 417F: 00 00 00 70 80 80 10 38 4187: 1F 80 80 80 80 418C: 80 80 80 86 HEX 80808080FC0E04008007000000000000 418F: 80 FC 0E 04 00 80 07 00 4197: 00 00 00 00 00 419C: 00 00 00 87 HEX 00000000000000000000000000007080 419F: 00 00 00 00 00 00 00 00 41A7: 00 00 00 70 80 41AC: 80 18 38 88 HEX 8018381F8010808080808200FC0E0C00 41AF: 1F 80 10 80 80 80 80 82 41B7: 00 FC 0E 0C 00 41BC: 80 07 00 89 HEX 80070000000000000000000000000000 41BF: 00 00 00 00 00 00 00 00 41C7: 00 00 00 00 00 41CC: 00 00 00 90 HEX 0000000000007080803E307780208080 41CF: 00 00 00 70 80 80 3E 30 41D7: 77 80 20 80 80 41DC: 80 80 81 91 HEX 80808100F7063E008007000000000000 41DF: 00 F7 06 3E 00 80 07 00 41E7: 00 00 00 00 00 41EC: 00 00 00 92 HEX 00000000000000000000000000007080 41EF: 00 00 00 00 00 00 00 00 41F7: 00 00 00 70 80 41FC: 40 5F 31 93 HEX 405F31770160808080C08140F7467D01 41FF: 77 01 60 80 80 80 C0 81 4207: 40 F7 46 7D 01 420C: 80 07 00 94 HEX 80070000000000000000000000000000 420F: 00 00 00 00 00 00 00 00 4217: 00 00 00 00 00 421C: 00 00 00 95 HEX 0000000000007080783C307B06400380 421F: 00 00 00 70 80 78 3C 30 4227: 7B 06 40 03 80 422C: 80 F0 00 96 HEX 80F000306F061E0F8007000000000000 422F: 30 6F 06 1E 0F 80 07 00 4237: 00 00 00 00 00 423C: 00 00 00 97 HEX 00000000000000000000000000007080 423F: 00 00 00 00 00 00 00 00 4247: 00 00 00 70 80 424C: 78 7F 53 98 HEX 787F533B0F400F84887C007C6E657F0F 424F: 3B 0F 40 0F 84 88 7C 00 4257: 7C 6E 65 7F 0F 425C: 80 07 00 99 HEX 80070000000000000000000000000000 425F: 00 00 00 00 00 00 00 00 4267: 00 00 00 00 00 426C: 00 00 00 100 HEX 0000000000007080777F505D3F807783 426F: 00 00 00 70 80 77 7F 50 4277: 5D 3F 80 77 83 427C: F0 3B 00 101 HEX F03B00F75D457F778007000000000000 427F: F7 5D 45 7F 77 80 07 00 4287: 00 00 00 00 00 428C: 00 00 00 102 HEX 00000000000000200000000000007080 428F: 00 00 00 00 20 00 00 00 4297: 00 00 00 70 80 429C: 80 7B 67 103 HEX 807B676D7B014D81E02C606F5B736F01 429F: 6D 7B 01 4D 81 E0 2C 60 42A7: 6F 5B 73 6F 01 42AC: 80 07 00 104 HEX 8007000000000000000E0F0000000070 42AF: 00 00 00 00 00 00 0E 0F 42B7: 00 00 00 00 70 42BC: 00 00 00 105 HEX 0000000000007080807053767D4F1980 42BF: 00 00 00 70 80 80 70 53 42C7: 76 7D 4F 19 80 42CC: 80 E6 7C 106 HEX 80E67C5F37670700800700000000000F 42CF: 5F 37 67 07 00 80 07 00 42D7: 00 00 00 00 0F 42DC: 1C 58 18 107 HEX 1C58180000005F7C03007F0E70007080 42DF: 00 00 00 5F 7C 03 00 7F 42E7: 0E 70 00 70 80 42EC: 80 70 37 108 HEX 8070373F7E63308080C3713F7E7E0700 42EF: 3F 7E 63 30 80 80 C3 71 42F7: 3F 7E 7E 07 00 42FC: 80 07 00 109 HEX 800700003F7E00041830307C40616000 42FF: 00 3F 7E 00 04 18 30 30 4307: 7C 40 61 60 00 430C: 0E 60 60 110 HEX 0E60601C6000708002705B4F7F106080 430F: 1C 60 00 70 80 02 70 5B 4317: 4F 7F 10 60 80 431C: C0 81 42 111 HEX C081427F796D07208007007060030702 431F: 7F 79 6D 07 20 80 07 00 4327: 70 60 03 07 02 432C: 18 30 30 112 HEX 18303030603060401830403840007080 432F: 30 60 30 60 40 18 30 40 4337: 38 40 00 70 80 433C: 04 78 6D 113 HEX 04786D730F804081E00000FC675B0F10 433F: 73 0F 80 40 81 E0 00 00 4347: FC 67 5B 0F 10 434C: 80 07 00 114 HEX 8007001840010C011830301860186030 434F: 18 40 01 0C 01 18 30 30 4357: 18 60 18 60 30 435C: 30 18 00 115 HEX 30180068400070800578767C80804081 435F: 68 40 00 70 80 05 78 76 4367: 7C 80 80 40 81 436C: E0 00 00 116 HEX E00000809F370F508007000C40015801 436F: 80 9F 37 0F 50 80 07 00 4377: 0C 40 01 58 01 437C: 18 30 18 117 HEX 1830180C600C6018601C404841007080 437F: 0C 60 0C 60 18 60 1C 40 4387: 48 41 00 70 80 438C: 06 78 7F 118 HEX 06787F071F808083B00080FE707F0F30 438F: 07 1F 80 80 83 B0 00 80 4397: FE 70 7F 0F 30 439C: 80 07 00 119 HEX 8007000C400158011870070C600C600C 439F: 0C 40 01 58 01 18 70 07 43A7: 0C 60 0C 60 0C 43AC: 40 7D 7F 120 HEX 407D7F084300708006783F787F808083 43AF: 08 43 00 70 80 06 78 3F 43B7: 78 7F 80 80 83 43BC: B0 00 C0 121 HEX B000C0FF0F7E0F308007000C40015801 43BF: FF 0F 7E 0F 30 80 07 00 43C7: 0C 40 01 58 01 43CC: 18 70 00 122 HEX 1870000C600C600C401D400846007080 43CF: 0C 60 0C 60 0C 40 1D 40 43D7: 08 46 00 70 80 43DC: 0C 70 47 123 HEX 0C70477F7F038083B000F07F7F710718 43DF: 7F 7F 03 80 83 B0 00 F0 43E7: 7F 7F 71 07 18 43EC: 80 07 00 124 HEX 8007000C400158011830030C600C600C 43EF: 0C 40 01 58 01 18 30 03 43F7: 0C 60 0C 60 0C 43FC: 40 1D 00 125 HEX 401D00084C0070803C707F7F7F074081 43FF: 08 4C 00 70 80 3C 70 7F 4407: 7F 7F 07 40 81 440C: E0 00 78 126 HEX E000787F7F7F071E8007000C40015801 440F: 7F 7F 7F 07 1E 80 07 00 4417: 0C 40 01 58 01 441C: 18 30 06 127 HEX 1830060C600C600C4019000858007080 441F: 0C 60 0C 60 0C 40 19 00 4427: 08 58 00 70 80 442C: 7E 6F 7F 128 HEX 7E6F7F7F7D0E6081E0015C5F7F7F7B3F 442F: 7F 7D 0E 60 81 E0 01 5C 4437: 5F 7F 7F 7B 3F 443C: 80 07 00 129 HEX 8007001840010C0314300C1950185018 443F: 18 40 01 0C 03 14 30 0C 4447: 19 50 18 50 18 444C: 60 30 00 130 HEX 6030000870007080635F7F7E7D1D7880 444F: 08 70 00 70 80 63 5F 7F 4457: 7E 7D 1D 78 80 445C: 80 87 6F 131 HEX 80876F5F3F7F7D638007003044110606 445F: 5F 3F 7F 7D 63 80 07 00 4467: 30 44 11 06 06 446C: 12 30 58 132 HEX 12305830683048303060600860007080 446F: 30 68 30 48 30 30 60 60 4477: 08 60 00 70 80 447C: 80 3E 7F 133 HEX 803E7F1E7A711F8080FE672F3C7F3E00 447F: 1E 7A 71 1F 80 80 FE 67 4487: 2F 3C 7F 3E 00 448C: 80 07 00 134 HEX 80070040436101786130304067400741 448F: 40 43 61 01 78 61 30 30 4497: 40 67 40 07 41 449C: 0F 00 3F 135 HEX 0F003F0C40007080800C7C807C430380 449F: 0C 40 00 70 80 80 0C 7C 44A7: 80 7C 43 03 80 44AC: 80 F0 71 136 HEX 80F07117009F18008007000000000000 44AF: 17 00 9F 18 00 80 07 00 44B7: 00 00 00 00 00 44BC: 00 30 00 137 HEX 00300000600000000000000000007080 44BF: 00 60 00 00 00 00 00 00 44C7: 00 00 00 70 80 44CC: 80 80 70 138 HEX 80807080600380808080F00900870080 44CF: 80 60 03 80 80 80 80 F0 44D7: 09 00 87 00 80 44DC: 80 07 00 139 HEX 80070000000000000000000060000000 44DF: 00 00 00 00 00 00 00 00 44E7: 00 60 00 00 00 44EC: 00 00 00 140 HEX 00000000000070808080600158078080 44EF: 00 00 00 70 80 80 80 60 44F7: 01 58 07 80 80 44FC: 80 80 F8 141 HEX 8080F806408300808007000000000000 44FF: 06 40 83 00 80 80 07 00 4507: 00 00 00 00 00 450C: 00 00 00 142 HEX 00000000200000000000000000007080 450F: 00 20 00 00 00 00 00 00 4517: 00 00 00 70 80 451C: 80 80 40 143 HEX 80804001300F80808080BC0340830080 451F: 01 30 0F 80 80 80 80 BC 4527: 03 40 83 00 80 452C: 80 07 00 144 HEX 80070000000000000000000010000000 452F: 00 00 00 00 00 00 00 00 4537: 00 10 00 00 00 453C: 00 00 00 145 HEX 000000000000708080804003601C8080 453F: 00 00 00 70 80 80 80 40 4547: 03 60 1C 80 80 454C: 80 80 CE 146 HEX 8080CE01600100808007000000000000 454F: 01 60 01 00 80 80 07 00 4557: 00 00 00 00 00 455C: 00 00 00 147 HEX 000000000E0000000000000000007080 455F: 00 0E 00 00 00 00 00 00 4567: 00 00 00 70 80 456C: 80 80 40 148 HEX 80804003601C80808080CE0160010080 456F: 03 60 1C 80 80 80 80 CE 4577: 01 60 01 00 80 457C: 80 07 00 149 HEX 80070000000000000000000000000000 457F: 00 00 00 00 00 00 00 00 4587: 00 00 00 00 00 458C: 00 00 00 150 HEX 000000000000708080804003601C8080 458F: 00 00 00 70 80 80 80 40 4597: 03 60 1C 80 80 459C: 80 80 CE 151 HEX 8080CE01600300808007808080808080 459F: 01 60 03 00 80 80 07 80 45A7: 80 80 80 80 80 45AC: 80 80 80 152 HEX 80808080808080808080808080807080 45AF: 80 80 80 80 80 80 80 80 45B7: 80 80 80 70 80 45BC: 80 80 70 153 HEX 80807001300F80808080BC03408E0080 45BF: 01 30 0F 80 80 80 80 BC 45C7: 03 40 8E 00 80 45CC: 80 07 80 154 HEX 80078080808080808080808080808080 45CF: 80 80 80 80 80 80 80 80 45D7: 80 80 80 80 80 45DC: 80 80 80 155 HEX 808080808080708080802C01680A8080 45DF: 80 80 80 70 80 80 80 2C 45E7: 01 68 0A 80 80 45EC: 80 80 D4 156 HEX 8080D40D40B500808007808080808080 45EF: 0D 40 B5 00 80 80 07 80 45F7: 80 80 80 80 80 45FC: 80 80 80 157 HEX 80808080808080808080808080807080 45FF: 80 80 80 80 80 80 80 80 4607: 80 80 80 70 80 460C: 80 80 80 158 HEX 80808080808080808080808080808080 460F: 80 80 80 80 80 80 80 80 4617: 80 80 80 80 80 461C: 80 07 80 159 HEX 80078080808080808080808080808080 461F: 80 80 80 80 80 80 80 80 4627: 80 80 80 80 80 462C: 80 80 80 160 HEX 80808080808070808080808080808080 462F: 80 80 80 70 80 80 80 80 4637: 80 80 80 80 80 463C: 80 80 80 161 HEX 80808080808080808007808080808080 463F: 80 80 80 80 80 80 07 80 4647: 80 80 80 80 80 464C: 80 80 80 162 HEX 80808080808080808080808080807080 464F: 80 80 80 80 80 80 80 80 4657: 80 80 80 70 80 465C: 80 80 80 163 HEX 80808080808080808080808080808080 465F: 80 80 80 80 80 80 80 80 4667: 80 80 80 80 80 466C: 80 07 80 164 HEX 80078080808080808080808080808080 466F: 80 80 80 80 80 80 80 80 4677: 80 80 80 80 80 467C: 80 80 80 165 HEX 80808080808070808080808080808080 467F: 80 80 80 70 80 80 80 80 4687: 80 80 80 80 80 468C: 80 80 80 166 HEX 80808080808080808007000000000000 468F: 80 80 80 80 80 80 07 00 4697: 00 00 00 00 00 469C: 00 00 00 167 HEX 00000000000000000000000000007080 469F: 00 00 00 00 00 00 00 00 46A7: 00 00 00 70 80 46AC: 80 80 80 168 HEX 80808080808080808080808080808080 46AF: 80 80 80 80 80 80 80 80 46B7: 80 80 80 80 80 46BC: 80 07 00 169 HEX 80070000000000000000000000000000 46BF: 00 00 00 00 00 00 00 00 46C7: 00 00 00 00 00 46CC: 00 00 00 170 HEX 00000000000070808080808080808080 46CF: 00 00 00 70 80 80 80 80 46D7: 80 80 80 80 80 46DC: 80 80 80 171 HEX 80808080808080808007000000000000 46DF: 80 80 80 80 80 80 07 00 46E7: 00 00 00 00 00 46EC: 00 00 00 172 HEX 00000000000000000000000000007080 46EF: 00 00 00 00 00 00 00 00 46F7: 00 00 00 70 80 46FC: 80 80 80 173 HEX 80808080808080808080808080808080 46FF: 80 80 80 80 80 80 80 80 4707: 80 80 80 80 80 470C: 80 07 00 174 HEX 80070000000000000000000000000000 470F: 00 00 00 00 00 00 00 00 4717: 00 00 00 00 00 471C: 00 00 00 175 HEX 00000000000070808080808080808080 471F: 00 00 00 70 80 80 80 80 4727: 80 80 80 80 80 472C: 80 80 80 176 HEX 8080808080808080800F000000000000 472F: 80 80 80 80 80 80 0F 00 4737: 00 00 00 00 00 473C: 00 00 00 177 HEX 00000000000000000000000000007880 473F: 00 00 00 00 00 00 00 00 4747: 00 00 00 78 80 474C: 80 80 80 178 HEX 80808080808080808080808080808080 474F: 80 80 80 80 80 80 80 80 4757: 80 80 80 80 80 475C: 80 1E 00 179 HEX 801E0000000000000000000000000000 475F: 00 00 00 00 00 00 00 00 4767: 00 00 00 00 00 476C: 00 00 00 180 HEX 0000000000003C808080808080808080 476F: 00 00 00 3C 80 80 80 80 4777: 80 80 80 80 80 477C: 80 80 80 181 HEX 8080808080808080807C7F7F7F7F7F7F 477F: 80 80 80 80 80 80 7C 7F 4787: 7F 7F 7F 7F 7F 478C: 7F 7F 7F 182 HEX 7F7F7F7F7F7F7F7F7F7F7F7F7F7F1F80 478F: 7F 7F 7F 7F 7F 7F 7F 7F 4797: 7F 7F 7F 1F 80 479C: 80 80 80 183 HEX 80808080808080808080808080808080 479F: 80 80 80 80 80 80 80 80 47A7: 80 80 80 80 80 47AC: 80 78 7F 184 HEX 80787F7F7F7F7F7F7F7F7F7F7F7F7F7F 47AF: 7F 7F 7F 7F 7F 7F 7F 7F 47B7: 7F 7F 7F 7F 7F 47BC: 7F 7F 7F 185 HEX 7F7F7F7F7F7F0F808080808080808080 47BF: 7F 7F 7F 0F 80 80 80 80 47C7: 80 80 80 80 80 47CC: 00 00 00 186 HEX 00000000000000000000000000000000 47CF: 00 00 00 00 00 00 00 00 47D7: 00 00 00 00 00 47DC: 00 00 00 187 HEX 00000000000000000000000000000000 47DF: 00 00 00 00 00 00 00 00 47E7: 00 00 00 00 00 47EC: 00 00 00 188 HEX 000000000000000000 47EF: 00 00 00 00 00 00 189 190 191 SAV SCRN.MENU Object saved as SCRN.MENU,A$4000,L$07F5 --End assembly, 2037 bytes, Errors: 0 Symbol table - alphabetical order: CHARGE =$402B ? DEBUT =$4007 FOLLOW1 =$401E HPOSN =$F411 LOOPY =$400B RESULM =$26 STOCK =$404C Y =$1A Symbol table - numerical order: Y =$1A RESULM =$26 ? DEBUT =$4007 LOOPY =$400B FOLLOW1 =$401E CHARGE =$402B STOCK =$404C HPOSN =$F411