Apple-2-SW/Davex
1
0
Fork 0
mirror of https://github.com/david-schmidt/Davex.git synced 2024-06-26 04:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Some of the 'conp' command's output was accidentally in inverse video. Set the high bits of the characters fed to cout.

Browse Source
This commit is contained in:
Dave Lyons 2020-08-15 22:53:16 -07:00
parent f0d4a50b4f
commit 456c70438d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/xtn/2/conp.asm
View File

@ -944,7 +944,7 @@ print_ay: ;x=field width (right just)
tax tax
bcc pr0 bcc pr0
beq pr0 beq pr0
pr1: lda #' ' pr1: lda #_' '
jsr cout jsr cout
dex dex
bne pr1 bne pr1
@ -1091,15 +1091,15 @@ prBits:
lsr a lsr a
clc clc
adc #5 adc #5
ora #'0' ora #_'0'
jsr cout jsr cout
lda #'/' lda #_'/'
jsr cout jsr cout
pla pla
and #1 and #1
clc clc
adc #1 adc #1
ora #'0' ora #_'0'
jmp cout jmp cout
; ;
prBaud: prBaud:
@ -1252,12 +1252,12 @@ prColor:
pha pha
cmp #10 cmp #10
bcs ColNoSp bcs ColNoSp
lda #' ' lda #_' '
jsr cout jsr cout
ColNoSp: pla ColNoSp: pla
pha pha
jsr prInt jsr prInt
lda #' ' lda #_' '
jsr cout jsr cout
jsr cout jsr cout
pla pla
@ -1319,7 +1319,7 @@ mult32: asl a
tay tay
lda myTemp lda myTemp
jsr xprdec_2 ;AX=2-byte # jsr xprdec_2 ;AX=2-byte #
lda #'K' lda #_'K'
jmp cout jmp cout
;********************************************* ;*********************************************
; ;