.TITLE AUXDBG debug routine for ACPAUX .PSECT AUXDBG ; ; Writes out packet on the terminal ; ; 07-FEB-79 DSM ; ; .NLIST BEX .MCALL DIR$,PUSH,POP EDSTR: .ASCII /%2N AUX IO Request Packet/ .ASCII /%1N Function Code:%S%1P/ .ASCII /%1N Parameters:/ .ASCII /%1N%S%3P%1N%S%3P/ .ASCII /%1N Optional parameters:/ .ASCII /%1N Device name:%S%P/ .ASCII /%1N Unit number:%S%P/ .ASCII /%1N ID:%S%P/ .ASCII /%1N Unused:%S%2P/ .ASCII /%1N FID:%S%3P/ .ASCII /%1N File Name%S%X/ .ASCII /%1N%S%2P/ .ASCII /%1N%S%3P/ .ASCIZ /%1N%S%P%S%P%N/ .EVEN TBUF: .BLKB 350. ; AUXDBG:: ; PUSH ; Save registers MOV #PACKET,R2 ; Point to packet MOV #EDSTR,R1 ; Edit command string MOV #TBUF,R0 ; Output buffer CALL $EDMSG ; Message edit routine MOV R1,TILEN ; Get length MOV #TBUF,TIBUF ; Point to message ; DIR$ #TIQIO ; Write it ; POP ; Restore registers RETURN ; .END