*
* MURYADEN/AFFICHE ENTETE MENU
* (C)1989 BY DECKARD
*
                          ;
         ORG   $4000
                          ;
Y        EQU   $1A
HPOSN    EQU   $F411
RESULM   EQU   $26        ; RESULTAT(-) APRES JSR HPOSN
                          ;
                          ;
         LDA   #$20       ; PAGE 1
         STA   $E6
         JSR   $F3F2      ; EFFACE ECRAN HGR EN NOIR
DEBUT    LDA   #$00       ; (VALEUR DE Y INITIALE)
         STA   Y
                          ;
                          ; BOUCLE Y
                          ;
LOOPY    LDA   Y
         CMP   #48        ; =48?
         BNE   FOLLOW1
                          ;
         BIT   $C054      ; AFFICHE LE TRAVAIL
         BIT   $C050
         BIT   $C057
         BIT   $C052
         RTS              ; FIN DU PROGRAMME
                          ;
                          ; DETERMINE POSITION ECRAN
                          ;
FOLLOW1  LDX   #00        ; X(-)
         LDY   #00        ; X(+)
         LDA   Y
         JSR   HPOSN
                          ;
                          ; BOUCLE X
                          ;
         LDY   #$00
         LDX   #$00
CHARGE   LDA   STOCK,X    ;
         STA   (RESULM),Y
         INX
         INY
         CPX   #40        ; X=40?
         BNE   CHARGE
                          ;
                          ; AUGMENTE VALEUR DE STOCK
                          ;
         CLC
         LDA   CHARGE+1   ; (-)
         ADC   #40
         STA   CHARGE+1   ; (-)
         LDA   CHARGE+2
         ADC   #$00       ; RETENUES
         STA   CHARGE+2
                          ;
         INC   Y
         JMP   LOOPY
                          ;
                          ; DEBUT DATA ECRAN ENTETE
                          ;
