home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kocie Flaki
/
Kocie_Flaki_1_19xx_NG_pl_Disk_3_of_3_Side_A.atr
/
fire.asm
< prev
next >
Wrap
Assembly Source File
|
2023-02-26
|
2KB
|
1 lines
*-----------------------------*¢* firee- koalka/bbsl/karzelki *¢* werjska ta pochodzi z juzka *¢* niewielkie poprawki. *¢*-----------------------------*¢¢¢ opt $15 - do ramu¢¢fnt equ $a000 \ deklaracje etykiet¢scr equ $a400 / fontow i screenu.¢¢ org $b000 - kod pod adres $b000¢¢¢ lda #$20 \ ustawienie¢ sta $02c8 / kolorku¢¢ lda <dl \¢ sta $0230 |wlaczenie¢ lda >dl |displeja¢ sta $0231 /¢¢ lda >fnt \ wlaczenie¢ sta $02f4 / fontow¢¢ lda #%01000000 \¢ sta $026f |ustawienie¢ lda #%00100001 |screenu¢ sta $022f /¢¢¢ lda #$00 \¢ tax |czyszczenie¢ tay |obrazu¢cz sta scr,x |¢ sta scr+$100,x |¢ sta scr+$200,x |¢ sta scr+$300,x |¢ inx |¢ bne cz /¢¢font1 sta fnt,x \¢ inx |robienie¢ iny |fontow¢ cpy #$08 |¢ bne font1 |¢ ldy #$00 |¢ clc |¢ adc #$11 |¢ bcc font1 /¢¢tu lda scr-1,y \¢ clc |suma czrerech sasia-¢ adc scr,y |dujacych punktow¢ adc scr+1,y |¢ adc scr+32,y /¢¢ lsr @ \ dzielenie przez 4 i¢ lsr @ |zapisanie wyniku¢ sta scr-31,y /¢¢ lda scr-1+$100,y \¢ clc |jak wyzej¢ adc scr+$100,y |¢ adc scr+1+$100,y |¢ adc scr+32+$100,y |¢ lsr @ |¢ lsr @ |¢ sta scr-31+$100,y |¢ lda scr-1+$200,y |¢ clc |¢ adc scr+$200,y |¢ adc scr+1+$200,y |¢ adc scr+32+$200,y |¢ lsr @ |¢ lsr @ |¢ sta scr-31+$200,y |¢ iny |¢ bne tu /¢¢ lda #10 \ wskaznik tajmu¢ sta $d01a /¢¢ lda $14 \¢ cmp $14 |czekanie na vbl¢ beq *-2 /¢¢ ldx #$1f \¢syfy lda $d20a |robienie syfow¢ and #%00001111 |na dole ekranu¢ sta scr+$2e0,x |( w czesci niewido-¢ dex | cznej )¢ bpl syfy /¢ jmp tu¢¢dl dta c'B',a(scr) \¢ dta c'⇩⇩⇩⇩⇩⇩⇩⇩' |displej¢ dta c'⇩⇩⇩⇩⇩⇩⇩⇩' |¢ dta c'⇩⇩⇩⇩' |¢ dta c'A',a(dl) /¢¢ end of syfek - napis filozoficzny¢ swiadczacy o skoncze-¢ niu tego progu.¢