DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T c

⟦348c77584⟧ TextFile

    Length: 802 (0x322)
    Types: TextFile
    Names: »crt0.s«

Derivation

└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦3b20aab50⟧ »EurOpenD3/network/snmp/kip-snmp.91.tar.Z« 
        └─⟦b503a39fe⟧ 
            └─⟦this⟧ »kip/crt0.s«

TextFile

| C run-time startup kfps

| Copyright (c) 1986 Kinetics, Inc.
| May be used but not sold without permission.

| $Header: crt0.s,v 4.1 88/11/01 19:47:54 sw0l Exp $

include(`fp/kfps.h')

	.globl	_begin, _end, _edata
_begin:
| zero the bss
	movl	#_end,d0
	movl	#_edata,a0
	subl	a0,d0
	asrl	#1,d0		| make word count
	jra	L2
L1:
	clrw	a0@+
L2:
	dbra	d0,L1
| save pointer to tables
ifdef(`flexnames',`
	.globl	table_ptr
	movl	sp,table_ptr
',`
	.globl	_table_p
	movl	sp,_table_p
')
| set stack ptr
|stack_size	= 512
stack_size	= 2048
ifdef(`flexnames',`
	lea	stack_a+stack_size,sp
| call main()
	jsr	main
| main not supposed to exit
|	illegal
	.word	0x4afc
	.comm	stack_a,stack_size
',`
	lea	_stack_a+stack_size,sp
| call main()
	jsr	_main
| main not supposed to exit
	illegal
	.comm	_stack_a,stack_size
')