panic()

include/a8.ini

@@ -1,6 +1,6 @@
 [compilation]
 arch=strict
-modules=a8_kernel
+modules=a8_kernel,default_panic
 
 
 [allocation]

include/c128.ini

@@ -1,6 +1,6 @@
 [compilation]
 arch=nmos
-modules=c128_hardware,loader_1c01,c128_kernal
+modules=c128_hardware,loader_1c01,c128_kernal,default_panic
 
 
 [allocation]

include/c16.ini

@@ -1,6 +1,6 @@
 [compilation]
 arch=nmos
-modules=loader_1001,c264_kernal,c264_hardware
+modules=loader_1001,c264_kernal,c264_hardware,default_panic
 
 
 [allocation]

include/c64.ini

@@ -5,7 +5,7 @@
 ; CPU architecture: nmos, strictnmos, ricoh, strictricoh, cmos
 arch=nmos
 ; modules to load
-modules=c64_hardware,loader_0801,c64_kernal,stdlib
+modules=c64_hardware,loader_0801,c64_kernal,c64_panic,stdlib
 ; optionally: default flags
 emit_illegals=true
 

include/c64_panic.mfk

@@ -0,0 +1,27 @@
+void _panic() {
+    asm {
+        SEI
+        PLA // status register
+        PLA
+        TAY
+        PLA
+
+        TAX
+        JSR hi_nibble_to_hex
+        JSR putchar
+        TXA
+        JSR lo_nibble_to_hex
+        JSR putchar
+
+        TYA
+        JSR hi_nibble_to_hex
+        JSR putchar
+        TYA
+        JSR lo_nibble_to_hex
+        JSR putchar
+
+        LDA #2
+        STA $D020
+    }
+    while(true){}
+}

include/default_panic.mfk

@@ -0,0 +1,3 @@
+void _panic() {
+    while(true){}
+}

include/pet.ini

@@ -1,6 +1,6 @@
 [compilation]
 arch=nmos
-modules=loader_0401,pet_kernal
+modules=loader_0401,pet_kernal,default_panic
 
 
 [allocation]

include/plus4.ini

@@ -1,6 +1,6 @@
 [compilation]
 arch=nmos
-modules=c264_loader,c264_kernal,c264_hardware
+modules=c264_loader,c264_kernal,c264_hardware,default_panic
 
 
 [allocation]

include/stdlib.mfk

@@ -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
+}

include/vic20.ini

@@ -1,6 +1,6 @@
 [compilation]
 arch=nmos
-modules=loader_1001,vic20_kernal
+modules=loader_1001,vic20_kernal,default_panic
 
 
 [allocation]

include/vic20_3k.ini

@@ -1,6 +1,6 @@
 [compilation]
 arch=nmos
-modules=loader_0401,vic20_kernal
+modules=loader_0401,vic20_kernal,default_panic
 
 
 [allocation]

include/vic20_8k.ini

@@ -1,6 +1,6 @@
 [compilation]
 arch=nmos
-modules=loader_1201,vic20_kernal
+modules=loader_1201,vic20_kernal,default_panic
 
 
 [allocation]