Google
 

Trailing-Edge - PDP-10 Archives - BB-Y393Q-SM - monitor-sources/proks.mac
There are 25 other files named proks.mac in the archive. Click here to see a list.
;<4-1-FIELD-IMAGE.MONITOR>PROKS.MAC.2, 25-Feb-82 20:45:58, EDIT BY DONAHUE
;UPDATE COPYRIGHT DATE
; UPD ID= 340, FARK:<4-WORKING-SOURCES.MONITOR>PROKS.MAC.3,  16-Dec-80 07:37:48 by DEUFEL
;Edit 1822 - Redefine KLIIWD fields so KLINIK modem handling will work.
; UPD ID= 338, FARK:<4-WORKING-SOURCES.MONITOR>PROKS.MAC.2,  16-Dec-80 01:16:20 by DEUFEL
;Edit 1821 - Add KL%CAR DEFINITION IN KLIIWD
;<4.MONITOR>PROKS.MAC.5,  3-Jan-80 08:10:21, EDIT BY R.ACE
;UPDATE COPYRIGHT DATE
;<4.MONITOR>PROKS.MAC.3, 17-Apr-79 14:19:02, Edit by LCAMPBELL
; Remove 2nd KMC11 defs, they belong in IMAN22
;<4.MONITOR>PROKS.MAC.2,  6-Mar-79 09:59:05, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<3A.MONITOR>PROKS.MAC.31,  3-Jan-79 11:58:31, Edit by LCAMPBELL
; Add definitions for second KMC11 (for ARPANET interface)
;<3A.MONITOR>PROKS.MAC.30,  4-May-78 01:15:08, Edit by MCLEAN
;PUT CHNON/CHNOFF BACK IN PROLOG
;<3A.MONITOR>PROKS.MAC.29, 27-Apr-78 21:05:43, Edit by MCLEAN
;<3A.MONITOR>PROKS.MAC.28, 15-Apr-78 16:18:43, Edit by MCLEAN
;<3A.MONITOR>PROKS.MAC.27, 15-Apr-78 00:41:10, Edit by MCLEAN
;<3A.MONITOR>PROKS.MAC.26, 10-Apr-78 18:16:28, Edit by MCLEAN
;<3A.MONITOR>PROKS.MAC.25,  9-Apr-78 14:24:41, Edit by MCLEAN
;<3A.MONITOR>PROKS.MAC.24,  9-Apr-78 14:15:42, Edit by MCLEAN
;<3A.MONITOR>PROKS.MAC.23, 17-Mar-78 12:34:48, Edit by MCCLURE
; ADD KMCADR
;<3A.MONITOR>PROKS.MAC.22, 10-Feb-78 15:41:57, Edit by MCLEAN
;FIX CD11BA FOR CORRECT CARDREADER EXTERNAL PAGE ADDRESS
;<3A.MONITOR>PROKS.MAC.21, 29-Jan-78 23:54:28, Edit by MCLEAN

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITHT THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976,1977,1978,1979,1980,1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

	UNIVERSAL PROKS
	SALL
	SEARCH MONSYM,MACSYM

IF2,<				;ONLY ONE PASS NEEDED
; EXTERNAL PAGE DEFINITIONS FOR UNIBUS ADAPTER

UBAEXP==:1763000		;ADDRESS OF UNIBUS ADAPTER (FIRST ADDRESS)
UB1EXP==:3763000		;ADDRESS OF UNIBUS ADAPTER (SECOND ADDRESS)
UB4EXP==:4763000		;UBA 4 (**NOT SHIPPED)
UNBSTW==:763100			;BASIC UNIBUS STATUS REGISTER ADDRESS (MINUS UNIT NUMBER)
UNBSTS==:100			;ADDRESS OF STATUS WORD (FIRST UNIBUS ADAPTER)

; BIT DEFINITIONS FOR STATUS WORD
UNBTMO==:1B18			;NON EX DEVICE (TIMEOUT)
UNBBME==:1B19			;BAD MEMORY
UNBBPE==:1B20			;SM10 BUS PARITY
UNBNED==:1B21			;NON EX CPU DEVICE
UNBACL==:1B26			;AC OR DC LOW (POWER FAIL ON UNIBUS)
UNBENI==:1B27			;ENABLE INTERNAL INTERRUPT
UNBDTR==:1B28			;DISABLE TRANSFER ON UNCORRECTABLE DATA
UBINIT==:1B29			;UNIBUS INIT

