Kocie Flaki/Kocie_Flaki_1_19xx_NG_pl_Disk_3_of_3_Side_A.atr/draw9f.asm

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

* Fast draw by Roland,Solo¢* tryb: GR.9¢* Najpierw (jednorazowo) skocz¢* do INIT.¢¢* do x1,y1 - pocz.  wspolrzedne¢* do x2,y2 - docel. wspolrzedne¢¢     opt 21¢     org $9000¢¢size equ 32 ; sher. ekranu¢¢x1  equ $80¢y1  equ $81¢x2  equ $82¢y2  equ $83¢dx  equ $84¢dy  equ $85¢nx  equ $86¢ny  equ $87¢ax  equ $88¢ay  equ $89¢blad equ $8a¢krok equ $8c¢adr equ $8d¢¢screen equ $b000¢¢tabys equ $480 ;128 bajtow¢tabym equ $500 ;128 bajtow¢¢*-------¢¢init lda >screen ; makey¢ sta pom¢ sta tabys¢ clc¢ lda #$0¢ sta tabym¢ ldy #1¢¢_y clc¢ adc #size¢ sta tabym,y¢ tax¢ bcc _y22¢ inc pom¢ lda pom¢ sta tabys,y¢ clc¢_y22 lda pom¢ sta tabys,y¢ txa¢ iny¢ bpl _y¢ rts¢¢pom dta b(0)¢¢draw ldx #1¢ stx dx¢ stx dy¢ dex¢ stx ax¢ stx ay¢ stx blad+1¢ stx adr+1¢ lda x2¢ cmp x1¢ bcs jmp0¢ ldy x1¢ sty x2¢ sta x1¢ lda y1¢ ldy y2¢ sty y1¢ sta y2¢ lda x2¢ sec¢jmp0 sbc x1¢ sta nx¢ sta krok¢ lda y2¢ cmp y1¢ bcs jmp1¢ lda y1¢ sec¢ sbc y2¢ sta ny¢ ldy #255¢ sty dy¢ bmi jmp2¢jmp1 sbc y1¢ sta ny¢jmp2 lda nx¢ cmp ny¢ bcs jmp3¢ ldy ny¢ sty nx¢ sty krok¢ sta ny¢ lda dy¢ sta ax¢ stx dx¢ stx dy¢ inx¢ stx ay¢¢jmp3 lda y1¢ tya¢ pha¢ ldy y1¢ lda tabym,y¢ sta adr¢ lda tabys,y¢ sta adr+1¢ pla¢ tay¢ lda nx¢ lsr @¢ sta blad¢ inc krok¢ lda dx¢ bne rozw¢ lda ax¢ bmi aaa1¢ jmp aaa4¢rozw lda dy¢ bmi aaa2¢ bpl aaa3¢aaa1 jsr putp¢ sec¢ lda adr¢ sbc #size¢ sta adr¢ bcs *+4¢ dec adr+1¢ lda blad¢ clc¢ adc ny¢ sta blad¢ bcc nc11¢ inc blad+1¢ clc¢nc11 lda blad+1¢ bmi ok1¢ bne mn1¢ lda nx¢ cmp blad¢ bcs ok1¢mn1  inc x1¢ sec¢ lda blad¢ sbc nx¢ sta blad¢ bcs ok1¢ dec blad+1¢ok1 dec krok¢ bne aaa1¢ rts¢aaa2 jsr putp¢ inc x1¢ clc¢ lda blad¢ adc ny¢ sta blad¢ bcc nc12¢ inc blad+1¢nc12 lda blad+1¢ bmi ok2¢ bne mn2¢ lda nx¢ cmp blad¢ bcs ok2¢mn2  sec¢ lda adr¢ sbc #size¢ sta adr¢ bcs *+5¢ dec adr+1¢ sec¢ lda blad¢ sbc nx¢ sta blad¢ bcs ok2¢ dec blad+1¢ok2 dec krok¢ bne aaa2¢ rts¢aaa3 jsr putp¢acc clc¢ inc x1¢ lda blad¢ adc ny¢ sta blad¢ bcc nc13¢ inc blad+1¢ clc¢nc13 lda blad+1¢ bmi ok3¢ bne mn3¢ lda nx¢ cmp blad¢ bcs ok3¢mn3 lda adr¢ adc #size¢ sta adr¢ bcc *+4¢ inc adr+1¢ sec¢ lda blad¢ sbc nx¢ sta blad¢ bcs ok3¢ dec blad+1¢ok3 dec krok¢ bne aaa3¢ rts¢aaa4 jsr putp¢ clc¢ lda adr¢ adc #size¢ sta adr¢ bcc *+5¢ inc adr+1¢ clc¢ lda blad¢ adc ny¢ sta blad¢ bcc nc14¢ inc blad+1¢nc14 lda blad+1¢ bmi ok4¢ bne mn4¢ lda nx¢ cmp blad¢ bcs ok4¢mn4 inc x1¢ sec¢ lda blad¢ sbc nx¢ sta blad¢ bcs ok4¢ dec blad+1¢ok4 dec krok¢ bne aaa4¢ rts¢putp lda x1¢ lsr @¢ tay¢ bcc caaa1¢ lda (adr),y¢ ora #15¢ sta (adr),y¢ rts¢caaa1 lda (adr),y¢ ora #240¢ sta (adr),y¢ rts¢¢¢¢