DataMuseum.dk

top - metrics - download

    Length: 5120 (0x1400)
    Types: TextFile
    Names: »REPAR«

└─⟦466f46364⟧ Bits:30001785 SG0005 Floppy
    └─⟦this⟧ »/REPAR« 

TextFile

.RDXO 10
; FILENAME APAR
; IF ASSEMBLED WITH THE COMMAND
;    DOMAC BIN.<FILENAME> APAR
; THEN <FILENAME> SHOULD BE LOADED BEFORE COPS
; OR LINKED BEFORE COPS (NON-DOMUS)
;
.TITL	PRM04	; PARAMETER-PROCESS   80.02.05
.NREL
.RDX	10
.TXTM	1

NUUSER=	5	; NUMBER OF USERS (BASIC-TERMINALS)
MATER=	32	; MASTER TERMINAL (CONSOLE: 32, OTHERWISE
		;   AMX-CHANNELNUMBER)
		; DEVICE-CONFIGURATION:
		; 1: DEVICE INCLUDED   0: DEVICE EXCLUDED
.LPT=	1	; LINEPRINTER ($LPT)
.PTR=	1	; PAPERTAPE READER ($PTR)
.PTP=	1	; PAPERTAPE PUNCH ($PTP)
.MCDR=	0	; MARK-SENCE CARDREADER ($MCDR)
.CDR=	0	; CARD READER ($CDR)  EBCDIC
.TTY=	0	; CONSOLE USED AS A DEVICE ($TTY)
		;   ONLY IF NOT USED AS A TERMINAL
.TTY1=	0	; SECOND TELETYPE; USER DEFINED DEVICE
		; I.E. PLOTTER
.SP=	0	; 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=1		; 1: DOMUS-SYSTEM, 0: MUS-SYSTEM

SIZEPRUSER=260	; 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=	190	; START OF CALL/RETURN STACK
NUMSB=	NUUSER+2+(DOMUS*(LDSHARES+2)) ; MIN. NO. OF MESSBUFS
PARREV=	2	; 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»
; CALCULATE THE SIZE OF NREL CORE NEEDED
;
; SIZE= (ZONE+SHHEAD+MESBUF+SHARES)* .DEVICE   <* .LPT *>
;
LPTS=	.LPT*(39+14+20+80)
PTRS=	.PTR*(39+14+20+60)
PTPS=	.PTP*(39+14+20+60)
MCRS=	.MCDR*(39+7+10+66)
CDRS=	.CDR*(39+7+10+40)
SPS=	.SP*(39+14+20+80)
TTYS=	.TTY*(39+7+10+66)
TTY1S=	.TTY1*(39+14+20+60)
AMXS=	NUUSER*(36+7+10+66)
;
;
.ZSIZE=	LPTS+PTRS+PTPS+MCRS+CDRS+SPS+TTYS+AMXS
;
MBFS=	NUMSB*10
;
PTS=	(24+(KPROG*4)+(KDATA*4))*NUUSER
;
USTORE=	0
.IFG	NUUSER-5
USTORE=	(NUUSER-5)*SIZEPRUSER
.ENDC
;
COPSC=	.ZSIZE+MBFS+PTS+USTORE+10+NUUSER
«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	.$SP<0><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		;
	.TTY1		;
	.SP		;
	1		;+33 : AMX
	-1		;+34 : TERMINATION
	.BLK	6	;+35 - +40 : FOR FUTURE USE
	COPSC		;+41 : NREL CORE SIZE
	PARREV		;+42 : REVISION OF PARAMETERS
	.TXT	.LIB<0><0><0><0>.
			;+43 : +46 : NAME OF SYSTEM LIBRARY
			;		( 4 WORDS )
«ff»
TERMTAB:		;      TERMINAL TABLE:
			;      3 WORDS FOR EACH TERMINAL:
			;   1: TERMINAL NO
			;   2: LINE CHARACTERISTICA
			;      ( ONLY WHEN RC3682 AMX )
			;   3: 0
			;      TERMINATE WITH -1
	32
	0
	0

	0
	0
	0

	1
	0
	0

	2
	0
	0

	3
	0
	0

	-1		;    : TERMINATION

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