{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS VB)}}
====== MACROS VB ======
(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?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