UBAMUL==:4000			;MULTIPLIER FOR UNIBUS ADDRESSES / PAGE RAM
UBAPGS==:100			;NUMBER OF MAPPING REGISTERS
MXUBWN==:100			;MAX MAPPING REGISTER
MXSMCH==:3			;MAX UNIBUS ADAPTER (ONLY ONE LEGAL FOR NOW)
UNBPAR=100000			;UNIBUS ADAPT PARITY BIT
UNBRPW==:400000			;READ/PAUSE/WRITE
UNBD18==:200000			;DISABLE 18 BIT MODE TRANSFER (16 BIT TRANSFERS)
UNB36B==:100000			;36 BIT MODE TRANSFERS
UNBVBT==:40000			;VALID TRANSFER BIT





;PHYSICAL CORE DEFINITIONS FOR SM10 CTY AND KLINIK SERVICE
; AND PHYSICAL CORE LOCATIONS FOR OTHER FRONT-END FUNCTIONS

TIMWD1==:27
RLWORD==:31			;RELOAD WORD
DEFSTR KSRLD,RLWORD,4,1		;RELOAD REQUEST
DEFSTR KPACT,RLWORD,5,1		;KEEP ALIVE ACTIVE
DEFSTR KLACT,RLWORD,6,1		;KLINIK ACTIVE
DEFSTR PAREN,RLWORD,7,1		;PARITY ERROR DETECT ENABLED
DEFSTR CRMPAR,RLWORD,8,1	;CRAM PAR ERR DETECT ENABLED
DEFSTR DRMPAR,RLWORD,9,1	;DRAM PAR ERR DETECT ENABLED
DEFSTR CASHEN,RLWORD,10,1	;CACHE ENABLED
DEFSTR MILSEN,RLWORD,11,1	;1MSEC ENABLED
DEFSTR KPALIV,RLWORD,28,8	;KEEP ALIVE WORD
DEFSTR PWRFAL,RLWORD,33,1	;POWER FAIL
DEFSTR FORREL,RLWORD,34,1	;FORCED RELOAD
DEFSTR KEPFAL,RLWORD,35,1	;KEEP ALIVE FAILURE


CTYIWD==:32			;CTY INPUT WORD
DEFSTR CTYICH,CTYIWD,35,8	;CTY INPUT CHARACTER
DEFSTR CTYIVL,CTYIWD,27,1	;INPUT VALID BIT

CTYOWD=33			;CTY OUTPUT WORD
DEFSTR CTYOCH,CTYOWD,35,8	;CTY OUTPUT CHARACTER
DEFSTR CTYOVL,CTYOWD,27,1	;OUTPUT VALID FLAG

KLIIWD==:34			;KLINIK INPUT WORD
DEFSTR KLIICH,KLIIWD,35,8	;KLINIK INPUT CHARACTER
;**;[1822] Replaced KLIIVL DEFSTR with KLIACT DEFSTR	DAD	16-DEC-80
DEFSTR KLIACT,KLIIWD,27,8	;[1822] KLINIK INPUT ACTIVITY FUNCTION FIELD
;**;[1822] Changed the following 3 function definitions	DAD	16-DEC-80
KLICHR==:1			;[1822] KLINIK CHARACTER
KLIINI==:2			;[1822] KLINIK INITED
KLICAR==:3			;[1822] CARRIER LOST
;**;[1822] Removed KL%CAR definitions..		DAD	16-DEC-80


KLIOWD==:35			;KLINIK OUTPUT WORD
DEFSTR KLIOCH,KLIOWD,35,8	;KLINIK OUTPUT CHARACTER
DEFSTR KLIOVL,KLIOWD,27,1	;KLINIK OUTPUT VALID
KLOCHR==:1B27			;KLINIK CHARACTER AVAILABLE
KLIHUP==:2B27			;KLINIK HANGUP REQUEST

; DZ11 DEFINITIONS

