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