A2osX/DRV/PIC.DRV.S.txt

309 lines
5.8 KiB
Plaintext
Raw Normal View History

2016-03-18 07:26:49 +00:00
NEW
2020-08-25 14:54:30 +00:00
AUTO 3,1
2016-03-18 07:26:49 +00:00
.LIST OFF
.OP 65C02
.OR $2000
2020-08-25 14:54:30 +00:00
.TF drv/pic.drv
2016-03-18 07:26:49 +00:00
*--------------------------------------
2020-08-25 14:54:30 +00:00
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/mli.e.i
2020-09-30 15:32:54 +00:00
.INB inc/com.i
2016-03-18 07:26:49 +00:00
*--------------------------------------
ZPTmpPtr1 .EQ ZPDRV
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp Dev.Detect cld,jmp abs=DRV
.DA #$61 6502,Level 1 (65c02)
.DA #1 DRV Layout Version 1
.DA 0
.DA CS.END-CS.START Code Length
2020-08-25 14:54:30 +00:00
.DA 0
.DA #32 SS
.DA #2 ZP
.DA 0
2016-03-18 07:26:49 +00:00
*--------------------------------------
* Relocation Table
*--------------------------------------
L.MSG.DETECT .DA MSG.DETECT
L.MSG.DETECT.OK .DA MSG.DETECT.OK
L.MSG.DETECT.KO .DA MSG.DETECT.KO
2020-08-25 14:54:30 +00:00
L.DRV.CS.START .DA DRV.CS.START
L.FD.DEV .DA FD.DEV
L.FD.DEV.NAME .DA FD.DEV.NAME
2016-03-18 07:26:49 +00:00
.DA 0 End Of Reloc Table
*--------------------------------------
Dev.Detect >STYA ARGS
2020-08-25 14:54:30 +00:00
>LDYA L.MSG.DETECT
2020-08-25 14:54:30 +00:00
>SYSCALL PutS
stz ZPTmpPtr1
2016-03-18 07:26:49 +00:00
lda #$C1
sta ZPTmpPtr1+1
2020-08-25 14:54:30 +00:00
.1 and #$0f
tay
lda A2osX.S,y
bne .3
2016-03-18 07:26:49 +00:00
ldx #DEVSIG.Length-1
.2 ldy DEVSIG.Offset,x
lda (ZPTmpPtr1),y
cmp DEVSIG.Value,x
bne .3
2020-08-25 14:54:30 +00:00
dex
bpl .2
2020-08-25 14:54:30 +00:00
bra .4
2020-08-25 14:54:30 +00:00
.3 inc FD.DEV.NAME+3
inc ZPTmpPtr1+1 no match, try next slot....
2016-03-18 07:26:49 +00:00
lda ZPTmpPtr1+1
cmp #$C8
bne .1
2020-08-25 14:54:30 +00:00
2016-03-18 07:26:49 +00:00
>LDYA L.MSG.DETECT.KO
2020-08-25 14:54:30 +00:00
>SYSCALL PutS
2016-03-18 07:26:49 +00:00
lda #MLI.E.NODEV Not Found in any slot, exiting
2016-03-18 07:26:49 +00:00
sec
rts
.4 lda ZPTmpPtr1+1
2016-03-18 07:26:49 +00:00
and #$0F
pha
tay
lda #A2osX.S.COM
sta A2osX.S,y
pla
2016-03-18 07:26:49 +00:00
asl
asl
asl
asl
sta DEVSLOTn0
2020-08-25 14:54:30 +00:00
.8 >PUSHW L.MSG.DETECT.OK
>PUSHW L.FD.DEV.NAME
>PUSHBI 2
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-08-25 14:54:30 +00:00
>PUSHWI DRV.END
>PUSHWI DRV.CS.END-DRV.CS.START
>PUSHWI DRV.CS.START
>LDYA L.DRV.CS.START
>SYSCALL InsDrv
bcs .9
>STYA FD.DEV+S.FD.DEV.DRVPTR
>PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME
>SYSCALL MKDev
.9 rts
2016-03-18 07:26:49 +00:00
*--------------------------------------
CS.END
DEVSIG.Offset .HS 0507
DEVSIG.Value .HS 4848
DEVSIG.Length .EQ DEVSIG.Value-DEVSIG.Offset
2020-09-30 15:32:54 +00:00
MSG.DETECT .AZ "Apple PIC (Parallel Interface Card)"
MSG.DETECT.OK .AZ "PIC Installed As Device : %s\r\n"
2020-10-01 15:30:25 +00:00
MSG.DETECT.KO .AZ "No PIC Found."
ARGS .BS 2
2016-03-18 07:26:49 +00:00
*--------------------------------------
2020-08-25 14:54:30 +00:00
FD.DEV .DA #S.FD.T.CDEV
.DA #0 HANDLER
.DA #0 BUSID
.DA #0 DEVID
.DA 0 BUSPTR
.BS 2 DRVPTR
.DA 0 DCBPTR
.DA 0 BUFPTR
FD.DEV.NAME .AZ "lpt1"
2016-03-18 07:26:49 +00:00
*--------------------------------------
* Driver Code
*--------------------------------------
2020-09-30 15:32:54 +00:00
PIC.WDATA .EQ $C080
PIC.WSTROBE .EQ $C082
PIC.RCTRL .EQ $C083
PIC.RACK .EQ $C084
PIC.STROBE500 .EQ $C085 pin 13 ????
PIC.IRQEN .EQ $C086
PIC.IRQDIS .EQ $C087 Reset ACK, DIS AutoStrobe
*--------------------------------------
ZPIOCTL .EQ ZPDRV
ZPBufPtr .EQ ZPDRV+2
ZPCount .EQ ZPDRV+4
*--------------------------------------
2020-08-25 14:54:30 +00:00
DRV.CS.START cld
jmp (.1,x)
.1 .DA STATUS
.DA A2osX.BADCALL
.DA A2osX.BADCALL
.DA A2osX.BADCALL
.DA CONTROL
.DA A2osX.BADCALL
.DA OPEN
2016-03-18 07:26:49 +00:00
.DA CLOSE
2020-09-30 15:32:54 +00:00
.DA READ
.DA WRITE
2016-03-18 07:26:49 +00:00
.DA 0 end or relocation
*--------------------------------------
2020-09-30 15:32:54 +00:00
STATUS jsr STATUS.CONTROL.Init
ldy #S.IOCTL.STATCODE
lda (ZPIOCTL),y
beq .1
cmp #S.IOCTL.STATCODE.GETDIB
bne STATUS.DCB
ldy #S.DIB-1
.HS 2C bit abs
.1 ldy #3
.2 lda DIB,y
sta (ZPBufPtr),y
dey
bpl .2
clc
2016-03-18 07:26:49 +00:00
rts
2020-09-30 15:32:54 +00:00
STATUS.DCB cmp #S.IOCTL.STATCODE.GETDCB
bne .3
ldy #S.DCB.COM-1
.2 lda DCB,y
sta (ZPBufPtr),y
dey
bpl .2
clc
2016-03-18 07:26:49 +00:00
rts
2020-09-30 15:32:54 +00:00
.3 cmp #S.IOCTL.STATCODE.EOF
bne STATUS.9
lda DIB+S.DIB.S
and #S.DIB.S.OPENED
beq OPEN.E
.8 clc
rts
STATUS.9 lda #MLI.E.BADCTL
sec
rts
*--------------------------------------
CONTROL jsr STATUS.CONTROL.Init
ldy #S.IOCTL.CTRLCODE
lda (ZPIOCTL),y
cmp #S.IOCTL.CTRLCODE.SETDCB
bne STATUS.9
ldy #S.DCB.COM-1
.2 lda (ZPBufPtr),y
sta DCB,y
dey
bpl .2
2016-03-18 07:26:49 +00:00
*--------------------------------------
2020-09-30 15:32:54 +00:00
OPEN lda DIB+S.DIB.S
bit #S.DIB.S.OPENED
beq OPEN.1
OPEN.E lda #MLI.E.OPEN
sec
rts
OPEN.1 ldx DEVSLOTn0
stz PIC.IRQDIS,x
lda #S.DIB.S.OPENED
tsb DIB+S.DIB.S
clc
2016-03-18 07:26:49 +00:00
rts
*--------------------------------------
2020-09-30 15:32:54 +00:00
CLOSE lda #S.DIB.S.OPENED
trb DIB+S.DIB.S
clc
rts
*--------------------------------------
2020-09-30 15:32:54 +00:00
READ jsr READ.WRITE.Init
clc
2016-03-18 07:26:49 +00:00
rts
*--------------------------------------
2020-09-30 15:32:54 +00:00
WRITE jsr READ.WRITE.Init
.1 inc ZPCount
bne .2
inc ZPCount+1
beq .8
.2 lda (ZPBufPtr)
inc ZPBufPtr
bne .3
inc ZPBufPtr+1
.3 sta PIC.WDATA,x
* sta PIC.WSTROBE,x
bra .1
.8 clc
rts
*--------------------------------------
READ.WRITE.Init ldx DEVSLOTn0
STATUS.CONTROL.Init
>STYA ZPIOCTL
ldy #S.IOCTL.BUFPTR
lda (ZPIOCTL),y
sta ZPBufPtr
iny
lda (ZPIOCTL),y
sta ZPBufPtr+1
iny #S.IOCTL.BYTECNT
lda (ZPIOCTL),y
eor #$ff
sta ZPCount
iny
lda (ZPIOCTL),y
eor #$ff
sta ZPCount+1
rts
*--------------------------------------
2016-03-18 07:26:49 +00:00
DRV.CS.END
2020-09-30 15:32:54 +00:00
*DEVSLOT0n .BS 1
*DEVSLOTCn .BS 1
2016-03-18 07:26:49 +00:00
DEVSLOTn0 .BS 1
*--------------------------------------
2020-09-30 15:32:54 +00:00
DIB .DA #S.DIB.S.WRITE+S.DIB.S.READ
2020-08-25 14:54:30 +00:00
.DA #0,#0,#0
2020-09-30 15:32:54 +00:00
>PSTR "Apple // Int Crd"
2020-08-25 14:54:30 +00:00
.DA #S.DIB.T.CHAR
.DA #0
.DA K.VER
*--------------------------------------
DCB .DA #S.DCB.T.COM
.DA #0 FLAGS
.DA 0
.DA #0
.DA #0
.DA #0
.DA #0
*--------------------------------------
DRV.END
2016-03-18 07:26:49 +00:00
MAN
2020-08-25 14:54:30 +00:00
SAVE usr/src/drv/pic.drv.s
2016-03-18 07:26:49 +00:00
ASM