2017-12-09 04:51:54 +00:00
|
|
|
;;; SET.TIME utility for The Cricket!
|
|
|
|
|
;;; Prompts for time and sends Cricket "Set Time" sequence.
|
|
|
|
|
|
2017-12-08 03:54:55 +00:00
|
|
|
.setcpu "6502"
|
|
|
|
|
.linecont +
|
2019-09-29 03:54:23 +00:00
|
|
|
.feature string_escapes
|
2017-12-08 03:54:55 +00:00
|
|
|
|
|
|
|
|
.include "apple2.inc"
|
2019-09-29 03:54:23 +00:00
|
|
|
.include "apple2.mac"
|
2019-09-29 03:14:53 +00:00
|
|
|
|
|
|
|
|
.include "inc/apple2.inc"
|
|
|
|
|
.include "inc/macros.inc"
|
2017-12-08 03:54:55 +00:00
|
|
|
|
|
|
|
|
.org $2000
|
|
|
|
|
|
|
|
|
|
.proc main
|
|
|
|
|
jsr zstrout
|
2019-09-29 03:54:23 +00:00
|
|
|
scrcode "\rTime: HH:MM:SS XM\x08\x08\x08\x08\x08\x08\x08\x08\x08\x08\x08"
|
2017-12-08 03:54:55 +00:00
|
|
|
.byte 0
|
|
|
|
|
|
|
|
|
|
jsr GETLN2
|
|
|
|
|
|
|
|
|
|
;; Configure SSC
|
|
|
|
|
lda #%00001011 ; no parity/echo/interrupts, RTS low, DTR low
|
|
|
|
|
sta COMMAND
|
|
|
|
|
lda #%10011110 ; 9600 baud, 8 data bits, 2 stop bits
|
|
|
|
|
sta CONTROL
|
|
|
|
|
|
|
|
|
|
;; Clock Commands
|
|
|
|
|
;; Set Time "ST HH:MM:SS:XM"
|
|
|
|
|
lda #HI('S')
|
|
|
|
|
jsr sendbyte
|
|
|
|
|
lda #HI('T')
|
|
|
|
|
jsr sendbyte
|
|
|
|
|
lda #HI(' ')
|
|
|
|
|
jsr sendbyte
|
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
loop: lda INPUT_BUFFER,x
|
|
|
|
|
jsr sendbyte
|
|
|
|
|
inx
|
2019-10-01 03:34:26 +00:00
|
|
|
cmp #HI($0D) ; = CR
|
2017-12-08 03:54:55 +00:00
|
|
|
bne loop
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;; Write byte in A to SSC
|
|
|
|
|
.proc sendbyte
|
|
|
|
|
pha
|
|
|
|
|
: lda STATUS
|
|
|
|
|
and #(1 << 4) ; transmit register empty? (bit 4)
|
|
|
|
|
beq :- ; nope, keep waiting
|
|
|
|
|
pla
|
|
|
|
|
sta TDREG
|
|
|
|
|
rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; ------------------------------------------------------------
|
|
|
|
|
;;; Output a high-ascii, null-terminated string.
|
|
|
|
|
;;; String immediately follows the JSR.
|
|
|
|
|
|
|
|
|
|
.proc zstrout
|
|
|
|
|
ptr := $A5
|
|
|
|
|
|
|
|
|
|
pla ; read address from stack
|
|
|
|
|
sta ptr
|
|
|
|
|
pla
|
|
|
|
|
sta ptr+1
|
|
|
|
|
bne skip ; always (since data not on ZP)
|
|
|
|
|
|
|
|
|
|
next: jsr COUT
|
|
|
|
|
skip: inc ptr
|
|
|
|
|
bne :+
|
|
|
|
|
inc ptr+1
|
|
|
|
|
: ldy #0
|
|
|
|
|
lda (ptr),y
|
|
|
|
|
bne next
|
|
|
|
|
|
|
|
|
|
lda ptr+1 ; restore address to stack
|
|
|
|
|
pha
|
|
|
|
|
lda ptr
|
|
|
|
|
pha
|
|
|
|
|
rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ------------------------------------------------------------
|
