2009-11-13 12:57:10 +00:00
|
|
|
;
|
2004-06-15 09:02:05 +00:00
|
|
|
; Ullrich von Bassewitz, 2004-06-15
|
|
|
|
|
;
|
|
|
|
|
; const char* __fastcall__ tgi_geterrormsg (unsigned char code);
|
|
|
|
|
; /* Get an error message describing the error in code. */
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.include "tgi-kernel.inc"
|
|
|
|
|
.include "tgi-error.inc"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.proc _tgi_geterrormsg
|
|
|
|
|
|
|
|
|
|
cmp #TGI_ERR_COUNT
|
2004-06-15 09:06:36 +00:00
|
|
|
bcc L1
|
2004-06-15 09:02:05 +00:00
|
|
|
lda #TGI_ERR_COUNT ; "Unknown error"
|
|
|
|
|
L1: tay
|
|
|
|
|
ldx #>msgtab
|
|
|
|
|
lda #<msgtab
|
|
|
|
|
clc
|
|
|
|
|
adc offs,y
|
|
|
|
|
bcc L2
|
|
|
|
|
inx
|
|
|
|
|
L2: rts
|
|
|
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------
|
|
|
|
|
; Error messages. The messages are currently limited to 256 bytes total.
|
|
|
|
|
|
|
|
|
|
.rodata
|
|
|
|
|
|
|
|
|
|
offs: .byte <(msg0-msgtab)
|
|
|
|
|
.byte <(msg1-msgtab)
|
|
|
|
|
.byte <(msg2-msgtab)
|
|
|
|
|
.byte <(msg3-msgtab)
|
|
|
|
|
.byte <(msg4-msgtab)
|
|
|
|
|
.byte <(msg5-msgtab)
|
|
|
|
|
.byte <(msg6-msgtab)
|
|
|
|
|
.byte <(msg7-msgtab)
|
2009-11-01 22:01:23 +00:00
|
|
|
.byte <(msg8-msgtab)
|
2009-11-13 12:57:10 +00:00
|
|
|
.byte <(msg9-msgtab)
|
2004-06-15 09:02:05 +00:00
|
|
|
|
|
|
|
|
msgtab:
|
|
|
|
|
msg0: .asciiz "No error"
|
|
|
|
|
msg1: .asciiz "No driver available"
|
2004-06-15 09:29:31 +00:00
|
|
|
msg2: .asciiz "Cannot load driver"
|
2004-06-15 09:02:05 +00:00
|
|
|
msg3: .asciiz "Invalid driver"
|
|
|
|
|
msg4: .asciiz "Mode not supported by driver"
|
|
|
|
|
msg5: .asciiz "Invalid function argument"
|
|
|
|
|
msg6: .asciiz "Function not supported"
|
2009-11-01 22:01:23 +00:00
|
|
|
msg7: .asciiz "Invalid font file"
|
2009-11-13 15:53:01 +00:00
|
|
|
msg8: .asciiz "Out of resources"
|
2009-11-13 12:57:10 +00:00
|
|
|
msg9: .asciiz "Unknown error"
|
2004-06-15 09:02:05 +00:00
|
|
|
|
