Apple-2-SW/prodos-drivers
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-drivers.git synced 2025-01-02 16:32:32 +00:00
Code Issues Projects Releases Wiki Activity

Answer some questions by RTFM

Browse Source
This commit is contained in:
Joshua Bell 2017-11-24 16:47:49 -08:00
parent a445735244
commit 34acbaf822
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cricket.s
View File

@ -53,17 +53,17 @@ loop: lda driver,y
;; Configure SSC
lda #%00001011
sta COMMAND
lda #%10011110 ; 9600 baud, 8 data bits, 1 stop bit
lda #%10011110 ; 9600 baud, 8 data bits, 2 stop bits
sta CONTROL
: lda STATUS
and #(1 << 4) ; transmit register empty? (bit 4)
beq :- ; nope, keep waiting
;; Send command
lda #('@' | $80)
lda #('@' | $80) ; '@' command
sta TDREG
read_len := 7 ; read 7 bytes (?/M/D/Y/h/m/?)
read_len := 7 ; read 7 bytes (w/m/d/y/H/M/S)
;; Read response, pushing to stack
ldy #(read_len-1)
@ -95,7 +95,7 @@ ready: lda RDREG
bpl rloop
;; Convert pushed response to ProDOS time field
pla ; ???
pla ; day of week (unused)
pla ; minute
sta TIMELO ; -- stored as-is (TIMELO 5-0)
@ -120,7 +120,7 @@ ready: lda RDREG
sta DATELO
rol DATELO+1
pla ; ???
pla ; seconds (unused)
;; Restore prior state
done: pla ; restore saved command state