DZUBAD==:3763000		;ADDRESS OF UNIBUS ADAPTER
DZ110V==:340			;INTERRUPT VECTOR ADDRESS FOR FIRST DZ11
DZ11BA==:3760010		;BASE ADDRESS FOR FIRST DZ11
DZUBN==:3			;UNIBUS ADAPTER NUMBER FOR DZ33'S
DZMNV==:10			;SIZE OF EXTERNAL PAGE ADDRESSES
DZMAX==:4			;MAX NUMBER OF DZ11'S THAT ARE LEGAL

DZCTLN==:1			;CTY LINE NUMBER FOR CTYTCR

;CSR BIT DEFINITIONS

DZTRDY==:1B20			;TRANSMIT READY
DZTIEN==:1B21			;TRANSMIT INTERRUPT ENABLE
DZSILO==:1B22			;SILO ALARM
DZSIEN==:1B23			;SILO ALARM ENABLE
DZTXLN==:7B27			;TRANSMIT LINE NUMBER
DZRRDY==:1B28			;RECEIVE READY
DZRIEN==:1B29			;RECIEVE INTERRUPT ENABLE
DZMSCN==:1B30			;MASTER SCAN ENABLE
DZCLR==:1B31			;CLEAR (RESET)

;RECEIVER BUFFER DEFINITIONS

DZRDVL==:1B20			;DATA VALID
DZROVR==:1B21			;OVER RUN
DZRFRM==:1B22			;FRAME ERROR
DZRPAR==:1B23			;PARITY ERROR
DZRLIN==:7B27			;LINE NUMBER

;LINE PARAMETER DEFINITIONS

DZ1RXO==:1B23			;RECEIVE ON
DZ1FRQ==:4B27			;LINE FREQUENCY
DZ1OPA==:1B28			;ODD PARITY
DZ1PEN==:1B29			;PARITY ENABLE
DZ1STP==:0			;STOPCODE
DZ2STP==:1B30			;STOPCODE 2 BITS
DZ1CHL==:3B32			;CHARACTER LENGTH
   DZ8BIT==:30			;8BIT CHARACTER DEFINITION
DZ1LNO==:7B35			;LINE NUMBER

;DZ11 OFFSET INTO DEVICE DEFINITIONS

