Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50126/c15ddm.mac
There are no other files named c15ddm.mac in the archive.
;
TITLE CPUDDM MIMIC-15 CENTRAL PROCESSOR DESCRIPTOR
IFNDEF EAE,< EAE==0>
;
ENTRY CPUDDM
EXTERN .READ,.WRITE,.LOADR,.TRDN,.BLDUP,.FETCH,ADDRNT
EXTERN BRSET,SLPCHK,CPURD,CPUWR,CPURST,NULL,.FLAGS
INTERN ITIM,EAEACS,SMQ,SLAC,LDRUCB,SYSLST,SR,BRKARY
INTERN CPUUCB,SC,OLDPC,STM,SIO,C,RELOCC
INTERN LR,XR,TRAPS,SPC,LDRBUF,LDRDAT,LDRADR,LDRFLG
;
CPUDDM: DDM1 CPU,CPURDB,CPUUCB
DDM2 10,^D15,10,^D18
DDM3 QADR+QFIX+QBRK,^D18,MEMSIZ
DDM4 CPURD,CPUWR,CPURST,ADDRNT,BRSET,SLPCHK
;
CPUUCB: UCB CPU,0,CPUDDM,NULL,0,QADR+QFIX+QBRK
;
EAEACS: Z ;EAE AC SIGN
OLDPC: Z ;OLD PC
SC: Z ;SHIFT COUNTER
SR: Z ;SWITCH REGISTER
LR: Z ;LIMIT REGISTER.
XR: Z ;INDEX REGISTER.
;
ITIM: Z ;INTERVAL TIMER.
Z ;LAST UPDATE OF ITIM.
TRAPS: 200000000000 ;SET ILLMEM ON.
STM: Z ;SAVED LIVE REGISTERS: TIME
SIO: Z ;I-O FLAGS BM, UM, DBR, ETC.
SIR: Z ;INSTRUCTION REGISTER
SPC: Z ;PROGRAM COUNTER
SLAC: Z ;LINK AC
SMQ: Z ;MQ
SMA: Z ;MEMORY ADDRESS
SMB: Z ;MEMORY BUFFER
BLOCK 3 ;INDEX REGISTERS
;
SUBTTL MIMIC-15 DDM HEADER AND UCB
SUBTTL MIMIC-15 REGISTER DESCRIPTION BLOCKS
;
CPURDB: RDB AC,SLAC,18 ;REGISTERS: AC
;
RDB XR,XR,18
;
RDB LR,LR,18
;
FLG EXT,SIO,0
FLG BNK,SIO,0
FLG PROT,SIO,1
;
RDB SR,SR,18 ;SWITCHES
;
CPUPC: RDB PC,SPC,18 ;PC
;
RDB STAT,SIO,19 ;I/O STATUS.
;
DRDB CORE,CPUDDM+DNFRM,18,P
;
RDB OLDPC,OLDPC,18,P ;OLD PC
;
FLG L,SLAC,^D17 ;LINK
;
FLG LINK,SLAC,^D17
;
IFN EAE,<
RDB MQ,SMQ,18
RDB SC,SC,6
>
;
DRDB TM,STM,36,P
DRDB ITM,ITIM,36 ;INTERVAL TIMER
;
RDB IR,SIR,4,P
;
RDB MA,SMA,15,P
;
RDB MB,SMB,18,P
;
RDB ASR,RELOCC,15
;
RDB LDRFLG,LDRFLG,2
;
FLG SINGLE,.FLAGS,1
;
FLG SI,.FLAGS,1
;
FLG ILLEG,TRAPS,0
;
FLG ILLMEM,TRAPS,1
;
FLG ION,SIO,^D18 ;INTERRUPTS ENABLED.
Z
;
SUBTTL MIMIC-15 CORE STORAGE
;
;
IFNDEF CPU,<CPU=^D12>
MEMSIZ=CPU*^D1024
C: XLIST ;UNLIST CORE ARRAY
REPEAT <MEMSIZ/2>,<0>
BRKARY: REPEAT <MEMSIZ/^D32>,<0>
LIST
;
SUBTTL MIMIC-15 SYSLST BLOCK
;
SYSLST: SIXBIT /PDP15/
Z,.FETCH
Z,CPUPC
XWD .LOADR,LDRUCB
Z,.BLDUP
Z,.TRDN
DDM3 QADR+QRD+QATBL,^D36,0
Z,STM
;
LDRUCB: UCB LDR,0,SYSLST,NULL,0,QADR+QRD+QATBL
;
RELOCC: Z
LDRADR: Z
LDRDAT: Z
LDRFLG: Z
END