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

Standardize macro usage

Browse Source
This commit is contained in:
Joshua Bell 2017-12-07 21:48:41 -08:00
parent 89edcb917b
commit 106b31b899
3 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cricket.system.s
View File

@ -324,14 +324,14 @@ loop: lda driver,y
and #%00001111
jsr cout_number
lda #(HI '/') ; /
lda #HI('/') ; /
jsr COUT
pla ; day
and #%00011111
jsr cout_number
lda #(HI '/') ; /
lda #HI('/') ; /
jsr COUT
pla ; year
@ -486,7 +486,7 @@ not_found:
sta ptr+1
bne skip ; always (since data not on ZP)
next: cmp #(HI 'a') ; lower-case?
next: cmp #HI('a') ; lower-case?
bcc :+
and lowercase_mask ; make upper-case if needed
: jsr COUT
@ -508,7 +508,7 @@ skip: inc ptr
;;; COUT a 2-digit number in A
.proc cout_number
ldx #(HI '0')
ldx #HI('0')
cmp #10 ; >= 10?
bcc tens
@ -519,13 +519,13 @@ skip: inc ptr
bcs :-
tens: pha
cpx #(HI '0')
cpx #HI('0')
beq units
txa
jsr COUT
units: pla
ora #(HI '0')
ora #HI('0')
jsr COUT
rts
.endproc

5
date.s
View File

@ -1,3 +1,8 @@
;;; Query ProDOS and print the current date/time
;;; (No dependency on Cricket clock)
;;; Output is: MM/DD/YY HH:MM
.setcpu "6502"
.org $2000

12
ns.clock.system.s
View File

@ -303,14 +303,14 @@ loop: lda driver,y
and #%00001111
jsr cout_number
lda #(HI '/') ; /
lda #HI('/') ; /
jsr COUT
pla ; day
and #%00011111
jsr cout_number
lda #(HI '/') ; /
lda #HI('/') ; /
jsr COUT
pla ; year
@ -465,7 +465,7 @@ not_found:
sta ptr+1
bne skip ; always (since data not on ZP)
next: cmp #(HI 'a') ; lower-case?
next: cmp #HI('a') ; lower-case?
bcc :+
and lowercase_mask ; make upper-case if needed
: jsr COUT
@ -487,7 +487,7 @@ skip: inc ptr
;;; COUT a 2-digit number in A
.proc cout_number
ldx #(HI '0')
ldx #HI('0')
cmp #10 ; >= 10?
bcc tens
@ -498,13 +498,13 @@ skip: inc ptr
bcs :-
tens: pha
cpx #(HI '0')
cpx #HI('0')
beq units
txa
jsr COUT
units: pla
ora #(HI '0')
ora #HI('0')
jsr COUT
rts
.endproc