.TITLE LKLOM.MAC 25-JUL-83 ; GENERAL SCIENTIFIC CORPORATION ; 1684 EAST GUDE DRIVE ; ROCKVILLE, MD. 20850 ; (301) 340-2773 ; ;LOCK A JOB INTO LOW MEMORY. ; ;CALLING SEQUENCE: XCALL LKLOM ; ;LOCK A JOB INTO ANY MEMORY. ; ;CALLING SEQUENCE: XCALL LKJOB ; ;UNLOCK A JOB FROM MEMORY. ; ;CALLING SEQUENCE: XCALL UNLKJ ;CALLING SEQUENCES: ; .IDENT \X1.0\ .PSECT OPTLIB .GLOBL $ERR ;LOCK A JOB INTO LOW MEMORY. ; LKLOM:: MOV #140 ,R1 ;EMT CODE MOV #7 ,R2 ;EMT ID JSR PC ,DOIT3 ;LOCK THE JOB RTS PC ;LOCK A JOB INTO ANY MEMORY. ; LKJOB:: MOV #140 ,R1 ;EMT CODE MOV #13 ,R2 ;EMT ID JSR PC ,DOIT3 ;LOCK THE JOB RTS PC ;UNLOCK A JOB FROM MEMORY. ; UNLKJ:: MOV #140 ,R1 ;EMT CODE MOV #10 ,R2 ;EMT ID JSR PC ,DOIT3 ;UNLOCK THE JOB RTS PC DOIT3: MOV R2 ,-(SP) ;LO BYTE = EMT ID MOV SP ,R0 ;EMT POINTER MOVB R1 ,1(R0) ;HI BYTE = EMT CODE EMT 375 ;LET TSX DO IT BCC 1$ ; IF NO ERROR JSR R0 ,$ERR ; GENERATE DBL ERROR 1$: TST (SP)+ ;FIX THE STACK POINTER RTS PC .SBTTL END .END