Browse Source

re-imported 1571 and 1581 source from a different source to fix encoding

master
Michael Steil 4 months ago
parent
commit
b252b04981

+ 1
- 1
DOS_1571/lccfmt2.src View File

@@ -154,7 +154,7 @@ crtdat sta buff2,x
;
pla ; restore block size
tay ; move buffer up 79 bytes
dey ; for i=n-1 to 0:mem+i+69|:=mem+i|:next
dey ; for i=n-1 to 0:mem{i+69}:=mem{i}:next
jsr movup ; move buf0 up 69 bytes
;
jsr movovr ; move ovrbuf up to buffer

+ 1
- 1
DOS_1571/lccfmt2a.src View File

@@ -189,7 +189,7 @@ toptst lda tsttrk
jsr fbtog ; convert to gcr with no bid char
; move buffer up 79 bytes

ldy #$ff-69 ; for i=n-1 to 0:mem+i+69|:=mem+i|:next
ldy #$ff-69 ; for i=n-1 to 0:mem{i+69}:=mem{i}:next
4$ lda (hdrpnt),y ; move buf0 up 69 bytes
ldx #69
stx hdrpnt

+ 2
- 2
DOS_1571/lccseek.src View File

@@ -138,8 +138,8 @@ l465 cmp csect
beq tstrdj ; must be a read
;
pla
cmp #wrtmin ; +if(csect<4)return;
bcc l470 ; +if(csect>8)return;
cmp #wrtmin ; {if(csect<4)return;
bcc l470 ; {if(csect>8)return;
;
cmp #wrtmax
bcs l470

+ 2
- 2
DOS_1571/lccseek1.src View File

@@ -126,8 +126,8 @@ jseak lda #90 ; search 90 headers
beq 16$ ; must be a read

pla
cmp #wrtmin ; +if(csect<4)return;
bcc 11$ ; +if(csect>8)return;
cmp #wrtmin ; {if(csect<4)return;
bcc 11$ ; {if(csect>8)return;

cmp #wrtmax
bcs 11$

+ 8
- 8
DOS_1571/notes.src View File

@@ -1,13 +1,13 @@
.page
.subttl 'notes.src'
;........................................................................
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;11/6/86 David G. Siracusa
;S.O enable was not disabled when exiting the 1571 controller.
;I don't know how the drive could ever work, miracles will
;never cease. A symptom of this bug was made apparent with relative
;files would corrupt the disk. NOTE: This would explain any quirk, occasional
;burp, or demonic possesion you thought the drive had.
;........................................................................
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;11/6/86 David G. Siracusa
;BAM swap bug. When all buffers are allocated by the application, the
;DOS frees up the BAM buffer by marking it out of memory. When it was
@@ -15,26 +15,26 @@
;'dirty', it would be corrupted. This fix uses hex 1B6 for a swap flag
;this is the ultimate in kludges!!! The BAM for side one is rebuilt on
;the reread of BAM.
;.......................................................................
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;11/6/86 David G. Siracusa
;Save@ is fixed. Variable nodrv is now a 16 bit addressable var, stlbuf
;routine steals the buffer locked by drive one.
;.......................................................................
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;11/7/86 David G. Siracusa
;The applications which addressed tracks > 35 now have the density set
;properly, worktable and trackn replace worktble and trknum respectfully.
;.......................................................................
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;12/2/86 David G. Siracusa
;Some applications fell prey to the 1541a ROM change which changed equate
;'TIM' to 20h, it is now 3ah like -05 1541 ROM.
;.......................................................................
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;12/08/86 David G. Siracusa
;Inquire failed because I moved the GCR density tables. I neglected
;to set the HDR var in INQUIRE. The byte before the table was an RTS
;($60) which was the perfect density for an uninitialized HDR var. I
;set HDR to 1 so the proper density will be set.
;.......................................................................
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;01/13/87 David G. Siracusa
;Partial MFM Format did not work because of the above SO problem, byte
;ready's were disabled to the 65c22a.
;.......................................................................
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

+ 10
- 10
DOS_1571/serlistn.src View File

@@ -105,22 +105,22 @@ atnlow jmp atnsrv


; tstatn()
; +
; {
; if(atnmod)
; +
; {
; if(pb & $80)
; + if 1571 then jatns20() else atns20
;
; { if 1571 then jatns20() else atns20
; }
; else return
;
; }
; else
; +
; {
; if(pb&$80) return
; else
; + if 1571 then jatnsrv() else atnsrv()
;
;
;
; { if 1571 then jatnsrv() else atnsrv()
; }
; }
; }


tstatn lda atnmod ; test if in atn mode

+ 4
- 4
DOS_1571/tstfnd.src View File

@@ -128,7 +128,7 @@ its1 ; track:= dirtrk-r0

;<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

;if @b+.y│ then goto fndsec
;if @b{.y} then goto fndsec
rtch37 lda (bmpnt),y
rtch37a bne fndsec
;end
@@ -153,7 +153,7 @@ its3

;<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

;if @b+.y│=0 then goto its1
;if @b{.y}=0 then goto its1
rtch38 lda (bmpnt),y
rtch38a beq its1
fndsec
@@ -218,7 +218,7 @@ avck
dey
ac10 ; for .x:=7 to 0 do;
ldx #7 ; count the bits
ac20 ; if @b+.y│ & bmask+x│
ac20 ; if @b{.y} & bmask{x}
; then temp:=temp+1
lda (bmpnt),y
and bmask,x
@@ -230,7 +230,7 @@ ac30 ; end .x
;end .y
dey
bne ac10
;if @b+.y│ <> temp
;if @b{.y} <> temp
; then cmder2(direrr);
lda (bmpnt),y
cmp temp

+ 1
- 1
DOS_1571/utlodr.src View File

@@ -109,7 +109,7 @@
; outputs to utlodr-none
;
;********************************
; boot routine removed, won't work with serial i.f
; boot routine removed, won't work with serial i|f
.page
boot2
rts ; exit

+ 1
- 1
DOS_1581/burstc.src View File

@@ -998,7 +998,7 @@ no_max dey
;******************************************************

.page
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;BURST CMD ONE - READ
;
; BYTE BIT 7 6 5 4 3 2 1 0

+ 32
- 32
DOS_1581/mrout.src View File

@@ -1,7 +1,7 @@
.messg "mrout"
.subttl "mrout"
.page
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

reset_ctl ; reset disk controller

@@ -84,19 +84,19 @@ reset_ctl ; reset disk controller
okdone lda #0 ; ok
done jmp errr

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

moton_ctl ; motor on with spinup sequence

jmp okfin ; done

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

motoff_ctl ; motor off with spin down sequence

jmp okdone ; turn off the motor

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
motoni_ctl ; motor on

@@ -109,14 +109,14 @@ fin ldy nextjob
ldy #numjob
jmp erret

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
motoffi_ctl ; motor off

jsr motoff ; turn it off
jmp okfin

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

seek_ctl ; move physical

@@ -128,7 +128,7 @@ seek_ctl ; move physical

1$ jmp okdone

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

format_ctl ; format side

@@ -387,7 +387,7 @@ vfin jsr wdunbusy ; wait for sleepy time
v5 sec
rts

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ledacton_ctl ; turn activity led on

@@ -396,7 +396,7 @@ ledacton_ctl ; turn activity led on
sta ledprint
jmp okfin

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ledactoff_ctl ; turn activity led off

@@ -405,7 +405,7 @@ ledactoff_ctl ; turn activity led off
sta ledprint
jmp okfin

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

errledon_ctl ; blink power led
@@ -414,7 +414,7 @@ errledon_ctl ; blink power led
sta ledprint
jmp okfin

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

errledoff_ctl ; disable power led blink

@@ -423,7 +423,7 @@ errledoff_ctl ; disable power led blink
sta ledprint
jmp okfin

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

side_ctl ; select side
@@ -444,7 +444,7 @@ side_ctl ; select side
sta pa
jmp okfin

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
bufmove_ctl ; buffer move

@@ -482,14 +482,14 @@ bufmove_ctl ; buffer move
1$ jsr cachebuf ; transfer from cache
jmp okdone

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

trkwrt_ctl ; track cache dump

jmp okdone ; done by (mfmctl)


;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

*=*+256-<*

@@ -655,18 +655,18 @@ wrtold_ctl ; old track cache dump

11$ jmp wrtver_ctl ; verify job

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

diskin_ctl ; disk present?

;|||||||||||
;~~~~~~~~~~~

pseek_ctl ; move head to logical track

jsr seek ; seek ok...
jmp okdone

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*=*+256-<*

spwrt_ctl ; write physical address
@@ -739,7 +739,7 @@ spwrt_ctl ; write physical address
3$ jsr getwdstat ; get status
jmp errr

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

*=*+256-<*

@@ -813,7 +813,7 @@ spread_ctl ; read physical address
3$ jsr getwdstat ; get status
jmp errr

;|||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

*=*+256-<*

@@ -990,7 +990,7 @@ read_ctl ; read from track cache buffer
11$ jmp errr ; nope


;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


wrtver_ctl ; write track cache buffer to disk
@@ -1006,7 +1006,7 @@ wrtver_ctl ; write track cache buffer to disk
2$ jsr one_6 ; delay 1.6 mS
jmp 1$

;||||||||||||
;~~~~~~~~~~~~

*=*+256-<*

@@ -1181,7 +1181,7 @@ fmtver_ctl
lda #7
14$ jmp errr ; nope

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

seekphd_ctl ; seek a particular header

@@ -1207,14 +1207,14 @@ seekphd_ctl ; seek a particular header

1$ jmp end_ctl ; & better step there

;|||||||||||
;~~~~~~~~~~~

seekhd_ctl ; seek any header

jsr seek ; on an error, don't come back now hear!!!
jmp okdone

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

restore_ctl ; restore head

@@ -1228,11 +1228,11 @@ restore_ctl ; restore head
jsr xms ; settle
jmp okdone ; done

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

exbuf_ctl ; execute buffer w/ motor upto speed & on track

;|||||||||
;~~~~~~~~~

jumpc_ctl ; execute buffer

@@ -1244,7 +1244,7 @@ jumpc_ctl ; execute buffer
txa
jmp (ip+2)

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

formatdk_ctl ; format disk

@@ -1282,7 +1282,7 @@ formatdk_ctl ; format disk
jmp erret ; service job

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

detwp_ctl

@@ -1295,7 +1295,7 @@ detwp_ctl
1$ lda #0
jmp errr
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

syntaxer

@@ -1306,7 +1306,7 @@ wrongtrk
lda #2
jmp errr

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
chkcache
clc
adc cache+1
@@ -1321,4 +1321,4 @@ chkcache
jsr getwdstat
jmp wrongfmt

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

+ 26
- 26
DOS_1581/msub.src View File

@@ -1,7 +1,7 @@
.messg "msub"
.subttl "msub"
.page
;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

resetim

@@ -13,35 +13,35 @@ resetim
sta crb
rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

moton lda pa
and #all-mtr_on
sta pa
rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

motoff lda pa
ora #mtr_on
sta pa
rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ledon lda pa ; turn on led
and #all-act_led
sta pa
rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ledoff lda pa ; turn led off
ora #act_led
sta pa
rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

xms jsr onems ; delay 1 ms
dey
@@ -49,7 +49,7 @@ xms jsr onems ; delay 1 ms

rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

one_6 ldx #3 ; 1.6 mS
.byte skip2
@@ -64,7 +64,7 @@ onems1 adc #1

rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


wdunbusy
@@ -76,7 +76,7 @@ wdunbusy

rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

wdbusy
WDTEST
@@ -89,7 +89,7 @@ wdbusy

jmp delay16

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

; Read Address Routine

@@ -143,13 +143,13 @@ seekhdr
sec
6$ rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

getwdstat

jsr wdunbusy ; wait for unbusy first

;|||||||||||||||
;~~~~~~~~~~~~~~~

wdstatus

@@ -173,7 +173,7 @@ wdstatus

wdtrans .byte 0,5,2,0,0,0,0,0,8

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

start_mtr

@@ -193,7 +193,7 @@ start_mtr
sta drvst
2$ rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

wait_mtr
lda drvst ; check for acceleration bit
@@ -250,7 +250,7 @@ tstfoready
2$ sec
rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

errr

@@ -287,7 +287,7 @@ erret ldx savsp ; restore sp
txs
jmp lcc0 ; continue

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
end_ctl
ldx savsp ; get sp
@@ -389,7 +389,7 @@ end_ctl
jsr xms ; settle...it
jmp 5$

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

bufcache

@@ -431,7 +431,7 @@ cachebuf
jmp dma_to ; ugly fast linear code
2$ jmp dma_from ; *

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

trans_ts
asl info+1 ; translate at all?
@@ -512,7 +512,7 @@ trans_ts
rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

trk_in_mem
@@ -529,7 +529,7 @@ trk_in_mem

1$ rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

buffer_op

@@ -574,7 +574,7 @@ buffer_op

5$ jmp fin ; write protected
;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

seek
jsr seekhdr ; seek any header
@@ -588,7 +588,7 @@ seek

1$ jmp errr ; drive not ready

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

cacheip
lda cache ; get track cache address
@@ -598,7 +598,7 @@ cacheip
rts


;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sid_select

@@ -613,7 +613,7 @@ sid_select
rts


;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

wdabort

@@ -624,7 +624,7 @@ wdabort
jsr delay40 ; wait 40uS
jmp wdunbusy

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

precmp sec ; wdtrk in .a
sbc pstartsec
@@ -647,4 +647,4 @@ precmp sec ; wdtrk in .a
sta wdwritetrack
2$ rts

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

+ 2
- 2
DOS_1581/msub1.src View File

@@ -794,7 +794,7 @@ dma_to

1$ rts

;|||||||||||||||
;~~~~~~~~~~~~~~~
.page
; ugly fast linear code
; .x contains count
@@ -1590,4 +1590,4 @@ dma_from

1$ rts

;||||||||||||||||||||||||||||||||||||||||||||||||||||||
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

+ 23
- 23
DOS_1581/ram.src View File

@@ -9,10 +9,10 @@ header *=*+6 ; image of last header
wpsw *=*+1 ; write protect change flag
drvst *=*+1 ; lcc var's
; bits 7 6 5 4 3 2 1 0
; . . . .
; . . . -- timeout
; . . ---- running
; . ------ stepping
; | | | |
; | | | -- timeout
; | | ---- running
; | ------ stepping
; -------- accelerating
;
;ie:
@@ -80,13 +80,13 @@ lbused *=*+1 ; last buffer used
numsec *=*+1 ; number of sectors logical
fsflag *=*+1 ; fast serial flag
; bits 7 6 5 4 3 2 1 0
; . . . . . . . - atn pending
; . . . . . . --- atn mode
; . . . . . ----- clkin status
; . . . . ------- fast serial lock
; . . . ---------- slow flag
; . . ------------ fast serial flag
; . -------------- listen flag
; | | | | | | | - atn pending
; | | | | | | --- atn mode
; | | | | | ----- clkin status
; | | | | ------- fast serial lock
; | | | ---------- slow flag
; | | ------------ fast serial flag
; | -------------- listen flag
; ---------------- talk flag
;
;
@@ -94,9 +94,9 @@ lsnadr *=*+1 ; listen address
tlkadr *=*+1 ; talker address
ledprint *=*+1 ; led var
; bits 7 6 5 4 3 2 1 0
; . .
; . . -- blink power led
; .----- activity led
; | |
; | | -- blink power led
; |----- activity led
;
tempsa *=*+1 ; temporary sa
cmdwat *=*+1 ; command waiting flag
@@ -119,9 +119,9 @@ dkoramask
cache *=*+2 ; cache pointer
iobyte *=*+1 ; verify / crc check
; bits 7 6 5 4 3 2 1 0
; . . .--- huge rel = 0
; . . ---- crc check = 1
; .------- verify = 1
; | | |--- huge rel = 0
; | | ---- crc check = 1
; |------- verify = 1
;
pstartrk *=*+1 ; physical starting track
pmaxtrk *=*+1 ; " " ending track
@@ -163,9 +163,9 @@ filtyp *=*+mxchns ; channel file type
grpnum *=*+1 ; group number
relsw *=*+1 ; huge relfile switch
; bits 7 6 5 4 3 2 1 0
; . .
; . -- overflow = 1
; .--- huge rel file = 0
; | |
; | -- overflow = 1
; |--- huge rel file = 0

sssgrp *=*+mxchns ; super ss group
ssssec *=*+mxchns ; super ss sector
@@ -239,9 +239,9 @@ bufind *=*+9 ; buffer indirects
wpstat *=*+1 ; write protect status
dejavu *=*+1 ; auto boot flag
; bits 7 6 5 4 3 2 1 0
; . .
; . . ---- boot on intdrv
; .------- boot on reset
; | |
; | | ---- boot on intdrv
; |------- boot on reset
jhandsk *=*+3 ; handsk jmp

*=$200

+ 2
- 2
README.md View File

@@ -117,11 +117,11 @@ The Commodore 1541/1541C/1541-II DOS V2.6 source (1981). Reconstructed from DOS_

## DOS_1571

The Commodore 1571 DOS source (3.0, 1986), updated version (310654-05). Extracted from 1571-source.d81 from Steve Gray's [Dennis Jarvis Page](http://6502.org/users/sjgray/dj/) and converted to LF line breaks.
The Commodore 1571 DOS source (3.0, 1986), updated version (310654-05). Source: [all_new_dos.tar.gz](http://www.zimmers.net/anonftp/pub/cbm/src/drives/all_new_dos.tar.gz).

## DOS_1581

The Commodore 1581 DOS source (10.0, 1987), original version (318045-01). Extracted from 1581-source.d81 from Steve Gray's [Dennis Jarvis Page](http://6502.org/users/sjgray/dj/) and converted to LF line breaks.
The Commodore 1581 DOS source (10.0, 1987), original version (318045-01). Source: [all_new_dos.tar.gz](http://www.zimmers.net/anonftp/pub/cbm/src/drives/all_new_dos.tar.gz).

## RAMDOS


Loading…
Cancel
Save