High Density Interface (PC FLoppy Interface with Speedy like OS)#
General Information
Author: Erhard Pütz
Assembler: Bibo Assembler
Published: 1991
Download: http://www.atari-central.de/floppyservice/floppy/gb/index.htm
HDI Source Code#
 |
High-Density Disk Interface #
The interface for connecting up to 4 standard drives to the XL/XE. Here you can mix 3,5" and 5,25" floppies at will. Required is that the drive supports the Disk Change signal at pin 34 of the Shugart bus. It doesn't support Medium Density (128 bytes/sector in MFM mode and 1.2 MB drives). Maximum transfer rate: 500 Kbit/s (1.44 MByte disks). The HDI is sold out.
The HDI is designed, build and all Source written by Erhard Pütz, (aka ABBUC Floppy Doc, Atreju)
HDI OS ROM in Bibo Assembler Format#
OSV24EQU.BIN#
00010 ****************************** 00020 * * 00030 * Betriebssystem für das * 00040 * 3.5" Interface * 00050 * für den Atari XL/XE * 00060 * * 00070 * Hersteller: Erhard Pütz * 00080 * OS-Code : Erhard P}tz * 00090 * * 00100 * (c) 1989, 1990, 1991 * 00110 * * 00120 * Version : 2.0 * 00130 * * 00140 * UltraSpeed : Ja * 00150 * HD-Modus : Ja * 00160 * Sektoranordnung : Calc. * 00170 * Bootsektorpuffer : Nein * 00180 * Trackpuffer read : Nein * 00190 * Trackpuffer write: Nein * 00200 * ROM-Boot: Nein * 00210 * * 00220 ****************************** 00230 .LI OF 00240 .NO 00250 ****************************** 00260 * * 00270 * Definition von Macros * 00280 * von 65C02 - Befehlen, * 00290 * die dieser bloede * 00300 * Assembler nicht kann. * 00310 * * 00320 ****************************** 00330 ; 00340 RBO = $07 ;Clear Bit on 00350 RB1 = $17 ;Page 0 Adr. 00360 RB2 = $27 00370 RB3 = $37 00380 RB4 = $47 00390 RB5 = $57 00400 RB6 = $67 00410 RB7 = $77 00420 ; 00430 SB0 = $87 ;Set Bit on 00440 SB1 = $97 ;Page 0 Adr. 00450 SB2 = $A7 00460 SB3 = $B7 00470 SB4 = $C7 00480 SB5 = $D7 00490 SB6 = $E7 00500 SB7 = $F7 00510 ; 00520 BR0 = $0F ;Branch on 00530 BR1 = $1F ;Bit reset 00540 BR2 = $2F 00550 BR3 = $3F 00560 BR4 = $4F 00570 BR5 = $5F 00580 BR6 = $6F 00590 BR7 = $7F 00600 ; 00610 BS0 = $8F ;Branch on 00620 BS1 = $9F ;Bit set 00630 BS2 = $AF 00640 BS3 = $BF 00650 BS4 = $CF 00660 BS5 = $DF 00670 BS6 = $EF 00680 BS7 = $FF 00690 ------------------------------ 00700 ;RIOT Ports (Ram: $4000-$407F) 00710 ------------------------------ 00720 RRAM = $4000 00730 PORTA = $4080 Bit 00740 ; 0 o TxC 00750 ; 1 o TC 00760 ; 2 i /IDX 00770 ; 3 o HDL 00780 ; 4 nc 00790 ; 5 nc 00800 ; 6 o PCVal 00810 ; 7 i /DC 00820 PACTL = $4081 00830 PORTB = $4082 00840 ; 0 o RST SIO 00850 ; 1 o RST FDC 00860 ; 2 o DRV FDC 00870 ; 3 i IRQ FDC 00880 ; 4 o A14 Rom 00890 ; 5 o A15 Rom 00900 ; 6 i /RDY 00910 ; 7 i D# 00920 PBCTL = $4083 00930 ------------------------------ 00940 ;RIOT Timer 00950 ------------------------------ 00960 RTIMID = $4084 ;%1000 0100 R 00970 RTIMIE = $408C ;%1000 1100 R 00980 IFLG = $4085 ;%1000 0101 R 00990 T0001D = $4094 ;%1001 0100 W 01000 T0008D = $4095 ;%1001 0101 W 01010 T0064D = $4096 ;%1001 0110 W 01020 T1024D = $4097 ;%1001 0111 W 01030 T0001E = $409C ;%1001 1100 W 01040 T0008E = $409D ;%1001 1101 W 01050 T0064E = $409E ;%1001 1110 W 01060 T1024E = $409F ;%1001 1111 W 01070 ------------------------------ 01080 ;SIO Adressen 01090 ------------------------------ 01100 SIODAT = $4100 01110 SIOCMD = $4101 01120 SIOST = $4101 01130 ------------------------------ 01140 ;Floppy Controller Adressen 01150 ------------------------------ 01160 FDCST = $4200 ;FDC Status R 01170 FDCDAT = $4201 ;FDC Data R/W 01180 OR = $4300 01190 CR = $4400 01200 ------------------------------ 01210 ACK = 'A 01220 NACK = 'N 01230 COMPLT = 'C 01240 ERROR = 'E 01250 ------------------------------ 01260 ;Seite 0 01270 ------------------------------ 01280 .OR $0000 01290 BUFADR .HX 0000 01300 BUFLEN .HX 0000 01310 BUFEND .HX 0000 01320 DIV .HX 0000 01330 DOR .HX 0000 01340 ZSP .HX 0000 01350 D0PB .DA $2A00 01360 D1PB .DA $2B80 01370 D2PB .DA $2D00 01380 D3PB .DA $2E80 01390 D0PT .HX 0000 01400 D1PT .HX 0000 01410 D2PT .HX 0000 01420 D3PT .HX 0000 01430 ------------------------------ 01440 ;Variablen f}r SIO 01450 ------------------------------ 01460 PSUMME .HX 00 01470 DRIVE .HX 00 01480 COMAND .HX 00 01490 DAUX1 .HX 00 01500 DAUX2 .HX 00 01510 .HX 00 empf.PSUMME 01520 STATUS .HX 00 01530 BAUD .HX 00 Zaehler f}r 01540 ;Sendetakt 01550 ------------------------------ 01560 ;Variablen f}r FDC 01570 ------------------------------ 01580 OFFDEL .HX 00 MotTimeout 01590 MOTIM .HX 000000 01600 ACTDRV .HX 00 01610 CYL .HX 00 01620 HEA .HX 00 01630 REC .HX 00 ;$04 01640 NUM .HX 00 01650 EOT .HX 12 01660 GPL .HX 01 01670 DTL .HX 00 ;$08 01680 STM .HX 00 01690 .HX 000000 ;$0C 01700 IDTAB .HX 00 ;CYL 01710 .HX 00 ;HEA 01720 .HX 00 ;REC 01730 FOTAB .HX 00 ;NUM 01740 .HX 00 ;EOT 01750 .HX 00 ;GPL 01760 .HX 00 ;DTL 01770 CHKROMZ .HX 0000 01780 RTIMIDZ .HX 00 01790 ------------------------------ 01800 ;Prozessorstapel (STACK) 01810 ------------------------------ 01820 .OR $0100 01830 STACK .BL $0100,$00 01840 ------------------------------ 01850 ;Tabellen 01860 ------------------------------ 01870 .OR $0200 01880 DRVTAB .HX FFFFFFFF 01890 ST0TAB .HX FFFFFFFF 01900 ST1TAB .HX FFFFFFFF 01910 ST2TAB .HX FFFFFFFF 01920 ST3TAB .HX FFFFFFFF 01930 PCNTAB .HX FFFFFFFF 01940 ------------------------------ 01950 PTRACK .HX 50505050 # Tracks 01960 PSTEPR .HX 02020202 Steprate 01970 PSEKHI .HX 00000000 # Sektors 01980 PSEKLO .HX 12121212 per Track 01990 PSIDE .HX 00000000 (00/01) 02000 PMF .HX 00000000 (00/04) 02010 PBYTHI .HX 00000000 00/1/2/3 02020 PBYTLO .HX 80808080 80/0/0/0 02030 PONLIN .HX FFFFFFFF 02040 .HX 00000000 unused 02050 .HX 00000000 unused 02060 .HX 00000000 unused 02070 PBAUD .HX 0A0A0A0A ser.Clock 02080 PHD .HX FFFFFFFF 2ND/0HD 02090 PMT .HX 00000000 MT=$80 02100 PMAXLO .HX 00000000 # Sektors 02110 PMAXHI .HX 00000000 per Disk 02120 ------------------------------ 02130 ST02EA .HX 00000000 ;->$02EA 02140 ST02EB .HX 00000000 ;->$02EB 02150 ST02EC .HX 00000000 ;->$02EC 02160 ST02ED .HX 00000000 ;->$02ED 02170 ------------------------------ 02180 HPYFLG .HX 00000000 02190 RDFLAG .HX 00000000 02200 ------------------------------ 02210 SKEW .BL $24,$00 02220 SKWSEC .HX 00 02230 SKEWPT .HX 00 02240 INTRLV .HX 00 02250 ------------------------------ 02260 .OR $0300 02270 SKWADR .BL $90,$00 02280 ------------------------------ 02290 ;Puffer 02300 ------------------------------ 02310 .OR $0400 02320 BOOTBF .BL $0200,$00 02330 ------------------------------ 02340 SIOBUF .BL $0100,$00 02350 SECBUF .BL $0100,$00 02360 ------------------------------
OS.V28#
00010 .IN "D:OSV24EQU.BIB
00020 .OR $C000
00030 .OF "D:TEAC.ROM
00040 *
00050 CHKROM .HX FFFF
00060 .AS "EP HDI Version 2.8"
00070 *
00080 ROMTST LDA #$02
00090 STA BUFADR
00100 LDA #$C0
00110 STA BUFADR+1
00120 LDA #$FF
00130 STA BUFEND
00140 STA BUFEND+1
00150 STZ CHKROMZ
00160 STZ CHKROMZ+1
00170 .01 LDA (BUFADR)
00180 CLC
00190 ADC CHKROMZ
00200 STA CHKROMZ
00210 BCC .02
00220 INC CHKROMZ+1
00230 .02 JSR BUFINC
00240 BCC .01
00250 LDA CHKROM
00260 AND CHKROM+1
00270 CMP #$FF
00280 BEQ .99
00290 LDA CHKROMZ
00300 CMP CHKROM
00310 .03 BNE .03
00320 LDA CHKROMZ+1
00330 CMP CHKROM+1
00340 .04 BNE .04
00350 .99 RTS
00360 ------------------------------
00370 SETX SEC
00380 LDA BUFEND+1
00390 SBC BUFADR+1
00400 TAX
00410 RTS
00420 ------------------------------
00430 RAMSET LDY #$00
00440 JSR SETX
00450 .01 LDA BUFADR+1
00460 .02 STA (BUFADR),Y
00470 INY
00480 BNE .02
00490 INC BUFADR+1
00500 DEX
00510 BNE .01
00520 RTS
00530 *
00540 RAMCHK LDY #$00
00550 JSR SETX
00560 .01 LDA BUFADR+1
00570 EOR (BUFADR),Y
00580 .02 BNE .02
00590 STA (BUFADR),Y
00600 INY
00610 BNE .01
00620 INC BUFADR+1
00630 DEX
00640 BNE .01
00650 RTS
00660 *
00670 RAMTST STZ BUFADR
00680 LDA #$02
00690 STA BUFADR+1
00700 LDA #$40
00710 STA BUFEND+1
00720 JSR RAMSET
00730 LDA #$80
00740 STA BUFADR+1
00750 LDA #$C0
00760 STA BUFEND+1
00770 JSR RAMSET
00780 LDA #$02
00790 STA BUFADR+1
00800 LDA #$40
00810 STA BUFEND+1
00820 JSR RAMCHK
00830 LDA #$80
00840 STA BUFADR+1
00850 LDA #$C0
00860 STA BUFEND+1
00870 JMP RAMCHK
00880 ------------------------------
00890 MOVTAB LDX #$5F
00900 .01 LDA CMDTAB,X
00910 STA RRAM,X
00920 DEX
00930 BPL .01
00940 RTS
00950 ------------------------------
00960 CALC SEC
00970 LDA DAUX1
00980 SBC #$01
00990 STA DIV
01000 LDA DAUX2
01010 SBC #$00
01020 STA DIV+1
01030 LDA PSEKLO,Y ;# SecLO
01040 STA DOR
01050 LDX #$00
01060 STX ZSP
01070 STX ZSP+1
01080 STX DOR+1
01090 SHIFT BIT DOR+1
01100 BMI SCHLEIF
01110 ASL DOR
01120 ROL DOR+1
01130 INX
01140 BNE SHIFT
01150 SCHLEIF SEC
01160 LDA DIV
01170 SBC DOR
01180 STA ZSP
01190 LDA DIV+1
01200 SBC DOR+1
01210 STA ZSP+1
01220 PHP
01230 ROL CYL
01240 PLP
01250 BCC NEG
01260 LDA ZSP
01270 STA DIV
01280 LDA ZSP+1
01290 STA DIV+1
01300 NEG LSR DOR+1
01310 ROR DOR
01320 DEX
01330 BPL SCHLEIF
01340 LDX DIV
01350 INX
01360 STX REC
01370 LDX #$00 ;HEA
01380 LDA PMT,Y ;MT ?
01390 BPL .01 ;Nein ->
01400 LDA CYL
01410 LSR
01420 STA CYL
01430 BCC .01
01440 INX ;HEA=1
01450 .01 LDA CYL
01460 CMP PTRACK,Y
01470 BCC NSIDE1
01480 SBC PTRACK,Y
01490 STA CYL
01500 INX ;HEA=1
01510 NSIDE1 STX HEA
01520 RTS
01530 ------------------------------
01540 LENTAB .HX 00010204081020
01550 ;
01560 SECBFL LDA PBYTLO,Y
01570 STA BUFLEN
01580 LDA PBYTHI,Y
01590 TAX
01600 LDA LENTAB,X
01610 STA BUFLEN+1
01620 ;
01630 SSECBF LDA /SECBUF
01640 STA BUFADR+1
01650 LDA #SECBUF
01660 STA BUFADR
01670 SBFEND CLC
01680 LDA BUFADR
01690 ADC BUFLEN
01700 STA BUFEND
01710 LDA BUFADR+1
01720 ADC BUFLEN+1
01730 STA BUFEND+1
01740 RTS
01750 ------------------------------
01760 SSIOBF LDA /SIOBUF
01770 STA BUFADR+1
01780 LDA #SIOBUF
01790 STA BUFADR
01800 JMP SBFEND
01810 ------------------------------
01820 BUFINC INC BUFADR C=1 if
01830 BNE .01 end of
01840 INC BUFADR+1 Buffer
01850 .01 LDA BUFADR+1
01860 CMP BUFEND+1
01870 BCC .02
01880 LDA BUFADR
01890 CMP BUFEND
01900 .02 RTS
01910 ------------------------------
01920 PBYTE BIT FDCST
01930 BPL PBYTE
01940 STA FDCDAT
01950 RTS
01960 ------------------------------
01970 GBYTE BIT FDCST
01980 BPL GBYTE
01990 LDA FDCDAT
02000 RTS
02010 ------------------------------
02020 RESULTS PHA
02030 LDA #$02 ;Terminal
02040 TSB PORTA ;Count Set
02050 TRB PORTA ;Cleared
02060 PHX
02070 LDY ACTDRV Get 7
02080 JSR GBYTE Result
02090 STA ST0TAB,Y Bytes
02100 JSR GBYTE from FDC
02110 STA ST1TAB,Y
02120 JSR GBYTE
02130 STA ST2TAB,Y
02140 LDX #$00
02150 .01 JSR GBYTE
02160 STA CYL,X
02170 INX
02180 CPX #$04
02190 BNE .01
02200 *
02210 LDA ST0TAB,Y C=1 bei
02220 ASL Error
02230 ORA ST0TAB,Y
02240 ASL
02250 PLX
02260 PLA
02270 RTS
02280 ------------------------------
02290 SPEC PHX
02300 LDX #$02 ;verm. ND
02310 LDA PSEKLO,Y ;Bei mehr
02320 CMP #19 ;als 18
02330 BCC .01 ;Sektoren
02340 LDX #0 ;=HD
02350 .01 TXA
02360 STA CR
02370 STA PHD,Y
02380 LDA #$03 ;CMD
02390 JSR PBYTE
02400 LDA PSTEPR,Y ;Stepr.
02410 AND #$0F
02420 BEQ .02
02430 DEA
02440 .02 EOR #$0F
02450 ASL
02460 ASL
02470 ASL
02480 ASL
02490 BPL .03
02500 CPX #$00 Bei HD
02510 BNE .03 SRT x 2
02520 ASL
02530 .03 ORA #$0F ;SRT/HUT
02540 JSR PBYTE
02550 LDA #$1F ;HLT
02560 ASL
02570 CPX #$00
02580 BNE .04
02590 ASL
02600 .04 ORA #$01 No DMA
02610 JSR PBYTE
02620 PLX
02630 RTS
02640 ------------------------------
02650 DSTAT PHA
02660 LDA #$04 ;CMD
02670 JSR PBYTE
02680 TYA ;D#
02690 JSR PBYTE
02700 .01 BIT FDCST
02710 BPL .01
02720 LDA PORTA ;DChange
02730 AND #$80
02740 ORA FDCDAT
02750 STA ST3TAB,Y
02760 PLA
02770 RTS
02780 ------------------------------
02790 ISTAT PHA
02800 PHX
02810 .04 LDA FDCST ;FDC RQM
02820 BPL .04
02830 AND #$70
02840 BNE .04
02850 LDA FDCST
02860 AND #$0F ;Busy ?
02870 BEQ .03 ;Nein ->
02880 LDA #$08 ;W IRQ
02890 .01 BIT PORTB
02900 BEQ .01
02910 .03 LDA #$08 ;CMD
02920 JSR PBYTE
02930 JSR GBYTE
02940 CMP #$80
02950 BEQ .02
02960 PHA
02970 AND #$03
02980 TAX
02990 PLA
03000 STA ST0TAB,X
03010 JSR GBYTE
03020 STA PCNTAB,X
03030 .02 PLX
03040 PLA
03050 RTS
03060 ------------------------------
03070 TR00 LDA #$07 ;CMD
03080 JSR PBYTE
03090 TYA ;D#
03100 JSR PBYTE
03110 JSR ISTAT
03120 JMP DSTAT
03130 ------------------------------
03140 STEPIN LDA #$01
03150 BNE SEEK1
03160 STEPOUT LDA #$FF
03170 SEEK1 CLC
03180 ADC PCNTAB,Y
03190 SEEK CMP PTRACK,Y
03200 BCS SEEKX
03210 PHA
03220 LDA #$0F ;CMD
03230 JSR PBYTE
03240 TYA
03250 JSR PBYTE ;D#
03260 PLA
03270 JSR PBYTE ;NCN
03280 JSR ISTAT
03290 JSR DSTAT
03300 CLC
03310 SEEKX RTS
03320 ------------------------------
03330 XMTCMD PHA ;CMD
03340 PHX
03350 PHP
03360 LDA PMF,Y
03370 ASL
03380 ASL
03390 ASL
03400 ASL
03410 AND #$40
03420 TSX
03430 ORA $0103,X
03440 JSR PBYTE
03450 LDA HEA
03460 ASL
03470 ASL
03480 ORA ACTDRV
03490 JSR PBYTE
03500 PLP
03510 BCC .02
03520 LDX #$00
03530 .01 LDA CYL,X
03540 JSR PBYTE
03550 INX
03560 CPX #$07
03570 BNE .01
03580 .02 PLX
03590 PLA
03600 RTS
03610 ------------------------------
03620 RESET CLD
03630 LDX #$FF Ca. 130ms
03640 TXS Verz|ge-
03650 LDY #$FF rung zum
03660 .01 DEY Einschwin-
03670 BNE .01 gen der
03680 DEX Betriebs-
03690 BNE .01 spannung.
03700 *
03710 STX PACTL Eing{nge
03720 STX PBCTL
03730 *
03740 STX $00 65C02 CPU?
03750 .HX 8700 SB0 $00
03760 LDA $00
03770 .02 BEQ .02 Nein ->
03780 *
03790 .03 TXA Ramtest
03800 STA $00,X Seiten
03810 EOR #$FF
03820 STA $0100,X 0 und 1
03830 INX
03840 BNE .03
03850 .31 TXA
03860 CMP $00,X
03870 .32 BNE .32
03880 EOR #$FF
03890 CMP $0100,X
03900 .33 BNE .33
03910 INX
03920 BNE .31
03930 *
03940 LDA #$FD Motor an
03950 STA PORTA TC zur}ck-
03960 LDA #$5B setzen
03970 STA PACTL
03980 *
03990 LDA #$FC /Reset f}r
04000 STA PORTB FDC und
04010 LDA #$37 SIO
04020 STA PBCTL
04030 *
04040 JSR ROMTST
04050 JSR RAMTST
04060 JSR MOVTAB
04070 *
04080 LDA #$FF
04090 STA T1024D 65ms Pause
04100 .13 BIT IFLG nach Reset
04110 BPL .13
04120 *
04130 LDA #$4D SIO:8/N/1
04140 STA SIOCMD asynchron
04150 LDA #$37
04160 STA SIOCMD
04170 *
04180 LDA FDCST FDC: Base
04190 LDA #$08 Warte auf
04200 .14 BIT PORTB FDC IRQ
04210 BEQ .14 nach Reset
04220 *
04230 LDX #$02 ND
04240 STX CR
04250 *
04260 LDY #$03 Ein Reset
04270 .15 JSR ISTAT bedingt
04280 DEY den Nicht-
04290 BPL .15 RDY-Status
04300 * aller FDD
04310 * u. erzeugt
04320 * einen IRQ
04330 *
04340 LDA #$03 2ms SRT
04350 JSR PBYTE
04360 LDA #$EF
04370 JSR PBYTE
04380 JSR PBYTE
04390 *
04400 LDY #$03 Alle Lauf-
04410 .16 LDA #$07 werke nach
04420 JSR PBYTE Track 0
04430 TYA
04440 JSR PBYTE
04450 DEY
04460 BPL .16
04470 *
04480 .17 JSR ISTAT Es sind
04490 LDA FDCST noch nicht
04500 AND #$0F alle
04510 BNE .17 fertig ->
04520 *
04530 LDA #$31 Vorhandene
04540 PHA Floppies
04550 LDY #$00 eintragen
04560 .18 STY ACTDRV und konfi-
04570 LDA #40 gurieren
04580 STA PTRACK,Y
04590 LDA #$02
04600 STA PSTEPR,Y
04610 STA PHD,Y
04620 LDA #$00
04630 STA PSEKHI,Y
04640 STA PSIDE,Y
04650 STA PMF,Y
04660 STA PBYTHI,Y
04670 STA PMT,Y
04680 STA DRVTAB,Y
04690 STA HPYFLG,Y
04700 LDA #$12
04710 STA PSEKLO,Y
04720 LDA #$80
04730 STA PBYTLO,Y
04740 LDA #$FF
04750 STA PONLIN,Y
04760 LDA #$0A
04770 STA PBAUD,Y
04780 LDA #$D0 Max # of
04790 STA PMAXLO,Y Sectors
04800 LDA #$02
04810 STA PMAXHI,Y
04820 JSR DSTAT
04830 LDA ST0TAB,Y ;Fehler=
04840 AND #$D0 ;keine
04850 BNE .19 ;Floppy
04860 PLA
04870 STA DRVTAB,Y
04880 INA
04890 PHA
04900 JSR CFGDRV
04910 .19 INY
04920 CPY #$04
04930 BCC .18
04940 PLA
04950 LDA #$08 Motor aus
04960 TRB PORTA
04970 LDA #$25 19200 Bd
04980 STA BAUD Sendetakt
04990 LDA #$FA 3 Sekunden
05000 STA OFFDEL Nachlauf
05010 JMP WAITCMD
05020 ------------------------------
05030 CFGDRV JSR IFDISK
05040 BMI .00 ;Ja ->
05050 RTS
05060 .00 JSR MOTON
05070 LDA #$50
05080 STA PTRACK,Y
05090 LDA #$02 ;SD/DD
05100 STA CR
05110 STA PHD,Y
05120 LDA #$00 ;FM
05130 STA PMF,Y
05140 STA HEA
05150 JSR READID
05160 BCC .01
05170 LDA #$04 ;MFM
05180 STA PMF,Y
05190 LDA #$00
05200 STA HEA
05210 JSR READID
05220 BCC .01
05230 LDA #$00 ;HD/MFM
05240 STA CR
05250 STA PHD,Y
05260 STA HEA
05270 JSR READID
05280 BCC .01
05290 LDA #$00 ;HD/FM
05300 STA PMF,Y
05310 STA HEA
05320 JSR READID
05330 BCC .01
05340 LDA #$02 ;Default
05350 STA PHD,Y ;ND/FM
05360 LDA #$00 ;80 Byte
05370 STA PBYTHI,Y
05380 LDA #$80
05390 STA PBYTLO,Y
05400 BNE LASTSEC
05410 .01 LDA ST02EB,Y
05420 ORA #$40
05430 STA ST02EB,Y
05440 LDA NUM ;Setze
05450 STA PBYTHI,Y ;Disk-
05460 LDA #$00 ;Sektor-
05470 CMP NUM ;L{nge.
05480 ROR
05490 STA PBYTLO,Y
05500 JSR NUMSEC
05510 JSR SE01BF
05520 LDA ST02EB,Y read sec.
05530 ORA #$40 forces
05540 STA ST02EB,Y unprot.
05550 JSR SRDST
05560 LDA #$01 Seite 1?
05570 STA HEA
05580 JSR READID
05590 BCS .03
05600 CMP HEA
05610 BEQ .10
05620 .03 LDA #$00
05630 .10 STA PSIDE,Y
05640 LDA #$00
05650 STA HEA
05660 JSR SPEC
05670 LDA #40
05680 JSR SEEK
05690 JSR READID
05700 BCS .04
05710 LDA #77
05720 JSR SEEK
05730 JSR READID
05740 BCS .04
05750 LDA #80
05760 .04 STA PTRACK,Y
05770 .05 JSR TR00
05780 LASTSEC LDA PTRACK,Y ;T*H*S=
05790 STA DIV ;max Sec
05800 LDX PSIDE,Y
05810 LDA PSEKLO,Y
05820 DEX
05830 BMI .06
05840 ASL
05850 .06 STA DOR
05860 LDA #$00
05870 STA PMAXLO,Y
05880 STA PMAXHI,Y
05890 STA DOR+1
05900 .07 LDA DIV
05910 BNE .08
05920 RTS
05930 .08 AND #$01
05940 BEQ .09
05950 CLC
05960 LDA PMAXLO,Y
05970 ADC DOR
05980 STA PMAXLO,Y
05990 LDA PMAXHI,Y
06000 ADC DOR+1
06010 STA PMAXHI,Y
06020 .09 LSR DIV
06030 ASL DOR
06040 ROL DOR+1
06050 JMP .07
06060 ------------------------------
06070 SE01BF LDA DAUX1
06080 PHA
06090 LDA DAUX2
06100 PHA
06110 LDA #1
06120 STA DAUX1
06130 STZ DAUX2
06140 JSR RSEC
06150 PLA
06160 STA DAUX2
06170 PLA
06180 STA DAUX1
06190 JSR SBTBF
06200 LDY #$7F
06210 .01 LDA SECBUF,Y
06220 STA (BUFADR),Y
06230 DEY
06240 BPL .01
06250 LDY ACTDRV
06260 RTS
06270 ------------------------------
06280 SBTBF TYA
06290 LSR
06300 PHA
06310 ROR
06320 CLC
06330 ADC #BOOTBF
06340 STA BUFADR
06350 PLA
06360 ADC /BOOTBF
06370 STA BUFADR+1
06380 RTS
06390 ------------------------------
06400 READID PHA
06410 LDA #$0A ;CMD
06420 CLC
06430 JSR XMTCMD
06440 JSR RESULTS
06450 PLA
06460 RTS
06470 ------------------------------
06480 NUMSEC LDX #$23 L|sche
06490 .00 STZ SKEW,X Tabelle
06500 DEX
06510 BPL .00
06520 * Drive Sel.
06530 JSR READID durch HUT
06540 LDA #4 Warte auf
06550 .01 BIT PORTA IDX:
06560 BEQ .01 LO-HI
06570 .02 BIT PORTA HI-LO
06580 BNE .02
06590 *
06600 LDX #0
06610 .03 JSR READID Starte das
06620 LDA REC Lesen der
06630 CMP SKEW Header mit
06640 BEQ .04 d. fallen-
06650 STA SKEW,X den Flanke
06660 INX des Index-
06670 CPX #$24 impulses.
06680 BCC .03
06690 *
06700 .04 TXA
06710 STA PSEKLO,Y
06720 LDX #0
06730 JSR Y40
06740 .05 LDA SKEW,X
06750 STA SKWADR,Y
06760 INY
06770 INX
06780 CPX #$24
06790 BNE .05
06800 LDY ACTDRV
06810 RTS
06820 ------------------------------
06830 Y40 TYA Y=Y*40
06840 ASL
06850 ASL
06860 ASL
06870 STA DIV
06880 ASL
06890 ASL
06900 ADC DIV
06910 TAY
06920 RTS
06930 ------------------------------
06940 RSEC LDY ACTDRV
06950 JSR CALC
06960 LDA CYL
06970 JSR SEEK
06980 LDA PBYTLO,Y
06990 STA DTL
07000 LDA PBYTHI,Y
07010 STA NUM
07020 LDA PSEKLO,Y
07030 STA EOT
07040 ;
07050 JSR SECBFL
07060 ;
07070 LDA #$06 ;CMD
07080 SEC
07090 JSR XMTCMD
07100 ;
07110 LDY #$00
07120 .04 LDA #$20 ;FDC EXM
07130 .05 BIT FDCST
07140 BPL .05
07150 BEQ .06
07160 LDA FDCDAT
07170 EOR #$FF
07180 STA (BUFADR),Y
07190 ;
07200 INY
07210 BNE .07
07220 INC BUFADR+1
07230 DEC BUFLEN+1
07240 .07 CPY BUFLEN
07250 BNE .04
07260 LDA BUFLEN+1
07270 BNE .04
07280 ;
07290 .06 JMP RESULTS
07300 ------------------------------
07310 WSEC LDY ACTDRV
07320 JSR CALC
07330 LDA CYL
07340 JSR SEEK
07350 LDA PBYTLO,Y
07360 STA DTL
07370 LDA PBYTHI,Y
07380 STA NUM
07390 LDA PSEKLO,Y
07400 STA EOT
07410 ;
07420 JSR SECBFL
07430 ;
07440 LDA #$05
07450 SEC
07460 JSR XMTCMD
07470 ;
07480 LDY #$00
07490 .01 LDA #$20
07500 .02 BIT FDCST
07510 BPL .02
07520 BEQ .04
07530 LDA (BUFADR),Y
07540 EOR #$FF
07550 STA FDCDAT
07560 ;
07570 INY
07580 BNE .03
07590 INC BUFADR+1
07600 DEC BUFLEN+1
07610 .03 CPY BUFLEN
07620 BNE .01
07630 LDA BUFLEN+1
07640 BNE .01
07650 ;
07660 .04 JMP RESULTS
07670 ------------------------------
07680 FODISK LDY ACTDRV
07690 JSR TR00
07700 LDA PBYTHI,Y
07710 STA FOTAB ;NUM
07720 LDA PSEKLO,Y
07730 STA FOTAB+1 ;EOT
07740 LDA #$0A
07750 LDX PMF,Y ;MFM?
07760 BEQ .01 ;Nein ->
07770 ASL
07780 .01 STA FOTAB+2 ;GPL
07790 LDA #$FF
07800 STA FOTAB+3 ;FILLER
07810 FOTRK LDA PCNTAB,Y
07820 STA IDTAB ;CYL
07830 LDA PSIDE,Y
07840 STA IDTAB+1 ;HEA
07850 FOSIDE LDA IDTAB+1
07860 STA HEA
07870 LDA #$0D ;Format
07880 CLC
07890 JSR XMTCMD
07900 LDX #$00
07910 .01 LDA FOTAB,X
07920 .02 BIT FDCST
07930 BPL .02
07940 BVS FOERR
07950 STA FDCDAT
07960 INX
07970 CPX #$04
07980 BCC .01
07990 LDY #$00
08000 WRID LDA SKEW,Y
08010 STA IDTAB+2 ;REC
08020 LDX #$00
08030 .01 LDA IDTAB,X
08040 .02 BIT FDCST
08050 BPL .02
08060 BVS FOERR
08070 STA FDCDAT
08080 INX
08090 CPX #$04
08100 BCC .01
08110 INY
08120 CPY FOTAB+1 ;EOT
08130 BNE WRID
08140 LDA #$08
08150 .03 BIT PORTB
08160 BEQ .03
08170 FOERR LDY ACTDRV
08180 JSR RESULTS
08190 BCS FOX
08200 DEC IDTAB+1 ;HEA
08210 BPL FOSIDE
08220 JSR STEPIN
08230 BCC FOTRK
08240 JSR TR00
08250 CLC
08260 FOX RTS
08270 ------------------------------
08280 SETSKEW LDX #$05 Interleave
08290 LDA PHD,Y ist es HD?
08300 BNE .00 Nein->
08310 LDX #$0B
08320 .00 LDA PMF,Y
08330 BEQ .01
08340 INX > 128 Byte
08350 INX je Sektor
08360 .01 STX INTRLV
08370 ;
08380 LDA PSEKLO,Y L|sche
08390 TAX Sektor-
08400 DEX
08410 .02 STZ SKEW,X tabelle
08420 DEX
08430 BPL .02
08440 ;
08450 LDX #$01
08460 STX SKWSEC
08470 DEX
08480 STX SKEWPT
08490 .03 LDA SKEW,X
08500 BEQ .04
08510 INC SKEWPT
08520 JSR .07
08530 BCC .03
08540 .04 LDA SKWSEC
08550 STA SKEW,X
08560 INC SKWSEC
08570 LDA PSEKLO,Y
08580 CMP SKWSEC
08590 BCC .05
08600 JSR .06
08610 BCC .03
08620 .05 RTS
08630 ;
08640 .06 CLC Addiere
08650 LDA SKEWPT Interleave
08660 ADC INTRLV
08670 STA SKEWPT
08680 ;
08690 .07 LDA SKEWPT 0<=PT<PSEKLO
08700 CMP PSEKLO,Y
08710 BCC .08
08720 SBC PSEKLO,Y
08730 STA SKEWPT
08740 CLC
08750 .08 TAX
08760 RTS
08770 ------------------------------
08780 MOTOR0 LDA MOTIM+2
08790 BEQ .01
08800 INC MOTIM
08810 BNE .01
08820 INC MOTIM+1
08830 BNE .01
08840 INC MOTIM+2
08850 BNE .01
08860 LDA PORTA
08870 AND #$F7
08880 STA PORTA
08890 .01 RTS
08900 ------------------------------
08910 IFDISK JSR SPEC
08920 JSR DSTAT
08930 LDA ST3TAB,Y ;Disk in
08940 BMI .01 ;Drive->
08950 AND #$10 ;TR0?
08960 BEQ .02 ;Nein ->
08970 JSR STEPIN
08980 .02 JSR TR00
08990 JSR DSTAT
09000 LDA ST3TAB,Y
09010 .01 RTS
09020 .BL $4B,$FF
09030 ------------------------------
09040 SIOGET LDA SIOST Schon was
09050 AND #$3A empfangen?
09060 LSR
09070 LSR
09080 BCC SIOGET Nein ->
09090 BNE .01 Fehler ->
09100 CLC
09110 .01 ORA STATUS
09120 STA STATUS
09130 LDA SIODAT Bei Fehler
09140 RTS ist C=1
09150 ------------------------------
09160 SIOPUT PHA
09170 STA SIODAT
09180 .01 LDA PORTA
09190 AND #$FE
09200 STA PORTA
09210 ORA #$01
09220 STA PORTA
09230 LDA BAUD
09240 .02 DEA
09250 BNE .02
09260 LDA #$04
09270 BIT SIOST
09280 BEQ .01
09290 PLA
09300 RTS
09310 ------------------------------
09320 CHKSUM CLC
09330 ADC PSUMME
09340 ADC #$00
09350 STA PSUMME
09360 RTS
09370 ------------------------------
09380 BOOTSEC LDA DAUX2 ;Ist es
09390 BNE .01 ;ein Boot-
09400 LDA DAUX1 ;sektor ?
09410 CMP #$04
09420 BCS .01
09430 LDA #$80
09440 STA BUFLEN
09450 STZ BUFLEN+1
09460 JMP SSECBF ;Ja
09470 .01 JMP SECBFL ;Nein
09480 ------------------------------
09490 RECV JSR SIOGET Lese Byte
09500 BCS .02 Fehler ->
09510 STA (BUFADR) Schleife
09520 JSR CHKSUM bis
09530 JSR BUFINC Puffer
09540 BCC RECV voll ->
09550 JSR SIOGET
09560 CMP PSUMME
09570 PHP
09580 LDA #$30
09590 STA T0064D
09600 .01 BIT IFLG
09610 BPL .01
09620 PLP
09630 BNE POP
09640 LDA #ACK
09650 JMP SIOPUT ;ok, Ret.
09660 ;
09670 .02 LDA #3 Timeout
09680 STA T1024D 768 us
09690 .03 LDA SIOST
09700 LSR
09710 LSR
09720 BIT IFLG
09730 BMI POP
09740 BCC .03
09750 LDA SIODAT
09760 BCS .02
09770 ;
09780 POP PLA
09790 PLA
09800 ;
09810 DATNACK LDA ST02EA,Y
09820 ORA #$02
09830 STA ST02EA,Y
09840 LDA #NACK
09850 JMP XIT ;Err, POP
09860 ------------------------------
09870 XMIT LDA (BUFADR)
09880 STA SIODAT
09890 JSR CHKSUM
09900 .01 LDA PORTA TxCLK LO
09910 AND #$FE
09920 STA PORTA
09930 ORA #$01 TxCLK HI
09940 STA PORTA
09950 LDA BAUD Verz|ge-
09960 .02 DEA rung, gem.
09970 BNE .02 Baudrate
09980 LDA #$01 Warte auf
09990 BIT SIOST T_Ready
10000 BEQ .01
10010 JSR BUFINC
10020 BCC XMIT
10030 LDA PSUMME
10040 JMP SIOPUT
10050 ------------------------------
10060 MOTON LDA #$08 Motor an
10070 TSB PORTA
10080 BNE .03 war an ->
10090 PHX
10100 LDX #8 500 ms
10110 .01 LDA #$FF Motorhoch-
10120 STA T1024D laufzeit
10130 .02 BIT IFLG
10140 BPL .02
10150 DEX
10160 BNE .01
10170 PLX
10180 .03 LDA OFFDEL Motornach-
10190 STA MOTIM+2 laufzeit
10200 STZ MOTIM+1
10210 STZ MOTIM
10220 RTS
10230 ------------------------------
10240 WAITCMD BIT SIOST Wait 'til
10250 BPL WAITCMD CMD end
10260 LDY #$00
10270 STY STATUS
10280 STY PSUMME
10290 .03 LDA SIODAT Clr Bugs
10300 JSR MOTOR0 3s delay
10310 BIT SIOST CMD set?
10320 BMI .03 No ->
10330 BIT PORTB Host on?
10340 BVS WAITCMD No ->
10350 LDA #$37 SIO an
10360 STA SIOCMD
10370 JSR SIOGET
10380 BCS WAITCMD
10390 STA DRIVE
10400 STA PSUMME
10410 LDA #$FF Baudrate
10420 STA T0064D ermitteln
10430 INY
10440 .01 JSR SIOGET
10450 BCS WAITCMD
10460 STA DRIVE,Y
10470 JSR CHKSUM
10480 INY
10490 CPY #$05
10500 BNE .01
10510 BIT IFLG
10520 BMI WAITCMD
10530 LDY RTIMID
10540 STY RTIMIDZ
10550 .04 BIT SIOST
10560 BPL .04
10570 CMP PSUMME
10580 BNE WAITCMD
10590 ;
10600 DRVCHK LDY #$03
10610 .01 LDA DRVTAB,Y
10620 BMI .02
10630 BIT PORTB
10640 BPL .02
10650 INA
10660 .02 AND #$7F
10670 CMP DRIVE
10680 BEQ DRVFND
10690 DEY
10700 BPL .01
10710 BMI WAITCMD
10720 ;
10730 DRVFND STY ACTDRV
10740 LDA #$25
10750 LDX RTIMIDZ
10760 CPX #$80
10770 BCC .01
10780 LDA PBAUD,Y
10790 .01 STA BAUD
10800 ;
10810 CMDCHK LDX #$1F
10820 LDA COMAND
10830 .01 CMP RRAM,X
10840 BEQ CMDJMP
10850 DEX
10860 BPL .01
10870 ;
10880 CMDNACK LDA ST02EA,Y
10890 ORA #$01
10900 STA ST02EA,Y
10910 LDA #NACK
10920 JMP XIT
10930 ;
10940 CMDJMP CPX #$05 Ext. CMD?
10950 BCC .01 Nein ->
10960 LDA HPYFLG,Y Happy ist
10970 BMI CMDNACK aus ->
10980 .01 CPX #$03 R/W SEC?
10990 BCS .04 No ->
11000 ;
11010 LDA DAUX2 Sektor #
11020 BPL .02 negativ?
11030 LDA HPYFLG,Y Ram/Rom
11040 BMI CMDNACK Adr. wenn
11050 BPL .04 Happy an.
11060 ;
11070 LDA DAUX2 Es gibt
11080 .02 ORA DAUX1 keinen
11090 BEQ CMDNACK Sektor 0!
11100 ;
11110 SEC Sektor -
11120 LDA PMAXLO,Y nummer zu
11130 SBC DAUX1 gro~?
11140 LDA PMAXHI,Y
11150 SBC DAUX2
11160 BCC CMDNACK Ja ->
11170 ;
11180 .04 JSR SPEC
11190 LDA #ACK
11200 JSR SIOPUT
11210 STZ PSUMME
11220 LDA RRAM+$20,X
11230 STA DIV
11240 LDA RRAM+$40,X
11250 STA DIV+1
11260 JMP (DIV)
11270 ;
11280 CMDTAB .AS "PWR!S" ;$97A0
11290 .AS " ?AHNOQThif"
11300 .BL $10,$00
11310 ;
11320 .DA #PTSEC,#WRSEC
11330 .DA #RDSEC,#FORMT
11340 .DA #STATS
11350 .DA #AUTOF,#GETBD
11360 .DA #CHCMD,#HAPPY
11370 .DA #RPERC,#WPERC
11380 .DA #QQQQQ,#RDRAM
11390 .DA #RSIOL,#RSIOD
11400 .DA #CUSTM
11410 .BL $10,$00
11420 ;
11430 .DA /PTSEC,/WRSEC
11440 .DA /RDSEC,/FORMT
11450 .DA /STATS
11460 .DA /AUTOF,/GETBD
11470 .DA /CHCMD,/HAPPY
11480 .DA /RPERC,/WPERC
11490 .DA /QQQQQ,/RDRAM
11500 .DA /RSIOL,/RSIOD
11510 .DA /CUSTM
11520 .BL $10,$00
11530 ------------------------------
11540 RWMEM JSR SECBFL
11550 LDA COMAND
11560 CMP #'R
11570 BEQ .04
11580 ;
11590 JSR RECV
11600 BIT DAUX2
11610 BVC .01
11620 JMP XERR
11630 ;
11640 .01 JSR SSECBF
11650 .02 LDA (BUFADR)
11660 STA (DAUX1)
11670 INC DAUX1
11680 BNE .03
11690 INC DAUX2
11700 .03 JSR BUFINC
11710 BCC .02
11720 JMP XWOK
11730 ;
11740 .04 LDA DAUX1
11750 STA BUFADR
11760 LDA DAUX2
11770 STA BUFADR+1
11780 LDA #COMPLT
11790 JSR SIOPUT
11800 JSR SBFEND
11810 JSR XMIT
11820 JMP WAITCMD
11830 ------------------------------
11840 WRSEC
11850 PTSEC LDA DAUX2 RAM Adr.?
11860 BPL .00
11870 JMP RWMEM
11880 ;
11890 .00 JSR BOOTSEC
11900 JSR RECV
11910 JSR DSTAT
11920 LDA ST3TAB,Y
11930 BMI .01
11940 JSR CFGDRV
11950 BPL .02
11960 .01 LDA HPYFLG,Y
11970 LSR
11980 BCS .03
11990 JSR MOTON
12000 JSR SSECBF
12010 JSR WSEC
12020 LDA ST2TAB,Y
12030 AND #$10
12040 BEQ .03
12050 JSR TR00
12060 JSR WSEC
12070 .03 PHP
12080 JSR SRDST
12090 PLP
12100 BCS .02
12110 LDA DAUX2
12120 BNE .04
12130 LDA DAUX1
12140 CMP #1
12150 BNE .04
12160 JSR SE01BF
12170 .04 JMP XWOK
12180 .02 JMP XERR
12190 ------------------------------
12200 RDSEC LDA DAUX2
12210 BPL .00
12220 JMP RWMEM
12230 ;
12240 .00 JSR DSTAT
12250 LDA ST02EB,Y
12260 ORA #$40
12270 STA ST02EB,Y
12280 LDA ST3TAB,Y;Dsk still
12290 BMI .01 ;in Drive
12300 JSR CFGDRV
12310 LDA ST3TAB,Y
12320 BPL .03 ;No Disk
12330 .01 LDA DAUX2
12340 BNE .02
12350 LDA DAUX1
12360 CMP #1
12370 BNE .02
12380 JMP RSECRAM
12390 .02 JSR MOTON
12400 JSR RSEC
12410 BCC .04
12420 LDA ST2TAB,Y
12430 AND #$10
12440 BEQ .03
12450 JSR TR00
12460 JSR RSEC
12470 BCC .04
12480 .03 LDA #ERROR
12490 .HX 2C
12500 .04 LDA #COMPLT ;Sektor ok
12510 JSR SIOPUT
12520 JSR BOOTSEC
12530 JSR XMIT
12540 JSR SRDST
12550 JMP WAITCMD
12560 ;
12570 RSECRAM JSR SBTBF
12580 LDA #$80
12590 STA BUFLEN
12600 STZ BUFLEN+1
12610 JSR SBFEND
12620 LDA #COMPLT
12630 JSR SIOPUT
12640 JSR XMIT
12650 JSR SRDST
12660 JMP WAITCMD
12670 ------------------------------
12680 FORMT JSR IFDISK
12690 SEC
12700 BPL .07
12710 LDA HPYFLG,Y
12720 LSR
12730 BCS .07
12740 JSR MOTON
12750 JSR SETSKEW
12760 JSR FODISK
12770 LDA #$FF
12780 BCC .04
12790 .07 LDA #$00
12800 .04 LDX #$00
12810 .05 STA SIOBUF,X
12820 INX
12830 BNE .05
12840 BCS .06
12850 JSR LASTSEC
12860 LDA #COMPLT
12870 .HX 2C
12880 .06 LDA #ERROR
12890 JSR SIOPUT
12900 LDA PBYTLO,Y
12910 STA BUFLEN
12920 LDA PBYTHI,Y
12930 STA BUFLEN+1
12940 JSR SSIOBF
12950 JSR XMIT
12960 JSR SRDST
12970 JMP WAITCMD
12980 ------------------------------
12990 .IN "D:STATS.BIB
13000 ------------------------------
13010 AUTOF JSR IFDISK
13020 BPL .01 No Disk
13030 ASL
13040 BMI .01 Write prot
13050 LDA HPYFLG,Y
13060 LSR
13070 BCS .01
13080 LDA #COMPLT
13090 JSR SIOPUT
13100 JSR MOTON
13110 JSR SETSKEW
13120 JSR FODISK
13130 JMP WAITCMD
13140 ;
13150 .01 JMP XERR
13160 ------------------------------
13170 GETBD LDA #COMPLT
13180 JSR SIOPUT
13190 LDA PBAUD,Y
13200 JSR SIOPUT
13210 JMP XIT
13220 ------------------------------
13230 CHCMD LDA #3 Lese 3
13240 STA BUFLEN Bytes
13250 STZ BUFLEN+1
13260 JSR SSIOBF
13270 JSR RECV
13280 LDA SIOBUF
13290 AND #$7F
13300 STA SIOBUF+3
13310 LDX #0
13320 .01 LDA RRAM,X Eintrag
13330 BEQ .02 frei
13340 AND #$7F
13350 CMP SIOBUF+3 Eintrag
13360 BEQ .02 vorhanden
13370 INX
13380 CPX #$20
13390 BCC .01
13400 JMP XERR
13410 ;
13420 .02 LDA SIOBUF+1
13430 ORA SIOBUF+2
13440 BNE .04
13450 .03 LDA RRAM+1,X
13460 STA RRAM,X
13470 LDA RRAM+$21,X
13480 STA RRAM+$20,X
13490 LDA RRAM+$41,X
13500 STA RRAM+$40,X
13510 INX
13520 CPX #$1F
13530 BCC .03
13540 STZ RRAM,X
13550 STZ RRAM+$20,X
13560 STZ RRAM+$40,X
13570 JMP XWOK gel|scht
13580 ;
13590 .04 LDA SIOBUF
13600 STA RRAM,X
13610 LDA SIOBUF+1
13620 STA RRAM+$20,X
13630 LDA SIOBUF+2
13640 STA RRAM+$40,X
13650 JMP XWOK eingetragen
13660 ;
13670 ------------------------------
13680 HAPPY LDX #$0F
13690 .01 LDA HAPTAB,X
13700 CMP DAUX1
13710 BEQ .02
13720 DEX
13730 BPL .01
13740 JMP XERR
13750 ;
13760 .02 LDA HAPTAB+$10,X
13770 STA DIV
13780 LDA HAPTAB+$20,X
13790 STA DIV+1
13800 JMP (DIV)
13810 ;
13820 HAPTAB .HX 00010203
13830 .HX 182060E0
13840 .BL $08,$FF
13850 ;
13860 .DA #HPY1,#OFFD
13870 .DA #NDVN,#IDRV
13880 .DA #WRPE,#FAWR
13890 .DA #SLOW,#HOFF
13900 .DA #XERR,#XERR
13910 .DA #XERR,#XERR
13920 .DA #XERR,#XERR
13930 .DA #XERR,#XERR
13940 ;
13950 .DA /HPY1,/OFFD
13960 .DA /NDVN,/IDRV
13970 .DA /WRPE,/FAWR
13980 .DA /SLOW,/HOFF
13990 .DA /XERR,/XERR
14000 .DA /XERR,/XERR
14010 .DA /XERR,/XERR
14020 .DA /XERR,/XERR
14030 ;
14040 HPY1 LDA DAUX2
14050 CMP #$80
14060 BNE .01
14070 JMP XWOK
14080 .01 JMP CMDNACK
14090 ;
14100 OFFD LDA DAUX2
14110 LSR
14120 LSR
14130 LSR
14140 LSR
14150 LSR
14160 CLC
14170 ADC #$F8
14180 STA OFFDEL
14190 JMP XWOK
14200 ;
14210 NDVN LDX ACTDRV
14220 LDA DAUX2 Befehl ok?
14230 BPL .03 Fehler ->
14240 AND #$7F
14250 CMP #$3A Nummer
14260 BCS .03 1...9
14270 CMP #$31 erlaubt
14280 BCC .03
14290 LDY DRVTAB,X Alte Nr.
14300 STY DIV retten u.
14310 LDY #$00 Eintrag
14320 STZ DRVTAB,X l|schen.
14330 BIT PORTB
14340 BPL .01
14350 DEA
14360 .01 CMP DRVTAB,Y Gibt es
14370 BEQ .02 schon ->
14380 INY
14390 CPY #4
14400 BCC .01
14410 LDA DAUX2 Setze
14420 STA DRVTAB,X Kennung
14430 JMP XWOK
14440 ;
14450 .02 LDA DIV
14460 STA DRVTAB,X
14470 .03 JMP CMDNACK
14480 ;
14490 IDRV LDA DAUX2
14500 BNE .01
14510 STA HPYFLG,Y
14520 CLC
14530 TYA
14540 ADC #$31
14550 STA DRVTAB,Y
14560 LDA #$FA
14570 STA OFFDEL
14580 JSR MOTON
14590 JSR CFGDRV
14600 JMP XWOK
14610 .01 JMP CMDNACK
14620 ;
14630 WRPE LDA HPYFLG,Y
14640 LDX DAUX2
14650 CPX #$10
14660 BNE .01
14670 ORA #$01
14680 BNE .02
14690 .01 CPX #$08
14700 BNE .03
14710 AND #$FE
14720 .02 STA HPYFLG,Y
14730 JMP XWOK
14740 .03 JMP CMDNACK
14750 ;
14760 FAWR LDA DAUX2
14770 BNE .01
14780 LDA HPYFLG,Y
14790 ORA #$02
14800 STA HPYFLG,Y
14810 JMP XWOK
14820 .01 JMP CMDNACK
14830 ;
14840 SLOW LDA DAUX2
14850 CMP #$60
14860 BNE .01
14870 LDA HPYFLG,Y
14880 ORA #$4
14890 STA HPYFLG,Y
14900 JMP XWOK
14910 .01 JMP CMDNACK
14920 ;
14930 HOFF LDA DAUX2
14940 CMP #$E0
14950 BNE .01
14960 LDA HPYFLG,Y
14970 ORA #$80
14980 STA HPYFLG,Y
14990 JMP XWOK
15000 .01 JMP CMDNACK
15010 ------------------------------
15020 RPERC LDA #COMPLT
15030 JSR SIOPUT
15040 .01 LDA PTRACK,Y
15050 JSR SIOPUT
15060 JSR CHKSUM
15070 INY
15080 INY
15090 INY
15100 INY
15110 CPY #$30
15120 BCC .01
15130 BCS XRD
15140 ------------------------------
15150 CUSTM
15160 WPERC LDA #12
15170 LDX COMAND
15180 CPX #'f
15190 BNE .00
15200 LDA #128
15210 .00 STA BUFLEN
15220 LDA #0
15230 STA BUFLEN+1
15240 TAX
15250 JSR SSIOBF
15260 JSR RECV
15270 .01 LDA SIOBUF,X
15280 STA PTRACK,Y
15290 INX
15300 INY
15310 INY
15320 INY
15330 INY
15340 CPY #$30
15350 BCC .01
15360 ;
15370 LDY ACTDRV
15380 LDA PSTEPR,Y Steprate
15390 CMP #$02 minimal
15400 BCS .04 2 ms
15410 LDA #$02
15420 STA PSTEPR,Y
15430 ;
15440 .04 JSR SPEC HD ?
15450 LDA COMAND
15460 CMP #'f
15470 BNE .03
15480 LDY #0
15490 .02 LDA SIOBUF,X
15500 STA SKEW,Y
15510 INX
15520 INY
15530 CPY SIOBUF+3
15540 BCC .02
15550 LDY ACTDRV
15560 JSR IFDISK
15570 BPL XERR
15580 JSR MOTON
15590 JSR FODISK
15600 BCS XERR
15610 JSR LASTSEC
15620 .03 JMP XWOK
15630 ------------------------------
15640 QQQQQ LDA #$08
15650 TRB PORTA
15660 LDA #COMPLT
15670 JSR SIOPUT
15680 JMP WAITCMD
15690 ------------------------------
15700 XRD LDA PSUMME
15710 .HX 2C
15720 XWOK LDA #COMPLT
15730 .HX 2C
15740 XERR LDA #ERROR
15750 XIT JSR SIOPUT
15760 JMP WAITCMD
15770 ------------------------------
15780 RDRAM LDA DAUX1
15790 STA BUFADR
15800 LDA DAUX2
15810 STA BUFADR+1
15820 STZ BUFLEN
15830 LDA #$01
15840 STA BUFLEN+1
15850 LDA #COMPLT
15860 JSR SIOPUT
15870 JSR SBFEND
15880 JSR XMIT
15890 JMP WAITCMD
15900 ------------------------------
15910 RSIOL LDA #COMPLT
15920 JSR SIOPUT
15930 LDA #$02
15940 STA BUFLEN
15950 STZ BUFLEN+1
15960 LDA #USIOL
15970 STA BUFADR
15980 LDA /USIOL
15990 STA BUFADR+1
16000 JSR SBFEND
16010 JSR XMIT
16020 JMP WAITCMD
16030 USIOL .DA USIOE-USIOA
16040 ------------------------------
16050 RSIOD LDA USIOL Puffer f}r
16060 STA BUFLEN SIO setzen
16070 LDA USIOL+1
16080 STA BUFLEN+1
16090 JSR SSIOBF
16100 LDA #USIOA Errechne
16110 STA DIV Differenz
16120 SEC zur Ziel -
16130 SBC DAUX1 adresse
16140 STA DAUX1
16150 LDA /USIOA DIV zeigt
16160 STA DIV+1 auf die
16170 SBC DAUX2 Adresse im
16180 STA DAUX2 ROM
16190 ;
16200 LDX #$00 Zu ver -
16210 .01 LDA ABSTBL,X legende
16220 CMP DIV Adresse?
16230 BNE .02
16240 LDA ABSTBL+1,X
16250 CMP DIV+1
16260 BNE .02
16270 JSR .04 Byte aus
16280 SEC ROM
16290 SBC DAUX1 umrechnen
16300 PHP
16310 JSR .06
16320 JSR .04
16330 PLP
16340 SBC DAUX2
16350 JSR .06
16360 INX Zeiger
16370 INX auf naechste
16380 BNE .03 Adresse
16390 .02 JSR .04
16400 JSR .06
16410 .03 LDA DIV Ende
16420 CMP #USIOE erreicht?
16430 BNE .01
16440 LDA DIV+1
16450 CMP /USIOE
16460 BNE .01
16470 LDA #COMPLT Ja.
16480 JSR SIOPUT Puffer
16490 JSR SSIOBF senden
16500 JSR XMIT
16510 JMP WAITCMD
16520 ;
16530 .04 LDA (DIV) Byte
16540 INC DIV lesen,
16550 BNE .05 Zeiger
16560 INC DIV+1 erh|hen.
16570 .05 RTS
16580 ;
16590 .06 STA (BUFADR)
16600 JMP BUFINC
16610 ------------------------------
16620 .IN "D:EPSIO.BIB
16630 ------------------------------
16640 .OR $FFF9
16650 IRQ
16660 NMI RTI
16670 .DA NMI
16680 .DA RESET
16690 .DA IRQ
16700 ------------------------------
STATS.BIB#
00010 STATS JSR DSTAT 00020 *-02EA-* 00030 LDA ST02EA,Y 0,1 00040 AND #$03 00050 STA DIV 00060 LDA ST1TAB,Y 2 (WE) 00070 ASL 00080 AND #4 00090 TSB DIV 00100 LDA ST3TAB,Y 3 (WP) 00110 AND #8 00120 TSB DIV 00130 LDA PORTA 4 (MOT) 00140 ASL 00150 AND #$10 00160 TSB DIV 00170 LDA PBYTHI,Y 5 (DD) 00180 CMP #$01 00190 BCC .01 00200 .DA #SB5,#DIV 00210 .01 LDA PSEKLO,Y 7 (MD) 00220 CMP #$13 ;>18=MD 00230 LDA PBYTHI,Y ;if not 00240 BEQ .02 ;>128 00250 CLC ;By/Sec 00260 .02 BCC .03 00270 .DA #SB7,#DIV 00280 .03 LDA DIV 00290 STA ST02EA,Y 00300 STA SIOBUF 00310 *-02EB-* 00320 LDA ST02EB,Y (2-6) 00330 AND #$7C 00340 STA DIV 00350 LDA ST3TAB,Y 7 (DC) 00360 AND #$80 00370 TSB DIV 00380 LDA FDCST 0,1 00390 AND #$50 00400 ASL 00410 ASL 00420 ASL 00430 ASL 00440 CMP #2 00450 BCC .04 00460 EOR #6 00470 .04 EOR #3 00480 ORA DIV 00490 STA ST02EB,Y 00500 STA SIOBUF+1 00510 *-02EC-* 00520 LDA #$E0 Timeout 00530 STA ST02EC,Y 00540 STA SIOBUF+2 00550 *-02ED-* 00560 LDA FDCST 00570 STA ST02ED,Y 00580 STA SIOBUF+3 00590 ; 00600 LDA #COMPLT Senden 00610 JSR SIOPUT 00620 LDA #4 00630 STA BUFLEN 00640 STZ BUFLEN+1 00650 JSR SSIOBF 00660 JSR XMIT 00670 ; 00680 LDA ST02EA,Y 00690 AND #$FC 00700 STA ST02EA,Y 00710 ; 00720 LDA ST02EB,Y 00730 AND #$83 00740 ORA #$18 00750 STA DIV 00760 LDA ST3TAB,Y 00770 AND #$40 00780 EOR #$40 00790 TSB DIV 00800 LDA ST3TAB,Y 00810 AND #$10 00820 LSR 00830 LSR 00840 ORA DIV 00850 STA ST02EB,Y 00860 JMP WAITCMD 00870 ------------------------------ 00880 SRDST LDY ACTDRV 00890 LDA ST02EB,Y Reset 00900 ORA #$3C 2,3,4,5 00910 STA DIV 00920 LDA ST2TAB,Y 5 (CM) 00930 AND #$40 00940 LSR 00950 TRB DIV 00960 LDA ST1TAB,Y 5,4,?,2 00970 AND #$34 -> 00980 LSR 2,5,4 00990 LSR 01000 LSR 01010 BCC .01 01020 ORA #8 01030 .01 ASL 01040 EOR #$FF 01050 AND DIV 01060 STA ST02EB,Y 01070 RTS 01080 ------------------------------
EPSIO.BIB#
01000 * High-Speed SIO-Driver, will 01010 * be relocated by HDI and 01020 * send to computer. 01030 ; 01040 USIOA LDA $0301 ;DUNIT 01050 BNE SIO2 01060 LDX #$08 01070 DLWTBLL STA LWTBL-1,X ;$F614 01080 DEX 01090 BNE DLWTBLL 01100 RTS 01110 SIO2 TAX 01120 REL01 LDA LWTBL-1,X ;$F614 01130 BNE SIO3 01140 LDA #$28 01150 REL02 STA LWTBL-1,X ;$F614 01160 LDY #$07 01170 SIOCL LDA $0302,Y ;DCOMND 01180 PHA 01190 REL03 LDA C3F,Y ;$F60D 01200 STA $0302,Y ;DCOMND 01210 DEY 01220 BPL SIOCL 01230 REL04 JSR SIO3 ;$F450 01240 LDX $0301 ;DUNIT 01250 LDY $0303 ;DSTATS 01260 BMI SIO21 01270 LDA $01 01280 REL05 STA LWTBL-1,X ;$F614 01290 SIO21 LDY #$00 01300 SIO21CL PLA 01310 STA $0302,Y ;DCOMND 01320 INY 01330 CPY #$08 01340 BCC SIO21CL 01350 SIO3 SEI 01360 TXA 01370 ORA #$30 01380 STA $023A ;CDEVIC 01390 LDA $0302 ;DCOMND 01400 STA $023B ;CCOMND 01410 LDA $030A ;DAUX1 01420 STA $023C ;CAUX1 01430 LDA $030B ;DAUX2 01440 STA $023D ;CAUX2 01450 REL06 LDA LWTBL-1,X ;$F614 01460 STA $D204 ;AUDF3 01470 TSX 01480 STX $3F ;FEOF 01490 LDA #$02 01500 STA $37 ;DRETRY 01510 IO11 LDA #$07 01520 STA $36 ;CRETRY 01530 IO12 LDA #$34 01540 STA $D303 01550 LDA #$00 01560 STA $30 ;STATUS 01570 STA $3E ;FTYPE 01580 STA $35 ;BUFEND+1 01590 STA $D206 ;AUDF4 01600 LDA #$3A 01610 STA $32 ;BUFADR 01620 LDA #$02 01630 STA $33 ;BUFADR+1 01640 ASL 01650 STA $34 ;BUFEND 01660 REL07 JSR SEND1 ;$F4DC 01670 LDA $0304 ;DBUFLO 01680 STA $32 ;BUFADR 01690 LDA $0305 ;DBUFHI 01700 STA $33 ;BUFADR+1 01710 LDA $0308 ;DBYTLO 01720 STA $34 ;BUFEND 01730 LDA $0309 ;DBYTHI 01740 STA $35 ;BUFEND+1 01750 LDA $0303 ;DSTATS 01760 BPL IO2 01770 REL08 JSR SEND1 ;$F4DC 01780 IO2 DEC $3E ;FTYPE 01790 REL09 JSR SETTI1 ;$F544 01800 BIT $0303 ;DSTATS 01810 BVC IO3 01820 REL10 JSR GETA1 ;$F521 01830 IO3 LDA #$A0 01840 STA $D207 ;AUDC4 01850 LDA $10 01860 STA $D20E ;IRQEN 01870 REL11 JSR CLRTI1 ;$F576 01880 LDA $30 ;STATUS 01890 BEQ IO4 01900 DEC $37 ;DRETRY 01910 BNE IO11 01920 IO4 TAY 01930 BNE IO5 01940 INY 01950 IO5 STY $0303 ;DSTATS 01960 CLI 01970 RTS 01980 SEND1 LDY #$00 01990 SE1 INY 02000 BNE SE1 02010 LDA #$23 02020 REL12 JSR POKEY ;$F5F7 02030 LDA ($32),Y ;BUFADR 02040 STA $31 ;CHKSUM 02050 STA $D20D ;SEROUT 02060 INY 02070 BNE SE3 02080 SE2 LDA ($32),Y ;BUFADR 02090 REL13 JSR PUTBYTE ;$F5D4 02100 INY 02110 BNE SE3 02120 INC $33 ;BUFADR+1 02130 DEC $35 ;BUFEND+1 02140 LDX #$E0 02150 SEWL INX 02160 BNE SEWL 02170 SE3 CPY $34 ;BUFEND 02180 BNE SE2 02190 LDA $35 ;BUFEND+1 02200 BNE SE2 02210 LDA $31 ;CHKSUM 02220 REL14 JSR PUTBYTE ;$F5D4 02230 SEO1 LDA $D20E ;IRQST 02240 AND #$08 02250 BNE SEO1 02260 LDY #$03 02270 REL15 JSR STOUTX0 ;$F578 02280 LDA #$C0 02290 STA $D20E ;IRQEN 02300 BNE RDQUIT 02310 GETA1 LDY #$00 02320 STY $31 ;CHKSUM 02330 GE1 JSR GETBYTE ;$F5B1 02340 STA ($32),Y ;BUFADR 02350 REL16 JSR ADDSUM ;$F5EF 02360 INY 02370 BNE GE2 02380 INC $33 ;BUFADR+1 02390 DEC $35 ;BUFEND+1 02400 GE2 CPY $34 ;BUFEND 02410 BNE GE1 02420 LDA $35 ;BUFEND+1 02430 BNE GE1 02440 REL17 JSR GETBYTE ;$F5B1 02450 CMP $31 ;CHKSUM 02460 BNE ERR8F 02470 RTS 02480 SETTI1 LDA $0306 ;DTIMLO 02490 ROR 02500 ROR 02510 TAY 02520 AND #$3F 02530 TAX 02540 TYA 02550 ROR 02560 AND #$C0 02570 TAY 02580 REL18 JSR STOUT ;$F57A 02590 RDQUIT LDA #$3C 02600 STA $D303 02610 LDA #$13 02620 REL19 JSR POKEY ;$F5F7 02630 REL20 JSR GETBYTE ;$F5B1 02640 CMP #$41 02650 BEQ CLRTI1 02660 CMP #$43 02670 BEQ CLRTI1 02680 CMP #$45 02690 BEQ ERR90 02700 LDA #$8B 02710 BNE ERR 02720 ERR90 LDA #$90 02730 STA $30 ;STATUS 02740 CLRTI1 LDY #$00 02750 STOUTX0 LDX #$00 02760 STOUT LDA ERRABS ;$F 02770 STA $0226 ;CDTMA1 02780 STOU2 LDA ERRABS+1 ;$F 02790 STA $0227 ;CDTMA1+1 02800 LDA #$01 02810 JMP $E45C ;Setze CDTMV1 02820 ERRABS .DA ERR8A ;$F 02830 IOER80 LDX $3F ;FEOF 02840 TXS 02850 LDA #$80 02860 STA $30 ;STATUS 02870 BNE EABS3 02880 ERR8F LDA #$8F 02890 .HX 2C 02900 ERR8A LDA #$8A ;Timeout 02910 ERR STA $30 ;STATUS 02920 LDX $3F ;FEOF 02930 TXS 02940 LDA $3E ;FTYPE 02950 BMI ERRA 02960 DEC $36 ;CRETRY 02970 BEQ ERRA 02980 REL21 JMP IO12 ;$F47A 02990 ERRA LDA #$28 03000 STA $D204 ;AUDF3 03010 EABS3 JMP IO3 ;$F4C1 03020 GETBYTE LDA $D20E ;IRQST 03030 BPL IOER80 03040 AND #$20 03050 BNE GETBYTE 03060 LDA #$DF 03070 STA $D20E ;IRQEN 03080 LDA #$E0 03090 STA $D20E ;IRQEN 03100 LDA $D20F ;SKSTAT 03110 STA $D20A ;SKRES 03120 BPL ERR8A 03130 AND #$20 03140 BEQ ERR8A 03150 LDA $D20D ;SERIN 03160 RTS 03170 PUTBYTE TAX 03180 PUTA1 LDA $D20E ;IRQST 03190 AND #$10 03200 BNE PUTA1 03210 LDA #$EF 03220 STA $D20E ;IRQEN 03230 LDA #$D0 03240 STA $D20E ;IRQEN 03250 TXA 03260 STA $D20D ;SEROUT 03270 LDX $D20E ;IRQST 03280 BPL IOER80 03290 ADDSUM CLC 03300 ADC $31 ;CHKSUM 03310 ADC #$00 03320 STA $31 ;CHKSUM 03330 RTS 03340 POKEY STA $D20F ;SKCTL 03350 STA $D20A ;SKRES 03360 LDA #$28 03370 STA $D208 ;AUDCTL 03380 LDA #$A8 03390 STA $D207 ;AUDC4 03400 LDA #$F8 03410 STA $D20E ;IRQEN 03420 RTS 03430 C3F .HX 3F40 03440 .DA $0001 03450 .DA $0001 03460 .DA $0001 03470 LWTBL .BL 8,0 03480 USIOE 03490 ABSTBL .DA DLWTBLL+1,REL01+1,REL02+1,REL03+1,REL04+1,REL05+1,REL06+1 03500 .DA REL07+1,REL08+1,REL09+1,REL10+1,REL11+1,REL12+1,REL13+1 03510 .DA REL14+1,REL15+1,GE1+1,REL16+1,REL17+1,REL18+1,REL19+1 03520 .DA REL20+1,STOUT+1,STOU2+1,ERRABS,REL21+1,EABS3+1