14 22FL ... SEG BMQUESTB,866,EDWARD MOON,BMAP 12 22_= ... SEGENTRY K5BMQUESTB,PRQUERY 12 23DW ... SEGENTRY K7BMQUESTB,PRERASE 12 23YG ... SEGENTRY K8BMQUESTB,Z8BMQUEST 15 24D6 ...[THIS SEGMENT CONTAINS 3 ENTRIES THAT USE TO BE 15 24XQ ...[ IN BMQUEST BEFORE THAT SEGEMENT WAS SPLIT INTO 9 25CB ...[BMQUEST AND BMQUESTB 20 25X2 ...[******************************************************************* 4 26BL ...[ 15 26W= ...[ TABLE OF USERS WHICH MAY NOT BE ERASED IF 12 27*W ...[ PARTIAL RESTORES FAIL 4 27TG ...[ 5 28*6 ...VSFTABLE 7 28SQ ... 12HMANAGER 7 29#B ... 12HSYSTEM 7 29S2 ... 12HJOURNAL 7 2=?L ... 12HDUMPER 6 2=R= ... 12HLIB 7 2?=W ... 12HMACROS 9 2?QG ... SEGENTRY AVSFTABLE 9 2#=6 ...#ALT AVSFPTR=AVSFTABLE 8 2#PQ ...#GAP ANOPRERASE*3 10 2*9B ... SEGENTRY AVSFTABEND 5 2*P2 ... +0 11 2B8L ...RELOADING +12,12HRELOADING 12 2BN= ...XMTUNAV 20HTAPE NOT AVAILABLE 11 2C7W ...XABANDONED 16HABANDONED : 8 2CMG ...SP #20 8 2D76 ...Y #71 8 2DLQ ...N #56 5 2F6B ...OUTPACK 8 2FL2 ... SBX 7 FX1 8 2G5L ... OUTPACKX 2,5,6 8 2GK= ... ADX 7 FX1 7 2H4W ... EXIT 7 0 4 2HJG ...[ 20 2J46 ...[********************************************************** PRQUERY 4 2JHQ ...[ 18 2K3B ...[ ENTRY POINT TO ASK FOR A PM IF THE PRQUERY R.T.M. HAS 16 2KH2 ...[ BEEN USED AND A DIRECTORY IS FOUND CORRUPT. 4 2L2L ...[ 5 2LG= ...PRQUERY 9 2L_W ... LDX 2 BSACHAPTR 12 2MFG ... POP PRQUERY,2,FTABWAIT 18 2M_6 ... DEMMESS BMPRQUERY [ ASK IF A PM IS WANTED 18 2NDQ ... MHUNTW 3,CONBUFF,EMSIN [ HUNT FOR REPLY BLOCK 7 2NYB ... LDX 2 3 8 2PD2 ... LDX 4 A1(3) 17 2PXL ... BZE 4 PRNOCHAR [ CHECK IF NULL REPLY 5 2QC= ...NXPRCH 9 2QWW ... LDCH 5 A1+1(3) 18 2RBG ... BXE 5 SP(1),NXCHPR [ IGNORE LEADING SPACES 19 2RW6 ... BXE 5 N(1),UPAGAIN [ IF N(O), CARRY ON WITH P.R. 20 2S*Q ... BXU 5 Y(1),PRNOCHAR [ REPEAT QUESTION IF NOT Y(ES) 18 2STB ... GEOERR 1,PRQUERY [ ELSE GEOERR TO GET A PM 5 2T*2 ...NXCHPR 7 2TSL ... BCHX 3 / 9 2W#= ... BRN NXPRCH 5 2WRW ...PRNOCHAR 7 2X?G ... FREECORE 2 9 2XR6 ... LDX 2 BSACHAPTR 10 2Y=Q ... VOP 2,FTABWAIT 9 2YQB ... BRN PRQUERY 5 2_=2 ...UPAGAIN 7 2_PL ... FREECORE 2 9 329= ... LDX 2 BSACHAPTR 10 32NW ... VOP 2,FTABWAIT 18 338G ... UP [ TO CONTINUE WITH P.R. 4 33N6 ...[ 20 347Q ...[*********************************************************** PRERASE 4 34MB ...[ 19 3572 ...[ ENTRY POINT TO CHECK IF ERASURE DUE DUE TO FAILED P.R. 20 35LL ...[ IS ALLOWED - IF NOT GRELOAD ELSE GO BAK UP TO CALLING ROUTINE 4 366= ...[ 4 36KW ...[ 5 375G ...PRERASE 11 37K6 ... HUNTMISB 3,FI,FRESTUSER 9 384Q ... SMO FRNXT(3) 18 38JB ... LDN 3 FRUSE(3) [ POINTER TO THIS USER 21 3942 ... LDN 2 VSFTABLE(1) [ POINTER TO START OF TABLE OF USERS 18 39HL ...NEXTVSF [ WHO MAY NOT BE EASED 8 3=3= ... LDX 4 0(2) 19 3=GW ... BZE 4 NOTINTAB [ 0 INDICATES END OF TABLE 8 3?2G ... LDX 5 1(2) 8 3?G6 ... LDX 6 2(2) 17 3?_Q ... TXU 4 0(3) [ COMPARE ALL 3 WORDS 15 3#FB ... TXU 5 1(3) [ OF USERNAME 8 3#_2 ... TXU 6 2(3) 17 3*DL ... SEGENTRY K80BMQUESTB [ FOR NOPRERASE MACRO 18 3*Y= ... BCS NORELOAD [ NULL IF %A WAS ABSENT 7 3BCW ... EMSCONWT 8 3BXG ... LDX 1 FX1 19 3CC6 ... GEOSTOP RELOADING(1) [ IF NAME IS FOUND IN TABLE 5 3CWQ ...NORELOAD 17 3DBB ... SEGENTRY K81BMQUESTB [ FOR NOPRERASE MACRO 18 3DW2 ... ADN 2 3 [ UPDATE TABLE POINTER 9 3F*L ... BRN NEXTVSF 5 3FT= ...NOTINTAB 9 3G#W ... LDX 2 BSACHAPTR 12 3GSG ... POP NOTINTAB,2,FTABWAIT 6 3H#6 ...NOTINTAB2 11 3HRQ ... HUNTMISB 3,FI,FRESTUSER 9 3J?B ... SMO FRNXT(3) 9 3JR2 ... LDN 2 FRUSE(3) 7 3K=L ... LDN 5 3 10 3KQ= ... LDN 6 JPDUSERNAME 9 3L9W ... CALL 7 OUTPACK 9 3LPG ... DEMMESS GRPRERREQ 11 3M96 ... MHUNTW 3,CONBUFF,EMSIN 7 3MNQ ... LDX 2 3 8 3N8B ... LDX 4 A1(3) 9 3NN2 ... BZE 4 ZPRNOCHAR 5 3P7L ...NEXTCH 9 3PM= ... LDCH 5 A1+1(3) 10 3Q6W ... BXE 5 SP(1),NEXCH2 10 3QLG ... BXE 5 Y(1),ZUPAGAIN 11 3R66 ... BXU 5 N(1),ZPRNOCHAR 7 3RKQ ... EMSCONWT 8 3S5B ... LDX 1 FX1 10 3SK2 ... GEOSTOP RELOADING(1) 5 3T4L ...NEXCH2 7 3TJ= ... BCT 3 / 9 3W3W ... BRN NEXTCH 6 3WHG ...ZPRNOCHAR 7 3X36 ... FREECORE 2 9 3XGQ ... BRN NOTINTAB2 5 3Y2B ...ZUPAGAIN 7 3YG2 ... FREECORE 2 9 3Y_L ... LDX 2 BSACHAPTR 10 3_F= ... VOP 2,FTABWAIT 18 3_YW ... UP [ IF NOT FOUND IN TABLE 4 42DG ...[ 21 42Y6 ...[************************************************************* Z8BMQUEST 4 43CQ ...[ 15 43XB ...[ ENTRY TO OUTPUT TAPE UNAVAILABLE MESSAGE 13 44C2 ...[ AND TO CHECK IF USER IS ERASEABLE. 4 44WL ...[ 6 45B= ...Z8BMQUEST 11 45TW ... HUNTMISB 3,FI,FRESTUSER 9 46*G ... SMO FRNXT(3) 9 46T6 ... LDN 2 FRUSE(3) 7 47#Q ... LDN 5 3 10 47SB ... LDN 6 JPDUSERNAME 9 48#2 ... CALL 7 OUTPACK 10 48RL ... LDN 2 XABANDONED(1) 7 49?= ... LDN 5 4 10 49QW ... LDN 6 JPDVARCHAR 9 4==G ... CALL 7 OUTPACK 10 4=Q6 ... LDN 2 XMTUNAV(1) 7 4?9Q ... LDN 5 5 10 4?PB ... LDN 6 JPDVARCHAR 9 4#92 ... CALL 7 OUTPACK 9 4#NL ... MONOUT BMPARTRES 10 4*8= ... DOWN BMQUESTB,7 5 4*MW ... UP 4 4B7G ...#END 6 ____ ...541625220001