Trailing-Edge
-
PDP-10 Archives
-
BB-Y393J-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