DataMuseum.dk

top - download

    Length: 1408 (0x580)
    Types: TextFile
    Names: »KONSOL.A86«

└─⟦490a8e2df⟧ Bits:30003937 SW1501 RcComal-80 v3.0 (thykier)
    └─ ⟦this⟧ »KONSOL.A86« 
└─⟦72a4952a6⟧ Bits:30004362 SW1501 RcComal-80 v3.0
    └─ ⟦this⟧ »KONSOL.A86« 
└─⟦dcb507fe6⟧ Bits:30003936 SW1501 RcComal-80 v3.0 (ils)
    └─ ⟦this⟧ »KONSOL.A86« 

TextFile

CSEG
VER		DW 	VERSNO		;
PACKTYPE	DW	ASSEMBLER	;
DOC		DW	0		;
INIT		DW	OFFSET FINITO	;
EXIT		DW	0		;



		DB	5,'LÅSOP' 	; PROC låsop;
		DB	PROC		;
		DW	0		; ingen dokumentation
		DW	OFFSET unlock_c	;
		DB	0		;

		DB	3,'LÅS' 	; FUNC lås;
		DB	REALFUNC	;
		DW	0		; ingen dokumentation
		DW	OFFSET lock_c	;
		DB	0		;


		DB	0		; ikke flere procedurer og funktioner
		DW	OFFSET RESERVER	;
		DW	ASSEMBLER	;


INCLUDE	ASSEMBL.A86



ccb_size	equ	02ch
ccb_state	equ	word ptr 0eh
sy_ccb		equ	054h
cf_noswitch	equ	00008h

lock_c:			; lock console
        call	osvalues
	call	getccbadr
	mov	bx,ccbadr
	push	ds
	mov	ds,sysdat
	cmp	ccb_stateÆbxÅ,0
	je	foreg	;
	pop	ds	;
	mov	ax,0	; error consol not in foregr
	jmp	lock_ret;
foreg:
	or	ccb_stateÆbxÅ,cf_noswitch
	pop	ds	;
	mov	ax,1	; ok result
lock_ret:
	mov	BX,ax	;
	CALL	REALRES	;
	jmp	finito	;


unlock_c:		; unlock console
        call	osvalues
	call	getccbadr
	mov	bx,ccbadr
	push	ds
	mov	ds,sysdat
	and	ccb_stateÆbxÅ,not cf_noswitch
	pop	ds	;
	jmp	finito	;

osvalues:
	push	es	;
	mov	cl,154	;
	int	224	; call bdos
	mov	sysdat,es
	pop	es	;
	ret		;

getccbadr:
	mov	cl,153	;
	int	224	;
	xor	ah,ah	;
	mov	cx,ccb_size
	mul	cx	;
	push	ds	;
	mov	ds,sysdat
	add	ax,.sy_ccb
	pop	ds	;
	mov	ccbadr,ax
	ret		;

DSEG	$


sysdat	dw	0	;
ccbadr	dw	0	;


END
«eof»