DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦e69510435⟧ TextFile

    Length: 1792 (0x700)
    Types: TextFile
    Names: »AM86MBUF.A86«

Derivation

└─⟦57f0389e8⟧ Bits:30005761 SW1611 Access Manager v. 1.0
    └─ ⟦this⟧ »AM86MBUF.A86« 

TextFile


;
;    AM86 Version 1.0R	January 6, 1983  2018
;			February 16, 1983  11:12
;
;    Copyright 1983 Digital Research, Inc.
;

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; O N L Y   T H E   F O L L O W I N G   F O U R   E Q U' S
;	S H O U L D   B E   M O D I F I E D.    T H E   R E S T   O F
;	T H I S   M O D U L E   S H O U L D   N O T   B E   C H A N G E D!

NOBUFFERS	EQU	20
NODESECTR	EQU	4
NOKEYFILS	EQU	41	;NOTE: ONE KEY FILE IS RESERVED FOR LOCK FILE
				;USE
NODATFILS	EQU	40

;
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

DGROUP	GROUP	IDATA

BUFMODSIZE	EQU	(NOKEYFILS*70)+(NODATFILS*198)+(NOBUFFERS*((NODESECTR*128)+160))

USRLSTBYTES	EQU	2
USIBYTES	EQU	USRLSTBYTES * NOKEYFILS
USDBYTES	EQU	USRLSTBYTES * NODATFILS

CODE	CSEG	PUBLIC

	PUBLIC	?AW48,?AZ03
?AW48:
	MOV	WORD PTR ?AW49,NOBUFFERS
	MOV	WORD PTR ?AW50,NODESECTR
	MOV	WORD PTR ?AW51,NOKEYFILS
	MOV	WORD PTR ?AW52,NODATFILS
	RET

?AZ03	DB	0AH,0DH
	DB	'--------------------------------------------------',0AH,0DH
	DB	'ACCESS MANAGER (tm) 8086               Version 1.0',0AH,0DH
	DB	'Serial No. 3046-0261-000003"   All Rights Reserved',0AH,0DH
	DB	'Copyright (c) 1982,1983     Digital Research, Inc.',0AH,0DH
	DB	'--------------------------------------------------',0AH,0DH
	DB	'$'

IDATA	DSEG	PUBLIC

	PUBLIC	AM8FCB,AM8END,?AW49,?AW50,?AW52,?AW51
	PUBLIC	?AW04,?AW05

?AW49	RW	1
?AW50	RW	1
?AW51	RW	1
?AW52	RW	1

?AW04	RB	USIBYTES
?AW05	RB	USDBYTES

AM8FCB	RW	1
	RS	BUFMODSIZE
						;DEFINES AMOUNT OF SPACE
AM8END	RB	1

	END
«eof»