DZCSR==:0			;CONTROL AND STATUS
DZRBUF==:2			;RECEIVER BUFFER
DZLPR==:2			;LINE PARAMETER REGISTER
DZTCR==:4			;TRANSMIT CONTROL
DZDTR==:5			;DATA TERM READY FLAGS (HIGH BYTE OF TCR
DZRNG==:6			;RING INDICATOR
DZCAR==:7			;CARRIER
DZTBUF==:6			;TRANSMITTER BUFFER
DZBRK==:7			;BREAK (HIGH OF TBUF)


;KMC11 DEFINITIONS

	KMCADR==:3760540	;ADDRESS OF KMC11
	KMCUBN==:3		;UNIBUS NUMBER TO USE FOR KMC11
	KMCVEC==:000540		;VECTOR OF KMC11


;RH11 DEFINITIONS

RH11CA==:1776700		;FIRST ADDRESS OF RH11
RH21CA==:3772440		;SECOND RH11
RH11IV==:254			;INTERRUPT VECTOR ADDRESS
RH21IV==:224			;INTERRUPT VECTOR ADDRESS OF 2ND RH

RH11UB==:1			;UNIBUS NUMBER FOR FIRST RH11
RH21UB==:3			;UNIBUS NUMBER FOR SECOND RH11

;

;LP20 DEFINITIONS

LPTUBN==:3			;UNIBUS NUMBER TO USE FOR LINEPRINTER
LP11CA==:3775400		;EXTERNAL PAGE ADDRESS OF FIRST LP20
LP11IV==:754
LPEXPE==:20			;SIZE OF EXTERNAL PAGE ADDRESSES


; OFFSETS INTO THE EXTERNAL PAGE REGISTERS

LPCSRA==:0			;CONTROL AND STATUS REGISTER A
LPCSRB==:2			;CONTROL AND STATUS REGISTER B
LPBSAD==:4			;BUS ADDRESS REGISTER (CURRENT ADDRESS)
LPBCTR==:6			;BYTE COUNT REGISTER (2'S COMPLEMENT)
LPPCTR==:10			;PAGE COUNTER
LPRAMD==:12			;RAM DATA REGISTER
LPCBUF==:14			;(BYTE) CHARACTER BUFFER REGISTER
LPCCTR==:15			;(BYTE) COLUMN COUNT REGISTER
LPTDAT==:16			;(BYTE) PRINTER DATA REGISTER
LPCKSM==:17			;(BYTE) CHECKSUM REGISTER

;WORD BIT DEFINITIONS IN LPCSRA

LPWDON==:000200			;LP DONE
LPWIEN==:000100			;LP INTERRUPT ENABLE
LPWA17==:40			;B17 OF PDP-11 ADDRESS (EXTENDED)
LPWA16==:20			;B16
LPWDVU==:000010			;LOAD DAVFU
LPWTM==:000004			;TEST MODE
LPWPEN==:000002			;PARITY ENABLE
LPWGO==:000001			;GO
LPWERR==:<200>B<35-8>		;ERROR (COMPOSITE)
LPWPZR==:<100>B<35-8>		;PAGE COUNTER REACHED 0
LPWCI==:<40>B<35-8>		;UNDEFINED CHARACTER INTERRUPT
LPWDR==:<20>B<35-8>		;DAVFU READY
LPWOL==:<10>B<35-8>		;ON LINE
LPWDH==:<4>B<35-8>		;DELIMITER HOLD
LPWRSE==:<2>B<35-8>		;RESET ERROR
LPWINT==:<1>B<35-8>		;LP INITIALIZE


;BYTE BIT DEFINITIONS IN LPCSRA

LP1DON==:000200			;LP DONE
LP1IEN==:000100			;LP INTERRUPT ENABLE
LP1A17==:40			;B17 OF PDP-11 ADDRESS (EXTENDED)
LP1A16==:20			;B16
LP1DVU==:000010			;LOAD DAVFU
LP1TM==:000004			;TEST MODE
LP1PEN==:000002			;PARITY ENABLE
LP1GO==:000001			;GO

;BYTE BIT DEFINITIONS IN LPCSRA+1 (-11 LPCSRA BITS 15,14,13,12,11,10,9,8)

LP1ERR==:200			;ERROR (COMPOSITE)
LP1PZR==:100			;PAGE COUNTER REACHED 0
LP1CI==:40			;UNDEFINED CHARACTER INTERRUPT
LP1DR==:20			;DAVFU READY
LP1OL==:10			;ON LINE
LP1DH==:4			;DELIMITER HOLD
LP1RSE==:2			;RESET ERROR
LP1INT==:1			;LP INITIALIZE

;WORD LPCSRB BIT DEFINITIONS

LPWOFL==:000200			;OFF LINE
LPWDVN==:000100			;DAVFU NOT READY
LPWPER==:000040			;LINE PRINTER PARITY ERROR
LPWMPE==:000020			;MEMORY PARITY ERROR
LPWRPE==:000010			;RAM PARITY ERROR
LPWSYE==:000004			;MASTER SYNC ERROR
LPWDME==:000002			;DEMAND TIME-OUT ERROR
LPWGOE==:000001			;GO ERROR
LPWVDT==:200B<35-8>		;VALID DATA
LPWPNR==:40B<35-8>		;PRINTER NOT READY
LPWDPE==:20B<35-8>		;LINE PRINTER DATA PARITY ERROR
LPWOVF==:10B<35-8>		;OPTICAL VFU

;BYTE LPCSRB BIT DEFINITIONS

LP1OFL==:000200			;OFF LINE
LP1DVN==:000100			;DAVFU NOT READY
LP1PER==:000040			;LINE PRINTER PARITY ERROR
LP1MPE==:000020			;MEMORY PARITY ERROR
LP1RPE==:000010			;RAM PARITY ERROR
LP1SYE==:000004			;MASTER SYNC ERROR
LP1DME==:000002			;DEMAND TIME-OUT ERROR
LP1GOE==:000001			;GO ERROR

;BYTE LPCSRB+1 BIT DEFS

LP1VDT==:200			;VALID DATA
LP1PNR==:40			;PRINTER NOT READY
LP1DPE==:20			;LINE PRINTER DATA PARITY ERROR
LP1OVF==:10			;OPTICAL VFU
;
;DEFINITIONS FOR THE CD11
;
CD11BA==:3777160		;BASE ADDRESS
CDRIVT==:230/4			;INTERRUPT VECTOR LOCATION
CDST==:0			;STATUS AND CONTROL REGISTER
CDCC==:2			;COLUMN COUNT REGISTER
CDBA==:4			;BASE ADDRESS
CDDB==:6			;DATA BUFFER REGISTER


;STATUS REGISTER DEFINITIONS

CDERR1==:100000			;ERROR
CDRDK==:040000			;READER CHCK
CREOF==:020000			;END OF FILE
CDOFL==:010000			;OFF LINE
CDDER==:004000			;DATA ERROR
CDDLT==:002000			;DATA LATE
CDNXM==:001000			;NONEX MEM
CDPWR==:000400			;POWER CLEAR
CDRDY==:000200			;READY
CDIEN==:000100			;INTERRUPT ENABLE
CDTOL==:000010			;TRANSITION TO ON LINE
CDHCK==:000004			;HOPPER CHECK
CDDPK==:000002			;DATA PACKING
CDRED==:000001			;READ

;DEFINITIONS FOR CDDB
CDBRCK==:040000			;READ (PHOTO CHECK)
CDBPCK==:020000			;PICK CHECK
CDBSCK==:010000			;STACK CHECK
;PROCESSOR INSTRUCTIONS

GOPDEF CLRPT,<BLKO 10,0>	;CLEAR PAGE TABLE ENTRY FOR EFF ADR
GOPDEF APRID,<BLKI 0,0>		;GET PROCESSOR SERIAL NUMBER, ETC.

; OPDEF:S FOR SM10 UNIBUS ADAPTER

GOPDEF TIOE,<710000,,0>		;TEST IO NO MOD SKIP IF EQUAL
GOPDEF TIOEB,<720000,,0>	;TEST IO BYTE NO MOD SKIP IF EQUAL
GOPDEF TION,<711000,,0>		;TEST IO NO MOD SKIP IF NOT EQUAL
GOPDEF TIONB,<721000,,0>	;TEST IO BYTE NO MOD SKIP IF NOT EQUAL
GOPDEF RDIO,<712000,,0>		;READ I/O
GOPDEF RDIOB,<722000,,0>	;READ I/O BYTE
GOPDEF WRIO,<713000,,0>		;WRITE I/O
GOPDEF WRIOB,<723000,,0>	;WRITE I/O BYTE
GOPDEF BSIO,<714000,,0>		;BIT SET I/O
GOPDEF BSIOB,<724000,,0>	;BIT SET I/O BYTE
GOPDEF BCIO,<715000,,0>		;BIT CLEAR I/O
GOPDEF BCIOB,<725000,,0>	;BIT CLEAR I/O BYTE
GOPDEF WRSPB,<702400,,0>	;WRITE SPT BASE REGISTER
GOPDEF RDSPB,<702000,,0>	;READ SPT BASE REGISTER
GOPDEF WRCSB,<702440,,0>	;WRITE CORE STATUS TABLE BASE EGISTER
GOPDEF RDCSB,<702040,,0>	;READ CORE STATUS TABLE BASE REGISTER
GOPDEF WRPUR,<702500,,0>	;WRITE PROCESS USE REGISTER
GOPDEF RDPUR,<702100,,0>	;READ PROCESS USE REGISTER
GOPDEF WRCSTM,<702540,,0>	;WRITE CST MASK REGISTER
GOPDEF RDCSTM,<702140,,0>	;READ CST MASK REGISTER
GOPDEF WRTIME,<702600,,0>	;WRITE TIME BASE
GOPDEF RDTIME,<702200,,0>	;READ TIME BASE
GOPDEF WRINT,<702640,,0>	;WRITE INTERVAL TIMER
GOPDEF RDINT,<702240,,0>	;READ INTERVAL TIMER
GOPDEF RDHSB,<702300,,0>	;READ HALT STATUS BLOCK ADDRESS
GOPDEF WRHSB,<702700,,0>	;WRITE HALT STATUS BLOCK ADDRESS



;CONI/CONO PI
PI=:4				;DEVICE CODE FOR PI

PICHON=:1B25			;TURN CHANNELS ON
PICHOF=:1B26			;TURN CHANNELS OFF
;***** END OF IF2 AT BEGINNING OF FILE *****

>
	END