ibm:vm370-lib:macro:dbgsect.macro_src
Table of Contents
DBGSECT Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- DBGSECT.MACRO.txt
- 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
ibm/vm370-lib/macro/dbgsect.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator