mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-06-02 01:41:31 +00:00
103 lines
1.8 KiB
ArmAsm
103 lines
1.8 KiB
ArmAsm
|
|
|
|
.setcpu "6502"
|
|
.org $2000
|
|
|
|
.include "apple2.inc"
|
|
.include "common.inc"
|
|
|
|
|
|
start:
|
|
PRODOS_CALL MLI_GET_TIME, 0
|
|
|
|
jsr zstrout
|
|
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
|
|
ror a
|
|
pha
|
|
lda DATELO
|
|
pha
|
|
rol a
|
|
rol a
|
|
rol a
|
|
rol a
|
|
and #%00001111
|
|
jsr cout_number
|
|
|
|
lda #(HI '/') ; /
|
|
jsr COUT
|
|
|
|
pla ; day
|
|
and #%00011111
|
|
jsr cout_number
|
|
|
|
lda #(HI '/') ; /
|
|
jsr COUT
|
|
|
|
pla ; year
|
|
jsr cout_number
|
|
|
|
jsr CROUT
|
|
|
|
rts
|
|
|
|
.proc cout_number
|
|
ldx #(HI '0')
|
|
cmp #10 ; >= 10?
|
|
bcc tens
|
|
|
|
;; divide by 10, dividend(+'0') in x remainder in a
|
|
: sbc #10
|
|
inx
|
|
cmp #10
|
|
bcs :-
|
|
|
|
tens: pha
|
|
txa
|
|
jsr COUT
|
|
|
|
units: pla
|
|
ora #(HI '0')
|
|
jsr COUT
|
|
rts
|
|
.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
|