IDENT DLIST * MACROS1 XTEXT * DLIST MICRO 1,,*DLIST* CLASS MICRO 1,,*CLASS* S MICRO 1,,*S* * HEADER1 'DLIST','CLASS',2,20 HEADER2 FL,START,50,START MAP ,,0,0,START,0 MAP 'DLIST','S',START,START,FL-START,1 DATA -1 C.CAPIN CAP CAPIN,OPERATE C.RETURN CAP RETURN,OPERATE C.SAVE CAP SAVE,OPERATE C.RESTOR CAP RESTOR,OPERATE C.NEWBLK CAP CBLK,OPERATE DATA 0 C.SELF CAP ORG 100B REGSAVE BSSZ 20B * * FILE MSTR * BSSZ 20 * USERNM BSSZ 1 ENTRYN BSSZ 1 * * USERT BSSZ 3*50 USERLMT BSS 0 PRNX BSSZ 1 PRNY BSSZ 1 USERPRNS BSSZ 1 ENTRY BSSZ 4 * * MSG VFD 60/*+2,60/80 MSGBUF BSSZ 20 * LINE BSSZ 140 * ENDRW BSS 0 * FILE SELF * * START GET SELF,'DLIST','S' XJ READSELF PUT SELF GET MSTR,MASTR,OPERATE PUT MSTR SB1 CRLF BEAD 5 NG X4,FILES NZ X4,FILES * * LIST USER NAMES AND SIZES * SX6 -4 SA6 ENTRYN SB1 USERT * USERLP SA1 ENTRYN SX1 X1+4 SX6 X1 SA6 A1 FR.MSTR X1,ENTRY,4,1 JP USERFIN SA1 ENTRY MX0 42 BX1 X0*X1 ZR X1,USERLP SA2 ENTRY+1 SB2 USERT USERLP1 EQ B1,B2,USERLP3 SA3 B2 MX0 42 BX3 X3-X2 BX3 X0*X3 SB2 B2+3 NZ X3,USERLP1 NG X3,USERLP1 SB2 B2-3 SA1 B2+1 SX6 X1+1 SA6 A1 SA1 B2+2 SA2 ENTRY+3 MX0 60-30 BX2 -X0*X2 IX6 X1+X2 SA6 A1 JP USERLP USERLP3 SB3 USERLMT SB3 USERLMT EQ B1,B3,USERLP4 BX6 X2 SA6 B1 SX6 1 SA6 B1+1 SA1 ENTRY+3 MX0 60-30 BX6 -X0*X1 SA6 B1+2 SB1 B1+3 JP USERLP * USERLP4 SB7 USERLP5 JP PRNUSERS USERLP5 SB1 CRLF BEAD 5 SA2 ENTRY+1 SB2 USERT SB1 USERT SA2 ENTRY+1 JP USERLP3 * USERFIN SB7 USERFIN2 JP PRNUSERS USERFIN2 SB1 CRLF BEAD 5 USERFIN3 XJ RETURN JP USERFIN3 * * * PRNUSERS SX6 B7 SA6 USERPRNS SX6 USERT SA6 PRNX SX6 B1-3 SA6 PRNY * USERPRN1 SB3 LINE SA1 PRNX SA1 X1 + SB7 *+1 JP PUTNME SA1 PRNX SA1 X1+1 SB2 5 + SB7 *+1 JP PUTBOCT SA1 PRNX SA1 X1+2 SB2 8 + SB7 *+1 JP PUTBOCT + SB7 *+1 JP PUTLINE SA1 PRNX SA2 PRNY IX2 X1-X2 ZR X2,USERPRN2 SX6 X1+3 SA6 PRNX JP USERPRN1 USERPRN2 SA1 USERPRNS SB1 X1 JP B1 JP FINI * * FIND ALL FILES OF USER IN X4 * FILES BX6 X4 SA6 USERNM SX6 -4 SA6 ENTRYN * FILELP SA1 ENTRYN SX1 X1+4 SX6 X1 SA6 A1 FR.MSTR X1,ENTRY,4,1 JP FINI SA2 ENTRY+1 SA1 USERNM BX2 X1-X2 MX0 42 BX2 X0*X2 NG X2,FILELP NZ X2,FILELP * SA1 ENTRY ZR X1,FILELP SB3 LINE + SB7 *+1 JP PUTNME SB2 5 + SB7 *+1 JP PUTBLNKS SA1 ENTRY+3 SB2 6 + SB7 *+1 JP PUTBOCT SB2 5 + SB7 *+1 JP PUTBLNKS SA1 ENTRY+1 SB2 4 + SB7 *+1 JP PUTOCT + SB7 *+1 JP PUTLINE JP FILELP * FINI SB1 CRLF BEAD 5 XJ RETURN,0 * * CRLF VFD 60/*+2,60/10 VFD 4/5,7/155B,49/0 JP FINI * * ASCIIT DATA 00B,41B,42B,43B,44B,45B,46B,47B DATA 50B,51B,52B,53B,54B,55B,56B,57B DATA 60B,61B,62B,63B,64B,65B,66B,67B DATA 70B,71B,72B,20B,21B,22B,23B,24B DATA 25B,26B,27B,30B,31B,13B,15B,12B DATA 17B,10B,11B,04B,35B,00B,14B,16B DATA 05B,73B,75B,32B,03B,05B,05B,05B DATA 76B,05B,34B,36B,05B,05B,05B,05B * * PUTNME MX0 60-6 SB1 1 SB2 7 * PUTNME1 LX1 6 BX6 -X0*X1 ZR X6,PUTBLNKS SA2 X6+ASCIIT BX6 X2 SA6 B3 SB3 B3+B1 SB2 B2-B1 NE B2,B0,PUTNME1 * PUTNME2 JP B7 * * * PUTBLNKS EQ B0,B2,PUTBLNK1 SX6 B0 SA6 B3 SB3 B3+B1 SB2 B2-B1 JP PUTBLNKS PUTBLNK1 JP B7 * * * PUTOCT SB4 20 MX0 60-3 SB5 20B PUTOCT1 EQ B4,B2,PUTOCT2 LX1 3 SB4 B4-B1 JP PUTOCT1 PUTOCT2 EQ B2,B0,PUTOCT3 LX1 3 BX6 -X0*X1 SX6 X6+B5 SA6 B3 SB3 B3+B1 SB2 B2-B1 JP PUTOCT2 PUTOCT3 JP B7 * * * PUTBOCT SB4 20 MX0 60-3 SB5 20B PUTBOCT1 EQ B4,B2,PUTBOCT2 LX1 3 SB4 B4-B1 JP PUTBOCT1 PUTBOCT2 EQ B2,B0,PUTOCT3 LX1 3 BX6 -X0*X1 NZ X6,PUTBOCT3 SA6 B3 SB3 B3+B1 SB2 B2-B1 JP PUTBOCT2 PUTBOCT3 LX1 60-3 JP PUTOCT2 * * * PUTLINE SB2 LINE SX6 5 SB5 MSGBUF SB4 8 SB1 1 MX0 60-7 * PUTLINE1 EQ B2,B3,PUTLINE2 SA1 B2 BX1 -X0*X1 LX6 7 BX6 X6+X1 SB2 B2+B1 SB4 B4-B1 NE B4,B0,PUTLINE1 SA6 B5 SB5 B5+B1 SX6 4 SB4 8 JP PUTLINE1 PUTLINE2 SX1 155B LX6 7 BX6 X6+X1 SB4 B4-B1 PUTLINE3 EQ B4,B0,PUTLINE4 LX6 7 SB4 B4-B1 JP PUTLINE3 PUTLINE4 SA6 B5 SB1 MSG BEAD 5 JP B7 * VFD 4/4,7/5,7/55B,7/5,7/52B,7/155B,21/0 * TRAILER SELF,'DLIST','S' * END