Google
 

Trailing-Edge - PDP-10 Archives - bb-k345a-sb - quikdm.ccl
There are 6 other files named quikdm.ccl in the archive. Click here to see a list.
00100	XTRACT
00200	D 'QUICK DUMP VERSION %3(32) [FILE SYS:QUIKDM.CCL]'
00300	D 'MONITOR INFORMATION<EL>'
00400	CAT CON
00500	MOD ASC
00600	WID 5
00700	D 'Monitor name ',[0&4<29>,' built on ',[5&6<29>
00800	WID
00900	MOD DEC
01000	D 'System serial number is ',[16
01100	MOD OCT
01200	D 'Monitor version is ',[28
01300	D '<EL><EL>JOB INFORMATION<EL>'
01400	MODE DEC
01500	CAT JOB
01600	D 'Dump taken ',([1-[1/372*372)/31+1,'-',([1-[1/372*372)-([1-[1/372*372)/31*31+1,'-',[1/372+64,' AT ',[2/3600000,':',([2-[2/3600000*3600000)/60000
01700	M SOCT
01800	D 'DAEMON version ',[0<3,9>,'(',[0<18,18>,')-',[0<0,3>
01900	M DEC
02000	D 'Job number ',[3<0,18>
02100	M SOC
02200	D 'TTY',[4<18,18>,' PPN [',[7<0,18>,',',[7<18,18>,'] Charge number ',[22
02300	M DEC
02400	D 'Run time =',[11/3600,' min. ',([11-[11/3600*3600)/60,' seconds'
02500	D 'Total KCS =',[12/60
02600	D 'Total of ',[16<12,24>,' Disk reads, ',[17<12,24>,' Disk writes'
02700	OR 2
02800	MODE NUMERIC
02900	D 'Priv. bits ',[13
03000	OR 8
03100	MOD DEC
03200	D 'There are ',[26<18,18>,' Real time devices in use'
03300	D 'Current HPQ is ',[26<6,4>,' last HPQ command was ',[26<4,2>
03400	MODE SIXBIT
03500	D 'HISEG name ',[19<0,24>,':',[10,'.SHR'
03600	mode soct
03700	D 'hiseg directory [',[8<0,18>,',',[8<18,18>,']'
03800	MODE SIXBIT
03900	WIDTH 6
04000	D 'User name is ',[20&21
04100	MODE DEC
04200	WIDTH
04300	D 'User core limit is ',[27<1,9>*512,' words'
04400	D 'User time limit is ',[27<18,18>/60,' seconds'
04500	MODE SIXBIT
04600	DUMP 'Program name is ',[9
04700	D '<FF><EL>CORE INFORMATION<EL>'
04800	IRADIX 8
04900	CAT CORE
05000	MODE OCTAL
05100	D 'PC = ',[73,' OPC = ',[130,'<EL>Last UUO at ',[45
05200	MODE SYM
05300	D 'Symbolic locations<EL>PC = ',[73,'<EL>OPC = ',[130,' <EL>last uuo at ',[45
05400	ADDR ON
05500	MOD OCT
05600	D 'ACS IN OCTAL:<EL>'
05700	D [0&17
05800	MODE DEC
05900	D 'ACS IN DECIMAL:<EL>'
06000	WIDTH 20
06100	JUSTIFY RIGHT
06200	D [0&17
06300	D '<EL>ACS IN SIXBIT:'
06400	MOD SIXBIT
06500	WIDTH 10
06600	D [0&17
06700	D '<EL>ACS IN ASCII:'
06800	MOD ASCII
06900	WIDTH 10
06950	D [0&17
07100	IR 10
07200	MODE SYM,OCT,DEC,SIX,ASC
07300	WIDTH 30,15,15,10,10
07400	JUST L,R,R,R,R
07500	RIGHTMARGIN 90
07600	IR 8
07700	TITLE AREAS POINTED TO BY THE AC'S
07800	EJECT
07900	D 'POINTED TO BY AC 0'
08000	D [((\0)-3)&((\0)+3)
08100	D '<EL>POINTED TO BY AC 1'
08200	D [((\1)-3)&((\1)+3)
08300	D '<EL>POINTED TO BY AC 2'
08400	D [((\2)-3)&((\2)+3)
08500	D '<EL>POINTED TO BY AC 3'
08600	D [((\3)-3)&((\3)+3)
08700	D '<FF>POINTED TO BY AC 4'
08800	D [((\4)-3)&((\4)+3)
08900	D '<EL>POINTED TO BY AC 5'
09000	D [((\5)-3)&((\5)+3
09100	D '<EL>POINTED TO BY AC 6'
09200	D [((\6)-3)&((\6)+3)
09300	D '<EL>POINTED TO BY AC 7'
09400	D [((\7)-3)&((\7)+3)
09500	D '<FF>POINTED TO BY AC 10'
09600	D [((\10)-3)&((\10)+3)
09700	D '<EL>POINTED TO BY AC 11'
09800	D [((\11)-3)&((\11)+3)
09900	D '<EL>POINTED TO BY AC 12'
10000	D [((\12)-3)&((\12)+3)
10100	D '<EL>POINTED TO BY AC 13'
10200	D [((\13)-3)&((\13)+3)
10300	D '<FF>POINTED TO BY AC 14'
10400	D [((\14)-3)&((\14)+3)
10500	D '<EL>POINTED TO BY AC 15'
10600	D [((\15)-3)&((\15)+3)
10700	D '<EL>POINTED TO BY AC 16'
10800	D [((\16)-3)&((\16)+3)
10900	D '<EL>POINTED TO BY AC 17'
11000	D [((\17)-3)&((\17)+3)
11100	TITLE NEAR LAST PC OR UUO
11200	EJECT
11222	D '<HT>        INSTRUCTION                OCTAL        DECIMAL      SIXBIT    ASCII'
11300	D [([73<5,1>*[73<22,22>-([73<5,1>-1)*[45<22,22>-200)&([73<5,1>*[73<22,22>-([73<5,1>-1)*[45<22,22>+200)
11400	CLOSE