.TITLE JCF$ARGGETERS .PSECT $CODE$,NOWRT,2 .ENTRY JCF$NARG, ^M<> ;JCF$NARG, Save nothing ; 0014 MOVL 8(SP), R0 ;8(FP), AP ; 0038 MOVZBL (R0), R0 ;(AP), R0 ; 0039 RET ; ; 0014 .ENTRY JCF$GET_ACTUAL, ^M<> ;JCF$GET_ACTUAL, Save nothing ; 0042 MOVL 8(SP), R1 ;8(FP), AP ; 0069 MOVL @4(AP), R0 ;@INDEX, R0 ; 0070 BNEQ 1$ ;1$ ; MOVZBL (R1), R0 ;(AP), R0 ; RET ; ; 1$: MOVL (R1)[R0], R0 ;(AP)[R0], R0 ; RET ; ; 0042 .ENTRY JCF$GET_IARG, ^M<> ;JCF$GET_IARG, Save nothing ; 0074 MOVL 8(SP), R1 ;8(FP), AP ; 0098 MOVL @4(AP), R0 ;@WHICHONE, R0 ; 0099 BLSS 1$ ;1$ ; CMPZV #0, #8, (R1), R0 ;#0, #8, (AP), R0 ; BGEQ 2$ ;2$ ; 1$: CLRL R0 ;R0 ; RET ; ; 2$: MOVL (R1)[R0], R0 ;(AP)[R0], R0 ; 0100 MOVL (R0), R0 ;(R0), R0 ; 0099 RET ; ; 0074 .ENTRY JCF$GET_RARG, ^M<> ;JCF$GET_RARG, Save nothing ; 0103 MOVL 8(SP), R1 ;8(FP), AP ; 0127 MOVL @4(AP), R0 ;@WHICHONE, R0 ; 0128 BLSS 1$ ;1$ ; CMPZV #0, #8, (R1), R0 ;#0, #8, (AP), R0 ; BGEQ 2$ ;2$ ; 1$: CLRL R0 ;R0 ; RET ; ; 2$: MOVL (R1)[R0], R0 ;(AP)[R0], R0 ; 0129 MOVL (R0), R0 ;(R0), R0 ; 0128 RET ; ; 0103 .END