MACRO 00001000
DBGSECT &SECT 00002000
AIF ('&SECT' EQ 'CSECT').CSECT 00003000
DBGSECT DSECT 00004000
AGO .CONT 00005000
.CSECT ANOP 00006000
DBGSECT DS 0D 00007000
ENTRY DBGSECT 00008000
.CONT ANOP 00009000
CCWPRINT CCW X'09',0,SILI,133 PRINTER CCW FOR DEBDUMP 00014000
* 00015000
SYMTABLE DS 32D USER DEFINED SYMBOL TABLE 00016000
SYMTBG DC F'0' SYMBOL TABLE ENTRIES @VA01159 00016100
* 00017000
BRKPNTBL DC 16F'0,-1' BREAKPOINT TABLE 00018000
TBLEND DC A(TBLEND) END ADDRESS OF BREAKPOINT TABLE 00019000
* 00020000
* STORAGE AND CONSTANTS FOR NEWLIN AND CONTROL 00021000
* 00022000
DS 0D 00023000
ARGS DS 5D ARGUMENTS STORED HERE 00024000
MVCNT1 EQU *-ARGS NUMBER OF BYTES IN ARGS 00025000
MVCNT EQU MVCNT1-8 NEEDED FOR SET GPR COMMAND 00026000
ARGMAX EQU * END OF ARGUMENT AREA 00027000
JFLAGS DS 6X FLAGS CORRESPONDING TO ARGS 00028000
* 00029000
* ONE FLAG FOR EACH PARAMETER: 00 = NUMERIC (0 - 9) 00030000
* F0 = HEX (A - F, 0 - 9) 00031000
* FF = ALPHABETIC (A - F) 00032000
* 00033000
ARGSCT DS 1X NUMBER OF ARGUMENTS IN COMMAND LINE 00034000
MVCNT2 EQU *-ARGS FOR INITIALIZING TO ZERO 00035000
* 00037000
DS 0D 00037100
WAITRD DC CL8'WAITRD' PARAMETER LIST TO GET INPUT LINE 00038000
DC A(INPUT) A(INPUT BUFFER) 00039000
DC C'U' CLEAN UP AND LOGICAL CARRIAGE RETURN 00040000
DC X'00' 00041000
WTRDCNT DC H'0' BYTE COUNT FILLED IN HERE 00042000
* 00043000
* 00045000
ORG DC F'0' ORIGIN OF ROUTINE BEING EXAMINED 00046000
* 00047000
* THE FOLLOWING VARIABLES ARE USED BY DEBUG AND DEBDUMP 00048000
* 00049000
DEC DS 1D BINARY WORD 00050000
DECDEC DS 1D DECIMAL WORD 00051000
* 00052000
ARGSAV DS 1F STORAGE FOR ARGUMENT LOCATION 00053000
RETSAV DS 1F STORAGE FOR RETURN ADDRESS 00054000
* 00055000
EXAMLC DS 1F FIRST LOCATION TO BE EXAMINED 00056000
EXAMLG DS 1F LENGTH OF FIELD TO BE EXAMINED 00057000
* 00058000
BEGAT DS 1F BEGINNING PARAMETER BEING PROCESSED 00059000
STOPAT DS 1F LAST PARAMETER LOCATION 00060000
* 00061000
LASTLINE EQU DECDEC 32 BYTES FOR LAST LINE DUMPED 00062000
* 00063000
SAVE1 DS 1F DEBDUMP USES FOR LINE COUNT 00064000
SAVE2 DS 1F 00065000
DBGSAV1 DS 16F DEBUG BALR-CALL SAVE @VA01039 00066000
DBGSAV2 DS 16F SAVE AREA FOR CONWAIT/CONREAD @VA01039 00067000
* 00068000
TSYM DS 4F SYMBOL ENTRY 00073000
* 00074000
XPSW DS 1D PSW TO BE LOADED UPON GO 00075000
* 00077000
OUTPT1 DC 1C' ' BYTE COUNT 00078000
LINE DC CL11' ' I/O BUFFER 00079000
LINE1 DC 87X'40' 00080000
LINE1B DC C'*' 00081000
LINE1A DC 32X'40' 00082000
LINE1C DC C'*' 00083000
LINE1D DC X'40' 00084000
DBGOUT EQU LINE OUTPUT BUFFER 00085000
INPUT EQU LINE INPUT BUFFER 00086000
INPUT1 EQU LINE+60 HEX PACK AREA 00087000
* 00088000
CONWR DS 0D PLIST TO TYPE OUTPUT LINE @VA01159 00089000
DC CL8'TYPLIN' @VA01159 00089100
DC AL1(1),AL3(DBGOUT) @VA01159 00089200
DC CL1'B',AL2(0) @VA01159 00089300
CONWRL DC AL1(0) @VA01159 00089400
* 00090000
INPUTSIZ DS 1H SIZE OF TYPED IN INPUT LINE 00091000
DC F'0' 00092000
CONHCT DC X'FAFBFCFDFEFF0000' 00093000
HEX DS 1F BINARY WORD 00094000
DC X'FFFFFFFF' 00095000
HEXHEX DS 2F PRINTER GRAPHIC WORD 00096000
DC X'FF' 00097000
BITS DC X'C0C0C0C0C0C0C0C0' 00098000
ORG *+14 00099000
DC C'0123456789' 00100000
DC C'ABCDEF' 00101000
CONHXT EQU CONHCT-C'A' 00102000
* 00103000
DBGSWTCH DC X'00' INTERNAL DEBUG STATUS FLAGS 00104000
* EQU X'80' UNUSED FLAG @VA01159 00105000
* EQU X'40' UNUSED FLAG @VA01159 00106000
DBDEXIT EQU X'20' SIGNALS EXIT FROM DEBDUMP 00107000
DBDDMSG EQU X'10' SIGNALS DUPLICATE MSG IN DEBDUMP 00108000
DBGSET EQU X'08' SIGNALS SET COMMAND 00109000
DBGPERM EQU X'04' RESERVED FOR FUTURE USE 00110000
DBGCOND EQU X'02' RESERVED FOR FUTURE USE 00111000
EJECT 00112000
* 00113000
* THE FOLLOWING RESERVED FOR FUTURE USE 00114000
* 00115000
YPSW DS D PSW CONTAINING NSI 00116000
TBLINDX DS F CURRENT BRKPT TABLE INDEX 00117000
BCR NOPR 0 NOPR TO PAD DBGXWK WHEN NEEDED 00118000
NOPR 0 ADDITIONAL NOPR (IF NEEDED) 00119000
ILC DS 1C ILC OF INSTRUCTION IN DBGXWK 00120000
ILC11 DC X'06' 3 HALFWORD INSTRUCTION ( 6 BYTES) 00121000
ILC0110 DC X'04' 2 HALFWORD INSTRUCTION ( 4 BYTES) 00122000
ILC00 DC X'02' 1 HALFWORD INSTRUCTION ( 2 BYTES) 00123000
BAL EQU X'45' BAL OP-CODE 00124000
BALR EQU X'05' BALR OP-CODE 00125000
DBGXWK DS 3H RECREATE INSTRUCTION AT BRKPT ADDR 00126000
LPSW 48 GIVE CONTROL TO NSI 00127000
* 00128000
EJECT 00129000
MEND 00130000