HP 3000 Manuals HP 3000 Manuals
SWITCHING DISPLAY TO LINE PRINTER
If you are at a CRT terminal and want hard copy of your output, or if
your output does not easily fit a teleprinter (as in a memory dump), you
can switch your display to a line printer through the L command. In this
command, you identify the printer by a file reference. You must,
therefore, equate the file reference to a device in a :FILE command
before running your program in :DEBUG mode.
For example:
:FILE PRINTER;DEV=LP
:RUN YOURPROG; DEBUG
*DEBUG* 0.177
?L PRINTER (opens PRINTER and directs output to line printer)
When output is complete, and before exiting from DEBUG, enter an L
command to close the file PRINTER:
?L
Note that if your output is spooled, it will be printed after the line
printer is closed. TEXT ZONE
:RUN DBPROG1;DEBUG
*DEBUG* 0.172 --- 1
?B 165+ 12, 165+ 75 --- 2
?B@
LCST=0 ,P=262 \ 3
LCST=0 ,P=177 /
?R --- 4
*BREAK* 0.177
?D Q=6,3,I \ 8
Q+6 +13056 +00000 +00193 /
?D Q+3:,3,I \ 9
DB+26 +10000 +00700 +00800 /
?D Q+1 \
Q+1 000004 10
?D DB+4/2,A /
DB+2 DB /
?D DB+4/2,4,A
DB+2 DBTEST1
?D Q+2 \
Q+2 000014 11
?D 14/2,4,A /
DB+6 MAINPROG /
?D 14/2+4,4,A \
DB+12 MONE \
?D 14/2+4*3,4,A \
DB+22 MTHREE 12
?D #10,#12,A /
DB+12 MONE MTWO /
DB+22 MTHREE /
?D DB+31,2,I \ 13
DB+31 +00000 +00000 /
?B@ \ 3
LCST=0 ,P=262 /
?E --- 6
MAINPROG MONE MTWO MTHREE
CALLING SUBROUTINE
*BREAK* 0.262
?D Q+6, 3, I
Q+6 -00001 +00001 +00010
?D Q+3: ,3, I
DB+26 +10000 +00700 +00800
?D DB+31,2, I
DB+31 +00100 +01000
?M Q+#8, I \
Q+10 +00010 :=-20 14
?D Q+#8, I /
Q+10 -00016
?M Q+3:,5, I \
DB+26 +10000 :=#8 |
DB+27 +00700 :=#80 |
DB+30 +00800 := 15
DB+31 +00100 :=#8000 |
DB+32 +01000 :=#80000 | \ 16
:=#10000 / /
?D Q+3:,5,I
DB+26 +00008 +00080 +00800 +08000 +10000
?M Q+3:,5,I \
DB+6 MA:="SU" |
DB+7 IN:="B-" |
DB+ 10 PR:= 17
DR+ 11 OG:= |
?D DB+14/2,4,A |
DB+6 SUB-PROG /
?R 74 --- 5
Figure 3-3. DEBUG Example
*BREAK* 0.74
?DR,1,2,3,4 \ 18
1=0,2=0,3=0,4=0 /
?MR, 1 \
1=0:=077777 |
?M Q-6:,3,I |
DB+47 -00001 :=$1 19
DB+50 +00001 :=$1 |
DB+51 +00010 :=$1 |
?D Q-6:,3,I |
DB+47 +32767 +32767 +32767 /
?$2:=166666 \ 20
?$3:='DB+51' /
?='DB+51'/2 \
=37777 21
?=37777, I |
=+16383 /
?$4: = 'DB+51'/2 --- 22
?M DB+26,3,I
DB+26 +00008 :=$2
DB+27 +00080 :=$3
DB+30 +00900 :=$4
?D DB+26,3
DB+26 166666 077777 037777
?D DB+26,3,I
DB+26 -04682 +32767 +16383
?R 125 --- 23
SUBROUT SBONE SBTWO SBTHREE
*BREAK* 0.125
?D DB+47, 3, I
DB+47 -00009 +00009 +00090
?D DB+31,2,I
DB+31 +00900 +09000
?DR \
ST=60301,X=0,DL=177602,Q=62,S=62,Z=1475,P=125 18
1=0,2=0,3=0,4=0,LCST=0 /
?E@ --- 7
END OF PROGRAM
Figure 3-3. DEBUG Example (Continued)