Mercurial > hg > Members > kono > nitros9-code
changeset 1735:11f38ece79ef
More changes by Phill for Dragon
| author | boisy |
|---|---|
| date | Sun, 28 Nov 2004 20:16:37 +0000 |
| parents | b992196e2ac9 |
| children | fd288a57f6ab |
| files | level1/modules/ccio.asm level1/modules/clock.asm level1/modules/clock_d64.asm level1/modules/ddisk.asm level1/modules/makefile.dragon |
| diffstat | 5 files changed, 851 insertions(+), 644 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/modules/ccio.asm Sat Nov 27 15:24:02 2004 +0000 +++ b/level1/modules/ccio.asm Sun Nov 28 20:16:37 2004 +0000 @@ -11,6 +11,10 @@ * * 12r1 2003/09/11 Rodney V. Hamilton * Modified key table to include $7F, $1D, $1E and $1F codes. +* +* 2004/11/28, P.Harvey-Smith. +* Added code to remap Dragon keyboard inputs to CoCo format. +* nam CCIO ttl OS-9 Level One V2 CoCo I/O driver @@ -174,7 +178,8 @@ andb #$03 mask out all but lower 2 bits rts -L00F1 bsr L015C +L00F1 + bsr L015C bmi L00CC clrb bsr L00E8 @@ -237,7 +242,12 @@ deca lda #%11111110 sta $02,x write column strobe L016F lda ,x read row from PIA0Base - coma invert so 1=key pressed + + IFEQ DragonIO-1 + lbsr DragonToCoCo ; Translate Dragon keyboard layout to CoCo + ENDC + + coma invert so 1=key pressed anda #$7F keep only keys, bit 0=off 1=on beq L0183 no keys pressed, try next column ldb #$FF preset counter to -1 @@ -290,7 +300,8 @@ inc <V.AltDwn,u flag special keys (ALT, CTRL) subb #$06 adjust offset to skip them L01DD pshs x save X - leax >KeyTbl,pcr point to keyboard table + + leax >KeyTbl,pcr point to keyboard table lda b,x puls x bmi L01FD if A = $81 - $84, special key @@ -458,6 +469,37 @@ stb ,x L0320 rts +; +; Convert Dragon Keyboard mapping to CoCo. +; +; Entry a=Dragon formatted keyboard input from PIA +; Exit a=CoCo formatted keyboard input from PIA +; + + IFEQ DragonIO-1 +DragonToCoCo + pshs b + sta ,-s ; Save on stack + tfr a,b ; Take a copy of keycode + anda #%01000000 ; Top row same on both machines + andb #%00000011 ; shift bottom 2 rows up 4 places + lslb + lslb + lslb + lslb + pshs b + ora ,s+ ; recombine rows + puls b + andb #%00111100 ; Shift middle 4 rows down 2 places + lsrb + lsrb + pshs b + ora ,s+ ; recombine rows + puls b + RTS + + ENDC + * Key Table * 1st column = key (no modifier) * 2nd column = SHIFT+key @@ -490,6 +532,7 @@ fcb $31,$33,$35 F1 key fcb $32,$34,$36 F2 key + * Write * * Entry:
--- a/level1/modules/clock.asm Sat Nov 27 15:24:02 2004 +0000 +++ b/level1/modules/clock.asm Sun Nov 28 20:16:37 2004 +0000 @@ -21,7 +21,11 @@ * * 9r6 2003/09/04 Boisy G. Pitre * Combined Level One and Level Two sources - +* +* 2004/11/27 P.Harvey-Smith +* Fixed bug in init routine that was causing DP and CC to +* be pulled off the stack and stored in D.Proc under level 1 +* nam Clock ttl OS-9 System Clock @@ -112,6 +116,10 @@ Clock2 fcs "Clock2" Init + pshs y + ldy #$aa55 + puls y + ifeq Level-1 pshs dp,cc save DP and CC clra @@ -122,19 +130,29 @@ ldx <D.SysPrc make sys for link stx <D.Proc endc + leax <Clock2,pcr lda #Sbrtn+Objct os9 F$Link - puls x - stx <D.Proc restore user proc + bcc LinkOk + ifeq Level-1 jmp >$FFFE level 1: jump to reset vector else lda #E$MNF jmp <D.Crash level 2: jump to CRASH vector endc -LinkOk sty <D.Clock2 save entry point + +LinkOk + ifeq Level-1 + puls cc,dp ; Restore saved dp and cc + else + puls x + stx <D.Proc restore user proc + endc + + sty <D.Clock2 save entry point InitCont ldx #PIA0Base point to PIA0 clra no error for return... @@ -156,9 +174,11 @@ sta 3,x enable DDRB coma sta 2,x set port B all outputs - ldd #$343C [A]=PIA0 CRA contents, [B]=PIA0 CRB contents +; ldd #$343C [A]=PIA0 CRA contents, [B]=PIA0 CRB contents + ldd #$3435 sta 1,x CA2 (MUX0) out low, port A, disable HBORD high-to-low IRQs stb 3,x CB2 (MUX1) out low, port B, disable VBORD low-to-high IRQs + ifgt Level-1 lda ,x clear possible pending PIA0 HBORD IRQ endc @@ -171,12 +191,15 @@ stb <D.Slice set first time slice leax SvcIRQ,pcr set IRQ handler stx <D.IRQ + ifgt Level-1 leax SvcVIRQ,pcr set VIRQ handler stx <D.VIRQ endc + leay NewSvc,pcr insert syscalls os9 F$SSvc + ifgt Level-1 ifne H6309 oim #$08,<D.IRQER @@ -187,13 +210,12 @@ endc sta >IRQEnR enable GIME VBORD IRQs endc + * Call Clock2 init routine ldy <D.Clock2 get entry point to Clock2 jsr ,y call init entry point of Clock2 InitRts puls cc,pc recover IRQ enable status and return - - ifeq Level-1 * * Clock IRQ Entry Point
--- a/level1/modules/clock_d64.asm Sat Nov 27 15:24:02 2004 +0000 +++ b/level1/modules/clock_d64.asm Sun Nov 28 20:16:37 2004 +0000 @@ -1,11 +1,15 @@ - nam Clock +; +; Dragon 64 clock module, Disassembled Nov 2004, +; P.Harvey-Smith. +; + + nam Clock ttl os9 system module * Disassembled 1900/00/00 00:12:38 by Disasm v1.5 (C) 1988 by RML ifp1 -* use /dd/defs/os9defs - use defsfile + use defsfile endc tylg set Systm+Objct atrv set ReEnt+rev @@ -16,11 +20,15 @@ name equ * fcs /Clock/ fcb $02 -L0013 fcb $15 + +L0013 fcb F$Time + FDB GetTimeHandler-*-2 +; fcb $00 +; fcb $82 + fcb $80 ; Terminator fcb $00 - fcb $82 - fcb $80 - fcb $00 + +DaysInMonths fcb $1F fcb $1C fcb $1F @@ -33,112 +41,168 @@ fcb $1F fcb $1E fcb $1F -L0024 fcb $4F O - fcb $1F - fcb $8B - fcb $0A - fcb $59 Y - fcb $26 & - fcb $46 F - fcb $DC \ - fcb $57 W - fcb $5C \ - fcb $C1 A - fcb $3C < - fcb $25 % - fcb $39 9 - fcb $4C L - fcb $81 - fcb $3C < - fcb $25 % - fcb $33 3 - fcb $DC \ - fcb $55 U - fcb $5C \ - fcb $C1 A - fcb $18 - fcb $25 % - fcb $29 ) - fcb $4C L - fcb $30 0 - fcb $8D - fcb $FF - fcb $D4 T - fcb $D6 V - fcb $54 T - fcb $C1 A - fcb $02 - fcb $26 & - fcb $09 - fcb $D6 V - fcb $53 S - fcb $27 ' - fcb $05 - fcb $C4 D - fcb $03 - fcb $26 & - fcb $01 - fcb $4A J - fcb $D6 V - fcb $54 T - fcb $A1 ! - fcb $85 - fcb $23 # - fcb $0E - fcb $DC \ - fcb $53 S - fcb $5C \ - fcb $C1 A - fcb $0D - fcb $25 % - fcb $03 - fcb $4C L - fcb $C6 F - fcb $01 - fcb $DD ] - fcb $53 S - fcb $86 - fcb $01 - fcb $5F _ - fcb $DD ] - fcb $55 U - fcb $4F O - fcb $5F _ - fcb $DD ] - fcb $57 W - fcb $96 - fcb $5A Z - fcb $97 - fcb $59 Y - fcb $6E n - fcb $9F - fcb $00 - fcb $81 +AltIRQ + CLRA + TFR A,DP + DEC <D.Tick + BNE ALTIRQExit + LDD <D.Min + INCB + CMPB #$3C ; 60 + BCS LabA + INCA + CMPA #$3C ; 60 + BCS Labb + LDD <D.Day + INCB + CMPB #$18 ; 24 Hours + BCS LabD + INCA + LEAX DaysInMonths,PCR + LDB <D.Month + CMPB #2 ; Febuary ? + BNE NotLeap + LDB <D.Year ; Test for leap year + BEQ NotLeap + ANDB #$03 + BNE NotLeap + DECA + +NotLeap LDB <D.Month + CMPA B,X ; Lookup number of days + BLS LabE + LDD <D.Year + INCB + CMPB #$0D ; End of year ? + BCS LabF + + INCA ; Happy new year ! + LDB #$1 ; Back to January + +LabF STD <D.Year + + LDA #$01 +LabE CLRB +LabD STD <D.Day + CLRA +LabB CLRB +LabA STD <D.Min + LDA <D.TSec + STA <D.Tick +AltIRQExit + JMP [D.Clock] +; fcb $4F O +; fcb $1F +; fcb $8B +; fcb $0A +; fcb $59 Y +; fcb $26 & +; fcb $46 F +; fcb $DC \ +; fcb $57 W +; fcb $5C \ +; fcb $C1 A +; fcb $3C < +; fcb $25 % +; fcb $39 9 +; fcb $4C L +; fcb $81 +; fcb $3C < +; fcb $25 % +; fcb $33 3 +; fcb $DC \ +; fcb $55 U +; fcb $5C \ +; fcb $C1 A +; fcb $18 +; fcb $25 % +; fcb $29 ) +; fcb $4C L +; fcb $30 0 +; fcb $8D +; fcb $FF +; fcb $D4 T +; fcb $D6 V +; fcb $54 T +; fcb $C1 A +; fcb $02 +; fcb $26 & +; fcb $09 +; fcb $D6 V +; fcb $53 S +; fcb $27 ' +; fcb $05 +; fcb $C4 D +; fcb $03 +; fcb $26 & +; fcb $01 +; fcb $4A J +; fcb $D6 V +; fcb $54 T +; fcb $A1 ! +; fcb $85 +; fcb $23 # +; fcb $0E +; fcb $DC \ +; fcb $53 S +; fcb $5C \ +; fcb $C1 A +; fcb $0D +; fcb $25 % +; fcb $03 +; fcb $4C L +; fcb $C6 F +; fcb $01 +; fcb $DD ] +; fcb $53 S +; fcb $86 +; fcb $01 +; fcb $5F _ +; fcb $DD ] +; fcb $55 U +; fcb $4F O +; fcb $5F _ +; fcb $DD ] +; fcb $57 W +; fcb $96 +; fcb $5A Z +; fcb $97 +; fcb $59 Y +; fcb $6E n +; fcb $9F +; fcb $00 +; fcb $81 start equ * + pshs x + ldx #$0666 + puls x pshs dp,cc clra tfr a,dp lda #$32 - sta <$5A - sta <$59 + sta <D.TSec ; Ticks/Second + sta <D.Tick lda #$05 - sta <$5B - sta <$48 + sta <D.TSlice ; Ticks/Timeslice + sta <D.Slice orcc #$50 - leax >L0024,pcr - stx >$006B + leax >AltIRQ,pcr + stx >D.AltIRQ leay >L0013,pcr os9 F$SSvc puls pc,dp,cc + +GetTimeHandler ldx $04,u - ldd <$53 + ldd <D.Year std ,x - ldd <$55 + ldd <D.Day std $02,x - ldd <$57 + ldd <D.Min std $04,x clrb rts - emod + +emod eom equ * end
--- a/level1/modules/ddisk.asm Sat Nov 27 15:24:02 2004 +0000 +++ b/level1/modules/ddisk.asm Sun Nov 28 20:16:37 2004 +0000 @@ -40,6 +40,10 @@ * double sided code taken from Jon Bird's pages at : * http://www.onastick.clara.net/dragon.html and modified * for NitrOS9. +* +* 2004-1127, P.Harvey-Smith. +* Reformatted with tab=8. +* * nam DDisk @@ -57,105 +61,114 @@ * Drive select / motor control, and provides FIRQ from the * disk controler. -DPPIADA EQU DPPIA2DA -DPPIACRA EQU DPPIA2CRA -DPPIADB EQU DPPIA2DB -DPPIACRB EQU DPPIA2CRB +DPPIADA EQU DPPIA2DA +DPPIACRA EQU DPPIA2CRA +DPPIADB EQU DPPIA2DB +DPPIACRB EQU DPPIA2CRB -PIADA EQU DPPIADA+IO ; Side A Data/DDR -PIACRA EQU DPPIACRA+IO ; Side A Control. -PIADB EQU DPPIADB+IO ; Side A Data/DDR -PIACRB EQU DPPIACRB+IO ; Side A Control. +PIADA EQU DPPIADA+IO ; Side A Data/DDR +PIACRA EQU DPPIACRA+IO ; Side A Control. +PIADB EQU DPPIADB+IO ; Side A Data/DDR +PIACRB EQU DPPIACRB+IO ; Side A Control. ;WD2797 Floppy disk controler, used in Alpha Note registers in reverse order ! -DPCMDREG EQU DPCmdRegA ; command/status -DPTRKREG EQU DPTrkRegA ; Track register -DPSECREG EQU DPSecRegA ; Sector register -DPDATAREG EQU DPDataRegA ; Data register +DPCMDREG EQU DPCmdRegA ; command/status +DPTRKREG EQU DPTrkRegA ; Track register +DPSECREG EQU DPSecRegA ; Sector register +DPDATAREG EQU DPDataRegA ; Data register -CMDREG EQU DPCMDREG+IO ; command/status -TRKREG EQU DPTRKREG+IO ; Track register -SECREG EQU DPSECREG+IO ; Sector register -DATAREG EQU DPDATAREG+IO ; Data register +CMDREG EQU DPCMDREG+IO ; command/status +TRKREG EQU DPTRKREG+IO ; Track register +SECREG EQU DPSECREG+IO ; Sector register +DATAREG EQU DPDATAREG+IO ; Data register ; Disk IO bitmasks -NMIEn EQU NMIEnA +NMIEn EQU NMIEnA WPCEn EQU WPCEnA SDensEn EQU SDensEnA MotorOn EQU MotorOnA +; These are the bits that we know the function of on the Alpha interface +KnownBits EQU Drive0A+Drive1A+Drive2A+Drive3A+MotorOnA+WPCEnA + ELSE -DPPIADA EQU DPPIA1DA -DPPIACRA EQU DPPIA1CRA -DPPIADB EQU DPPIA1DB -DPPIACRB EQU DPPIA1CRB +DPPIADA EQU DPPIA1DA +DPPIACRA EQU DPPIA1CRA +DPPIADB EQU DPPIA1DB +DPPIACRB EQU DPPIA1CRB -PIADA EQU DPPIADA+IO ; Side A Data/DDR -PIACRA EQU DPPIACRA+IO ; Side A Control. -PIADB EQU DPPIADB+IO ; Side A Data/DDR -PIACRB EQU DPPIACRB+IO ; Side A Control. +PIADA EQU DPPIADA+IO ; Side A Data/DDR +PIACRA EQU DPPIACRA+IO ; Side A Control. +PIADB EQU DPPIADB+IO ; Side A Data/DDR +PIACRB EQU DPPIACRB+IO ; Side A Control. ;WD2797 Floppy disk controler, used in DragonDos. -DPCMDREG EQU DPCmdRegD ; command/status -DPTRKREG EQU DPTrkRegD ; Track register -DPSECREG EQU DPSecRegD ; Sector register -DPDATAREG EQU DPDataRegD ; Data register +DPCMDREG EQU DPCmdRegD ; command/status +DPTRKREG EQU DPTrkRegD ; Track register +DPSECREG EQU DPSecRegD ; Sector register +DPDATAREG EQU DPDataRegD ; Data register -CMDREG EQU DPCMDREG+IO ; command/status -TRKREG EQU DPTRKREG+IO ; Track register -SECREG EQU DPSECREG+IO ; Sector register -DATAREG EQU DPDATAREG+IO ; Data register +CMDREG EQU DPCMDREG+IO ; command/status +TRKREG EQU DPTRKREG+IO ; Track register +SECREG EQU DPSECREG+IO ; Sector register +DATAREG EQU DPDATAREG+IO ; Data register ; Disk IO bitmasks -NMIEn EQU NMIEnD +NMIEn EQU NMIEnD WPCEn EQU WPCEnD SDensEn EQU SDensEnD MotorOn EQU MotorOnD ENDC -tylg set Drivr+Objct -atrv set ReEnt+rev -rev set $00 -edition set 3 +tylg set Drivr+Objct +atrv set ReEnt+rev +rev set $00 +edition set 3 MaxDrv set 4 mod eom,name,tylg,atrv,start,size - org DrvBeg - RMB MaxDrv*DrvMem + org DrvBeg + RMB MaxDrv*DrvMem CDrvTab rmb 2 DrivSel rmb 1 ; Saved drive mask -Settle rmb 1 ; Head settle time +Settle rmb 1 ; Head settle time SavePIA0CRB rmb 1 ; Saved copy of PIA0 control reg b -SaveACIACmd rmb 1 ; Saved copy of ACIA command reg -BuffPtr rmb 2 ; Buffer pointer -SideSel rmb 1 ; Side select. -NMIFlag rmb 1 ; Flag for Alpha, should this NMI do an RTI ? +SaveACIACmd rmb 1 ; Saved copy of ACIA command reg +BuffPtr rmb 2 ; Buffer pointer +SideSel rmb 1 ; Side select. +NMIFlag rmb 1 ; Flag for Alpha, should this NMI do an RTI ? + +VIRQPak rmb 2 ; Vi.Cnt word for VIRQ +u00B3 rmb 2 ; Vi.Rst word for VIRQ +u00B5 rmb 1 ; Vi.Stat byte for VIRQ (drive motor timeout) + +VIRQInstalled rmb 1 ; Is VIRQ Installed yet ? size equ . - fcb $FF -name equ * - fcs /DDisk/ - fcb edition + fcb $FF +name equ * + fcs /DDisk/ + fcb edition + +VIRQCnt fdb TkPerSec*4 Initial count for VIRQ (4 seconds) -start lbra Init ; Initialise Driver - lbra Read ; Read sector - lbra Write ; Write sector - lbra GetStat ; Get status - lbra SetStat ; Set status - lbra Term ; Terminate device - +start lbra Init ; Initialise Driver + lbra Read ; Read sector + lbra Write ; Write sector + lbra GetStat ; Get status + lbra SetStat ; Set status + lbra Term ; Terminate device -;IRQPkt fcb $00 Normal bits (flip byte) -; fcb $01 Bit 1 is interrupt request flag (Mask byte) -; fcb 10 Priority byte +IRQPkt fcb $00 ; Normal bits (flip byte) + fcb $01 ; Bit 1 is interrupt request flag (Mask byte) + fcb 10 ; Priority byte -;IRQFlag FCB 0 * Init * @@ -169,64 +182,62 @@ * DragonDebug EQU 1 Init - IFNE DragonDebug - pshs x ; This is here so I can find disk driver in mess - ldx #$AA55 ; by setting register breakpoint to X=$AA55 ! - puls x - ENDC - - clra - sta >D.DskTmr ; Zero motor timer + IFNE DragonDebug + pshs x ; This is here so I can find disk driver in mess + ldx #$AA55 ; by setting register breakpoint to X=$AA55 ! + puls x + ENDC + + clra + sta >D.DskTmr ; Zero motor timer + + IFNE DragonAlpha ; Turn off all drives + lbsr AlphaDskCtl + ELSE + sta >DskCtl + ENDC - IFNE DragonAlpha ; Turn off all drives - lbsr AlphaDskCtl - ELSE - sta >DskCtl - ENDC - - ldx #CmdReg ; Reset controler - lda #FrcInt - sta ,x - lbsr Delay - lda ,x - lda #$FF - ldb #MaxDrv - leax DrvBeg,u + ldx #CmdReg ; Reset controler + lda #FrcInt + sta ,x + lbsr Delay + lda ,x + lda #$FF + ldb #MaxDrv + leax DrvBeg,u InitDriveData - sta DD.Tot,x ; Set total sectors = $FF - sta <V.Trak,x ; Set current track = 0 - leax <DrvMem,x ; Skip to next drive - decb - bne InitDriveData + sta DD.Tot,x ; Set total sectors = $FF + sta <V.Trak,x ; Set current track = 0 + leax <DrvMem,x ; Skip to next drive + decb + bne InitDriveData - leax >NMIService,pcr ; Setup NMI handler - stx >D.XNMI+1 - lda #$7E ; $7E = JMP - sta >D.XNMI + leax >NMIService,pcr ; Setup NMI handler + stx >D.XNMI+1 + lda #$7E ; $7E = JMP + sta >D.XNMI -; pshs y -; leax IRQPkt,PC ; point at IRQ definition packet -; leay IRQFlag,pcr -; tfr y,d -; leay IRQHandler,pcr -; os9 F$IRQ -; puls y - + clr VIRQInstalled,u ;flag not installed yet + + pshs y ; save device dsc. ptr + leay >u00B5,u ; point to Vi.Stat in VIRQ packet + tfr y,d ; make it the status register ptr for IRQ + leay >IRQSvc,pc ; point to IRQ service routine + leax >IRQPkt,pc ; point to IRQ packet + os9 F$IRQ ; install IRQ + puls y ; Get back device dsc. ptr - ldd #$0100 ; Request a page of system ram - pshs u ; used to verify writes - os9 F$SRqMem - tfr u,x - puls u - bcs Return - stx >BuffPtr,u ; Save verify page pointer - clrb -Return rts + ldd #$0100 ; Request a page of system ram + pshs u ; used to verify writes + os9 F$SRqMem + tfr u,x + puls u + bcs Return + stx >BuffPtr,u ; Save verify page pointer + clrb +Return rts -;IRQHandler -; inc $8000 -; rts * GetStat * @@ -250,8 +261,8 @@ * CC = carry set on error * B = error code * -Term clrb - rts +Term clrb + rts * Read * @@ -265,129 +276,127 @@ * CC = carry set on error * B = error code * -Read - lda #$91 ; Retry count - cmpx #$0000 ; LSN ? - bne ReadDataWithRetry ; No : Just do read, - bsr ReadDataWithRetry ; Yes : do read and copy disk params - bcs ReadDataExit - ldx PD.Buf,y - pshs y,x - ldy >CDrvTab,u - ldb #DD.Siz-1 -L0082 lda b,x - sta b,y - decb - bpl L0082 - clrb - puls pc,y,x +Read + lda #$91 ; Retry count + cmpx #$0000 ; LSN ? + bne ReadDataWithRetry ; No : Just do read, + bsr ReadDataWithRetry ; Yes : do read and copy disk params + bcs ReadDataExit + ldx PD.Buf,y + pshs y,x + ldy >CDrvTab,u + ldb #DD.Siz-1 +L0082 lda b,x + sta b,y + decb + bpl L0082 + clrb + puls pc,y,x ReadDataExit - rts + rts ; Read Retry ReadDataRetry - bcc ReadDataWithRetry ; Retry entry point - pshs x,b,a - lbsr ResetTrack0 ; Reset track 0 - puls x,b,a + bcc ReadDataWithRetry ; Retry entry point + pshs x,b,a + lbsr ResetTrack0 ; Reset track 0 + puls x,b,a ReadDataWithRetry - pshs x,b,a ; Normal entry point - bsr DoReadData - puls x,b,a - bcc ReadDataExit - lsra ; Check for retry - bne ReadDataRetry + pshs x,b,a ; Normal entry point + bsr DoReadData + puls x,b,a + bcc ReadDataExit + lsra ; Check for retry + bne ReadDataRetry DoReadData - lbsr SeekTrack - bcs ReadDataExit - ldx PD.Buf,y ; Target address for data - pshs y,dp,cc - ldb #ReadCmnd ; Read command - bsr PrepDiskRW ; Prepare disk + lbsr SeekTrack + bcs ReadDataExit + ldx PD.Buf,y ; Target address for data + pshs y,dp,cc + ldb #ReadCmnd ; Read command + bsr PrepDiskRW ; Prepare disk DoReadDataLoop - lda <DPPIACRB ; Is data ready ? - bmi ReadDataReady ; Yes : read it - leay -1,y - bne DoReadDataLoop - bsr RestoreSavedIO - puls y,dp,cc - lbra RetReadError ; Return read error to caller + lda <DPPIACRB ; Is data ready ? + bmi ReadDataReady ; Yes : read it + leay -1,y + bne DoReadDataLoop + bsr RestoreSavedIO + puls y,dp,cc + lbra RetReadError ; Return read error to caller ReadDataWait - sync ; Sync to inturrupts, wait for data - - + sync ; Sync to inturrupts, wait for data + ReadDataReady - lda <DPDataReg ; Read data from FDC - ldb <DPPIADB ; Clear PIA inturrupt status - sta ,x+ ; save data in memory - bra ReadDataWait ; do next - + lda <DPDataReg ; Read data from FDC + ldb <DPPIADB ; Clear PIA inturrupt status + sta ,x+ ; save data in memory + bra ReadDataWait ; do next + PrepDiskRW - lda #$FF ; Make DP=$FF, to make io easier - tfr a,dp - lda <DPAciaCmd ; Save ACIA Command reg - sta >SaveACIACmd,u - anda #$FE ; Disable ACIA inturrupt - sta <DPAciaCmd - bita #$40 ; Is Tx inturrupt enabled ? - beq L00DE -L00D8 lda <DPAciaStat ; Yes, wait for Tx to complete - bita #$10 - beq L00D8 + lda #$FF ; Make DP=$FF, to make io easier + tfr a,dp + lda <DPAciaCmd ; Save ACIA Command reg + sta >SaveACIACmd,u + anda #$FE ; Disable ACIA inturrupt + sta <DPAciaCmd + bita #$40 ; Is Tx inturrupt enabled ? + beq L00DE +L00D8 lda <DPAciaStat ; Yes, wait for Tx to complete + bita #$10 + beq L00D8 -L00DE orcc #$50 ; Mask inturrupts - lda <DPPia0CRB ; Save PIA0 IRQ Status - sta >SavePIA0CRB,u - lda #$34 ; Disable it. - sta <DPPia0CRB - lda <DPACIACmd ; Disable ACIA Inturrupt - anda #$FE - sta <DPACIACmd - lda <DPPIACRB ; Set PIA to generate FIRQ on FDC DRQ - ora #$03 - sta <DPPIACRB - lda <DPPIADB ; Clear any outstanding inturrupt - ldy #$FFFF - lda #NMIEn+MotorOn ; Enable NMI, and turn motor on - ora >DrivSel,u ; mask in drives - ORB >SideSel,U ; Set up Side +L00DE orcc #$50 ; Mask inturrupts + lda <DPPia0CRB ; Save PIA0 IRQ Status + sta >SavePIA0CRB,u + lda #$34 ; Disable it. + sta <DPPia0CRB + lda <DPACIACmd ; Disable ACIA Inturrupt + anda #$FE + sta <DPACIACmd + lda <DPPIACRB ; Set PIA to generate FIRQ on FDC DRQ + ora #$03 + sta <DPPIACRB + lda <DPPIADB ; Clear any outstanding inturrupt + ldy #$FFFF + lda #NMIEn+MotorOn ; Enable NMI, and turn motor on + ora >DrivSel,u ; mask in drives + ORB >SideSel,U ; Set up Side - IFNE DragonAlpha ; Turn on drives & NMI - lbsr AlphaDskCtl - ELSE - sta >DskCtl - ENDC + IFNE DragonAlpha ; Turn on drives & NMI + lbsr AlphaDskCtl + ELSE + sta >DskCtl + ENDC - stb <DPCmdReg ; issue command to controler + stb <DPCmdReg ; issue command to controler - rts + rts ; ; Restore saved iO states of peripherals. ; RestoreSavedIO - lda >DrivSel,u ; Deselect drives, but leave motor on - ora #MotorOn - - IFNE DragonAlpha ; Turn off drives & NMI - lbsr AlphaDskCtl - ELSE - sta >DskCtl - ENDC + lda >DrivSel,u ; Deselect drives, but leave motor on + ora #MotorOn + IFNE DragonAlpha ; Turn off drives & NMI + lbsr AlphaDskCtl + ELSE + sta >DskCtl + ENDC - lda >SavePIA0CRB,u ; Recover PIA0 state - sta <DPPia0CRB - lda <DPPIACRB ; Recover ACIA state - anda #$FC - sta <DPPIACRB ; Disable Drive FIRQ source. - lda >SaveACIACmd,u - sta <DPAciaCmd - rts + lda >SavePIA0CRB,u ; Recover PIA0 state + sta <DPPia0CRB + lda <DPPIACRB ; Recover ACIA state + anda #$FC + sta <DPPIACRB ; Disable Drive FIRQ source. + lda >SaveACIACmd,u + sta <DPAciaCmd + rts * Write * @@ -401,53 +410,53 @@ * CC = carry set on error * B = error code * -Write lda #$91 ; Retry byte -L0124 pshs x,b,a - bsr DoWrite ; Attempt to do write - puls x,b,a - bcs WriteDataRetry ; On error, retry - tst <PD.Vfy,y ; Written, should we verify ? - bne WriteDone ; no : return - lbsr WriteVerify ; yes : verify write - bcs WriteDataRetry ; verify error, retry write +Write lda #$91 ; Retry byte +L0124 pshs x,b,a + bsr DoWrite ; Attempt to do write + puls x,b,a + bcs WriteDataRetry ; On error, retry + tst <PD.Vfy,y ; Written, should we verify ? + bne WriteDone ; no : return + lbsr WriteVerify ; yes : verify write + bcs WriteDataRetry ; verify error, retry write WriteDone - clrb ; Return status ok - rts + clrb ; Return status ok + rts WriteDataRetry - lsra ; Retry data write - lbeq RetWriteError ; All retries exhausted ?, return error - bcc L0124 - pshs x,b,a ; Reset to track 0 - lbsr ResetTrack0 - puls x,b,a - bra L0124 + lsra ; Retry data write + lbeq RetWriteError ; All retries exhausted ?, return error + bcc L0124 + pshs x,b,a ; Reset to track 0 + lbsr ResetTrack0 + puls x,b,a + bra L0124 -DoWrite lbsr SeekTrack ; Seek to correct track & sector - lbcs ReadDataExit - ldx PD.Buf,y ; Get data buffer in X - pshs y,dp,cc - ldb #WritCmnd ; Write command +DoWrite lbsr SeekTrack ; Seek to correct track & sector + lbcs ReadDataExit + ldx PD.Buf,y ; Get data buffer in X + pshs y,dp,cc + ldb #WritCmnd ; Write command WriteTrackCmd - lbsr PrepDiskRW ; Prepare for disk r/w - lda ,x+ ; get byte to write -L015A ldb <DPPIACRB ; Ready to write ? - bmi WriteDataReady ; Yes, do it. - leay -1,y - bne L015A - bsr RestoreSavedIO ; Restore saved peripheral states - puls y,dp,cc - lbra RetWriteError ; Return write error + lbsr PrepDiskRW ; Prepare for disk r/w + lda ,x+ ; get byte to write +L015A ldb <DPPIACRB ; Ready to write ? + bmi WriteDataReady ; Yes, do it. + leay -1,y + bne L015A + bsr RestoreSavedIO ; Restore saved peripheral states + puls y,dp,cc + lbra RetWriteError ; Return write error WriteDataWait - lda ,x+ ; Get next byte to write - sync ; Wait for drive + lda ,x+ ; Get next byte to write + sync ; Wait for drive WriteDataReady - sta <DPDataReg ; Write data to FDC - ldb <DPPIADB ; Clear pending FDC inturrupt - bra WriteDataWait - + sta <DPDataReg ; Write data to FDC + ldb <DPPIADB ; Clear pending FDC inturrupt + bra WriteDataWait + ; The following block of code is needed for the Dragon Alpha, because ; we currently do not know how to disable it's NMI in hardware, @@ -455,155 +464,156 @@ ; as if nothing happened ! NMIService - IFNE DragonAlpha - pshs cc ; Save flags - tst >NMIFlag,u ; Check NMI enable flag - bne DoNMI ; if enabled, continue with handler - puls cc ; else restore flags and return - RTI + IFNE DragonAlpha + pshs cc ; Save flags + tst >NMIFlag,u ; Check NMI enable flag + bne DoNMI ; if enabled, continue with handler + puls cc ; else restore flags and return + RTI -DoNMI puls cc ; restore flags - ENDC +DoNMI puls cc ; restore flags + ENDC RealNMI - leas R$Size,s ; Drop regs from stack - bsr RestoreSavedIO ; Restore saved IO states - puls y,dp,cc - ldb >CmdReg - bitb #LostMask ; check for lost record - lbne RetReadError ; yes : return read error - lbra TestForError ; esle test for other errors - + leas R$Size,s ; Drop regs from stack + bsr RestoreSavedIO ; Restore saved IO states + puls y,dp,cc + ldb >CmdReg + bitb #LostMask ; check for lost record + lbne RetReadError ; yes : return read error + lbra TestForError ; esle test for other errors + ; Verify a written sector. -WriteVerify pshs x,b,a - ldx PD.Buf,y ; Swap buffer pointers - pshs x - ldx >BuffPtr,u - stx PD.Buf,y - ldx 4,s - lbsr DoReadData ; Read data back in - puls x - stx PD.Buf,y ; Swab buffer pointers back - bcs VerifyEnd - lda #$20 - pshs u,y,a - ldy >BuffPtr,u - tfr x,u +WriteVerify + pshs x,b,a + ldx PD.Buf,y ; Swap buffer pointers + pshs x + ldx >BuffPtr,u + stx PD.Buf,y + ldx 4,s + lbsr DoReadData ; Read data back in + puls x + stx PD.Buf,y ; Swab buffer pointers back + bcs VerifyEnd + lda #$20 + pshs u,y,a + ldy >BuffPtr,u + tfr x,u VerifyLoop - ldx ,u ; Compare every 4th word - cmpx ,y - bne VerifyErrorEnd - leau 8,u - leay 8,y ; Increment pointers - dec ,s - bne VerifyLoop - bra VerifyEndOk ; Verify succeeded. + ldx ,u ; Compare every 4th word + cmpx ,y + bne VerifyErrorEnd + leau 8,u + leay 8,y ; Increment pointers + dec ,s + bne VerifyLoop + bra VerifyEndOk ; Verify succeeded. VerifyErrorEnd - orcc #Carry ; Flag error + orcc #Carry ; Flag error VerifyEndOk - puls u,y,a + puls u,y,a VerifyEnd - puls pc,x,b,a + puls pc,x,b,a ; ; Seek to a track ; SeekTrack - CLR >Settle,U ; default no settle - LBSR SelectDrive ; select and start correct d - TSTB - BNE E.Sect + CLR >Settle,U ; default no settle + LBSR SelectDrive ; select and start correct d + TSTB + BNE E.Sect - TFR X,D - LDX >CDrvTab,U - CMPD #0 ; Skip calculation of track 0 - BEQ SeekT1 - CMPD DD.TOT+1,X ; Has an illegal LSN been - BLO SeekT2 -E.Sect COMB - LDB #E$Sect - RTS + TFR X,D + LDX >CDrvTab,U + CMPD #0 ; Skip calculation of track 0 + BEQ SeekT1 + CMPD DD.TOT+1,X ; Has an illegal LSN been + BLO SeekT2 +E.Sect COMB + LDB #E$Sect + RTS -SeekT2 CLR ,-S ; Calculate track number - SUBD PD.T0S,Y ; subtract no. of sectors in track 0 - BHS SeekT4 - ADDD PD.T0S,Y ; if -ve we are on track 0, so add back on again - BRA SeekT3 -SeekT4 INC ,S - SUBD DD.Spt,X ; sectors per track for rest of disk - BHS SeekT4 ; repeat, until -ve, incrementing track count - ADDD DD.Spt,X ; re add sectors/track to get sector number on track +SeekT2 CLR ,-S ; Calculate track number + SUBD PD.T0S,Y ; subtract no. of sectors in track 0 + BHS SeekT4 + ADDD PD.T0S,Y ; if -ve we are on track 0, so add back on again + BRA SeekT3 +SeekT4 INC ,S + SUBD DD.Spt,X ; sectors per track for rest of disk + BHS SeekT4 ; repeat, until -ve, incrementing track count + ADDD DD.Spt,X ; re add sectors/track to get sector number on track ; At this point the byte on the top of the stack contains the track ; number, and B contains the sector number on that track. -SeekT3 PULS A ; retrieve track count - LBSR SetWPC ; set write precompensation - PSHS B - LDB DD.Fmt,X ; Is the media double sided ? - LSRB - BCC SingleSidedDisk ; skip if not - LDB PD.Sid,Y ; Is the drive double sided ? - DECB - BNE SetupSideMask ; yes : deal with it. - PULS B ; No then its an error - COMB - LDB #E$BTyp - RTS +SeekT3 PULS A ; retrieve track count + LBSR SetWPC ; set write precompensation + PSHS B + LDB DD.Fmt,X ; Is the media double sided ? + LSRB + BCC SingleSidedDisk ; skip if not + LDB PD.Sid,Y ; Is the drive double sided ? + DECB + BNE SetupSideMask ; yes : deal with it. + PULS B ; No then its an error + COMB + LDB #E$BTyp + RTS SetupSideMask - BSR SetSide ; Media & drive are double sided - BRA SeekT9 + BSR SetSide ; Media & drive are double sided + BRA SeekT9 SingleSidedDisk - clr >SideSel,U ; Single sided, make sure sidesel set correctly - BRA SeekT9 + clr >SideSel,U ; Single sided, make sure sidesel set correctly + BRA SeekT9 -SeekT1 clr >SideSel,U ; make sure sidesel is always 0 if lsn0 - PSHS B -SeekT9 LDB PD.Typ,Y ; Dragon and Coco disks - BITB #TYP.SBO ; count sectors from 1 no - BNE SeekT8 - PULS B - INCB ; so increment sector number - BRA SeekT11 -SeekT8 PULS B ; Count from 0 for other types +SeekT1 clr >SideSel,U ; make sure sidesel is always 0 if lsn0 + PSHS B +SeekT9 LDB PD.Typ,Y ; Dragon and Coco disks + BITB #TYP.SBO ; count sectors from 1 no + BNE SeekT8 + PULS B + INCB ; so increment sector number + BRA SeekT11 +SeekT8 PULS B ; Count from 0 for other types -SeekT11 STB >SecReg ; Write sector number to controler - LBSR Delay - CMPB >SecReg - BNE SeekT11 +SeekT11 STB >SecReg ; Write sector number to controler + LBSR Delay + CMPB >SecReg + BNE SeekT11 -SeekTS LDB <V.Trak,X ; Entry point for SS.WTrk command - STB >TrkReg - TST >Settle,U ; If settle has been flagged then wait for settle - BNE SeekT5 - CMPA <V.Trak,X ; otherwise check if this is - BEQ SeekT6 ; track number to the last +SeekTS LDB <V.Trak,X ; Entry point for SS.WTrk command + STB >TrkReg + TST >Settle,U ; If settle has been flagged then wait for settle + BNE SeekT5 + CMPA <V.Trak,X ; otherwise check if this is + BEQ SeekT6 ; track number to the last -SeekT5 STA <V.Trak,X ; Do the seek - STA >DataReg ; Write track no to controler - LDB #SeekCmnd - ORB PD.Stp,Y ; Set Step Rate according to Parameter block - LBSR FDCCommand - PSHS X - LDX #$222E ; Wait for head to settle -SeekT7 LEAX -1,X - BNE SeekT7 - PULS X +SeekT5 STA <V.Trak,X ; Do the seek + STA >DataReg ; Write track no to controler + LDB #SeekCmnd + ORB PD.Stp,Y ; Set Step Rate according to Parameter block + LBSR FDCCommand + PSHS X + LDX #$222E ; Wait for head to settle +SeekT7 LEAX -1,X + BNE SeekT7 + PULS X -SeekT6 CLRB ; return no error to caller - RTS +SeekT6 CLRB ; return no error to caller + RTS ; Set Side2 Mask ; A contains the track number on entry -SetSide LSRA ; Get bit 0 into carry & devide track no by 2 - PSHS A - BCC Side0 ; Side 0 if even track no. - LDA #Sid2Sel ; Odd track no. so side 2 - BRA Side -Side0 CLRA -Side STA >SideSel,U - PULS A,PC +SetSide LSRA ; Get bit 0 into carry & devide track no by 2 + PSHS A + BCC Side0 ; Side 0 if even track no. + LDA #Sid2Sel ; Odd track no. so side 2 + BRA Side +Side0 CLRA +Side STA >SideSel,U + PULS A,PC ; ; Select drive and start drive motors. @@ -611,114 +621,168 @@ ; SelectDrive - lbsr StartMotor ; Start motor - lda <PD.Drv,y ; Check it's a valid drive - cmpa #MaxDrv - bcs SelectDriveValid ; yes : continue + lbsr StartMotor ; Start motor + lda <PD.Drv,y ; Check it's a valid drive + cmpa #MaxDrv + bcs SelectDriveValid ; yes : continue RetErrorBadUnit - comb ; Return bad unit error - ldb #E$Unit - rts + comb ; Return bad unit error + ldb #E$Unit + rts SelectDriveValid - pshs x,b,a ; Unit valid so slect it - sta >DrivSel,u ; Get DD table address - leax DrvBeg,u ; Calculate offset into table - ldb #DrvMem - mul - leax d,x - cmpx >CDrvTab,u - beq SelectDriveEnd - stx >CDrvTab,u ; Force seek if different drive - com >Settle,u + pshs x,b,a ; Unit valid so slect it + sta >DrivSel,u ; Get DD table address + leax DrvBeg,u ; Calculate offset into table + ldb #DrvMem + mul + leax d,x + cmpx >CDrvTab,u + beq SelectDriveEnd + stx >CDrvTab,u ; Force seek if different drive + com >Settle,u SelectDriveEnd - puls pc,x,b,a + puls pc,x,b,a ; ; Analise device status return. ; TestForError - bitb #ErrMask - beq TestErrorEnd - bitb #NotRMask ; not ready - bne RetErrorNotReady - bitb #WPMask ; Write protect - bne RetErrorWP - bitb #RTypMask ; Wrong type ? - bne RetWriteError - bitb #RNFMask ; Record Not found - bne RetErrorSeek - bitb #CRCMask - bne RetErrorCRC + bitb #ErrMask + beq TestErrorEnd + bitb #NotRMask ; not ready + bne RetErrorNotReady + bitb #WPMask ; Write protect + bne RetErrorWP + bitb #RTypMask ; Wrong type ? + bne RetWriteError + bitb #RNFMask ; Record Not found + bne RetErrorSeek + bitb #CRCMask + bne RetErrorCRC TestErrorEnd - clrb - rts + clrb + rts ; ; Return error code ; RetErrorNotReady - comb - ldb #E$NotRdy - rts + comb + ldb #E$NotRdy + rts RetErrorWP - comb - ldb #E$WP - rts + comb + ldb #E$WP + rts RetWriteError - comb - ldb #E$Write - rts + comb + ldb #E$Write + rts RetErrorSeek - comb - ldb #E$Seek - rts + comb + ldb #E$Seek + rts RetErrorCRC - comb - ldb #E$CRC + comb + ldb #E$CRC rts RetReadError - comb - ldb #E$Read - rts + comb + ldb #E$Read + rts ; ; Issue a command to FDC and wait till it's ready ; FDCCommand - bsr FDCCmd + bsr FDCCmd FDCCmdWait - ldb >CmdReg ; Poll until not busy - bitb #$01 - beq Delay3 - lda #$F0 - sta >D.DskTmr ;>$006F -; lda #$1 -; sta IRQFlag,pcr - bra FDCCmdWait + ldb >CmdReg ; Poll until not busy + bitb #$01 + beq Delay3 + bra FDCCmdWait FDCCmdMotorOn - lda #MotorOn ; Turn on motor - ora >DrivSel,u + lda #MotorOn ; Turn on motor + ora >DrivSel,u + + IFNE DragonAlpha + lbsr AlphaDskCtl + ELSE + sta >DskCtl + ENDC + + bsr SetupVIRQ + + stb >CmdReg ; Send Command to FDC + rts - IFNE DragonAlpha - lbsr AlphaDskCtl - ELSE - sta >DskCtl - ENDC - - stb >CmdReg ; Send Command to FDC - rts +SetupVIRQ + pshs D + ldd >VIRQCnt,pc ; Get VIRQ initial count value + std >VIRQPak,u ; Save it + lda VIRQInstalled,u ; Installed yet ? + beq DoInsVIRQ ; Not installed yet, try installing it +SetupVIRQExit + PULS D + rts + +DoInsVIRQ + bsr InsVIRQ + bra SetupVIRQExit + +InsVIRQ pshs D,y,x + lda #$01 ; Flag drive motor is up to speed + IFEQ Level-1 + sta >D.DskTmr + ELSE + sta <D.MotOn + ENDC + + ldx #$0001 ; Install VIRQ entry + leay >VIRQPak,u ; Point to packet + clr Vi.Stat,y ; Reset Status byte + ldd >VIRQCnt,pc ; Get initial VIRQ count value + os9 F$VIRQ ; Install VIRQ + bcs VIRQOut ; Error, exit + inc VIRQInstalled,u ; Flag it's installed +VIRQOut puls X,Y,D + rts + +* IRQ service routine for VIRQ (drive motor time) +* Entry: U=Ptr to VIRQ memory area +IRQSvc pshs a + lda <D.DMAReq + beq L0509 + bsr InsVIRQ + bra IRQOut +L0509 + IFNE DragonAlpha + lbsr AlphaDskCtl + ELSE + sta >DskCtl + ENDC + + clr u00B5,u + clr VIRQInstalled,u + IFEQ Level-1 + clr >D.DskTmr + ELSE + clr <D.MotOn + ENDC +IRQOut puls pc,a + FDCCmd - bsr FDCCmdMotorOn + bsr FDCCmdMotorOn ; Delay routine ! -Delay lbsr Delay2 -Delay2 lbsr Delay3 -Delay3 rts +Delay lbsr Delay2 +Delay2 lbsr Delay3 +Delay3 rts * SetStat * @@ -731,98 +795,100 @@ * CC = carry set on error * B = error code * -SetStat ldx PD.Rgs,y ; Retrieve request - ldb R$B,x +SetStat ldx PD.Rgs,y ; Retrieve request + ldb R$B,x - cmpb #SS.Reset ; Restore to track 0. - beq ResetTrack0 - cmpb #SS.Wtrk ; Write (format) a track - beq DoWriteTrack - comb - ldb #E$UnkSvc + cmpb #SS.Reset ; Restore to track 0. + beq ResetTrack0 + cmpb #SS.Wtrk ; Write (format) a track + beq DoWriteTrack + comb + ldb #E$UnkSvc SetStatEnd - rts - + rts ; ; Write (format) a track ; DoWriteTrack - lbsr SelectDrive ; Select drive - lda R$Y+1,x - LBSR SetSide ; Set Side 2 if appropriate - LDA R$U+1,X - BSR SetWPC ; Set WPC by disk type + lbsr SelectDrive ; Select drive + lda R$Y+1,x + LBSR SetSide ; Set Side 2 if appropriate + LDA R$U+1,X + BSR SetWPC ; Set WPC by disk type ;L02D5 - ldx >CDrvTab,u - lbsr SeekTS ; Move to correct track - bcs SetStatEnd - ldx PD.Rgs,y - ldx R$X,x - ldb #WtTkCmnd - pshs y,dp,cc - lbra WriteTrackCmd + ldx >CDrvTab,u + lbsr SeekTS ; Move to correct track + bcs SetStatEnd + ldx PD.Rgs,y + ldx R$X,x + ldb #WtTkCmnd + pshs y,dp,cc + lbra WriteTrackCmd ; Reset track 0 ResetTrack0 - lbsr SelectDrive ; Select drive - ldx >CDrvTab,u - clr <V.Trak,x ; Set current track as 0 - lda #$05 + lbsr SelectDrive ; Select drive + ldx >CDrvTab,u + clr <V.Trak,x ; Set current track as 0 + lda #$05 ResetTrack0Loop - ldb #StpICmnd ; Step away from track 0 5 times - pshs a - lbsr FDCCommand - puls a - deca - bne ResetTrack0Loop - ldb #RestCmnd ; Now issue a restore - bra FDCCommand + ldb #StpICmnd ; Step away from track 0 5 times + pshs a + lbsr FDCCommand + puls a + deca + bne ResetTrack0Loop + ldb #RestCmnd ; Now issue a restore + lbra FDCCommand ; ;Start drive motors ; StartMotor - pshs x,b,a - lda >D.DskTmr ; if timer <> 0 then skip as motor already on - bne SpinUp - lda #MotorOn ; else spin up - - IFNE DragonAlpha - bsr AlphaDskCtl - ELSE - sta >DskCtl - ENDC + pshs x,b,a + lda >D.DskTmr ; if timer <> 0 then skip as motor already on + bne MotorsRunning + lda #MotorOn ; else spin up - ldx #$A000 ; Wait a little while for motors to get up to speed + IFNE DragonAlpha + bsr AlphaDskCtl + ELSE + sta >DskCtl + ENDC + + ldx #$A000 ; Wait a little while for motors to get up to speed StartMotorLoop - nop - nop - leax -1,x - bne StartMotorLoop + nop + nop + leax -1,x + bne StartMotorLoop -SpinUp lda #$F0 ; Start external motor timer - sta >D.DskTmr ; external to driver - puls pc,x,b,a +MotorsRunning + lbsr SetupVIRQ +; lda #$F0 ; Start external motor timer +; sta >D.DskTmr ; external to driver + puls pc,x,b,a + ; ; Set Write Precompensation according to media type ; -SetWPC PSHS A,B - LDB PD.DNS,Y - BITB #T80Mask ; Is it 96 tpi drive - BNE SetWP1 - ASLA ; no then double -SetWP1 CMPA #32 ; WPC needed ? - BLS SetWP2 - LDA >DrivSel,U - ORA #WPCEn - STA >DrivSel,U -SetWP2 PULS A,B,PC +SetWPC PSHS A,B + LDB PD.DNS,Y + BITB #T80Mask ; Is it 96 tpi drive + BNE SetWP1 + ASLA ; no then double +SetWP1 CMPA #32 ; WPC needed ? + BLS SetWP2 + LDA >DrivSel,U + ORA #WPCEn + STA >DrivSel,U +SetWP2 PULS A,B,PC - IFNE DragonAlpha + IFNE DragonAlpha ; Translate DragonDos Drive select mechinisim to work on Alpha ; Takes byte that would be output to $FF48, reformats it and @@ -840,42 +906,50 @@ DrvTab FCB Drive0A,Drive1A,Drive2A,Drive3A AlphaDskCtl - PSHS x,A,B,CC + PSHS x,A,B,CC - PSHS A - ANDA #NMIEn ; mask out nmi enable bit - sta >NMIFlag,u ; Save it for later use + PSHS A + ANDA #NMIEn ; mask out nmi enable bit + sta >NMIFlag,u ; Save it for later use - lda ,s ; Convert drives - anda #%00000011 ; mask out drive number - leax DrvTab,pcr ; point at table - lda a,x ; get bitmap - ldb ,s - andb #%11111100 ; mask out drive number - stb ,s - ora ,s ; recombine - sta ,s + lda ,s ; Convert drives + anda #%00000011 ; mask out drive number + leax DrvTab,pcr ; point at table + lda a,x ; get bitmap + ldb ,s + andb #%11111100 ; mask out drive number + stb ,s + ora ,s ; recombine + sta ,s + + bita #MotorOn ; test motor on ? + bne MotorRunning + + clra ; No, turn off other bits. +MotorRunning + anda #KnownBits ; Mask out bits we do not know the function of + sta ,s - lda #AYIOREG ; AY-8912 IO register - sta PIA2DB ; Output to PIA - ldb #AYREGLatch ; Latch register to modify - stb PIA2DA + lda #AYIOREG ; AY-8912 IO register + sta PIA2DB ; Output to PIA + ldb #AYREGLatch ; Latch register to modify + stb PIA2DA - clr PIA2DA ; Idle AY + clr PIA2DA ; Idle AY - lda ,s+ ; Fetch saved Drive Selects - sta PIA2DB ; output to PIA - ldb #AYWriteReg ; Write value to latched register - stb PIA2DA ; Set register + lda ,s+ ; Fetch saved Drive Selects + sta PIA2DB ; output to PIA + ldb #AYWriteReg ; Write value to latched register + stb PIA2DA ; Set register - clr PIA2DA ; Idle AY - - PULS x,A,B,CC - RTS + clr PIA2DA ; Idle AY + + PULS x,A,B,CC + RTS - ENDC + ENDC - emod -eom equ * - end + emod +eom equ * + end
--- a/level1/modules/makefile.dragon Sat Nov 27 15:24:02 2004 +0000 +++ b/level1/modules/makefile.dragon Sun Nov 28 20:16:37 2004 +0000 @@ -32,7 +32,7 @@ ddd0_dalpha.dd d0_dalpha.dd d1_dalpha.dd d2_dalpha.dd d3_dalpha.dd SCF = scf.mn \ - sc6551.dr vrn.dr printer.dr sio.dr sspak.dr ccio.dr \ + sc6551.dr vrn.dr printer.dr sio.dr sspak.dr dgnio.dr \ co32.io co80.io \ nil.dd p.dd pipe.dd ssp.dd kbvdio.dr akbvdio.dr \ drvr51.dr adrvr51.dr \ @@ -73,6 +73,10 @@ clock2_cloud9: clock2_ds1315.asm $(AS) $(AFLAGS) $(ASOUT)$@ $< -aCLOUD9=1 +#Terminals, dgnio, is based on ccio, with code to remap keyboad. +dgnio.dr: ccio.asm + $(AS) $(ASFLAGS) $(ASOUT)$@ $< -aDragonIO=1 + # Floppy descriptors SSDD35 = -aCyls=35 -aSides=1 -aSectTrk=18 -aSectTrk0=18 \ -aInterlv=2 -aSAS=8 -aDensity=1