Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-bb
-
forddt.c12
There is 1 other file named forddt.c12 in the archive. Click here to see a list.
REP 1/1 ;12C1
TITLE FORDDT FORTRAN INTERACTIVE DEBUGGING AID ,10(337)
SUBTTL P.E.T. HARDING/DBT/FLD/MD/JMT/MA/SJW/JNG/DCE/BPK/CKS/DCC/BAH/BL/TGS/MRB
; Brad Merrill/BCM/AlB/MEM 2-Oct-84
WIT
TITLE FORDDT FORTRAN INTERACTIVE DEBUGGING AID ,10(341)
SUBTTL P.E.T. HARDING/DBT/FLD/MD/JMT/MA/SJW/JNG/DCE/BPK/CKS/DCC/BAH/BL/TGS/MRB
; Brad Merrill/BCM/AlB/MEM/PLB 2-Jul-85
REP 24/1 ;12C2
EDITNO==334 ;EDIT NO
WIT
EDITNO==341 ;EDIT NO
REP 633/3 ;12C3
;;.ENDA 24-JUN-85
WIT
;.ENDA 24-JUN-85
;.AUTOPATCH 12
;.EDIT 340 FORDDT CRUSHES USER ACS
;; SAVACS was being used as scratch in PAUSE, START, and RESET
; PLB,2-JUL-85,SPR:20-20789
; A:SRC FORDDT.MAC
;;.EDIT 341 Reserved for autopatch
;;.ENDA 1-Aug-85
;;.ENDA 5-Sep-85
REP 20/18 ;12C4
MOVEM T0,SAVACS ;[332] SAVE BREAK ADDRESS
WIT
MOVEM T0,TEM10 ;[340] SAVE BREAK ADDRESS
REP 24/18 ;12C5
MOVEM T4,@SAVACS ;[332]
WIT
MOVEM T4,@TEM10 ;[340] STORE VIA BREAK ADDRESS
REP 69/24 ;12C6
MOVEM T4,SAVACS+4 ;[332]
XMOVEI T4,PAUERR ;[332]
MOVEM T4,@T0 ;[332]
MOVE T4,SAVACS+4 ;[332]
WIT
PUSH P,T4 ;[340] SAVE T4
XMOVEI T4,PAUERR ;[332]
MOVEM T4,@T0 ;[332]
POP P,T4 ;[340] RESTORE T4
REP 12/29 ;12C7
MOVEM T3,SAVACS+3 ;[332]
WIT
MOVEM T3,TEM11 ;[340] SAVE T3
REP 30/29 ;12C8
RESET3: MOVE T3,SAVACS+3 ;[332]
WIT
RESET3: MOVE T3,TEM11 ;[340] RESTORE T3, WAS NOT ERROR PAUSE
INS 36/133 ;12C9
TEM10: BLOCK 1 ;[340] Temp in START
TEM11: BLOCK 1 ;[340] Temp in PAUSE
SUM 109859