Added calibration specific error codes

apps/basic/basic.asm

@@ -4649,7 +4649,7 @@ CLOADB: inc     hl              ; skip #
         ; hl contains block, check block type
         ld      a,(hl)
         cp      1               ; first block needs to be a header
-        jr      nz,CLNOHDR      ; First block is not a header
+        jp      nz,CLNOHDR      ; First block is not a header
         ; first block is a header, get nr of blocks
         inc     hl
         ld      de,(hl)
@@ -4706,7 +4706,9 @@ CLREADBLOCK:
         jr      nc,2$
         ; error, make sure it is silent again
         push    af
+        push    bc              ; save specific error code
         call    BIOS_CAS_WAIT_SILENCE
+        pop     bc     
         pop     af
         jr      CLERR
 1$:     push    hl              ; save hl
@@ -4727,7 +4729,10 @@ CLERR:  cp      1
         cp      4
         jr      z,CLECHS
         jp      FCERR           ; Unknown error
-CLECAL: ld      hl, CLECALMSG
+CLECAL: ld      h,0
+        ld      l,b             ; get specific error code
+        call    PRNTHL          ; print specific error code
+        ld      hl, CLECALMSG
         jr      CLEPRINT
 CLESYN: ld      hl, CLESYNMSG
         jr      CLEPRINT
@@ -4745,7 +4750,7 @@ CLEPRINT:
         jp      FCERR
 
 CLSTARTMSG:     .db "Play tape...",0ah,0dh,00h
-CLECALMSG:      .db "Calibration failed",0ah,0dh,00h
+CLECALMSG:      .db " - Calibration failed",0ah,0dh,00h
 CLESYNMSG:      .db "Synchronization failed",0ah,0dh,00h
 CLEREDMSG:      .db "Read failed",0ah,0dh,00h
 CLECHSMSG:      .db "Checksum error",0ah,0dh,00h