Kocie Flaki/Kocie_Flaki_1_19xx_NG_pl_Disk_3_of_3_Side_A.atr/mkdl.asm

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

* v1.1 by Solo...¢¢* Tworzy dliste jedno lub dwu ekranowa.¢*                                    '¢* Na samym poczatku procki jest skok¢* do "makera".¢* Dalsze bajty to:¢¢* mkdl+3,4 - adres dlisty¢* mkdl+5,6 - adres ekranu 1¢* mkdl+7,8 - adres ekranu 2¢* mkdl+9   - sher.ekranu (32/40 bajtow)¢* mkdl+10  - ilosc linii (obu ekranow)¢¢* mkdl+11  - tryb antica dla ekr1¢* mkdl+12  - tryb antica dla ekr2¢¢* mkdl+13  - ilosc powtarzajacych sie linii¢*          - dla ekr1. Np. dasz 2 - uzyskasz dwa razy¢*          - szerszy pion (chunky pixel :-).¢* mkdl+14  - to samo dla ekr2¢¢* mkdl+15  - dla ekr1; ile wstawic pustych linii¢*          - od gornej ramki¢* mkdl+16  - j/w dla ekr2¢¢* Dzieki tej procce moglem bardzo szybko¢* zrobic intro Z. Dla mnie jest ql.¢¢¢     opt %100101  ; na dysk¢     org $4180    ; hm...¢¢*-----  áינמהחוᢢ     jmp mkdl2¢¢adrdl dta a($5c00) ; adres dlisty¢ekr1  dta a($a000) ; -||-  ekranu 1¢ekr2  dta a($b000) ; -||-  ekranu 2¢size  dta b(32)   ; sherokosc ekranu (40/32 bajty)¢lenght dta b(90)   ; (*2, bo po 90 na kazdy ekran)¢tryb1 dta b($f)    ; tryb antica (dowolny)¢tryb2 dta b($f)    ; a tu dla ekranu 2¢dub1  dta b(1)     ; dublowanie linii,ekr1¢dub2  dta b(1)     ; -||-,ekr2¢pus1  dta b(20)    ; odstep od gornej ramki,ekr1¢pus2  dta b(100)   ; -||-,ekr2¢¢¢mkdl2 lda ekr1¢     sta $80¢     lda ekr1+1¢     sta $81¢     lda ekr2¢     sta $82¢     lda ekr2+1¢     sta $83¢     lda adrdl¢     sta $84¢     lda adrdl+1¢     sta $85¢¢     ldy #0   ; odstep od gornej ramki¢     lda #$70¢     jsr line¢¢     lda lenght¢     sta use¢     clc¢     lda tryb1¢     adc #$40¢     sta use+1¢     lda tryb2¢     adc #$40¢     sta use+2¢     lda dub1¢     sta _dub¢     lda dub2¢     sta _dub+1¢     lda pus1¢     sta puz1¢     lda pus2¢     sta puz2¢¢_glw lda use+1¢     jsr line¢     lda puz1¢     beq ok1¢     lda <pus¢     jsr line¢     lda >pus¢     jsr line¢     jmp _p1¢¢ok1  lda $80¢     jsr line¢     lda $81¢     jsr line¢¢_p1  lda use+2¢     jsr line¢¢     lda puz2¢     beq ok2¢     lda <pus¢     jsr line¢     lda >pus¢     jsr line¢     jmp _p2¢¢ok2  lda $82¢     jsr line¢     lda $83¢     jsr line¢¢*---¢¢_p2  lda puz1¢     beq _q1¢     dec puz1¢_q1  lda puz2¢     beq _q2¢     dec puz2¢¢_q2  dec _dub¢     bne _nie1¢     lda dub1¢     sta _dub¢     lda puz1¢     bne _nie1¢     clc¢     lda $80¢     adc size¢     sta $80¢     bcc *+4¢     inc $81¢_nie1 dec _dub+1¢     bne _nie2¢     lda dub2¢     sta _dub+1¢     lda puz2¢     bne _nie2¢     clc¢     lda $82¢     adc size¢     sta $82¢     bcc *+4¢     inc $83¢_nie2 dec use¢     beq wio¢     jmp _glw¢¢wio  lda #$41¢     jsr line¢     lda adrdl¢     jsr line¢     lda adrdl+1¢     jsr line¢¢     lda adrdl¢     sta $230¢     lda adrdl+1¢     sta $231¢     rts¢¢line sta ($84),y¢     iny¢     bne _rts¢     inc $85¢_rts rts¢¢use dta b(0),b(0),b(0)¢_dub dta b(0),b(0)¢puz1 dta b(0)¢puz2 dta b(0)¢¢pus dta d'                                        '¢¢¢¢¢¢¢