.TITLE TIMTT.MAC .IDENT \X1.00\ ; GENERAL SCIENTIFIC CORPORATION ; 1684 EAST GUDE DRIVE ; ROCKVILLE, MD. 20850 ; (301) 340-2773 .PSECT OPTLIB .GLOBL $POPNM $CKARG $ERR TIMTT:: JSR R0 ,$CKARG ; CHECK FOR 2 ARGUMENTS .WORD 1 CALL $POPNM MOV R2 ,TIME ; SAVE TIME TO WAIT MOV #117 ,R1 MOV #0 ,R3 MOV ACTCHR ,-(SP) MOV TIME ,-(SP) MOV R3 ,-(SP) MOV SP ,R0 MOVB R1 ,1(R0) EMT 375 BCC 1$ JSR R0 ,$ERR 1$: CMP (SP)+ ,(R5)+ ADD #4 ,SP RTS PC TIME: .WORD 0 ACTCHR: .WORD 14 .END