Mercurial > hg > Members > kono > nitros9-code
view level2/modules/joydrv_6551M.asm @ 1263:205b4fbc08cd
Fixed comments, revs to zero
| author | boisy |
|---|---|
| date | Mon, 18 Aug 2003 23:00:46 +0000 |
| parents | 6641a883d6b0 |
| children | 7a973074acbe |
line wrap: on
line source
******************************************************************** * JoyDrv - Joystick Driver for 6551/Microsoft Mouse * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 6 1988/??/?? * L2 Upgrade distribution version. nam JoyDrv ttl Joystick Driver for 6551/Microsoft Mouse * Disassembled 98/09/09 09:50:25 by Disasm v1.6 (C) 1988 by RML MPI set 1 ifp1 use defsfile endc tylg set Systm+Objct atrv set ReEnt+rev rev set $00 edition set 6 mod eom,name,tylg,atrv,start,size u0000 rmb 2 u0002 rmb 1 u0003 rmb 2 u0005 rmb 1 u0006 rmb 1 u0007 rmb 8 u000F rmb 113 u0080 rmb 18 u0092 rmb 21 u00A7 rmb 65217 size equ . name fcs /JoyDrv/ fcb edition start lbra Init lbra Term lbra SSMsBtn lbra SSMsXY lbra SSJoyBtn SSJoyXY pshs x,b,a ldx #PIA0Base lda <$23,x ldb <$20,x pshs b,a anda #$F7 sta <$23,x lda $01,x ldb $03,x pshs b,a andb #$F7 lsr $04,s bcs L0043 orb #$08 L0043 stb $03,x lda ,s ora #$08 bsr L0065 std $06,s lda ,s anda #$F7 bsr L0065 std $04,s puls b,a sta $01,x stb $03,x puls b,a stb <$20,x sta <$23,x puls pc,y,x L0065 sta $01,x lda #$7F ldb #$40 bra L0078 L006D lsrb cmpb #$01 bhi L0078 lsra lsra tfr a,b clra rts L0078 pshs b sta <$20,x tst ,x bpl L0085 adda ,s+ bra L006D L0085 suba ,s+ bra L006D L0089 fcb $00 L008A fcb $0f,$01 Init fcb $cc,$00,$07 L008F fcb $a7 bitb #$5A bpl L008F ldd >M$Mem,pcr addd #$0001 leax >L0089,pcr leay >L0152,pcr os9 F$IRQ bcs L00F7 ldx >M$Mem,pcr ldd #$0938 pshs cc orcc #IntMasks sta $01,x std $02,x lda >PIA1Base+3 anda #$FC sta >PIA1Base+3 lda >PIA1Base+2 lda #$01 ora <u0092 sta <u0092 sta >IrqEnR ldb ,x ldb $01,x ldb ,x ldb $01,x andb >L008A,pcr bne L00DF ifeq MPI-1 lda #$03 sta MPI.Slct endc puls pc,cc Term pshs cc orcc #IntMasks L00DF ldx >M$Mem,pcr lda #$0B sta $02,x puls cc leax $01,x tfr x,d ldx #$0000 leay >L0152,pcr os9 F$IRQ L00F7 rts SSJoyBtn ldb #$FF ldx #PIA0Base stb $02,x ldb ,x comb andb #$0F rts SSMsBtn lda ,u clrb bita #$20 beq L010E orb #$03 L010E bita #$10 beq L0114 orb #$0C L0114 tfr b,a anda #$FA pshs a andb #$05 orb u0007,u leax <L0134,pcr lda b,x anda #$0A sta u0007,u ldb b,x andb #$85 bpl L0131 ldb u0002,u andb #$C0 L0131 orb ,s+ rts L0134 fdb $0003,$0003,$0806,$0206,$8002,$0002,$0806,$0a06 SSMsXY pshs cc orcc #IntMasks ldx u0003,u ldd u0005,u lsra rorb tfr d,y puls pc,cc L0152 ldx >M$Mem,pcr bita #$07 beq L0164 ldb ,x L015C lda u0002,u anda #$FC L0160 sta u0002,u L0162 clrb rts L0164 bita #$08 beq L0162 ldb ,x lda u0002,u anda #$03 bne L017A bitb #$40 beq L0162 L0174 stb a,u inc u0002,u clrb rts L017A bitb #$40 bne L015C cmpa #$02 bcs L0174 ldx #$017E pshs x lda ,u lsra lsra leax u0005,u bsr L01A9 ldd ,u ldx #$027F stx ,s leax u0003,u bsr L01A9 leas $02,s lda #$80 ldx u0003,u cmpx #$0140 bcc L0160 ora #$C0 bra L0160 L01A9 lslb lslb lsra rorb lsra rorb sex pshs b,a bpl L01BB orb #$07 addd #$0001 bra L01BD L01BB andb #$F8 L01BD asra rorb addd ,s++ addd ,x bpl L01C7 clra clrb L01C7 cmpd $02,s bls L01CE ldd $02,s L01CE std ,x rts emod eom equ * end