Trailing-Edge
-
PDP-10 Archives
-
custsupcuspmar86_bb-x130b-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