1985-07-26 12:52:13 +00:00
|
|
|
.define hol0,argv,.reghp,envp,begbss
|
|
|
|
|
.define .ignmask, .trpreg
|
|
|
|
|
.define .stop
|
|
|
|
|
.define ERANGE,EILLINS,ECASE
|
1987-01-16 16:34:45 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-07-26 12:52:13 +00:00
|
|
|
|
|
|
|
|
topmem = 0xFFFFFF
|
|
|
|
|
|
|
|
|
|
ERANGE = 1
|
|
|
|
|
EILLINS = 18
|
|
|
|
|
ECASE = 20
|
|
|
|
|
|
1987-01-16 16:34:45 +00:00
|
|
|
.sect .text
|
1985-07-26 12:52:13 +00:00
|
|
|
|
|
|
|
|
movd begbss, r7
|
|
|
|
|
movd endbss, r6
|
|
|
|
|
1:
|
|
|
|
|
movqd 0, 0(r7)
|
|
|
|
|
addqd 4, r7
|
|
|
|
|
cmpd r6,r7
|
|
|
|
|
bgt 1b
|
|
|
|
|
|
|
|
|
|
movd envp,tos
|
|
|
|
|
movd argv,tos
|
|
|
|
|
movd 1,tos
|
|
|
|
|
jsr @_m_a_i_n
|
|
|
|
|
.stop:
|
|
|
|
|
movb 0x7f,tos
|
|
|
|
|
jsr @.putchar
|
|
|
|
|
bpt
|
|
|
|
|
|
1987-01-16 16:34:45 +00:00
|
|
|
.sect .bss
|
1985-07-26 12:52:13 +00:00
|
|
|
begbss:
|
1987-01-16 16:34:45 +00:00
|
|
|
.sect .data
|
1985-07-26 12:52:13 +00:00
|
|
|
hol0:
|
1987-01-16 16:34:45 +00:00
|
|
|
.data4 0
|
|
|
|
|
.data4 0
|
1985-07-26 12:52:13 +00:00
|
|
|
argv:
|
1987-01-16 16:34:45 +00:00
|
|
|
.data4 3f
|
1985-07-26 12:52:13 +00:00
|
|
|
envp:
|
1987-01-16 16:34:45 +00:00
|
|
|
.data4 0
|
1985-07-26 12:52:13 +00:00
|
|
|
3:
|
|
|
|
|
.asciz 'PROGRAM'
|
|
|
|
|
.reghp:
|
1987-01-16 16:34:45 +00:00
|
|
|
.data4 endbss
|
1985-07-26 12:52:13 +00:00
|
|
|
.ignmask:
|
1987-01-16 16:34:45 +00:00
|
|
|
.data2 0
|
1985-07-26 12:52:13 +00:00
|
|
|
.trpreg:
|
1987-01-16 16:34:45 +00:00
|
|
|
.data4 0
|
