You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
1.5 KiB
ArmAsm
62 lines
1.5 KiB
ArmAsm
;
|
|
; Ullrich von Bassewitz, 17.07.2002
|
|
;
|
|
; const char* __fastcall__ _stroserror (unsigned char errcode);
|
|
; /* Map an operating system error number to an error message. */
|
|
;
|
|
|
|
.export __stroserror
|
|
.import __sys_oserrlist
|
|
.importzp ptr1, tmp1
|
|
|
|
.macpack generic
|
|
|
|
|
|
; The table is built as a list of entries
|
|
;
|
|
; .byte entrylen
|
|
; .byte errorcode
|
|
; .asciiz errormsg
|
|
;
|
|
; and terminated by an entry with length zero that is returned if the
|
|
; error code could not be found.
|
|
|
|
__stroserror:
|
|
sta tmp1 ; Save the error code
|
|
|
|
ldy #<__sys_oserrlist
|
|
sty ptr1
|
|
ldy #>__sys_oserrlist
|
|
sty ptr1+1 ; Setup pointer to message table
|
|
|
|
@L1: ldy #0
|
|
lda (ptr1),y ; Get the length
|
|
beq Done ; Bail out if end of list reached
|
|
|
|
iny
|
|
lda (ptr1),y ; Compare the error code
|
|
cmp tmp1
|
|
beq Done ; Jump if found
|
|
|
|
; Not found, move pointer to next entry
|
|
|
|
dey
|
|
clc
|
|
lda ptr1
|
|
adc (ptr1),y
|
|
sta ptr1
|
|
bcc @L1
|
|
inc ptr1+1
|
|
bcs @L1 ; Branch always
|
|
|
|
; We've found the code or reached the end of the list
|
|
|
|
Done: ldx ptr1+1
|
|
lda ptr1
|
|
add #2 ; Add a total of #2
|
|
bcc @L1
|
|
inx ; Bump high byte
|
|
@L1: rts
|
|
|
|
|