DataMuseum.dk

top - metrics - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »TCS.ASM«

└─⟦33b70227c⟧ Bits:30003931/GEM_Develop_disk_3_CDOS.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »TCS.ASM« 
└─⟦f18477172⟧ Bits:30003931/GEM_Develop_disk_1_CDOS.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »SAMP\TCS.ASM« 

TextFile

;/*	TCS.ASM		01/30/85 -  01/30/85	Tom Rolander		*/
;/*	Tiny CS								*/
;/* 	Modified for Lattice 3.0    03/17/86	Mitch Smith		*/
;

PUBLIC	stk

PGROUP	GROUP	BASE,PROG

BASE	SEGMENT	WORD PUBLIC 'PROG'
BASE	ENDS

DGROUP	GROUP	DATA,STACK

DATA	SEGMENT PARA PUBLIC 'DATA'
	PUBLIC	_PSP
_PSP	dw	0
	dw	0
	PUBLIC	_VER
_VER	db	"xxxxxxxxxx1.0"
	dw	1024 dup(?)
stk	dw	0
DATA	ENDS

STKRSV	EQU	32
STACK	SEGMENT STACK 'DATA'
SBASE	DW	STKRSV DUP (?) 
STACK	ENDS

PROG	SEGMENT	BYTE PUBLIC 'PROG'

	ASSUME	CS:PGROUP
	ASSUME	DS:DGROUP
;
;
	EXTRN	MAIN:NEAR
;
	cli
	mov	ax,dgroup
	mov	ds,ax
	mov	ss,ax
	mov	sp,offset dgroup:stk
	sti
;
	mov	ax,es			;es has our psp
	mov	_PSP+2,ax		;save for use by prostart
					;when it free's memory
	call	MAIN

	mov	ax,04c00h
	int	21h			;terminate
PROG	ENDS
;
	END
«eof»