(George Source)
22FL # [ RICHARD GRIMWADE 22^= # 23DW # THIS SUBFILE CONTAINS MACROS THAT ARE USED BY THE 23YG # MONITORING FILE SYSTEM AND THE SYSTEM JOURNAL. 24D6 # 24MY ...[??? MONMEND SECT CENT FGN 7 DOC 24XQ #MAC MONMEND 25CB #STR %B 25X2 ( 26BL #SKI 20?<1$1 26W= #MEN MESS%A 27*W #SKI 20? 27TG ( 28*6 #DEF 20?=20?-1 28SQ #STR %B,J 29#B MONMEND %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T 29S2 #STR %B,J 2=?L #SKI 2=R= MONMEND %CJ,%CA,%CB,%CC,%CD,%CE,%CF,%CG,%CH,%CI,J,%D,%E,%F,%G,%H- 2?=W ,%I,%J,%K 2?QG ) 2#=6 #EXI 2#PQ ) 2*47 ...#DEF 20? = %A/512 2*BJ ...#SKI 20?<AMFNUMBER-20?<1$1 2*P2 ( 2*SF ...#DEF 26? = 0 2*XY ...#SKI %A-128� 2B3C ...#SKI 2B6W ...( 2B=* ...#MEN MESSXX 2B*S ...#DEF 26? = 128 2BF? ...#EXI 2BJQ ...) 2BN= MONMEND X,A,B,C,D,E,F,G,H,I,J,A,B,C,D,E,F,G,H,I 2C7W ) 2CMG ...#SKI 20?<AMFNUMBER-20? 2D76 ! IDENTIFIER OUT OF RANGE 2DLQ ...#SKI 20?<AMFNUMBER-20?<1$1 2F6B #NOR 2FB8 ...[??? GREADY SECT CENT FGN 7 DOC 2FL2 #MAC GREADY 2G5L #SKI %A>20$20 2GK= #SKI 2H4W ( 2HJG #SKI %A 2J46 ( 2JHQ #MEN MORNING 2K3B #TRA K50MORNING 2KH2 %A+3/4 2L2L %AH%B 2LG= #END 2L^W ) 2MFG ) 2M^6 #NOR 2N8Y ...[??? SJCHAIN SECT CENT FGN 7 DOC 2NDQ # 2NYB # 2PD2 #MAC SJCHAIN 2PXL LDX 2 %A 2QC= LDN 0 #41 2QWW STO 0 JRECHEAD2(2) 2QXG ... FSHCODE AORB 2QY6 ...( 2QYQ ... LDCT 1 2 2Q^B ... FSHCODE A,MFSHAFORCE 2R22 ...( 2R2L ... NOTALIEN MFSHAHOME,FX2 2R3= ... ORS 1 JCATS(2) 2R3W ... BRN MFSHAFORCE 2R4G ...MFSHAHOME 2R56 ... ORS 1 JCATS(2) 2R5Q ... ERS 1 JCATS(2) 2R6B ...MFSHAFORCE 2R72 ...) 2R7L ... FSHCODE B,MFSHBFORCE 2R8= ...( 2R8W ... NOTALIEN MFSHBHOME,FX2 2R9G ... ORS 1 JCATS(2) 2R=6 ... ERS 1 JCATS(2) 2R=Q ... BRN MFSHBFORCE 2R?B ...MFSHBHOME 2R#2 ... ORS 1 JCATS(2) 2R#L ...MFSHBFORCE 2R*= ...) 2R*W ...) 2RBG #STR PACKED,%C 2RW6 ( 2S*Q LDCT 0 #40 2STB ANDX 0 JCATS(2) 2T*2 BNZ 0 MSJCHAIN1 2TSL LDN 0 3 2W#= ANDX 0 %B 2WRW BZE 0 MSJCHAIN1 2X?G SLL 2 2 2XR6 ADX 2 %B 2Y=Q SRC 2 2 2YQB ADN 2 JMESSAGE 2^=2 LDN 1 ACES 2^PL SBN 0 4 329= NGX 0 0 32NW SMO 0 338G MVCH 1 0 33N6 ADX 0 %B 347Q BRN MSJCHAIN3 34MB MSJCHAIN1 3572 ) 35LL LDX 0 %B 366= #STR PACKED,%C 36KW MSJCHAIN3 375G SRA 0 2 37K6 ADN 0 JMESSAGE-JRECHEAD1+1 384Q #STR PACKED,%C 38JB LDX 2 %A 3942 STO 0 JRECHEAD1(2) 39HL SBN 0 JCATS-JRECHEAD1+1 3=3= ADN 2 JCATS 3=GW SMO 0 3?2G SUM 1 0 3?G6 SMO 0 3?^Q NGS 1 0(2) 3#FB ... SJCHAINY %A 3DBB #NOR 3DBG ...[??? GMONTIDY SECT CENT FGN 7 DOC 3DBL ...#MAC GMONTIDY 3DBW ... LDX 2 %A 3DC6 ... LDN 0 #41 3DCB ... STO 0 JRECHEAD2(2) 3DCC ... FSHCODE AORB 3DCD ...( 3DCF ... LDCT 1 2 3DCG ... FSHCODE A,MFSHAFORCE 3DCH ...( 3DCJ ... NOTALIEN MFSHAHOME,FX2 3DCK ... ORS 1 JCATS(2) 3DCM ... BRN MFSHAFORCE 3DCN ...MFSHAHOME 3DCP ... ORS 1 JCATS(2) 3DCQ ... ERS 1 JCATS(2) 3DCR ...MFSHAFORCE 3DCS ...) 3DCT ... FSHCODE B,MFSHBFORCE 3DCW ...( 3DCX ... NOTALIEN MFSHBHOME,FX2 3DCY ... ORS 1 JCATS(2) 3DC^ ... ERS 1 JCATS(2) 3DD2 ... BRN MFSHBFORCE 3DD3 ...MFSHBHOME 3DD4 ... ORS 1 JCATS(2) 3DD5 ...MFSHBFORCE 3DD6 ...) 3DD7 ...) 3DD8 ...#STR PACKED,%C 3DD9 ...( 3DD= ...#STR UNPACKED,%C 3DDB ...( 3DDL ... LDCT 0 #40 3DDW ... ANDX 0 JCATS(2) 3DF6 ... BNZ 0 MSJCHAIN1 3DFB ...) 3DFL ... LDN 0 3 3DFW ... ANDX 0 %B 3DG6 ... BZE 0 MSJCHAIN1 3DGB ... SLL 2 2 3DGL ... ADX 2 %B 3DGW ... SRC 2 2 3DH6 ... ADN 2 JMESSAGE 3DHB ... LDN 1 ACES 3DHL ... SBN 0 4 3DHW ... NGX 0 0 3DJ6 ... SMO 0 3DJB ... MVCH 1 0 3DJL ... ADX 0 %B 3DJW ... BRN MSJCHAIN3 3DK6 ...MSJCHAIN1 3DKB ...) 3DKL ... LDX 0 %B 3DKW ...#STR PACKED,%C 3DL6 ...MSJCHAIN3 3DLB ... SRA 0 2 3DLL ... ADN 0 JMESSAGE-JRECHEAD1+1 3DLW ...#STR PACKED,%C 3DM6 ... LDX 2 %A 3DMB ... STO 0 JRECHEAD1(2) 3DML ... SBN 0 JCATS-JRECHEAD1+1 3DMW ... ADN 2 JCATS 3DN6 ... SMO 0 3DNB ... SUM 1 0 3DNL ... SMO 0 3DNW ... NGS 1 0(2) 3DP6 ... LDX 1 FX1 3DPB ... LDX 2 FX2 3DPL ...#NOR 3DPQ ...[??? SJCHAINY SECT CENT FGN 7 DOC 3DPW ...# 3DQ6 ...# 3DQB ...#MAC SJCHAINY 3DQC ... FSHCODE B,MFSHBNOLINK 3DQD ...( 3DQF ... CHAIN %A,FX2 3DQG ... MOD LDX 1 JWAITER,%A 3DQH ... LDN 0 FSHNOID 3DQJ ... BNZ 1 MSJNOAUT 3DQK ... ADN 0 FSHZAUT+FSHZSUP 3DQL ...MSJNOAUT 3DQM ... LDN 2 GMON+JRNAL 3DQN ... SLL 2 12 3DQP ... LDX 1 FX1 3DQQ ... TRANSBEX FSHNOID,MSJLINK(1),2,ACOMMUNE3,MFSHBNOLINK 3DQR ... BRN MSJCHAIN2 3DQS ...MSJLINK 3DQT ... LINK SJLOOP,2 3DQW ...MFSHBNOLINK 3DQX ...) 3DQY ... CHAIN %A,BSJC+BPTR 3DQ^ ... STARTACT SJ 3DR6 ... MOD LDX 0 JWAITER,%A 3DRB ... BZE 0 MSJCHAIN2 3DRL ... COOR1 3DRW ...MSJCHAIN2 3DS6 ... LDX 1 FX1 3DSB ... LDX 2 FX2 3DSL ...#NOR 3DT# ...[??? STEPASET SECT CENT FGN 7 DOC 3DW2 [STEPASET - A1+1=0 ON 1ST ENTRY 3F*L #MAC STEPASET 3FT= LDX 3 %A 3G#W ADX 3 A1+1(3) 3GSG TXU 3 %A 3H#6 BCS M1STEPA 3HRQ ADN 3 A1+2 3J?B BRN M4STEPA 3JR2 M2STEPA 3K=L STEPARAM 3,0 3KQ= M4STEPA 3L9W LDXC 0 0(3) 3LPG BCC M1STEPA 3M96 SBN 0 JPD%B 3MNQ ANDN 0 #77 3N8B BZE 0 M3STEPA 3NN2 M1STEPA 3P7L LDN 0 4095 3PM= MOD ADS 0 A1,%A 3Q6W MOD ANDX 0 A1,%A 3QLG BNZ 0 M2STEPA 3R66 LDX 3 %A 3RKQ LDX 0 A1(3) 3S5B SRL 0 12 3SK2 STO 0 A1(3) 3T4L STOZ A1+1(3) 3TJ= NGX 3 BITS22LS 3W3W BRN M5STEPA 3WHG M3STEPA 3X36 NGX 0 %A 3XGQ ADX 0 3 3Y2B MOD STO 0 A1+1,%A 3YG2 #STR %C 3Y^L ( 3^F= LDX %C 0(3) 3^YW SRL %C 6 42DG ANDN %C 4095 42Y6 ) 43CQ ADN 3 1 43XB M5STEPA 44C2 #NOR 44LS ...[??? STEPARAM SECT CENT FGN 7 DOC 44WL # 45B= #MAC STEPARAM 45TW LDXC %B 0(%A) 46*G BCC M1STEPARAM 46T6 SLL %B 1 47#Q BPZ %B M2STEPARAM 47SB BDX %A M4STEPARAM 48#2 M2STEPARAM 48RL SRL %B 7 49?= ANDN %B 4095 49QW BUX %B M3STEPARAM 4==G M1STEPARAM 4=Q6 ADN %B 7 4?9Q SRL %B 2 4?PB M3STEPARAM 4#92 ADX %A %B 4#NL M4STEPARAM 4*8= #NOR 4*D4 ...[??? FINDRET SECT CENT FGN 7 DOC 4*MW #MAC FINDRET 4B7G HUNTW %A,GMON,AOUT [BOUT IN FUTURE 4BM6 #NOR 4BWY ...[??? OUTLEN SECT CENT FGN 7 DOC 4C6Q #MAC OUTLEN [GET CHAR LEN OF RE3AINED BLOCK 4CLB MOD LDEX %B ARECB,%A 4D62 #NOR 4D*S ...[??? INFORMQU SECT CENT FGN 7 DOC 4DKL #MAC INFORMQU 4F5= MFREEW GMON,AOUT [BOUT IN FUTURE 4FJW #NOR 4FSN ...[??? DEMANDQU SECT CENT FGN 7 DOC 4G4G #MAC DEMANDQU 4GJ6 VFREE ADATA,ADEMAND 4GP# ... VFREEW GMON,AOUT 4GWG ... VFREEW GMON,ASET 4H3N ... LDCT 0 #100 4H8W ... ORS 0 CLONG1(2) 4HB4 ... ERS 0 CLONG1(2) 4HHB #NOR 4HR8 ...[??? VARDOWN SECT CENT FGN 7 DOC 4J6X ...# 4JGL # 4K2= #MAC VARDOWN 4KFW #DEF 20?=%A+1/512 4K^G #SKI AMFNUMBER-20?� 4LF6 ( 4LYQ ! IDENTIFIER OUT OF RANGE 4MDB DOWN MONFILE,21 4MY2 #EXI 4NCL ) 4NX= DOWNY 20?+KMESSX,K%BMESSA 4PBW #NOR 4PLN ...[??? OUTMESS SECT CENT FGN 7 DOC 4PWG #MAC OUTMESS 4QB6 LDN 0 %A&511 4QTQ SMO FX2 4R*B STO 0 HMON1 4RT2 VARDOWN %A,4 4S#L #NOR 4SJD ...[??? JOBAUT SECT CENT FGN 7 DOC 4SS= #MAC JOBAUT 4T?W #STR %A%B 4TRG ( 4W?6 #DEF %C=1 4WQQ #STR %A 4X=B ( 4XQ2 LDX 0 %A 4Y9L #SKI %D-2 4YP= LDX 2 FX2 4^8W ) 4^NG #STR %A 5286 #STR 52MQ ( 537B #SKI %D-2 53M2 LDX 2 FX2 546L LDX 0 JOBNO(2) 54L= ) 555W #STR NONAUT,%B 55KG #STR 5656 ORX 0 GSIGN 56JQ STO 0 ACOMMUNE2(2) 574B ) 57J2 #STR %A%B 583L #STR 58H= #DEF %C=0 592W #NOR 59=N ...[??? MONOUTRX SECT CENT FGN 7 DOC 59GG #MAC MONOUTRX 5=26 #STR 0,%A 5=FQ #STR 5=^B GEOERR 1,SOORRYY 5?F2 LDX 0 %B 5?YL #STR %A%C%D 5#D= ( 5#XW SMO FX2 5*CG STO 0 HMON1 5*X6 ) 5BBQ #STR %A%C%D 5BWB #STR 5CB2 ( 5CTL LDX 2 FX2 5D*= STO 0 HMON1(2) 5DSW ) 5F#G #STR %A 5FS6 #STR 5G?Q STOZ ACOMMUNE1(2) 5GRB #STR %A 5H?2 ( 5HQL LDX 0 %A 5J== SMO FX2 5JPW STO 0 ACOMMUNE1 5K9G ) 5KP6 #STR %A 5L8Q #STR 5LNB JOBAUT %C,%D,MMONOUTRX,2 5M82 #STR %A 5MML JOBAUT %C,%D,MMONOUTRX 5N7= #SKI MMONOUTRX 5NLW DOWN MONFILE,11 5P6G #SKI MMONOUTRX-1 5PL6 DOWN MONFILE,12 5Q5Q #FRE MMONOUTRX 5QKB #NOR 5QT8 ...[??? MONOUT SECT CENT FGN 7 DOC 5R52 #MAC MONOUT 5RJL JOBAUT %B,%C,MMONOUT 5S4= LDN 0 %A&511 5S6F ...#SKI JSKI33 5S8N ...( 5S=X ...#STR IGOPTRACE,%D 5S*6 ...#STR 5SC* ... ORX 0 GSIGN 5SFJ ...) 5SHW #SKI MMONOUT 5T3G ( 5TH6 STO 0 HMON1(2) 5W2Q VARDOWN %A,3 5WGB ) 5X22 #SKI MMONOUT-1 5XFL ( 5X^= SMO FX2 5YDW STO 0 HMON1 5YYG VARDOWN %A,5 5^D6 ) 5^XQ #FRE MMONOUT 62CB #NOR 62M8 ...[??? MONOUTX SECT CENT FGN 7 DOC 62X2 #MAC MONOUTX 63BL LDX 0 %A 63W= LDX 2 FX2 64*W STO 0 HMON1(2) 64TG JOBAUT %B,%C,MMONOUTX,2 65*6 #SKI MMONOUTX 65SQ DOWN MONFILE,1 66#B #SKI MMONOUTX-1 66S2 DOWN MONFILE,2 67?L #FRE MMONOUTX 67R= #NOR 6834 ...[??? MONOUTR SECT CENT FGN 7 DOC 68=W #MAC MONOUTR 68QG JOBAUT %C,%D,MMONOUTR 69=6 #SKI MMONOUTR-1 69PQ LDX 2 FX2 6=9B LDN 0 %B&511 6=P2 STO 0 HMON1(2) 6?8L #STR %A 6?N= #STR 6#7W STOZ ACOMMUNE1(2) 6#MG #STR %A 6*76 ( 6*LQ LDN 0 %A 6B6B STO 0 ACOMMUNE1(2) 6BL2 ) 6C5L #SKI MMONOUTR 6CK= VARDOWN %B,11 6D4W #SKI MMONOUTR-1 6DJG VARDOWN %B,12 6F46 #FRE MMONOUTR 6FHQ #NOR 6FRJ ...[??? COMPERRO SECT CENT FGN 7 DOC 6G3B # 6GH2 # 6H2L # MACRO TO REPORT ON COMPILATION ERRORS 6HG= # AND HALT FOR CHECKING IF NECESSARY 6H^W #MAC COMPERROR 6JFG #STR %A 6J^6 ( 6KDQ #DEF 20?=1? 6KYB #STR %B 6LD2 #LIS %B 6LXL #STR %B 6MC= #STR 6MWW #LIS 0 6NBG #INT 6NW6 #ORD 6P*Q XERR +33? 6PTB XDISP 16HERRORS SO FAR : 6Q*2 #SKI 33? 6QSL YNO 8H 6R#= #SKI 33?<1$1 6RRW 8HNONE 6S?G NM +24:XDISP 6SR6 NTRY 6T=Q #SKI 33? 6TQB ( 6W=2 STO 0 19?+2 6WPL LDX 5 XERR 6X9= LDN 1 YNO 6XNW CALL 2 18?+2]+9] 6Y8G LDX 0 19?+2 6YN6 ) 6^7Q #STR DISPLAY,%A 6^MB SUSTY NM 7272 #STR HALT,%A 72LL DISTY NM 736= EXIT 0 0 73KW #JUM NTRY 745G #EXT 74K6 #LIS 20? 754Q ) 75JB #STR %A 7642 #STR 76HL ( 773= #SKI 33? 77GW COMPERROR HALT 782G #SKI 33?<1$1 78G6 COMPERROR DISPLAY 78^Q ) 79FB #NOR 79P8 ...[??? UNSET SECT CENT FGN 7 DOC 79^2 # UNSET UNIVERSAL IDENTIFIERS :- 7=DL #MAC UNSET 7=Y= #INT 7?CW #ORD 7?XG ZNAME 12H%A 7#C6 ZSPACE 4H 7#WQ ZIN STO 0 19?+0 7*BB LDN 7 1 7*W2 LDX 0 ZNAME+1 7B*L TXU 0 ZSPACE 7BT= ADN 7 0 7C#W LDX 0 ZNAME+2 7CSG TXU 0 ZSPACE 7D#6 ADN 7 0 7DRQ STO 7 18?+1]+56 7F?B LDN 2 0 7FR2 STO 7 18?+1]+57 7G=L DCH 7 18?+1]+55(2) 7GQ= LDN 0 ZNAME 7H9W LDN 1 18?+1]+7 7HPG MOVE 0 3 7J96 CALL 0 18?+2]+1] 7JNQ BRN ZEND 7K8B LDX 3 18?+0]+28 7KN2 CALL 0 18?+2]+7] 7L7L LDCT 0 #400 7LM= ORS 0 2(3) 7M6W ZEND LDX 0 19?+0 7MLG EXIT 0 0 7N66 #JUM ZIN 7NKQ #EXT 7P5B #NOR 7P*8 ...[??? OUTPACK SECT CENT FGN 7 DOC 7PK2 # 7Q4L #MAC OUTPACK 7QJ= #STR %D 7R3W ( 7RHG CALL 1 (AOUT1) 7S36 DOWN SETMON,11 7SGQ BRN %D 7T2B ) 7TG2 #STR %D 7T^L #SKI 7WF= ( 7WYW CALL 1 (AOUT2) 7XDG DOWN SETMON,12 7XY6 BRN MOUTPACKE 7YCQ ) 7YXB BRN MOUTPACKE 7^C2 #STR V,%B 7^WL #SKI 82B= ( 82TW LDX 0 %A 83*G LDN 0 1+%A 83T6 ) 84#Q #STR V,%B 84SB ( 85#2 LDN 0 1+%B 85RL #STR %A 86?= #SKI 86QW LDN 0 AUSE 87=G #STR %A 87Q6 LDN 0 %A 889Q ) 88PB #400:JPD%C 8992 MOUTPACKE 89NL #NOR 89YD ...[??? OUTPAR SECT CENT FGN 7 DOC 8=8= #MAC OUTPAR 8=MW #OPT MOUTPAR1=0? 8?7G #SKI 0?-MOUTPAR1<1$1 8?M6 ( 8#6Q CALL 1 (AOUT3) 8#LB DOWN SETMON,11 8*62 BRN MOUTPAR1 8*KL BRN MOUTPARE 8B5= LDN 0 MOUTPARE-MOUTPAR1-5-HLINK [LENGTH OF PDC LIST 8BJW ) 8C4G #STR %A 8CJ6 ( 8D3Q #500:JPD%A 8DHB OUTPAR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U 8F32 ) 8FGL #STR %A 8G2= #SKI 8GFW ( 8G^G #DEF MOUTPARE=0? 8HF6 #FRE MOUTPARE,MOUTPAR1 8HYQ ) 8JDB #NOR 8JN8 ...[??? OUTPACKX SECT CENT FGN 7 DOC 8JY2 #MAC OUTPACKX 8KCL LDX 0 %A 8KX= #STR V,%B 8LBW #SKI 8LWG ADN 0 1 8MB6 STO 0 GEN2 8MTQ LDX 0 %C 8N*B ORX 0 GSIGN 8NT2 STO 0 GEN4 8P#L #STR %D 8PS= LDN 0 1 8Q?W #STR %D 8QRG #SKI 8R?6 NGN 0 1 8RQQ STO 0 GEN6 8S=B #STR V,%B 8SQ2 #SKI 8T9L ( 8TP= SMO %A 8W8W LDX 0 0 8WNG ) 8X86 #STR V,%B 8XMQ ( 8Y7B LDX 0 %B 8YM2 ADN 0 1 8^6L ) 8^L= CALL 1 (AOUT4) 925W #STR %D 92KG ( 9356 DOWN SETMON,11 93JQ BRN %D 944B ) 94J2 #STR %D 953L #SKI 95H= ( 962W DOWN SETMON,12 96GG NULL 9726 ) 97FQ #NOR 97PJ ...[??? OUTPACKB SECT CENT FGN 7 DOC 97^B #MAC OUTPACKB 98F2 OUTPACK %A,%B,%C,%D 98YL #NOR 998D ...[??? OUTPACKC SECT CENT FGN 7 DOC 99D= #MAC OUTPACKC 99XW OUTPACK %A,%B,%C,%D 9=CG #NOR 9=M# ...[??? OUTPARB SECT CENT FGN 7 DOC 9=X6 #MAC OUTPARB 9?BQ OUTPAR %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T 9?WB #NOR 9#68 ...[??? OUTPARC SECT CENT FGN 7 DOC 9#B2 #MAC OUTPARC 9#TL OUTPAR %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T 9**= #NOR 9*K4 ...[??? OUTMILL SECT CENT FGN 7 DOC 9*SW #MAC OUTMILL 9B#G DOWN SETMON,13 9BS6 #NOR 9C3Y ...[??? HELLO SECT CENT FGN 7 DOC 9C?Q # 9CRB #MAC HELLO 9D?2 ALTMESS GOODMORNING,,%A,FORCETYP 9DQL %AH%B 9F== ALTEND 9FPW #NOR 9F^N ...[??? HI7020 SECT CENT FGN 7 DOC 9G9G # 9GP6 #MAC HI7020 9H8Q ALTMESS HI7020,,%A,OPINF 9HNB %AH%B 9J82 ALTEND 9JML #NOR 9JXD ...[??? PDCSET SECT CENT FGN 7 DOC 9K7= # 9KLW # SPECIAL MACROS LOCAL TO MONFILE, MONFIL :- 9L6G #MAC PDCSET 9LL6 #STR %A 9M5Q ( 9MKB #STR KNOWN,%C 9N52 +%B:Q%A 9NJL #STR KNOWN,%C 9P4= #STR 9PHW #400+%B:Q%A 9Q3G #SKI 0?-PDCTAB-JPD%A-1 9QH6 ! OUT OF PLACE 9R2Q #STR %D 9RGB #FID 1 1 1 9S22 ) 9SFL #STR %A 9S^= #STR 9TDW +0 9TYG #NOR 9W8# ...[??? MFORDER SECT CENT FGN 7 DOC 9WD6 #MAC MFORDER [ALLOWS ORDERING OF O/P ROTA 9WXQ %A F,SJPAK,SJNPK,SCANB,MONFILE,MOP,OP,REMOTE 9XCB %A MALL,MBOTH,RETAIN,REPLY,SEMBL 9XX2 #NOR 9Y6S ...[??? MFSETAB SECT CENT FGN 7 DOC 9YBL #MAC MFSETAB 9YW= #STR %A 9^*W ( 9^TG #STR %A,F =2*6 #STR =2SQ ( =3#B #DEF 20?=#4000 =3S2 ) =4?L #STR %A,F =4R= ( =5=W #DEF %A=20? =5QG #DEF 20?=20?/2 =6=6 ) =6PQ MFSETAB %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M =79B ) =7P2 #NOR =7YS ...[??? NEXTPART SECT CENT FGN 7 DOC =88L #MAC NEXTPART =8N= SMO PARTPTR(2) =97W LDEX 0 0 =9MG ADN 0 11 ==76 SRL 0 2 ==LQ ADS 0 PARTPTR(2) =?6B #STR %A =?L2 LDX %A PARTPTR(2) =#5L #NOR =#*D ...[??? SHUFFLE SECT CENT FGN 7 DOC =#K= #MAC SHUFFLE =*4W #STR %A =*JG ( =B46 #STR %A,F =BHQ BRN Z%A =C3B SHUFFLE %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M =CH2 ) =D2L #NOR =D=D ...[??? MFDEFS SECT CENT FGN 7 DOC =DG= #MAC MFDEFS [LOCAL DEFINES FOR MONFILE SEGS =D^W # ACOMMUNE2 SAVED FOR JOURNAL O/P =FFG #DEF MDESTINY=AWORK2 =F^6 #DEF PTRASET=AWORK1 =GDQ #DEF THISPART=ACOMMUNE7 =GYB #DEF REMAINS=AWORK3 =HD2 #DEF SIGNW=ACOMMUNE9 =HXL #DEF X2=ACOMMUNE3 =JC= #DEF PARTPTR=AWORK4 =JWW #DEF OUTCHAR=ACOMMUNE4 =KBG #DEF WHATJUST=ACOMMUNE1 =KW6 #DEF WORK8=ACOMMUNE5 =L*Q #DEF SAFE=ACOMMUNE8 =LTB #DEF MORE=50 =M*2 #DEF ZDATE=A1+9 [GMONACC FORMAT =MSL #DEF MARKS=MDESTINY =N#= #DEF MKASET=1 =NRW #DEF MKGMONACC=2 =P?G #NOR =PR6 # =Q=Q # =QQB # ^^^^ ...43220112001600000000