d.TITLE JJ$NLMAR == [SCI.JJ] (MACRO NAME LIST PROGRAMS) ; ,;CALL ML$GET( MSO, NBY, DES ) ;CALL ML$PUT( SOU, NBY, MDE ) ; X;IRET= JJ$NLRD( UNIT, LIST, %DESCR(P1)... ) ;IRET= JJ$NLWR( UNIT, LIST, %DESCR(P1)... ) ;  .EXTRN JJNLRD,JJNLWR ; LUNIT=4 LIST=8 DESC=12 x;  .PSECT DATA @; NUMPAR: .LONG 3 ; ;;;;;;;;; l;  .PSECT NL$CODE,NOWRT 4; MSO=4 SOU=4 ` NBY=8 MDE=12 ( DES=12 ; ;CALL ML$GET( MSO, NBY, DES ) T ; ; DES,DES+1... <= C(MSO,MSO+1...MSO+NBY)  ; .ENTRY ML$GET ^M ; H MOVL @MSO(AP),R2 MOVC3 @NBY(AP),(R2),@DES(AP)  RET t; ;;;;;;;;; ; <;CALL ML$PUT( SOU, NBY, MDE ) ; ; C(MDE,MDE+1...) <= SOU,SOU+1...SOU+NBY h;  .ENTRY ML$PUT ^M 0;  MOVL @MDE(AP),R2  MOVC3 @NBY(AP),@SOU(AP),(R2) \ RET ; ;;;;;;;;; $; ;IRET= JJ$NLRD( UNIT,LIST,%DESCR(P1)... ) ; P .ENTRY JJ$NLRD ^M ;  MOVAL DESC(AP),-(SP) ; CALL JJNLRD(UNIT,LIST,NUM,LOC) | SUBL3 #2,0(AP),NUMPAR  MOVAL NUMPAR,-(SP) D MOVL LIST(AP),-(SP)  MOVL UNIT(AP),-(SP)  CALLS #4,JJNLRD p RET ; ;;;;;;;;; 8; ;IRET= JJ$NLWR( UNIT,LIST,%DESCR(P1)... ) ; d .ENTRY JJ$NLWR ^M ; , MOVAL DESC(AP),-(SP) ; CALL JJNLWR(UNIT,LIST,NUM,LOC)  SUBL3 #2,0(AP),NUMPAR  MOVAL NUMPAR,-(SP) X MOVL LIST(AP),-(SP)  MOVL UNIT(AP),-(SP)  CALLS #4,JJNLWR  RET ; ;;;;;;;;; L;  .END