Rev 55 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log
| Rev 55 | Rev 177 | ||
|---|---|---|---|
| Line 4... | Line 4... | ||
| 4 | include "../../_sdk/sysdefs.asm" |
4 | include "../../_sdk/sysdefs.asm" |
| 5 | ;COMMANDLINE=0x0080 |
5 | ;COMMANDLINE=0x0080 |
| 6 | ;COMMANDLINE_sz=0x0080 |
6 | ;COMMANDLINE_sz=0x0080 |
| 7 | ;PROGSTART=0x0100 |
7 | ;PROGSTART=0x0100 |
| 8 | org PROGSTART |
8 | org PROGSTART |
| 9 | jp startup. |
9 | jp startup. ;3 срщЄр! |
| 10 | _=$ |
10 | _=$ |
| 11 | include "compc_os.dcl" |
11 | include "compc_os.dcl" |
| 12 | incbin "compc_os.bin" |
12 | incbin "compc_os.bin" |
| 13 | startup. |
13 | startup. |
| - | 14 | ld hl,0xe800 ;FCB1 |
|
| - | 15 | ld de,0xe801 |
|
| - | 16 | ld bc,0x17ff |
|
| - | 17 | ld [hl],0 |
|
| - | 18 | ldir |
|
| - | 19 | ||
| 14 | LD HL,fnerr. |
20 | LD HL,fnerr. |
| 15 | LD [openwrite.A.],HL |
21 | LD [openwrite.A.],HL |
| 16 | CALL openwrite |
22 | CALL openwrite |
| 17 | LD [_ferr],HL |
23 | LD [_ferr],HL |
| 18 | LD A,TRUE |
24 | LD A,TRUE |