home *** CD-ROM | disk | FTP | other *** search
/ Debilizator 2 / Debilizator_2_1997_AIDS_PL_Side_A.atr / mysz.asm next >
Assembly Source File  |  2023-02-26  |  3KB  |  1 lines
  1.  opt 21¢¢POM equ $CB¢STRIG1 equ $285¢KEY equ $2FC¢PORTA equ $D300¢¢DMACTLS equ $22F¢GTICTLs equ $26F¢COLPMS equ $2C0¢HPOSP equ $D000¢SIZEP equ $D008¢PMCTL equ $D01D¢PMBASE equ $D407¢¢PMOBSZ equ $7000¢¢¢ org $b000¢¢RUN     LDY #8      ; 0=ST, 8=AMIGA¢        JSR AMI_ST¢        JSR PMINIT¢        LDA #$FF¢        STA KEY¢        JMP PETLA¢¢¢*áIJלחונתציIJáבםךáצק¡ינתציIJá¢AMI_ST  LDA MOUM+2,Y¢        STA M1+1¢        LDA MOUM+6,Y¢        STA M2+1¢        LDX #0¢        LDA MOUM,Y¢        STA POZTAB,X¢        INY¢        INX¢        CPX #8¢        BNE *-10¢        RTS¢¢MOUM dta b(0),b($20),b($30),b($10),b(0),b($80),b($C0),b($40)¢ dta b(0),b($20),b($A0),b($80),b(0),b($10),b($50),b($40)¢¢*áפךצנתIJמחדáגרצםיIJá¢PETLA   LDA XKUR¢        STA HPOSP¢        STA HPOSP+1¢        LDY YKUR¢        LDX #0¢L5      LDA DUSZE1,X¢        STA PMOBSZ+$400,Y¢        LDA DUSZE2,X¢        STA PMOBSZ+$500,Y¢        INX¢        INY¢        CPX #$A¢        BNE L5¢*áפרבזáסנםחנלךᢠ       LDA PORTA¢        STA POM¢M1      AND #0¢        LDY #3¢L1      CMP POZTAB,Y¢        BEQ L2¢        DEY¢        JMP L1¢L2      TYA¢        CLC¢        ADC #1¢        AND #3¢        CMP XIND¢        BNE L3¢        LDX XKUR¢        CPX #$30¢        BEQ *+5¢        DEC XKUR¢        JMP L12¢L3      TYA¢        SEC¢        SBC #1¢        AND #3¢        CMP XIND¢        BNE L4¢        LDX XKUR¢        CPX #$C8¢        BEQ *+5¢        INC XKUR¢L12     STY XIND¢L4 equ *¢*áפרבזáסחנמנתךᢠ       LDA POM¢M2      AND #0¢        LDY #3¢L6      CMP PIONTAB,Y¢        BEQ L8¢        DEY¢        JMP L6¢L8      TYA¢        CLC¢        ADC #1¢        AND #3¢        CMP YIND¢        BNE L9¢        LDX YKUR¢        CPX #8¢        BEQ *+5¢        DEC YKUR¢        JMP L11¢L9      TYA¢        SEC¢        SBC #1¢        AND #3¢        CMP YIND¢        BNE L10¢        LDX YKUR¢        CPX #$EE¢        BEQ *+5¢        INC YKUR¢l11     STY YIND¢L10     LDA STRIG1¢        BNE L13¢        LDA #8¢        STA $D018¢        STA $D01A¢l13     LDX KEY¢        INX¢        BNE *+5¢        JMP PETLA¢        LDA #0¢        STA PMCTL¢        RTS¢¢POZTAB  dta a(0),a(0)¢PIONTAB dta a(0),a(0)¢¢XIND dta b(0)¢YIND dta b(0)¢¢XKUR dta b($30)¢YKUR dta b($10)¢¢¢*áתםנפךáגרצםינתᢢDUSZE1 dta b(0),b(%01111111)¢ dta b(%10000010)¢ dta b(%10000100)¢ dta b(%10000010)¢ dta b(%10000001)¢ dta b(%10100010)¢ dta b(%11010100)¢ dta b(%10000000)¢ dta b(0)¢¢DUSZE2 equ *¢ dta b(%00000000)¢ dta b(%11111111)¢ dta b(%01111110)¢ dta b(%01111100)¢ dta b(%01111110)¢ dta b(%01111111)¢ dta b(%01011110)¢ dta b(%00001100)¢ dta b(%00001000)¢ dta b(%00000000)¢¢*áס»לáחמחבטIJכחםIJבטIJá¢PMINIT  LDA >PMOBSZ¢        STA PMBASE¢        LDA #$36¢        STA COLPMS¢        LDA #$CA¢        STA COLPMS+1¢        LDA #0¢        STA SIZEP¢        LDA #%00100010¢        STA GTICTLS¢        LDA #3¢        STA PMCTL¢        LDA #%00111010¢        STA DMACTLS¢*áיIJצ«סלᢠ       LDY #0¢        TYA¢L7      STA PMOBSZ+$400,Y¢        STA PMOBSZ+$500,Y¢        INY¢        BNE L7¢        RTS¢¢