DataMuseum.dk

top - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »PA07«

└─⟦07d8a3fd1⟧ Bits:30001821 SG0120 Floppy
    └─ ⟦this⟧ »/PA07« 
└─⟦64c9bf6e6⟧ Bits:30001803 SG0023 Floppy
    └─ ⟦this⟧ »/PA07« 

TextFile

; FILENAME PA007
; IF ASSEMBLED WITH THE COMMAND
;    DOMAC BIN.<FILENAME> PA007
; THEN <FILENAME> SHOULD BE LOADED BEFORE COPS
; OR LINKED BEFORE COPS (NON-DOMUS)
;
.TITL	PRM03	; PARAMETER-PROCESS   79.08.31 PL/CB/HD/HN/MBDN
.NREL
.RDX	10
.TXTM	1

NUUSER=	4	; NUMBER OF USERS (BASIC-TERMINALS)
MATER=	00	; MASTER TERMINAL (CONSOLE: 32, OTHERWISE
		;   AMX-CHANNELNUMBER)
		; DEVICE-CONFIGURATION:
		; 1: DEVICE INCLUDED
		; 0: DEVICE EXCLUDED
.LPT=	0	; LINEPRINTER ($LPT)
.PTR=	0	; PAPERTAPE READER ($PTR)
.PTP=	0	; PAPERTAPE PUNCH ($PTP)
.MCDR=	1	; MARK-SENCE CARDREADER ($MCDR)
.CDR=	0	; CARD READER ($CDR)  EBCDIC
.TTY=	1	; CONSOLE USED AS A DEVICE ($TTY)
		;   ONLY IF NOT USED AS A TERMINAL
.SP=	1	; SERIAL PRINTER ($SP)

KPROG=	8	; SIZE OF PROGRAM SEGMENT (K WORDS) DOMUS SYSTEMS
KDATA=	8	; SIZE OF DATA SEGMENT (K WORDS) DOMUS SYSTEMS
KWORDS=	32	; CORE SIZE (K WORDS) NON-DOMUS SYSTEMS
DOMUS=0		; 1: DOMUS-SYSTEM, 0: MUS-SYSTEM

SIZEPRUSER=250	; SIZE OF COROUTINEDESCR.
LDSHARES=2	; NUMBER OF LD-SHARES
LDZONES=9	; NUMBER OF LD-ZONES
INMODE=	45	; TERMINAL INPUT MODE
OUTMODE=8*256+7	; TERMINAL OUTPUTMODE
ATTMODE=21	; TERMINAL ATTENTION MODE
CFILE=	1B5	; TYPE OF PAGING DEVICE
PASTA=	0	; START OF PAGING DEVICE
STACA=	180	; START OF CALL/RETURN STACK
NUMSB=	NUUSER+2+(DOMUS*(LDSHARES+2)) ; MIN. NO. OF MESSBUFS
PARREV=	1	; REVISION OF PARAMETERS

; TERMINAL CHARACTERISTICA (FOR RC3682-MULTIPLEXER) :
; SPEED:

S110=	1B8+1B10+1B12+1B14	; 110 BAUD
S300=	1B9+1B11+1B13+1B15	; 300 BAUD
S600=	1B9+1B13		; 600 BAUD
S1200=	1B10+1B11+1B14+1B15	;1200 BAUD
S2400=	1B10+1B14		;2400 BAUD
S4800=	1B11+1B15		;4800 BAUD
S9600=	0			;9600 BAUD

; PARITY:

EVP=	1B0+1B3+1B5+1B7		; EVEN PARITY
NOP=	1B0+1B3+1B4+1B6+1B7	; NO PARITY
ODP=	1B0+1B3+1B7		; ODD PARITY
«ff»

PP00:			; PROGRAM START
	1B0+1B15	; DESCRIPTOR
	PP05		; START
	0		; CHAIN
	PP10-PP00	; SIZE
	.TXT	.BASPA.	; NAME

