wok-6.x view linld/stuff/src/HEADER.ASM @ rev 23985
linld: up to 60k for header.com
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Sat Nov 28 09:45:01 2020 +0000 (2020-11-28) |
| parents | d33c3c211ef8 |
| children |
line source
1 ;***************************************************************
2 ;****** This file is distributed under GPL
3 ;***************************************************************
4 ideal
5 %PAGESIZE 1000
6 %crefref
7 %noincl
8 %nomacs
9 p8086
11 group DGROUP _TEXT
12 assume cs:DGROUP,ds:DGROUP
14 segment _TEXT byte public use16 'CODE'
16 COMSTART = 100h
17 MAXCODESZ = 0F000h ; < 64K - COMSTART - STKSZ
19 org COMSTART
20 global _text_start:byte
21 label _text_start byte
23 cld
24 mov dx,offset tazboot_cmd
25 mov di,80h
26 cmp [byte di],dh
27 ja notfound
28 mov ax,3d00h ; read-only+compatibility
29 ;mov cl,0 ; attribute mask
30 int 21h
31 jc notfound
32 found:
33 xchg ax,bx
34 mov ah,3Eh ; close
35 int 21h
36 mov si,offset default_arg ; di = 0080h
37 mov cx,di
38 rep
39 movsb
40 notfound:
41 mov di,MAXCODESZ+offset endcmd
42 mov si,offset move
43 mov cx,COMSTART
44 mov ax,offset endcmd
45 move:
46 push di
47 push cx
48 rep
49 movsb
50 pop di
51 pop cx
52 ;sub cx,ax
53 xchg ax,si
54 push cx
55 ret
57 default_arg db endcmd-begcmd
58 begcmd db " @"
59 tazboot_cmd db "tazboot.cmd",0
60 endcmd:
62 ;***************************************************************
64 ends _TEXT
67 end _text_start
69 ;###### END OF FILE ############################################