1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
;****************************************************************************
;*======= Copyright (C) 1985,86 Martin Schoenbeck, Spenge ==================*
;* *
;* Dieses Modul enthaelt Routinen zur Uebergabe von Fehlermeldungen *
;* nach Blockin/Blockout *
;* *
;* blockerr erwartet dabei folgende codes in ah: *
sense_fail equ 0ffh ; sense operation
blnrhigh equ 0feh ; block number to high
write_fault equ 0cch ;
not_rdy equ 0aah ; drive not ready
undef_err equ 0bbf ; undefined error occurred
time_out equ 80h ; attachment failed to respond
bad_seek equ 40h ; seek operation failed
bad_cntlr equ 20h ; controller has failed
data_corrected equ 11h ; ecc corrected data error
bad_ecc equ 10h ; bad ecc on disk read
bad_crc equ 10h ; crc error on sector
bad_track equ 0bh ; bad track flag detected
bad_sect equ 0ah ; sector marked bad
dma_boundary equ 9 ; attempt to dma across 64k
bad_dma equ 8 ; dma failed
init_fail equ 7 ; drive parameter activity failed
bad_reset equ 5 ; reset failed
record_not_fnd equ 4 ; requested sector not found
write_protect equ 3 ; disk write protected
bad_addr_mark equ 2 ; address mark not found
bad_cmd equ 1 ; bad command passed to disk i/o
;* *
;****************************************************************************
blockerr:
pop bp ;return adresse holen
pop dx ;ds:bx vom stack putzen
pop dx
mov bx,offset messagetable ;tabelle mit meldungen holen
mov dh,0 ;laengenangaben sind nur ein byte
err_loop:
mov al,byte ptr [bx] ;fehlerschluessel holen
inc bx
cmp al,ah ;war das der gesuchte
jz err_found ;ja
inc al ;oder ende der tabelle
jz err_found ;ja
inc bx ;auf laengenbyte
mov dl,byte ptr [bx] ;laenge holen
add bx,dx ;adresse des naechsten textes
inc bx ;und ueber laengenbyte rueber
jmp err_loop
err_found:
mov cl,byte ptr [bx]
mov ch,0 ;nur ein byte fehlercodes
inc bx ;auf textlaenge gehen
push cs ;adresse fehlermeldung drauf
push bx
jmp bp
highblock:
mov ah,blnrhigh ;meldung blocknummer zu hoch
jmp blockerr
err_mess macro code,eucode,mess
local m_end
db code,eucode,m_end-$-1,mess
m_end:
endm
messagetable:
err_mess blnrhigh,3,'blocknummer zu hoch'
err_mess not_rdy,1,'not ready'
err_mess bad_crc,2,'crc err'
err_mess bad_sect,2,'bad sect'
err_mess record_not_fnd,2,'rec not fnd'
err_mess dma_boundary,1,'dma boundary'
err_mess time_out,2,'timeout'
err_mess 0ffh,2,'undef_err_code'
|
