Kocie Flaki/Kocie_Flaki_1_19xx_NG_pl_Disk_3_of_3_Side_A.atr/fmd.asm

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

* fast mouse driver by¢* Laokoon/NG¢* 22 iii mcmxcviii¢¢ opt 21¢ org $9000¢¢baze equ $d407¢col0 equ $02c0¢siz0 equ $d008¢poz0 equ $d000¢gtcs equ $026f¢dmas equ $022f¢pmct equ $d01d¢stvb equ $e45c¢tmc2 equ $021a¢ptln equ $c642¢dzoy equ $d300¢¢pm   equ $a000-$400¢¢     jsr clr¢     jsr opm¢¢     ldx <txt1  napisy¢     ldy >txt1¢     jsr ptln¢     ldx <txt2¢     ldy >txt2¢     jsr ptln¢¢     ldy <put   ustawienie timerka¢     ldx >put¢     lda #9¢     jsr stvb¢¢     lda del¢     sta tmc2¢¢¢     lda #$ff¢     sta 764¢     lda #100¢     sta my¢¢loop jsr mous  petla glowna¢     lda 764¢     cmp #$ff¢     beq loop¢¢     ldx #0    wyjscie¢     stx tmc2¢     dex¢     stx 764¢     jmp cpm¢¢¢¢* procedura glowna drivera¢mous lda dzoy¢     and #$f0¢     tay¢     eor pms¢     bne *+3¢     rts¢¢     tax¢     sty pms¢¢¢hor  bpl n7¢¢     tya¢     bpl l0¢¢     and #%00100000¢     beq l1¢     lda rsx¢     adc cix¢     sta rsx¢     bcc l1-3¢     inc mx¢     jmp ver¢l1   lda rsx¢     sbc cix¢     sta rsx¢     bcs l1-3¢     dec mx¢     jmp ver¢¢l0   and #%00100000¢     beq l2¢     lda rsx¢     sbc cix¢     sta rsx¢     bcs ver¢     dec mx¢     jmp ver¢l2   lda rsx¢     adc cix¢     sta rsx¢     bcc ver¢     inc mx¢     jmp ver¢¢n7   and #%00100000¢     beq ver¢¢     tya¢     and #%00100000¢     beq l3¢¢     tya¢     bpl l4¢     lda rsx¢     sbc cix¢     sta rsx¢     bcs ver¢     dec mx¢     jmp ver¢l4   lda rsx¢     adc cix¢     sta rsx¢     bcc ver¢     inc mx¢     jmp ver¢¢l3   tya¢     bpl l5¢     lda rsx¢     adc cix¢     sta rsx¢     bcc ver¢     inc mx¢     jmp ver¢l5   lda rsx¢     sbc cix¢     sta rsx¢     bcs ver¢     dec mx¢¢¢ver  txa¢     and #%01000000¢     beq n6¢¢     tya¢     and #%01000000¢     beq l6¢¢     tya¢     and #%00010000¢     beq l7¢     lda rsy¢     adc ciy¢     sta rsy¢     bcc l7-3¢     inc my¢     jmp kon¢l7   lda rsy¢     sbc ciy¢     sta rsy¢     bcs l7-3¢     dec my¢     jmp kon¢¢l6   tya¢     and #%00010000¢     beq l8¢     lda rsy¢     sbc ciy¢     sta rsy¢     bcs kon¢     dec my¢     jmp kon¢l8   lda rsy¢     adc ciy¢     sta rsy¢     bcc kon¢     inc my¢     jmp kon¢¢n6   txa¢     and #%00010000¢     beq kon¢¢     tya¢     and #%00010000¢     beq l9¢¢     tya¢     and #%01000000¢     beq l10¢     lda rsy¢     sbc ciy¢     sta rsy¢     bcs kon¢     dec my¢     jmp kon¢l10  lda rsy¢     adc ciy¢     sta rsy¢     bcc kon¢     inc my¢     jmp kon¢¢l9   tya¢     and #%01000000¢     beq l11¢     lda rsy¢     adc ciy¢     sta rsy¢     bcc kon¢     inc my¢     jmp kon¢l11  lda rsy¢     sbc ciy¢     sta rsy¢     bcs kon¢     dec my¢¢kon  rts¢¢¢* procedura rysujaca kursor¢* umieszczana na timerze 2¢put  lda oy¢     sta _0+1¢     ldx #7¢     lda #0¢_0   sta pm,x¢     dex¢     bpl _0¢¢     lda my¢     sta _1+1¢     ldx #7¢c0   lda kt,x¢_1   sta pm,x¢     dex¢     bpl c0¢¢     lda my¢     sta oy¢     lda mx¢     sta poz0¢     lda del¢     sta tmc2¢¢     rts¢¢¢* inicjalizacja grafiki p/m¢opm  lda >pm¢     sta baze¢     lda #$f¢     sta col0¢     lda #0¢     sta siz0¢     lda #1¢     sta gtcs¢     lda #%00111010¢     sta dmas¢     lda #2¢     sta pmct¢     rts¢¢* wylaczenie p/m¢cpm  lda #0¢     sta poz0¢     sta pmct¢     lda #%00100010¢     sta dmas¢     rts¢¢* mazanie calego obszaru dla duszka¢clr  ldx #0¢     txa¢cl0  sta pm,x¢     dex¢     bne cl0¢     rts¢¢*parametry¢mx   dta b(100) pozycja pozioma¢my   dta b(100) pozycja pionowa¢del  dta b(1) co ile ramek rysowac kursor?¢cix  dta b($ff) skala x¢ciy  dta b($ff) skala y¢¢* zmienne robocze¢pms  dta b(0) wtornik myszy¢oy   dta b(0) stara pozycja pionowa¢rsx  dta b(0) reszta x¢rsy  dta b(0) reszta y¢¢txt1  dta c'Fast Mouse Driver by Laokoon/NG',b(155)¢txt2  dta c'Press key to leave...',b(155)¢¢¢* dane dla duszka¢kt   dta b(%10000000)¢     dta b(%01100000)¢     dta b(%01111000)¢     dta b(%00111110)¢     dta b(%00111100)¢     dta b(%00011100)¢     dta b(%00010010)¢     dta b(%00000001)¢¢     end¢¢