STOCK

         HEX   808080808080808080787F7F7F7F7F7F
         HEX   7F7F7F7F7F7F7F7F7F7F7F7F7F7F0F80
         HEX   80808080808080808080808080808080
         HEX   807C7F7F7F7F7F7F7F7F7F7F7F7F7F7F
         HEX   7F7F7F7F7F7F1F808080808080808080
         HEX   8080808080808080801E000000000000
         HEX   00000000000000000000000000003C80
         HEX   80808080808080808080808080808080
         HEX   800F0000000000000000000000000000
         HEX   00000000000078808080808080808080
         HEX   80808080808080808007000000000000
         HEX   00000000000000000000000000007080
         HEX   80804280808080808080808080A10080
         HEX   80070000000000000000000000000000
         HEX   000000000000708080800C0380808080
         HEX   80808080E01800808007000000000000
         HEX   00000000000000000000000000007080
         HEX   808018078080808080808080F00C0080
         HEX   80070000000000000000000000000000
         HEX   00000000000070808010381F80808080
         HEX   80808080FC0E04008007000000000000
         HEX   00000000000000000000000000007080
         HEX   8018381F8010808080808200FC0E0C00
         HEX   80070000000000000000000000000000
         HEX   0000000000007080803E307780208080
         HEX   80808100F7063E008007000000000000
         HEX   00000000000000000000000000007080
         HEX   405F31770160808080C08140F7467D01
         HEX   80070000000000000000000000000000
         HEX   0000000000007080783C307B06400380
         HEX   80F000306F061E0F8007000000000000
         HEX   00000000000000000000000000007080
         HEX   787F533B0F400F84887C007C6E657F0F
         HEX   80070000000000000000000000000000
         HEX   0000000000007080777F505D3F807783
         HEX   F03B00F75D457F778007000000000000
         HEX   00000000000000200000000000007080
         HEX   807B676D7B014D81E02C606F5B736F01
         HEX   8007000000000000000E0F0000000070
         HEX   0000000000007080807053767D4F1980
         HEX   80E67C5F37670700800700000000000F
         HEX   1C58180000005F7C03007F0E70007080
         HEX   8070373F7E63308080C3713F7E7E0700
         HEX   800700003F7E00041830307C40616000
         HEX   0E60601C6000708002705B4F7F106080
         HEX   C081427F796D07208007007060030702
         HEX   18303030603060401830403840007080
         HEX   04786D730F804081E00000FC675B0F10
         HEX   8007001840010C011830301860186030
         HEX   30180068400070800578767C80804081
         HEX   E00000809F370F508007000C40015801
         HEX   1830180C600C6018601C404841007080
         HEX   06787F071F808083B00080FE707F0F30
         HEX   8007000C400158011870070C600C600C
         HEX   407D7F084300708006783F787F808083
         HEX   B000C0FF0F7E0F308007000C40015801
         HEX   1870000C600C600C401D400846007080
         HEX   0C70477F7F038083B000F07F7F710718
         HEX   8007000C400158011830030C600C600C
         HEX   401D00084C0070803C707F7F7F074081
         HEX   E000787F7F7F071E8007000C40015801
         HEX   1830060C600C600C4019000858007080
         HEX   7E6F7F7F7D0E6081E0015C5F7F7F7B3F
         HEX   8007001840010C0314300C1950185018
         HEX   6030000870007080635F7F7E7D1D7880
         HEX   80876F5F3F7F7D638007003044110606
         HEX   12305830683048303060600860007080
         HEX   803E7F1E7A711F8080FE672F3C7F3E00
         HEX   80070040436101786130304067400741
         HEX   0F003F0C40007080800C7C807C430380
         HEX   80F07117009F18008007000000000000
         HEX   00300000600000000000000000007080
         HEX   80807080600380808080F00900870080
         HEX   80070000000000000000000060000000
         HEX   00000000000070808080600158078080
         HEX   8080F806408300808007000000000000
         HEX   00000000200000000000000000007080
         HEX   80804001300F80808080BC0340830080
         HEX   80070000000000000000000010000000
         HEX   000000000000708080804003601C8080
         HEX   8080CE01600100808007000000000000
         HEX   000000000E0000000000000000007080
         HEX   80804003601C80808080CE0160010080
         HEX   80070000000000000000000000000000
         HEX   000000000000708080804003601C8080
         HEX   8080CE01600300808007808080808080
         HEX   80808080808080808080808080807080
         HEX   80807001300F80808080BC03408E0080
         HEX   80078080808080808080808080808080
         HEX   808080808080708080802C01680A8080
         HEX   8080D40D40B500808007808080808080
         HEX   80808080808080808080808080807080
         HEX   80808080808080808080808080808080
         HEX   80078080808080808080808080808080
         HEX   80808080808070808080808080808080
         HEX   80808080808080808007808080808080
         HEX   80808080808080808080808080807080
         HEX   80808080808080808080808080808080
         HEX   80078080808080808080808080808080
         HEX   80808080808070808080808080808080
         HEX   80808080808080808007000000000000
         HEX   00000000000000000000000000007080
         HEX   80808080808080808080808080808080
         HEX   80070000000000000000000000000000
         HEX   00000000000070808080808080808080
         HEX   80808080808080808007000000000000
         HEX   00000000000000000000000000007080
         HEX   80808080808080808080808080808080
         HEX   80070000000000000000000000000000
         HEX   00000000000070808080808080808080
         HEX   8080808080808080800F000000000000
         HEX   00000000000000000000000000007880
         HEX   80808080808080808080808080808080
         HEX   801E0000000000000000000000000000
         HEX   0000000000003C808080808080808080
         HEX   8080808080808080807C7F7F7F7F7F7F
         HEX   7F7F7F7F7F7F7F7F7F7F7F7F7F7F1F80
         HEX   80808080808080808080808080808080
         HEX   80787F7F7F7F7F7F7F7F7F7F7F7F7F7F
         HEX   7F7F7F7F7F7F0F808080808080808080
         HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
         HEX   000000000000000000


         SAV   SCRN.MENU