Trailing-Edge
-
PDP-10 Archives
-
bb-jr93f-bb
-
7,6/ap013/setret.c13
There are 10 other files named setret.c13 in the archive. Click here to see a list.
REP 17/1 ;13C1
;V10 *****
; 15-DEC-74 /ACK ADDED ROUTINES SET1. AND SET2.
; 5/15/75 /DBT ADDED BSET1. AND BSET2. FOR BIS
;*****
WIT
;V10 *****
; 15-DEC-74 /ACK ADDED ROUTINES SET1. AND SET2.
; 5/15/75 /DBT ADDED BSET1. AND BSET2. FOR BIS
;*****
REP 28/1 ;13C2
WIT
REP 2/2 ;13C3
COMMENT \
THIS ROUTINE SETS UP A SINGLE PARAMETER.
WIT
COMMENT \
THIS ROUTINE SETS UP A SINGLE PARAMETER.
REP 11/2 ;13C4
WIT
REP 17/2 ;13C5
WIT
REP 27/2 ;13C6
WIT
REP 31/2 ;13C7
REGISTERS MODIFIED:
SW, CH, IPTR, CNT
WIT
REGISTERS MODIFIED:
SW, CH, IPTR, CNT
REP 2/4 ;13C8
COMMENT \
THIS ROUTINE SETS UP TWO PARAMETERS.
CALL:
JSP JAC, SET2.
INPUT CONDITIONS:
RH(PARM) POINTS AT THE FIRST PARAMETER.
WIT
COMMENT \
THIS ROUTINE SETS UP TWO PARAMETERS.
CALL:
JSP JAC, SET2.
INPUT CONDITIONS:
RH(PARM) POINTS AT THE FIRST PARAMETER.
REP 17/4 ;13C9
WIT
REP 21/4 ;13C10
REGISTERS MODIFIED:
IPTR, OTPR, CNT
\
WIT
REGISTERS MODIFIED:
IPTR, OTPR, CNT
\
REP 42/4 ;13C11
;POINTERS TO VARIOUS FIELDS IN THE PARAMETERS.
SLPTR1: POINT 11,IPTR,17 ;POINTS AT THE LENGTH FIELD FOR ONE
; PARAMETER ROUTINES.
SLPTR2: POINT 11,OPTR,17 ;POINTS AT THE LENGTH FIELD FOR TWO
; PARAMETER ROUTINES.
INTERN PTIBS.
WIT
;POINTERS TO VARIOUS FIELDS IN THE PARAMETERS.
SLPTR1: POINT 11,IPTR,17 ;POINTS AT THE LENGTH FIELD FOR ONE
; PARAMETER ROUTINES.
SLPTR2:
IFN BIS,< ;[1144]
POINT 11,OPTR,17 ;POINTS AT THE LENGTH FIELD FOR TWO
> ;END IFN BIS
IFE BIS,<
POINT 12,OPTR,17 ;[1144] Grab 12 bits rather than 11 for non-bis
> ;END IFE BIS
INTERN PTIBS. ; PARAMETER ROUTINES.
REP 56/4 ;13C12
WIT
REP 75/4 ;13C13
;POINTERS TO VARIOUS FIELDS IN THE PARAMETERS.
WIT
;POINTERS TO VARIOUS FIELDS IN THE PARAMETERS.
REP 86/4 ;13C14
WIT
SUM 226510