Apple-2-SW
/
IIcSystemClock
mirror of https://github.com/a2stuff/IIcSystemClock.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Use HI() consistently

This commit is contained in:
Joshua Bell 2021-11-18 21:14:16 -08:00
parent f9d3511fb8
commit 85cad81fc9
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
clock.system.s
View File

@ -134,7 +134,7 @@ is_iic: sty mach_type
bne init_80_col bne init_80_col
;; Convert spaces to newlines if 40 Columns ;; Convert spaces to newlines if 40 Columns
lda #CR|$80 lda #HI(CR)
sta chain + (wrap1 - Chain) sta chain + (wrap1 - Chain)
sta chain + (wrap4 - Chain) sta chain + (wrap4 - Chain)
sta chain + (wrap5 - Chain) sta chain + (wrap5 - Chain)
@ -404,9 +404,9 @@ retry:
;; Wait for Y/N keypress ;; Wait for Y/N keypress
: jsr RDKEY : jsr RDKEY
and #%11011111 ; lowercase --> uppercase and #%11011111 ; lowercase --> uppercase
cmp #'Y'|$80 cmp #HI('Y')
beq year_ok beq year_ok
cmp #'N'|$80 cmp #HI('N')
bne :- bne :-
;; Prompt for two digit year ;; Prompt for two digit year
@ -693,7 +693,7 @@ L22BA: lda digits_buffer ; top nibble is month (mmmm0000)
;; Convert $207/$208 to ASCII digits at $20E/$02F (Why???) ;; Convert $207/$208 to ASCII digits at $20E/$02F (Why???)
ldy #$01 ldy #$01
: lda $0208,y : lda $0208,y
ora #$B0 ; '0'|$80 ora #HI('0')
sta $020F,y sta $020F,y
dey dey
bpl :- bpl :-
@ -915,9 +915,9 @@ bit_loop:
.proc GetDigitKey .proc GetDigitKey
jsr RDKEY jsr RDKEY
cmp #'0' | $80 cmp #HI('0')
bcc GetDigitKey bcc GetDigitKey
cmp #('9'+1) | $80 cmp #HI('9')+1
bcs GetDigitKey bcs GetDigitKey
jmp COUT jmp COUT
.endproc .endproc
@ -1110,7 +1110,7 @@ L10E2: jmp entries_loop
ptr := *+1 ptr := *+1
loop: lda $F000,y loop: lda $F000,y
beq done beq done
cmp #'`'|$80 ; Not lower case? cmp #HI('`') ; Not lower case?
bcc :+ bcc :+
and case_mask and case_mask
: jsr COUT : jsr COUT