Subversion Repositories SvarDOS

Rev

Rev 1875 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1875 Rev 1881
Line 502... Line 502...
502
; is this a DISK error?
502
; is this a DISK error?
503
test ch, 0x80
503
test ch, 0x80
504
jz DISKERROR
504
jz DISKERROR
505
; non-disk error: output "CRITICAL ERROR #XXX SYSTEM HALTED" and freeze
505
; non-disk error: output "CRITICAL ERROR #XXX SYSTEM HALTED" and freeze
506
; update the crit string so it contains the proper error code
506
; update the crit string so it contains the proper error code
507
mov bx, CRITERRSYST+1
507
mov bx, CRITERRSYST+2
508
mov ax, di
508
mov ax, di
509
xor ah, ah
509
xor ah, ah
510
mov cl, 100
510
mov cl, 100
511
div cl ; AL = AX / cl     AH = remainder
511
div cl ; AL = AX / cl     AH = remainder
512
add al, '0'
512
add al, '0'
Line 654... Line 654...
654
pop dx
654
pop dx
655
pop cx
655
pop cx
656
pop bx
656
pop bx
657
iret
657
iret
658
 
658
 
659
 
-
 
-
 
659
; translatable messages, each message is stored inside a 16-bytes field.
-
 
660
; SvarCOM relies on the position and length of these fields to update messages
-
 
661
; accordingly to the selected language.
660
CRITERR db "CRITICAL ERROR $"
662
CRITERR db          "CRITICAL ERROR$ "
-
 
663
CRITERRDSK_READ db  "READ FAILURE$   "
-
 
664
CRITERRDSK_WRITE db "WRITE FAILURE$  "
-
 
665
CRITERR_ABORT db    "(A)bort$        "
-
 
666
CRITERR_RETRY db    "(R)etry$        "
-
 
667
CRITERR_IGNOR db    "(I)gnore$       "
-
 
668
CRITERR_FAIL  db    "(F)ail$         "
-
 
669
CRITERR_KEYS  db    "ARIF"        ; upcase keys for Abort, Retry, Ignore, Fail
661
CRITERRSYST db "#XXX - SYSTEM HALTED$"
670
CRITERRSYST db      " #XXX$"
662
CRITERRDISK db "@: - $"
671
CRITERRDISK db "@: - $"
663
CRITERRDSK_READ db "READ FAILURE$"
-
 
664
CRITERRDSK_WRITE db "WRITE FAILURE$"
-
 
665
CRLF db 0x0A, 0x0D, "$"
-
 
666
CRITERR_ABORT db "(A)bort$"
-
 
667
CRITERR_RETRY db "(R)etry$"
-
 
668
CRITERR_IGNOR db "(I)gnore$"
-
 
669
CRITERR_FAIL  db "(F)ail$"
-
 
670
CRITERR_KEYS  db "ARIF"
-
 
671
CRITERR_COMMA db ", $"
672
CRITERR_COMMA db ", $"
-
 
673
CRLF db 0x0A, 0x0D, "$"