mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-09-08 18:54:57 +00:00
Rename GET.TIME to DATE, single line
This commit is contained in:
parent
82a8ade241
commit
b204ea7f2f
4
Makefile
4
Makefile
@ -4,8 +4,8 @@ CAFLAGS = --target apple2enh --list-bytes 0
|
|||||||
CCFLAGS = --config apple2-asm.cfg
|
CCFLAGS = --config apple2-asm.cfg
|
||||||
|
|
||||||
TARGETS = prodos.mod.BIN ns.clock.system.SYS cricket.system.SYS \
|
TARGETS = prodos.mod.BIN ns.clock.system.SYS cricket.system.SYS \
|
||||||
test.BIN get.time.BIN \
|
test.BIN \
|
||||||
set.time.BIN set.date.BIN
|
date.BIN set.time.BIN set.date.BIN
|
||||||
|
|
||||||
# For timestamps
|
# For timestamps
|
||||||
MM = $(shell date "+%m")
|
MM = $(shell date "+%m")
|
||||||
|
@ -1,31 +1,13 @@
|
|||||||
|
|
||||||
|
|
||||||
.setcpu "6502"
|
.setcpu "6502"
|
||||||
.org $2000
|
.org $2000
|
||||||
|
|
||||||
.include "apple2.inc"
|
.include "apple2.inc"
|
||||||
.include "common.inc"
|
.include "common.inc"
|
||||||
|
|
||||||
|
|
||||||
start:
|
start:
|
||||||
PRODOS_CALL MLI_GET_TIME, 0
|
PRODOS_CALL MLI_GET_TIME, 0
|
||||||
|
|
||||||
jsr zstrout
|
;; Date
|
||||||
HIASCIIZ "Time: "
|
|
||||||
|
|
||||||
lda TIMELO+1 ; hour
|
|
||||||
jsr cout_number
|
|
||||||
|
|
||||||
lda #HI(':') ; ':'
|
|
||||||
jsr COUT
|
|
||||||
|
|
||||||
lda TIMELO ; minute
|
|
||||||
jsr cout_number
|
|
||||||
|
|
||||||
jsr CROUT
|
|
||||||
|
|
||||||
jsr zstrout
|
|
||||||
HIASCIIZ "Date: "
|
|
||||||
|
|
||||||
lda DATELO+1 ; month
|
lda DATELO+1 ; month
|
||||||
ror a
|
ror a
|
||||||
@ -39,25 +21,45 @@ start:
|
|||||||
and #%00001111
|
and #%00001111
|
||||||
jsr cout_number
|
jsr cout_number
|
||||||
|
|
||||||
lda #(HI '/') ; /
|
lda #HI('/') ; /
|
||||||
jsr COUT
|
jsr COUT
|
||||||
|
|
||||||
pla ; day
|
pla ; day
|
||||||
and #%00011111
|
and #%00011111
|
||||||
jsr cout_number
|
jsr cout_number
|
||||||
|
|
||||||
lda #(HI '/') ; /
|
lda #HI('/') ; /
|
||||||
jsr COUT
|
jsr COUT
|
||||||
|
|
||||||
pla ; year
|
pla ; year
|
||||||
jsr cout_number
|
jsr cout_number
|
||||||
|
|
||||||
|
lda #HI(' ')
|
||||||
|
jsr COUT
|
||||||
|
jsr COUT
|
||||||
|
|
||||||
|
;; Time
|
||||||
|
|
||||||
|
lda TIMELO+1 ; hour
|
||||||
|
jsr cout_number
|
||||||
|
|
||||||
|
lda #HI(':') ; ':'
|
||||||
|
jsr COUT
|
||||||
|
|
||||||
|
lda TIMELO ; minute
|
||||||
|
jsr cout_number
|
||||||
|
|
||||||
jsr CROUT
|
jsr CROUT
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
pm_flag:
|
||||||
|
.byte 0
|
||||||
|
|
||||||
|
;;; ------------------------------------------------------------
|
||||||
|
|
||||||
.proc cout_number
|
.proc cout_number
|
||||||
ldx #(HI '0')
|
ldx #HI('0')
|
||||||
cmp #10 ; >= 10?
|
cmp #10 ; >= 10?
|
||||||
bcc tens
|
bcc tens
|
||||||
|
|
||||||
@ -72,31 +74,7 @@ tens: pha
|
|||||||
jsr COUT
|
jsr COUT
|
||||||
|
|
||||||
units: pla
|
units: pla
|
||||||
ora #(HI '0')
|
ora #HI('0')
|
||||||
jsr COUT
|
jsr COUT
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
.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
|
|
Loading…
Reference in New Issue
Block a user