1
0
mirror of https://github.com/KarolS/millfork.git synced 2026-04-20 18:16:35 +00:00
This commit is contained in:
Karol Stasiak
2018-01-08 01:17:25 +01:00
parent 309f12cf82
commit 502faa3694
22 changed files with 108 additions and 38 deletions
+22
View File
@@ -21,3 +21,25 @@ inline asm void enable_irq() {
CLI
}
asm byte hi_nibble_to_hex(byte a) {
LSR
LSR
LSR
LSR
JMP lo_nibble_to_hex
}
asm byte lo_nibble_to_hex(byte a) {
AND #$F
CLC
ADC #$30
CMP #$3A
BCC _lo_nibble_to_hex_lbl
ADC #$6 // carry is set
_lo_nibble_to_hex_lbl:
RTS
}
inline asm void panic() {
JSR _panic
}