;============================================================================ ; Parallel Port Zip Driver ;============================================================================ ; ; 25-Jan-1998 v0.0 created by Bruce Abbott ; ; ; ToDo: - diskchange ; - SCSI direct ; VERSION EQU 0 REVISION EQU 0 ; opt d+ debug = 1 output devs:ppazip.device include amiga.i ; 1.3 includes include debugs.i ; serial debug messages EXEC macro move.l a6,-(sp) move.l execbase(pc),a6 jsr _LVO\1(a6) move.l (sp)+,a6 ENDM ; set control port mode without disturbing serial bits setmode MACRO ; \1 = mode move.w #$4000,_intena move.b ctrlport,d0 and.b #~PPBITS,d0 or.b #\1,d0 move.b d0,ctrlport move.w #$c000,_intena ENDM ; ZIP needs a rest after some operations delay MACRO \1=time IFC "","\1" rept 4 tst.b $bfe001 ; minimum delay between zip accesses endr ELSEIF move.w d0,-(sp) IFLT 2000,\1 move.w #\1-1,d0 .deloop\@: tst.b $bfe001 ; loop for short time delay dbf d0,.deloop\@ ELSEIF move.l #\1,d0 bsr timedelay ; sleep for long time delay ENDC move.w (sp)+,d0 ENDC ENDM ; timeouts COMD_TIMEOUT = 500 STAT_TIMEOUT = 1000 SLCT_TIMEOUT = 30000 WAIT_TIMEOUT = 200000 _intena=$dff09a ; CIA registers dataport = $bfe101 dirport = $bfe301 ctrlport = $bfd000 ctrldir = $bfd200 jport = $bfe001 jdir = $bfe201 ; control register values BSY = $01 ; Printer Busy POUT = $02 ; Paper Out SEL = $04 ; Printer Selected PPBITS = BSY|POUT|SEL ; parallel port zip PPINIT = POUT+SEL ; init=0 PPOUT = BSY+POUT ; selin=0 PPIN = BSY+SEL ; strobe=0 PPHOST = POUT ; init,selin=0 PPSTAT = BSY+SEL+POUT ; all high ; joystick fire used for strobe/ack pulse NO_XT = $80 ; zip AutofeedXT = up AFDXT = $00 ; '' '' = down ; status register values statport = $dff00c ; joystick port STATMASK = $0303 ; which joy bits to test POUTBIT = 0 ; set at end of xfer BUSYBIT = 1 ; set when zip is busy ACKBIT = 8 ; set when action completed SELBIT = 9 ; set when zip wants to send data ;-------------------------------------------------------- ; status values (busy always low) ;-------------------------------------------------------- ; Value Meaning pin(s) high ; NONE = $0000 ; - - WRITE = $0100 ; write block ack READ = $0300 ; read block ack+sel COMAND = $0101 ; write command ack+pout STATUS = $0301 ; read stat byte ack+pout+sel ; internal error codes SelectError = 1 PhaseError = 2 StatusError = 3 MYPROCSTACKSIZE = $800 MYPROCPRI = 5 MYDEV_END = 29 MD_NUMUNITS = 1 STRUCTURE MyDev,LIB_SIZE ULONG md_SegList UBYTE md_Flags UBYTE md_ STRUCT md_Units,4*MD_NUMUNITS LABEL MyDev_Sizeof STRUCTURE MyDevMsg,MN_SIZE APTR mdm_Device APTR mdm_Unit LABEL MyDevMsg_Sizeof STRUCTURE MyDevUnit,UNIT_SIZE UBYTE mdu_UnitNum UBYTE mdu_SigBit ; Signal bit allocated for interrupts APTR mdu_Device STRUCT mdu_stack,MYPROCSTACKSIZE STRUCT mdu_is,IS_SIZE ; Interrupt structure STRUCT mdu_tcb,TC_SIZE ; TCB for disk task STRUCT mdu_Msg,MyDevMsg_Sizeof ULONG mdu_SigMask ; Signal these bits on interrupt LABEL MyDevUnit_Sizeof ;------ state bit for unit stopped BITDEF MDU,STOPPED,2 FirstAddress: moveq #0,d0 rts MYPRI EQU 10 initDDescrip: DC.W RTC_MATCHWORD ; UWORD RT_MATCHWORD DC.L initDDescrip ; APTR RT_MATCHTAG DC.L EndCode ; APTR RT_ENDSKIP DC.B RTF_AUTOINIT ; UBYTE RT_FLAGS DC.B VERSION ; UBYTE RT_VERSION DC.B NT_DEVICE ; UBYTE RT_TYPE DC.B MYPRI ; BYTE RT_PRI DC.L myName ; APTR RT_NAME DC.L idString ; APTR RT_IDSTRING DC.L Init ; APTR RT_INIT ; LABEL RT_SIZE ; intialization mdu_Init: INITBYTE MP_FLAGS,PA_IGNORE INITBYTE LN_TYPE,NT_DEVICE INITLONG LN_NAME,myName INITBYTE mdu_Msg+LN_TYPE,NT_MSGPORT ; Unit starts with MsgPort INITLONG mdu_Msg+LN_NAME,myName INITLONG mdu_tcb+LN_NAME,myName INITBYTE mdu_tcb+LN_TYPE,NT_TASK INITBYTE mdu_tcb+LN_PRI,MYPROCPRI INITBYTE mdu_is+LN_PRI,4 ; Int priority 4 IFD INTRRUPT INITLONG mdu_is+IS_CODE,myintr ; Interrupt routine addr ENDC INITLONG mdu_is+LN_NAME,myName DC.L 0 Init: DC.L MyDev_Sizeof ; data space size DC.L funcTable ; pointer to function initializers DC.L dataTable ; pointer to data initializers DC.L initRoutine ; routine to run funcTable: ;------ standard system routines dc.l Open dc.l CloseDev dc.l Expunge dc.l Null ;------ my device definitions dc.l BeginIO dc.l AbortIO ;------ function table end marker dc.l -1 dataTable: INITBYTE LH_TYPE,NT_DEVICE INITLONG LN_NAME,myName INITBYTE LIB_FLAGS,LIBF_SUMUSED!LIBF_CHANGED INITWORD LIB_VERSION,VERSION INITWORD LIB_REVISION,REVISION INITLONG LIB_IDSTRING,idString DC.L 0 ; a0 = seglist, d0 = device data, a6 = execbase initRoutine: move.l a5,-(sp) ; Preserve ALL modified registers lea execbase(pc),a5 move.l a6,(a5) ; save a pointer to exec move.l d0,a5 move.l a0,md_SegList(a5) ; save a pointer to our loaded code init_end: move.l (sp)+,a5 ; Restore All modified registers rts ;------------------------------------------------------------------------ ; opendevice ( device:a6, ioreq:a1, unitnum:d0, flags:d1 ) ;------------------------------------------------------------------------ ; Open: movem.l d2/a2-a4,-(sp) move.l a1,a2 ; a2 = ioreq move.l d0,d2 ; d2 = unit number cmp.l #MD_NUMUNITS,d0 bhs.s Open_Error ; unit number out of range ? lsl.l #2,d0 lea.l md_Units(a6,d0.l),a4 move.l (a4),a3 move.l a3,d0 ; unit already intialised ? bne.s Open_OK bsr InitUnit ; try and conjure up a unit move.l (a4),d0 beq.s Open_Error ; got a unit ? move.l d0,a3 bsr getparallelport ; obtain access to hardware tst.l d0 bne.s Open_Error bsr pp_init ; set up zip tst.l d0 beq.s Open_OK Open_Error: move.b #IOERR_OPENFAIL,io_error(a2) moveq #-1,d0 bra.s Open_End Open_OK: ; unit pointer in a3 move.l a3,io_unit(a2) addq.w #1,lib_opencnt(a6) ; mark us as having another opener addq.w #1,unit_opencnt(a3) bclr #LIBB_DELEXP,md_Flags(a6) ; prevent delayed expunges moveq #0,d0 Open_End: movem.l (sp)+,d2/a2-a4 rts CloseDev: ; ( device:a6, iob:a1 ) movem.l d1/a2-a3,-(sp) move.l a1,a2 move.l io_unit(a2),a3 ;------ make sure the iob is not used again moveq.l #-1,d0 move.l d0,io_unit(a2) move.l d0,io_device(a2) ;------ see if the unit is still in use subq.w #1,unit_opencnt(a3) bne.s Close_Device bsr ExpungeUnit Close_Device: ;------ mark us as having one fewer openers moveq.l #0,d0 subq.w #1,lib_opencnt(a6) ;------ see if there is anyone left with us open bne.s Close_End ;------ see if we have a delayed expunge pending btst #LIBB_DELEXP,md_Flags(a6) beq.s Close_End ;------ do the expunge bsr Expunge Close_End: movem.l (sp)+,d1/a2-a3 rts Expunge: ; ( device: a6 ) movem.l d1/d2/a5/a6,-(sp) ; save ALL modified registers move.l a6,a5 move.l execbase(pc),a6 tst.w lib_opencnt(a5) ; see if anyone has us open beq closed bset #LIBB_DELEXP,md_Flags(a5) ; it is still open. delay expunge moveq #0,d0 bra.s Expunge_End closed: move.l md_SegList(a5),d2 ; seglist in d2 move.l a5,a1 EXEC Remove ; unlink from device list ; ; device specific closings here... ; move.b #$03,jdir ; reset joystick FIRE to input mode setmode PPSTAT move.b #$c0,ctrldir ; restore parallel port move.b #$00,dirport bsr freeport ; free parallel port moveq #0,d0 moveq #0,d1 move.l a5,a1 move.w lib_negsize(a5),d1 sub.w d1,a1 add.w lib_possize(a5),d0 add.l d1,d0 ; free device memory EXEC FreeMem move.l d2,d0 ; return seglist for unloading Expunge_End: movem.l (sp)+,d1/d2/a5/a6 rts Null: moveq #0,d0 rts InitUnit: ; ( d2:unit number, a6:devptr ) movem.l d2-d4/a2/a3,-(sp) move.l #MyDevUnit_Sizeof,d0 move.l #MEMF_PUBLIC!MEMF_CLEAR,d1 EXEC AllocMem ; allocate unit memory tst.l d0 beq InitUnit_End move.l d0,a3 move.b d2,mdu_UnitNum(a3) ; initialize unit number move.l a6,mdu_Device(a3) ; initialize device pointer lea mdu_stack(a3),a0 ; Low end of stack move.l a0,mdu_tcb+tc_splower(a3) lea MYPROCSTACKSIZE(a0),a0 ; High end of stack move.l a0,mdu_tcb+tc_spupper(a3) move.l a3,-(A0) ; argument -- unit ptr move.l a0,mdu_tcb+tc_spreg(a3) lea mp_msglist(a3),a0 ; initialize the unit's list NEWLIST a0 lea mdu_tcb(a3),a0 move.l a0,mp_sigtask(a3) moveq.l #0,d0 ; Don't need to re-zero it move.l a3,a2 lea mdu_Init,A1 ; Initialize the UNIT EXEC InitStruct move.l a3,mdu_is+is_data(a3) ; set intserver unit address lea mdu_tcb(a3),a1 lea Proc_Begin(PC),a2 move.l a3,-(sp) ; Preserve UNIT pointer lea -1,a3 ; generate address error moveq #0,d0 ; if task ever "returns" EXEC AddTask ; Startup the task move.l (sp)+,a3 ; restore UNIT pointer move.l d2,d0 ; unit number lsl.l #2,d0 move.l a3,md_Units(a6,d0.l) ; put unit into array bra.s InitUnit_End ;------ got an error. free the unit structure that we allocated. InitUnit_FreeUnit: bsr FreeUnit InitUnit_End: movem.l (sp)+,d2-d4/a2/a3 rts FreeUnit: ; ( a3:unitptr, a6:deviceptr ) move.l a3,a1 move.l #MyDevUnit_Sizeof,d0 EXEC FreeMem rts ExpungeUnit: ; ( a3:unitptr, a6:deviceptr ) move.l d2,-(sp) lea mdu_tcb(a3),a1 EXEC RemTask ;------ save the unit number moveq #0,d2 move.b mdu_UnitNum(a3),d2 ;------ free the unit structure. bsr FreeUnit ;------ clear out the unit vector in the device lsl.l #2,d2 clr.l md_Units(a6,d2.l) move.l (sp)+,d2 rts cmdtable: DC.L Invalid ; 0 $00000001 DC.L MyReset ; 1 $00000002 DC.L IORead ; 2 $00000004 DC.L IOWrite ; 3 $00000008 DC.L Update ; 4 $00000010 DC.L Clear ; 5 $00000020 DC.L MyStop ; 6 $00000040 DC.L Start ; 7 $00000080 DC.L Flush ; 8 $00000100 DC.L Motor ; 9 $00000200 motor (NO-OP) DC.L Seek ; 10 $00000400 seek (NO-OP) DC.L Format ; 11 $00000800 format -> WRITE DC.L MyRemove ; 12 $00001000 remove (NO-OP) DC.L ChangeNum ; 13 $00002000 changenum (Returns 0) DC.L ChangeState ; 14 $00004000 changestate (Returns 0) DC.L ProtStatus ; 15 $00008000 protstatus (Returns 0) DC.L RawRead ; 16 Not supported (INVALID) DC.L RawWrite ; 17 Not supported (INVALID) DC.L GetDriveType ; 18 Get drive type (Returns 1) DC.L GetNumTracks ; 19 Get number of tracks (Returns NUMTRKS) DC.L AddChangeInt ; 20 Add disk change interrupt (NO-OP) DC.L RemChangeInt ; 21 Remove disk change interrupt (NO-OP) DC.L Invalid DC.L Invalid DC.L Invalid DC.L Invalid DC.L Invalid DC.L Invalid DC.L Invalid ; 29 SCSIdirect cmdtable_end: ; this define is used to tell which commands should not be queued ; command zero is bit zero. ; The immediate commands are Invalid, Reset, Stop, Start, Flush ; IMMEDIATES EQU $000001c3 ; BeginIO starts all incoming io. The IO is either queued up for the ; unit task or processed immediately. ; BeginIO: ; ( iob: a1, device:a6 ) movem.l d0/d1/a0/a1/a3,-(sp) ;------ bookkeeping move.l io_unit(a1),a3 ;------ see if the io command is within range move.w io_command(a1),d0 cmp.w #MYDEV_END,d0 bcc BeginIO_NoCmd DISABLE a0 ;------ process all immediate commands no matter what move.w #IMMEDIATES,d1 btst d0,d1 bne.s BeginIO_Immediate ;------ see if the unit is STOPPED. If so, queue the msg. btst #MDUB_STOPPED,unit_flags(a3) bne.s BeginIO_QueueMsg ;------ this is not an immediate command. see if the device is busy. bset #UNITB_ACTIVE,unit_flags(a3) beq.s BeginIO_Immediate ;------ we need to queue the device. mark us as needing attention. BeginIO_QueueMsg: bset #UNITB_INTASK,unit_flags(a3) bclr #IOB_QUICK,io_flags(a1) ENABLE a0 move.l a3,a0 EXEC PutMsg bra BeginIO_End BeginIO_NoCmd: move.b #IOERR_NOCMD,io_error(a1) bra.s BeginIO_End BeginIO_Immediate: ENABLE a0 bsr PerformIO BeginIO_End: movem.l (sp)+,d0/d1/a0/a1/a3 rts ; ; PerformIO actually dispatches an io request. It expects a3 to already ; have the unit pointer in it. a6 has the device pointer (as always). ; a1 has the iorequest. Bounds checking has already been done on ; the io request. ; PerformIO: ; ( iob:a1, unitptr:a3, devptr:a6 ) clr.b io_error(a1) ; No error so far moveq #0,d0 move.w io_command(a1),d0 ; bug <"cmd %ld off=%08lx len=%08lx",10>,d0,io_offset(a1),io_length(a1) lsl.w #2,d0 ; Multiply by 4 to get table offset lea cmdtable(pc),a0 move.l 0(a0,d0.w),a0 jmp (a0) ; ; TermIO sends the IO request back to the user. It knows not to mark ; the device as inactive if this was an immediate request or if the ; request was started from the server task. ; TermIO: ; ( iob:a1, unitptr:a3, devptr:a6 ) move.w IO_COMMAND(a1),d0 move.w #IMMEDIATES,d1 btst d0,d1 bne.s TermIO_Immediate ;------ we may need to turn the active bit off. btst #UNITB_INTASK,UNIT_FLAGS(a3) bne.s TermIO_Immediate ;------ the task does not have more work to do bclr #UNITB_ACTIVE,UNIT_FLAGS(a3) TermIO_Immediate: ;------ if the quick bit is still set then we don't need to reply ;------ msg -- just return to the user. btst #IOB_QUICK,IO_FLAGS(a1) bne.s TermIO_End EXEC ReplyMsg TermIO_End: rts AbortIO: RawRead: RawWrite: Invalid: GetNumTracks: move.b #IOERR_NOCMD,IO_ERROR(a1) bra TermIO MyReset: AddChangeInt: RemChangeInt: MyRemove: Seek: Remove: ChangeNum: ChangeState: Motor: UpDate: Clear: ProtStatus: clr.l IO_ACTUAL(a1) ; Indicate drive isn't protected bra TermIO GetDriveType: move.l #1,IO_ACTUAL(a1) ; Make it look like 3.5" bra TermIO IORead: IOWrite: Format: move.l d7,-(sp) clr.l io_actual(a1) ; Initially, no data moved move.l io_length(a1),d0 beq.s .end move.l io_offset(a1),d1 ; d1=byte offset and.w #$01ff,d1 ; check for whole sectors bne .secerror moveq #0,d7 .doscsi: bsr DoSCSI ; do SCSI read/write .end: move.b d0,io_error(a1) beq .done clr.l io_actual(a1) ; no data moved cmp.b #PhaseError,d0 ; SCSI phase error ? beq.s .retry cmp.b #SelectError,d0 bne.s .rwerror bsr pp_init ; if select failed, re-init zip .retry: addq.w #1,d7 cmp.w #2,d7 ; exceeded max retries ? bhs.s .rwerror bug <"retry $%08lx $%08lx",10>,io_offset(a1),io_length(a1) bra.s .doscsi ; try again .rwerror bug <"r/w error %ld off=$%08lx len=$%08lx",10>,d0,io_offset(a1),io_length(a1) move.b #TDERR_NotSpecified,io_error(a1) bra.s .done .secerror: move.b #-4,io_error(a1) .done: move.l (sp)+,d7 bra TermIO MyStop: bset #MDUB_STOPPED,UNIT_FLAGS(a3) bra TermIO Start: bsr InternalStart bra TermIO InternalStart: move.l a1,-(sp) bclr #MDUB_STOPPED,UNIT_FLAGS(a3) moveq #0,d0 move.b MP_SIGBIT(a3),d1 bset d1,d0 EXEC Signal ; kick the task to start it moving move.l (sp)+,a1 rts Flush: movem.l d2/a1,-(sp) bset #MDUB_STOPPED,UNIT_FLAGS(a3) sne d2 Flush_Loop: move.l a3,a0 EXEC GetMsg tst.l d0 beq.s Flush_End move.l d0,a1 move.b #IOERR_ABORTED,IO_ERROR(a1) EXEC ReplyMsg bra.s Flush_Loop Flush_End: move.l d2,d0 movem.l (sp)+,d2/a1 tst.b d0 beq.s .termio bsr InternalStart .termio bra TermIO ; ------------------- our process ------------------- cnop 0,4 ; long word align dc.l 16 ; segment length -- any number will do myproc_seglist: dc.l 0 ; pointer to next segment Proc_Begin: move.l 4(sp),a3 ; get Unit pointer from stack moveq #-1,d0 EXEC AllocSignal ; allocate sigbit move.b d0,mp_sigbit(a3) move.b #PA_SIGNAL,mp_flags(a3) moveq #0,d7 bset d0,d7 bra.s Proc_CheckStatus Proc_MainLoop: move.l d7,d0 EXEC Wait ; wait for next ioreq Proc_CheckStatus: btst #MDUB_STOPPED,unit_flags(a3) bne.s Proc_MainLoop ; device is stopped bset #UNITB_ACTIVE,unit_flags(a3) bne.s Proc_MainLoop ; device in use Proc_NextMessage: move.l a3,a0 EXEC GetMsg ; get next ioreq tst.l d0 beq.s Proc_Unlock ; no ioreq ? move.l d0,a1 move.l mdu_Device(a3),a6 bsr PerformIO ; process the ioreq bra.s Proc_NextMessage Proc_Unlock: and.b #~(UNITF_ACTIVE!UNITF_INTASK),UNIT_FLAGS(a3) bra Proc_MainLoop ;========================= device-specific code ====================== ;------------------------------------------------------ ; Time Delay ;------------------------------------------------------ ; in: d0 = time ; timedelay: movem.l d0-d7/a0-a6,-(sp) move.l d0,d7 bsr createport move.l d0,d6 ; d6 = port beq.s .done moveq #iotv_size,d0 move.l d6,a0 bsr createIO move.l d0,d5 ; d5 = ioreq beq.s .delport move.l d5,a1 moveq #UNIT_MICROHZ,d0 moveq #0,d1 lea timername(pc),a0 EXEC OpenDevice ; open timer device tst.l d0 bne.s .delio move.l d5,a1 ; a1 = ioreq move.l d7,d0 moveq #0,d1 .divide: sub.l #1000000,d0 bmi.s .set addq.l #1,d1 ; calculate seconds, microseconds bra.s .divide .set: add.l #1000000,d0 move.l d1,iotv_time+tv_secs(a1) move.l d0,iotv_time+tv_micro(a1) move.w #TR_ADDREQUEST,io_command(a1) EXEC DoIO ; do time delay .closedev: move.l d5,a1 EXEC CloseDevice ; close timer device .delio: move.l d5,a1 bsr deleteIO .delport: ; clean up move.l d6,a0 bsr deleteport .done: movem.l (sp)+,d0-d7/a0-a6 rts ;*********************************** ;* Create Signalling Message Port * ;*********************************** ; ; Port = CreatePort() ; d0 ; CreatePort: movem.l d2/a2,-(sp) moveq.l #-1,d0 exec AllocSignal move.l d0,d2 bmi.s .error move.b d0,d2 moveq.l #MP_SIZE,d0 move.l #MEMF_PUBLIC|MEMF_CLEAR,d1 exec AllocMem move.l d0,a2 beq.s .error sub.l a1,a1 exec FindTask move.l d0,MP_SIGTASK(a2) move.b d2,MP_SIGBIT(a2) move.b #NT_MSGPORT,LN_TYPE(a2) move.b #PA_SIGNAL,MP_FLAGS(a2) lea MP_MSGLIST(a2),a1 move.l a1,lh_head(a1) ;Newlist a1 addq.l #4,lh_head(a1) clr.l lh_tail(a1) move.l a1,lh_tailpred(a1) move.l a2,d0 ; D0 = port bra.s .done .error: move.l a2,a0 bsr.s DeletePort moveq #0,d0 .done: movem.l (sp)+,d2/a2 rts ;*************************** ;* Delete Message Port * ;*************************** ; DeletePort(port) ; a0 ; DeletePort: move.l a2,-(sp) move.l a0,d0 beq.s .done ; can't delete NULL port move.l d0,a2 moveq #0,d0 move.b MP_SIGBIT(a2),d0 bmi.s .nosignal exec FreeSignal .nosignal: move.l a2,a1 moveq #MP_SIZE,d0 exec FreeMem .done: move.l (sp)+,a2 rts ;******************************** ;* Create IORequest * ;******************************** ; ; ioreq = CreateIO(port,size) ; d0 a0 d0 ; CreateIO: movem.l d2/a2,-(sp) move.l a0,a2 move.l d0,d2 move.l #MEMF_PUBLIC|MEMF_CLEAR,d1 exec AllocMem tst.l d0 beq.s .done move.l d0,a1 move.l a2,MN_REPLYPORT(a1) move.b #NT_MESSAGE,LN_TYPE(a1) move.w d2,MN_LENGTH(a1) .done: movem.l (sp)+,d2/a2 rts ;********************* ;* Delete IO Request * ;********************* ; DeleteIO(ioreq,size) ; a1 d0 ; DeleteIO: move.l a1,d1 beq.s .done exec FreeMem .done: rts ;------------------------------------------------------ ; Get Exclusive use of Parallel Port ;------------------------------------------------------ ; Error = getparallelport() ; D0 ; GetParallelPort: movem.l d2-d3/a2-a3/a6,-(sp) lea miscname(pc),a1 EXEC openresource ; open misc.resource move.l d0,miscbase beq.s .nosys .getpar: move.l miscbase(pc),a6 moveq #MR_PARALLELBITS,d0 ; give us the parallel bits lea myname(pc),a1 jsr MR_Allocmiscresource(a6) tst.l d0 bne.s .error moveq #MR_PARALLELPORT,d0 lea myname(pc),a1 jsr MR_Allocmiscresource(a6) ; give us the parallel port tst.l d0 beq.s .done moveq #MR_PARALLELBITS,d0 jsr MR_Freemiscresource(a6) .error: lea Intuiname(pc),a1 moveq #0,d0 EXEC OpenLibrary tst.l d0 beq.s .nosys move.l d0,a6 moveq #0,d0 move.l d0,d1 move.l d0,a0 move.l #300,d2 move.l #70,d3 lea NoPortText(pc),a1 lea yestext(pc),a2 lea notext(pc),a3 jsr _LVOAutoRequest(a6) move.l d0,d2 move.l a6,a0 EXEC CloseLibrary tst.l d2 bne.s .getpar .nosys: moveq #-1,D0 .done: movem.l (sp)+,d2-d3/a2-a3/a6 rts ;------------------------------------------------------ ; Free Parallel Port ;------------------------------------------------------ FreePort: move.l a6,-(sp) move.l miscbase(pc),d0 beq.s .done move.l d0,a6 moveq #MR_PARALLELBITS,d0 jsr MR_Freemiscresource(A6) moveq #MR_PARALLELPORT,d0 jsr MR_Freemiscresource(A6) .done: move.l (sp)+,a6 rts ;-------------------------------------------------------- ; do SCSI Read/Write/Format ;-------------------------------------------------------- ; ; in: a1 = ioreq ; ; out: d0 = error ; DoSCSI: movem.l d2-d5/a6,-(sp) moveq #0,d2 ; d2 = error lea cmdbuf(pc),a0 ; a0 = SCSI command block move.l io_offset(a1),d0 lsr.l #8,d0 lsr.l #1,d0 ; startsec = offset/512 and.l #$000FFFFF,d0 move.l d0,(a0) ; put startsec into command string move.l io_length(a1),d0 lsr.l #1,d0 ; numsects=length/512 lsr.l #8,d0 move.b d0,4(a0) ; put numsects into command string clr.b 5(a0) cmp.w #CMD_READ,io_command(a1) bne.s .write .read: move.b #$08,(a0) ; scsi READ command bra.s .docmd .write: move.b #$0a,(a0) ; scsi WRITE command .docmd: bsr connect ; SCSI connect bsr pp_select tst.l d0 ; select SCSI target bne .selecterror bsr pp_wait ; wait for command phase tst.l d0 bmi.s .badphase bsr pp_command ; send command string tst.l d0 bmi .done delay 3000 ; wait until command executed bsr pp_wait cmp.w #READ,d0 ; data phase (read) ? beq .rd cmp.w #WRITE,d0 ; data phase (write) ? beq .wr cmp.w #STATUS,d0 ; status phase? bne.s .badphase bug <"Status phase too early!",10> moveq #PhaseError,d2 bra .getstatbyte .selecterror: bug <"Select error",10> moveq #SelectError,d2 bra .done .badphase: bug <"Invalid phase %03lx",10>,d0 moveq #PhaseError,d2 bra .done .rd move.l io_length(a1),d0 move.l io_data(a1),a0 bsr getblock ; read data block bra.s .xfrdone .wr move.l io_length(a1),d0 move.l io_data(a1),a0 ; write data block bsr putblock .xfrdone: move.l io_length(a1),io_actual(a1) moveq #0,d3 .waitstat: bsr pp_wait ; wait until r/w completed tst.l d0 bge.s .checkstat bug <"timed out waiting for status byte!",10> bra .badstat .checkstat: cmp.w #STATUS,d0 ; status phase ? beq.s .getstatbyte addq.l #1,d3 ; try again cmp.w #STAT_TIMEOUT,d3 blo.s .waitstat bug <"Expecting STATUS phase, got %03lx!",10>,d0 .getstatbyte: bsr getbyte ; get status byte ifd debug and.l #$000000ff,d0 beq.s .waitmsg bug <"Unexpected Status Byte $%02lx",10>,d0 endc .waitmsg: bsr pp_wait ; wait for message byte tst.l d0 bge.s .msg bug <"timed out waiting for Message byte!",10> .badstat: moveq #StatusError,d2 bra.s .done .msg: bsr getbyte ; get message byte ifd debug and.l #$000000ff,d0 beq.s .done bug <"Strange Message Byte = $%02lx",10>,d0 endc .done: bsr disconnect ; SCSI disconnect move.l d2,d0 movem.l (sp)+,d2-d5/a6 rts ;-------------------------------------------------------------- ; Send a 6 byte SCSI command ;-------------------------------------------------------------- ; pp_command: lea cmdbuf(pc),a0 moveq #6-1,d1 ; 6 byte command string .cmdloop moveq #0,d0 move.b (a0)+,d0 move.b d0,dataport ; send command byte delay move.b #AFDXT,jport delay ; pulse autofeedxt move.b #NO_XT,jport delay bsr pp_wait ; wait for command byte accepted dbf d1,.cmdloop rts ;-------------------------------------------------------------- ; Select ZIP drive as SCSI device 6 ;-------------------------------------------------------------- pp_select: move.l d2,-(sp) move.w #SLCT_TIMEOUT,d2 .wait: bsr getstat btst #ACKBIT,d0 ; wait until not selected beq.s .select .waitns: dbf d2,.wait bra .error ; error if timed out .select: setmode PPOUT delay move.b #1<<6,dataport ; send target SCSI address delay move.b #AFDXT,jport delay ; pulse autofeedxt move.b #NO_XT,jport delay move.b #$80,dataport delay setmode PPHOST ; send 'select target' ctrl byte delay move.w #SLCT_TIMEOUT,d2 .waitdrive: bsr getstat btst #ACKBIT,d0 ; wait until selected bne.s .good dbf d2,.waitdrive .error: ; error if timed out moveq #-1,d2 bra.s .done .good: moveq #0,d2 .done: setmode PPOUT delay move.l d2,d0 move.l (sp)+,d2 rts ;---------------------------------- ; send SCSI connect request ;---------------------------------- ; connect: move.l d0,-(sp) moveq #$00,d0 bsr conbyte moveq #$3c,d0 bsr conbyte moveq #$20,d0 bsr conbyte move.b #$8f,d0 bsr conbyte move.l (sp)+,d0 rts ;---------------------------------- ; send a connect byte ;---------------------------------- ; ; d0 = connect byte ; conbyte: move.b d0,dataport delay setmode PPSTAT delay move.b #AFDXT,jport delay move.b #NO_XT,jport delay setmode PPOUT delay rts ;---------------------------------- ; send SCSI disconnect request ;---------------------------------- ; disconnect: move.l d0,-(sp) moveq #$00,d0 bsr disbyte moveq #$3c,d0 bsr disbyte moveq #$20,d0 bsr disbyte moveq #$0f,d0 bsr disbyte move.l (sp)+,d0 rts ;--------------------------------- ; send a disconnect byte ;--------------------------------- ; ; d0 = disconnect byte ; disbyte: move.b d0,dataport delay setmode PPOUT delay move.b #AFDXT,jport delay move.b #NO_XT,jport delay setmode PPSTAT delay setmode PPOUT delay rts ;------------------------------------------------------------ ; Get status bits from joystick port ;------------------------------------------------------------ ; getstat: moveq #0,d0 move.w statport,d0 and.w #STATMASK,d0 bchg #9,d0 ; invert SEL bne.s .1 bchg #8,d0 ; invert ACK .1 bchg #1,d0 ; invert BUSY bne.s .done bchg #0,d0 ; invert POUT .done: rts ;---------------------------------------------------------------- ; Wait for status bits ;---------------------------------------------------------------- ; ; Returns some status information. ; ; WRITE = ZIP wants more data ; READ = ZIP wants to send more data ; COMAND = ZIP wants another command byte ; STATUS = end of transfer, ZIP is sending status byte ; pp_wait: move.l d1,-(sp) move.l #WAIT_TIMEOUT,d1 .wait bsr getstat btst #BUSYBIT,d0 ; wait until zip is not busy beq.s .done subq.l #1,d1 bne.s .wait moveq #-1,d0 ; return error code -1 .done move.l (sp)+,d1 rts ;------------------------------------------ ; Initialise parallel port and ZIP drive ;------------------------------------------ pp_init: move.l a1,-(sp) move.b #$ff,dirport move.b #$ff,dataport setmode PPOUT move.b #$c7,ctrldir move.b #$80,jport move.b #$83,jdir setmode PPINIT delay 1000 ; send /init setmode PPOUT delay 100 bsr disconnect bsr connect move.b #AFDXT,jport delay move.b #NO_XT,jport delay move.b #$40,dataport ; reset SCSI bus delay setmode PPHOST delay 30 setmode PPOUT delay 1000 bsr disconnect delay 1000 bsr DoEnquiry ; SCSI read enquiry info tst.l d0 bne.s .error delay 1000 bsr DoSense ; SCSI read sense info tst.l d0 beq.s .ok .error: bug <"init failed!",10> moveq #-1,d0 bra.s .done .ok: delay 300000 ; wait for motor to get up to speed! moveq #0,d0 .done: move.l (sp)+,a1 rts ;---------------------------------------------------------------- ; Do SCSI 'Read Sense data' ;---------------------------------------------------------------- ; DoSense: bug <"DoSense: "> lea cmdbuf(pc),a0 ; a0 = SCSI command block move.l #$03000000,(a0) ; move.w #$4000,4(a0) ; SCSI Enquiry bra.s ReadSCSI ;---------------------------------------------------------------- ; Do SCSI 'Read Equiry data' ;---------------------------------------------------------------- ; DoEnquiry: bug <"DoEnquiry: "> lea cmdbuf(pc),a0 ; a0 = SCSI command block move.l #$12000000,(a0) ; move.w #$9300,4(a0) ; SCSI Enquiry ReadSCSI: bsr connect bsr pp_select ; select target SCSI address tst.l d0 bne .error bsr pp_wait ; wait for drive ready tst.l d0 bmi .error bsr pp_command ; send SCSI command bug <"%03lx ">,d0 tst.l d0 ; command sent OK ? bmi .error cmp.w #READ,d0 ; now in READ phase ? bne .error lea buffer(pc),a0 ; get data bsr getbytes bsr pp_wait ; wait for end data phase tst.l d0 bmi.s .error bsr getbyte ; get status byte bug <"%02lx ">,d0 bsr pp_wait tst.b d0 beq.s .ok ; message byte ? tst.l d0 bmi.s .error bsr getbyte ; get message byte bug <"%02lx",10>,d0 bra.s .ok .error: moveq #-1,d0 bra.s .done .ok: moveq #0,d0 .done: rts ;-------------------------------------------------------------------- ; output a block ;-------------------------------------------------------------------- ; ; putblock(buffer,len) ; a0 d0 putblock: movem.l d1-d2/a1-a2,-(sp) lea dataport,a1 lea jport,a2 move.b #AFDXT,d1 move.b #NO_XT,d2 .loop move.b (a0)+,(a1) move.b d1,(a2) move.b d2,(a2) subq.l #1,d0 bne.s .loop .done movem.l (sp)+,d1-d2/a1-a2 rts ;-------------------------------------------------------------------- ; output a single byte ;-------------------------------------------------------------------- ; putbyte(byte) ; d0 putbyte: move.b d0,dataport delay move.b #AFDXT,jport delay move.b #NO_XT,jport delay rts ;-------------------------------------------------------------------- ; read a block ;--------------------------------------------------------------------- ; getblock(buffer,len) ; a0 d0 getblock: movem.l d1-d3/a1-a2,-(sp) move.l d0,d3 lea dataport,a1 lea jport,a2 move.b #AFDXT,d1 move.b #NO_XT,d2 move.b #$00,dirport ; port direction set to input setmode PPIN delay .loop move.b (a1),(a0)+ ; get byte move.b d1,(a2) move.b d2,(a2) ; 'data accepted' pulse subq.l #1,d3 bne.s .loop .done: setmode PPSTAT move.b #$ff,dirport ; port direction set to output delay setmode PPOUT delay movem.l (sp)+,d1-d3/a1-a2 rts ;--------------------------------------------------------------------- ; read some bytes ;--------------------------------------------------------------------- ; numbytes=getbytes(buffer) ; d0 a0 getbytes: move.l d2,-(sp) moveq #0,d2 .loop bsr getbyte move.b d0,(a0)+ addq.l #1,d2 bsr getstat cmp.w #READ,d0 bne.s .done cmp.w #512,d2 blo.s .loop .done: move.l d2,d0 move.l (sp)+,d2 rts ;--------------------------------------------------------------------- ; read a single byte ;--------------------------------------------------------------------- ; d0 = getbyte() ; getbyte: move.b #$00,dirport ; port direction set to input setmode PPIN delay move.b dataport,d1 ; get byte delay move.b #AFDXT,jport delay ; 'data accepted' pulse move.b #NO_XT,jport setmode PPSTAT move.b #$ff,dirport ; port direction set to output delay setmode PPOUT delay move.l d1,d0 rts ; ---------------- static data ------------------- MyName: dc.b 'ppazip.device',0 idString: dc.b 'ppazip ' dc.b (VERSION+"0"),'.',(REVISION+"0"),' ' dc.b __DATE dc.b ' by Bruce Abbott',10,0 miscname dc.b 'misc.resource',0 intuiname: dc.b 'intuition.library',0 timername: dc.b 'timer.device',0 even Yestext: dc.b 2,1 dc.b 1 dc.b 0 dc.w 6,4 dc.l 0 dc.l .Text dc.l 0 .Text: dc.b "RETRY",0 even Notext: dc.b 2,1 dc.b 1 dc.b 0 dc.w 6,4 dc.l 0 dc.l .Text dc.l 0 .Text: dc.b "CANCEL",0 even NoPortText: dc.b 3,1 dc.b 1 dc.b 0 dc.w 10,20 dc.l 0 dc.l .txt dc.l 0 .txt: dc.b 'ppazip: parallel port in use!',0 even EndCode: ; ---------------- variable data ----------------- execbase: dc.l 0 miscbase: dc.l 0 cmdbuf: dc.b $00,$00,$00,$00,$00,$00 even buffer: ds.b 512 END