Trailing-Edge
-
PDP-10 Archives
-
BB-H064A-SM
-
sources/cntlc.mac
There are no other files named cntlc.mac in the archive.
TITLE CNTLC CONTROL C TRAPPING SUBROUTINE
ENTRY SETCTP,CCRSET,CTPCNT
EXTERN .JBINT ;SYSTEM SYMBOL
;
; COPYRIGHT (C) 1976,1977 BY
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;*************************************************
;* AUTHOR - D. GODING CH2M HILL INC. *
;* DATE - 2/13/75 *
;* COPYRIGHT [C] 1975, D. GODING CORVALLIS, OR *
;* ALL RIGHTS RESERVED. THIS PROGRAM NOT TO *
;* ALTERED OR REPRODUCED WITHOUT CONSENT OF *
;* THE AUTHOR. *
;*************************************************
ACC1==1 ;USE ACCUMULATOR 1
XR17==17 ;XR 17 POINTS TO STACK (LIBF TV)
ARG==16 ;XR 16 POINTS TO ARG LISTS
P==XR17 ;P STANDARD LABEL USED
INTBK: XWD 4,BMPCT ;NO. WDS IN BLK, LOC TO RSTRT
XWD 0,2 ;TYPE ANY ERRORS, BIT 34 FOR CTL C
BSTOR: Z ;GETS ADDR CTL C'D AT (BSI'D FROM)
Z ;CHNL NO., ERROR BITS
SAVE: Z ;TEMP WORKING LOCN
JBINT: Z ;LOCN TO HOLD .JBINT
COUNT: Z ;CONTROL C COUNTER
LIMIT: DEC 30 ;MAX NUMBER CNTL C'S ALLOWED
MANY: Z ;HOW MANY COUNTER
;*****************************************************
;* *
;* ENTRY POINT SETCTP - SETS UP THE CONTROL C *
;* TRAP IN .JBINT FOR USER TRAPPING. MISC THINGS *
;* CLEARED AND RESET.