54 lines
498 B
ArmAsm
54 lines
498 B
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# * KERNAL_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
//
|
|
// Print the hex value in .A as two digits
|
|
//
|
|
|
|
print_hex_byte:
|
|
|
|
#if HAS_BCD_SAFE_INTERRUPTS
|
|
|
|
// Idea by Haubitze
|
|
|
|
sed
|
|
pha
|
|
lsr
|
|
lsr
|
|
lsr
|
|
lsr
|
|
cmp #$0A
|
|
adc #$30
|
|
cld
|
|
jsr JCHROUT
|
|
sed
|
|
pla
|
|
and #$0F
|
|
cmp #$0A
|
|
adc #$30
|
|
cld
|
|
jmp JCHROUT
|
|
|
|
#else
|
|
|
|
pha
|
|
lsr
|
|
lsr
|
|
lsr
|
|
lsr
|
|
ora #$30
|
|
cmp #$3A
|
|
bcc !+
|
|
adc #6
|
|
!: jsr JCHROUT
|
|
pla
|
|
and #$0f
|
|
ora #$30
|
|
cmp #$3A
|
|
bcc !+
|
|
adc #6
|
|
!: jmp JCHROUT
|
|
|
|
#endif
|