35 lines
390 B
ArmAsm
35 lines
390 B
ArmAsm
;; Error # in X
|
|
|
|
do_basic_error:
|
|
;; "?"
|
|
txa
|
|
pha
|
|
lda #$0d
|
|
jsr $ffd2
|
|
lda #$3f
|
|
jsr $ffd2
|
|
pla
|
|
tax
|
|
|
|
;; Error message text
|
|
jsr print_packed_message
|
|
|
|
;; A space between error name and word error
|
|
lda #$20
|
|
jsr $ffd2
|
|
|
|
;; "ERROR"
|
|
ldx #33
|
|
jsr print_packed_message
|
|
|
|
;; New lines
|
|
lda #$0d
|
|
jsr $ffd2
|
|
lda #$00
|
|
jsr $ffd2
|
|
|
|
;; XXX - Restore stack depth first?
|
|
|
|
jmp basic_main_loop
|
|
|