123456789101112131415161718192021222324252627282930 |
- .sect .text; .sect .rom; .sect .data; .sect .bss
- .define .csa4
- .sect .text
- .csa4:
- ! bx, descriptor address
- ! ax, dx: index
- mov cx,(bx) ! default
- sub ax,2(bx)
- ! ignore high order word; if non-zero, the
- ! case descriptor would not fit anyway
- cmp ax,6(bx)
- ja 1f
- 2:
- sal ax,1
- add bx,ax
- mov bx,10(bx)
- test bx,bx
- jnz 2f
- 1:
- mov bx,cx
- test bx,bx
- jnz 2f
- .extern ECASE
- .extern .fat
- mov ax,ECASE
- push ax
- jmp .fat
- 2:
- jmp bx
|