Flop Magazin 13/Flop_Magazin_13_1991_United_Electronic_Crazies_cs_Side_A.atr/stopky.asm

Assembly Source File | 2023-02-26 | 3KB | 1 lines

10  *= $600 ;STOPKY¢12 FLAG= $CE¢14 FLAG3= $CF¢20 DISPLAY .BYTE 0¢22  .BYTE 0,0,0,0,0¢25 MINUTY10 .BYTE $10¢26 MINUTY .BYTE $10¢27  .BYTE $1A¢30 SEKUNDY10 .BYTE $10¢31 SEKUNDY .BYTE $10¢32  .BYTE $1A¢34 DESETINY .BYTE $10¢35 SETINY .BYTE $10¢36  .BYTE 0,0,0,0,0,0¢40 INIT   PLA¢48 INIT2  LDA #$06¢50        LDY #START&255¢52        LDX #START/256¢54        JSR $E45C ;INSTALACE VEKTORU¢56        LDA $09¢58        ORA #$02¢60        STA $09¢62        LDA #INIT2&255¢64        STA $02¢66        LDA #INIT2/255¢68        STA $03¢71        RTS¢72 VYNUL  STA FLAG¢73        STA FLAG3¢74        LDX #$10 ;PREVOD NA ATASCI=0¢75        STX SETINY¢76        STX DESETINY¢77        STX SEKUNDY¢78        STX SEKUNDY10¢79        STX MINUTY¢80        STX MINUTY10¢81 KONEC2 JMP $E45F¢82 START  LDA $230 ;UPRAVA DL.¢83        STA $CC¢84        LDA $231¢88        STA $CD¢0100       LDA #$47¢0102       LDY #0¢0104       STA ($CC),Y¢0106       LDA #DISPLAY&255¢0108       INY¢0110       STA ($CC),Y¢0112       LDA #DISPLAY/256¢0114       INY¢0116       STA ($CC),Y¢0118       LDA $D010 ;JE START?¢0120       BEQ VYNUL ;ANO SKOC¢0122       LDA FLAG  ;BYL CIL?¢0124       BNE KONEC2 ;ANO SKOC¢0126       LDA $D011  ;NE JE CIL?¢0128       BNE PRICTI ;NE TAK POCITEJ¢0130       LDA #01¢0132       STA FLAG  ;ANO NASTAV PRIZNAK CILE¢0134 PRICTI INC SETINY¢0136       INC SETINY ;+2 SETINY¢0138       LDA SETINY¢0140       CMP #$1A   ;JE 10 SETIN?¢0142       BNE FINITO¢0144       INC DESETINY ;ANO +1 DESETINA¢0146       LDX #$10¢0148       STX SETINY ;VYNULUJ SETINY¢0150       LDA DESETINY¢0152       CMP #$1A¢0154       BNE FINITO¢0156       INC SEKUNDY¢0158       STX DESETINY¢0160       LDA SEKUNDY¢0162       CMP #$1A¢0164       BNE FINITO¢0166       INC SEKUNDY10¢0168       STX SEKUNDY¢0170       LDA SEKUNDY10¢0172       CMP #$16   ;JE 60 SEKUND?¢0174        BNE FINITO ;NE TAK KONEC¢0176        INC MINUTY¢0178        STX SEKUNDY10¢0180        LDA MINUTY¢0182        CMP #$1A¢0184        BNE FINITO¢0186        INC MINUTY10¢0188        STX MINUTY¢0190        LDA MINUTY10¢0192        CMP #$1A   ;JE 100 MINUT?¢0194        BNE FINITO¢0196        STX MINUTY10¢0198 FINITO DEC PRUCHODY¢0200        BNE NEKOR¢0202        LDA #$FF ;VELIKOST KOREKCE¢0204        STA PRUCHODY¢0205        DEC PRUCHODY2¢0206        BNE NEKOR¢0207        LDA #$02¢0208        STA PRUCHODY2¢0210        BNE PRICTI¢0213 NEKOR  LDA FLAG3 ;BYLA 1s¢0216        BNE TICHO ;ANO VYPNI TON¢0217        LDA #$AF  ;HLASITOST¢0218        STA $D207 ;AUDCX¢0219        LDA #$04¢0220        STA $D206 ;VYSKA TONU¢0222         LDA SEKUNDY¢0224         CMP #$10  ;JE 1s?¢0226         BEQ KONEC ;NE TAK SKOK¢0228         STA FLAG3 ;NAST.PRIZNAK 1s¢0232 TICHO  LDA #0¢0234         STA $D207¢0236 KONEC  JMP $E45F ;DO VBI POKRACUJ¢0262 PRUCHODY .BYTE $80¢0264 PRUCHODY2 .BYTE 2¢