PP05:			;
	STOPPROCESS	;
	JMP	PP05	;



PP10:			; PROCESSDESCRIPTOR:
	0		; NEXT
	0		; PREV
	0		; CHAIN
	PP15-PP10	; SIZE
	.TXT	.BASPA.	; NAME
	.+0		; FIRST EVENT
	.-1		; LAST EVENT
	0		; BUFFE
	PP00		; PROGRAM
	0		; STATE
	0		; TIMER
	1		; PRIORITY
	PP05		; BREAK
	PP10		; AC0
	0		; AC1
	PP10		; AC2
	0		; AC3
	PP05*2		; PSW
			; PARAMETERS USED BY COPS:
	STACA		; -2 : START OF CALL/RETURN-STACK
	.TXT	.$MCDR.	; -1 - +1 : NAME AF BATCH-DEVICE
			;           (3 WORDS)
			; +2 - +4 NAME OF SYSTEM PRINTER
			;           (3 WORDS)
**	.PUSH	.NOCON
**	.NOCON 1
**	.DO	.LPT==1
	.TXT	.$LPT<0>.;
**	.ENDC	ELSE
**	.DO	.SP==1
	.TXT	.$LPT<0>.;
**	.ENDC	ELSE
**	.DO	.TTY==1
	.TXT	.$TTY<0>.;
**	.ENDC	ELSE
	.TXT	.$LPT<0>.;
**	ÆELSEÅ
**	.NOCON	.POP
	INMODE		; +5 : INMODE
	OUTMODE		; +6 : OUTMODE
	ATTMODE		; +7 : ATTMODE
	TERMTAB		; +8 : ADDR OF TERMINAL TABLE
	CFILE		; +9 : CFILE (1B5: CATFILE)
	.TXT	.COPSP.	;+10 : NAME OF PAGING DEVICE
«ff»

	PASTA		;+13 : START OF PAGING AREA
	KPROG*1024	;+14 : SIZE OF PROGRAMSEGMENT
	KPROG+KDATA*1024;+15 : TOTAL SIZE OF USER ADDRESS SPACE
	KPROG+KDATA*4	;+16 : SIZE OF PAGETABLE
	-(KPROG+KDATA*4);+17 : - SIZE OF PAGETABLE
	KWORDS*1024-1	;+18 : NUMBER OF WORDS (NOT DOMUS-SYSTEMS)
	LDZONES+2	;+19 : LDZONES
	LDSHARES	;+20 : LDSHARES
	NUMSB		;+21 : NUMBER OF MESSAGE BUFFERS
	MATER		;+22 : MASTER TERMINAL
	SIZEPRUSER	;+23 : SIZE OF COROUTINEDESCR.
	NUUSER		;+24 : NUMBER OF USERS

			;+25 :  DEVICE TABLE:
	.LPT		;
	.PTR		;
	.PTP		;
	.MCDR		;
	.CDR		;
	.TTY		;
	.SP		;
	1		;+32 : AMX
	-1		;+33 : TERMINATION
	.BLK	8	;+34 - +41 : FOR FUTURE USE
	PARREV		;+42 : REVISION OF PARAMETERS
	.TXT	.LIB<0><0><0><0>.
			;+43 : +46 : NAME OF SYSTEM LIBRARY
			;		( 4 WORDS )
		   	;
TERMTAB:		;      TERMINAL TABLE:
			;      3 WORDS FOR EACH TERMINAL:
			;   1: TERMINAL NO
			;   2: LINE CHARACTERISTICA
			;      ( ONLY WHEN RC3682 AMX )
			;   3: 0
			;      TERMINATE WITH -1

	0
	S2400+EVP
	0

	1
	S4800+EVP
	0

	2
	S9600+EVP
	0

	3
	S9600+EVP
	0

	-1		;    : TERMINATION

PP15:			;
		.END	PP10
«ff»
«nul»