Apple-2-SW/prodos-drivers
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-drivers.git synced 2024-12-22 05:29:54 +00:00
Code Issues Projects Releases Wiki Activity

Rename GET.TIME to DATE, single line

Browse Source
This commit is contained in:
Joshua Bell 2017-12-07 20:49:53 -08:00
parent 82a8ade241
commit b204ea7f2f
2 changed files with 27 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -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")

72
get.time.s → date.s
View File

@ -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