mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2025-08-15 07:27:31 +00:00
Implement SSC detection
This commit is contained in:
@@ -162,7 +162,21 @@ cloop: iny
|
|||||||
dey
|
dey
|
||||||
bpl :-
|
bpl :-
|
||||||
|
|
||||||
;; TODO: Confirm SSC in slot 2
|
;; Check Slot 2 for SSC. ID bytes per:
|
||||||
|
;; Apple II Technical Note #8: Pascal 1.1 Firmware Protocol ID Bytes
|
||||||
|
lda $C205
|
||||||
|
cmp #$38
|
||||||
|
bne not_found
|
||||||
|
lda $C207
|
||||||
|
cmp #$17
|
||||||
|
bne not_found
|
||||||
|
lda $C20B
|
||||||
|
cmp #$01
|
||||||
|
bne not_found
|
||||||
|
lda $C20C
|
||||||
|
cmp #$31
|
||||||
|
bne not_found
|
||||||
|
|
||||||
;; TODO: Write NUL and check for 'C' ... version ... $8D (CR)
|
;; TODO: Write NUL and check for 'C' ... version ... $8D (CR)
|
||||||
;; https://github.com/inexorabletash/cricket/issues/3
|
;; https://github.com/inexorabletash/cricket/issues/3
|
||||||
|
|
||||||
@@ -574,7 +588,7 @@ self_name:
|
|||||||
beq :- ; nope, keep waiting
|
beq :- ; nope, keep waiting
|
||||||
|
|
||||||
;; Send command
|
;; Send command
|
||||||
lda #('@' | $80) ; '@' command
|
lda #HI('@') ; '@' command
|
||||||
sta TDREG
|
sta TDREG
|
||||||
|
|
||||||
read_len := 7 ; read 7 bytes (w/m/d/y/H/M/S)
|
read_len := 7 ; read 7 bytes (w/m/d/y/H/M/S)
|
||||||
|
Reference in New Issue
Block a user