.TITLE PRINT .IDENT /V1.0/ ; PRINT routine that takes variable-length argument list ; for use with NSQUERY ; ; COPYRIGHT © 1992, MATTHEW D. MADISON. ALL RIGHTS RESERVED. .PSECT PRINT_DATA,WRT,RD,NOEXE,NOSHR FAOBUF: .BLKB 512 FAODSC: .BLKL 2 DSC1: .BLKL 2 LEN: .BLKW 1 .PSECT PRINT_CODE,NOWRT,EXE,SHR,PIC .IF DF,EVAX PRINT:: .CALL_ENTRY HOME_ARGS=TRUE,MAX_ARGS=10 .IFF .ENTRY PRINT,^M<> .ENDC MOVL 4(AP),R1 1$: TSTB (R1) BEQL 2$ INCL R1 BRB 1$ 2$: SUBL3 4(AP),R1,DSC1 MOVL 4(AP),DSC1+4 CMPL #1,(AP) BLSS 10$ PUSHAL DSC1 CALLS #1,G^LIB$PUT_OUTPUT RET 10$: MOVL #512,FAODSC MOVAL FAOBUF,FAODSC+4 PUSHAL 8(AP) PUSHAQ FAODSC PUSHAW LEN PUSHAQ DSC1 CALLS #4,G^SYS$FAOL MOVZWL LEN,FAODSC PUSHAQ FAODSC CALLS #1,G^LIB$PUT_OUTPUT RET .END