1985-01-07 13:57:25 +00:00
|
|
|
.define begtext,begdata,begbss
|
|
|
|
|
.define hol0,.reghp,.limhp,.trppc,.ignmask
|
1986-04-22 10:40:29 +00:00
|
|
|
.define ERANGE,ESET,EHEAP,ECASE,EILLINS,EODDZ
|
1985-01-07 13:57:25 +00:00
|
|
|
|
|
|
|
|
ERANGE = 1
|
|
|
|
|
ESET = 2
|
|
|
|
|
EIDIVZ = 6
|
|
|
|
|
EHEAP = 17
|
|
|
|
|
EILLINS = 18
|
|
|
|
|
EODDZ = 19
|
|
|
|
|
ECASE = 20
|
|
|
|
|
|
|
|
|
|
base = 0x01C0
|
|
|
|
|
topmem = 0xFFF0
|
|
|
|
|
|
|
|
|
|
.org topmem-16
|
|
|
|
|
.extern __n_line
|
|
|
|
|
maxmem:
|
|
|
|
|
__n_line:
|
|
|
|
|
.space 16
|
|
|
|
|
.errnz __n_line-0xFFE0
|
|
|
|
|
|
|
|
|
|
.base base
|
|
|
|
|
|
|
|
|
|
.text
|
|
|
|
|
begtext:
|
|
|
|
|
cld
|
|
|
|
|
xor ax,ax
|
|
|
|
|
mov ss,ax
|
|
|
|
|
mov ds,ax
|
|
|
|
|
mov es,ax
|
|
|
|
|
mov (2),cs
|
|
|
|
|
mov (0),.diverr
|
|
|
|
|
mov sp,maxmem
|
|
|
|
|
mov di,begbss
|
|
|
|
|
mov cx,[[endbss-begbss]/2]&0x7FFF
|
|
|
|
|
! xor ax,ax ! ax still is 0
|
|
|
|
|
rep stos
|
|
|
|
|
mov ax,envp
|
|
|
|
|
push ax
|
|
|
|
|
mov ax,argv
|
|
|
|
|
push ax
|
|
|
|
|
mov ax,1
|
|
|
|
|
push ax
|
|
|
|
|
call _m_a_i_n
|
|
|
|
|
call .stop
|
|
|
|
|
.diverr:
|
|
|
|
|
push ax
|
|
|
|
|
mov ax,EIDIVZ
|
|
|
|
|
call .error
|
|
|
|
|
pop ax
|
|
|
|
|
iret
|
|
|
|
|
|
|
|
|
|
.data
|
|
|
|
|
begdata:
|
|
|
|
|
hol0:
|
|
|
|
|
.word 0,0
|
|
|
|
|
.word 0,0
|
|
|
|
|
argv:
|
|
|
|
|
.word 3f
|
|
|
|
|
envp:
|
|
|
|
|
.word 0
|
|
|
|
|
3:
|
|
|
|
|
.asciz "PROGRAM"
|
|
|
|
|
.reghp:
|
|
|
|
|
.word endbss
|
|
|
|
|
.limhp:
|
|
|
|
|
.word endbss
|
|
|
|
|
.ignmask:
|
|
|
|
|
.word 0
|
|
|
|
|
.trppc:
|
|
|
|
|
.word 0
|
|
|
|
|
|
|
|
|
|
.bss
|
|
|
|
|
begbss:
|
