diff --git a/cricket.system.s b/cricket.system.s
index 9e677a9..00fc603 100644
--- a/cricket.system.s
+++ b/cricket.system.s
@@ -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
diff --git a/date.s b/date.s
index 09d5730..f703d8c 100644
--- a/date.s
+++ b/date.s
@@ -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
 
diff --git a/ns.clock.system.s b/ns.clock.system.s
index 1f583ab..09c8dc4 100644
--- a/ns.clock.system.s
+++ b/ns.clock.system.s
@@ -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