home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Debilizator 2
/
Debilizator_2_1997_AIDS_PL_Side_A.atr
/
mysz.asm
next >
Wrap
Assembly Source File
|
2023-02-26
|
3KB
|
1 lines
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¢¢