.TITLE FDT .CSECT $FDT .=.+436 ARTN: .WORD 0 ;ADDRESS OF ACTIVE ROUTINE .=.+42 MOV (R3)+,R2 ;NUMBER OF FORMAL PARAMETERS MOV @R3,R3 ;POINT TO START OF PARAMETER BLOCK MOV R3,ARTN ;SAVE ADDRESS OF DATA AREA MOV (R5)+,R1 ;NUMBER OF ARGS ACTUALLY PASSED 1$: DEC R1 ;CHECK # ARGS PASSED THAT ARE LEFT BMI 2$ ;IF NONE, EXIT DEC R2 ;CHECK # ARGS EXPECTED THAT ARE LEFT BMI 2$ ;IF NONE, EXIT MOV (R5)+,(R3)+ ;COPY ARG ADDRESSES BR 1$ ;LOOP BACK TO CHECK FOR MORE ARGS NOP ;FILLER 2$: MOV (PC)+,R1 ;POINT TO ENTRY PAUSE TABLE .END