{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS RJDG)}}
====== MACROS RJDG ======
(George Source)
22FL # MISCELLANEOUS MACROS
22^= #
2394 ...[??? PATCHCOM SECT CENT FGN 7 DOC
23DW #MAC PATCHCOM
23YG #MEN VCLASTWO
24D6 #TRA K97VCLASTWO
24XQ #STR %A,ON
25CB BICE ??,??,#10315,PATCH,1
25X2 #STR %A,OFF
26BL BICE PC,PATCH,#10315,PATCH,1
26W= #END
27*W #NOR
27KN ...[??? FULLWAIT SECT CENT FGN 7 DOC
27TG #
2C7W #MAC FULLWAIT
2CMG #MEN WAIT
2D76 #TRA K50WAIT
2DLQ EXIT 7 0
2F6B #END
2FL2 #NOR
2FTS ...[??? IFDELIMS SECT CENT FGN 7 DOC
2G5L ...#MAC IFDELIMS
2G*D ...#MEN PARAMA
2GK= ...#TRA 34?+K2PARAMA+0]ṡ+K2PARAMA-6
2GT4 ...#DEF 20?=1
2H4W ...#STR OFF,%A
2H#N ...#DEF 20?=0
2HJG ... +1-20?*#17+(20?*#30)
2HS# ... +1-20?*#27+(20?*#30)
2J46 ... +1-20?*#37+(20?*#30)
2J?Y ...#END
2JHQ ...#NOR
2JRJ ...[??? SHORTEN SECT CENT FGN 7 DOC
2K3B # [SHORTEN A CORE BLOCK QUICKLY BY A FEW WORDS
2KH2 #MAC SHORTEN
2L2L LDN 0 %B
2LG= BXL 0 ALOGLEN(%A),M1SHORTEN
2L^W BXE 0 ALOGLEN(%A),M1SHORTEN
2MFG GEOERR BRIEFPM,SHORTEN
2M^6 M1SHORTEN
2NDQ STO 0 ALOGLEN(%A)
2NYB #NOR
2P88 ...[??? PERCON SECT CENT FGN 7 DOC
2PD2 #
2PXL # UTILITY ROUTINES
2QC= #
2QWW [
2RBG [MACRO FOR ENTERING THE CONVERT PERIPHERAL PARAMETER ROUTINE
2RW6 [
2S*Q #MAC PERCON
2STB #STR %A
2T*2 LDN 0 %A [LOAD PARAMETER NUMBER
2TSL #STR %A
2W#= #SKI
2WRW LDN 0 0 [OR SET ZERO
2X?G SMO FX2 [AND STORE FOR ROUTINE
2XR6 STO 0 EXEC1
2Y=Q DOWN PERCON,1
2YQB #NOR
2^28 ...[??? PERCONA SECT CENT FGN 7 DOC
2^=2 #
2^PL #MAC PERCONA
329= DOWN PERCON,3
32NW #NOR
32YN ...[??? QUALCON SECT CENT FGN 7 DOC
338G [
33N6 [ MACRO FOR CONVERTING QUALIFIERS
347Q [
34MB #MAC QUALCON
3572 LDX 0 %A
35LL SMO FX2
366= STO 0 ACOMMUNE7
36KW LDX 0 %B
375G SMO FX2
37K6 STO 0 ACOMMUNE8
384Q DOWN PERCON,2
38JB #NOR
38S8 ...[??? DATECON SECT CENT FGN 7 DOC
3942 [ MACRO FOR BINARY TO CHARACTER DATE CONVERSION
39HL #MAC DATECON
3=3= #STR EDATE,%A
3=GW (
3?2G LDX 0 %A [VERSION IF NOT TODAYS DATE WANTED
3?G6 SMO FX2
3?^Q STO 0 EXEC1
3#FB DOWN DATECON,1
3#^2 )
3*DL #STR EDATE,%A
3*Y= #SKI
3BCW (
3BXG LDX 1 FX1 [VERSION IF TODAYS DATE WANTED
3CC6 LDX 2 FX2
3CWQ LDX 0 FDATE
3DBB STO 0 ACOMMUNE1(2)
3DW2 LDX 0 FDATE+1
3F*L STO 0 ACOMMUNE2(2)
3FT= )
3G#W #NOR
3G*5 ...[??? DATECON2 SECT CENT FGN DOC
3G*# ...[MACRO TO PUT CURRENT DATE IN %A
3G*H ...#MAC DATECON2
3G*Q ... LDX 0 FDATE
3G*^ ... ACCSTO 0,0,%A
3GB8 ... LDX 0 FDATE+1
3GBC ... ACCSTO 0,1,%A
3GBL ...#NOR
3GBT ...[??? TIMECON2 SECT CENT FGN DOC
3GC4 ...[MACRO TO PUT CURRENT TIME IN %A
3GC? ...#MAC TIMECON2
3GCG ... LDX 0 FTIME
3GCP ... ACCSTO 0,0,%A
3GCY ... STO 1 GEN1
3GD7 ... STO 2 GEN2
3GDB ... LDX 1 CLEANCT
3GDK ... SBX 1 CLEANCTL
3GDS ... CALL 2 MTEST
3GF3 ... +1000/K9
3GF= ... +59
3GFF ...MTEST DVS 0 0(2)
3GFN ... BXL 1 1(2),X
3GFX ... LDX 1 1(2)
3GG6 ...X DVS 0 JTEN
3GG* ... SLL 1 6
3GGJ ... ORX 0 1
3GGR ... ORX 0 FTIME+1
3GH2 ... LDX 1 GEN1
3GH9 ... LDX 2 GEN2
3GHD ... ACCSTO 0,1,%A
3GHM ...#NOR
3GJN ...[??? CHADCON SECT CENT FGN 7 DOC
3GSG [ MACRO FOR CHARACTER TO BINARY DATE CONVERSION
3H#6 #MAC CHADCON
3HRQ DOWN DATECON,2
3J?B BRN %A
3JR2 #NOR
3K2S ...[??? TIMECON SECT CENT FGN 7 DOC
3K=L [MACRO FOR BINARY TO CHARACTER TIME CONVERSION
3KQ= #MAC TIMECON
3L9W #STR CLEANCT,%A
3LPG #SKI
3M96 (
3MNQ LDN 1 FTIME
3N8B SMO FX2
3NN2 LDN 2 ACOMMUNE1
3P7L MOVE 1 2 [SET 'HH.MM.00' IN ACOM1 & 2
3PM= CALL 1 MTEST [CLEAR V & SET X1
3Q6W +60*1000/K9-1
3QLG +100*1000/K9
3R66 MTEST LDX 0 CLEANCT
3RKQ SBX 0 CLEANCTL
3S5B BXL 0 0(1),MTIM1
3SK2 LDX 0 0(1)
3T4L MTIM1
3TJ= DVD 0 1(1) [CONVERT TO SECS & DIVIDE BY 100
3W3W LDX 0 1
3WHG MODE 0
3X36 ORX 2 GSIGN
3XGQ MCONV CBD 0 1(2) [POINT TO CHAR 3 OF ACOM2
3Y2B BCHX 2 £
3YG2 BVCI MCONV
3Y^L LDX 1 FX1
3^F= LDX 2 FX2
3^YW )
42DG #STR CLEANCT,%A
42Y6 (
43CQ LDX 0 %A
43XB SMO FX2
44C2 STO 0 ACOMMUNE7
44WL DOWN DATECON,4%B
45B= )
45TW #NOR
46*G ...[??? SARAH SECT CENT FGN 7 DOC
4*8= [THIS MACRO SETS UP THE SWITCHES FOR THE GET EXPRESSION ROUTINE
4*MW [
4B7G #MAC SARAH
4BM6 +0 [STORE ZERO
4C6Q #FID 0 5 %A-%E [SET FIRST SWITCH
4CLB #FID 6 11 %B-%E [SET SECOND SWITCH
4D62 #FID 12 17 %C-%E [SET THIRD SWITCH
4DKL #FID 18 23 %D-%E [SET FOURTH SWITCH
4F5= #NOR
4FJW ...[??? COREWAKE SECT CENT FGN 7 DOC
5656 [
56JQ # MACRO TO WAKE UP ALL ACTIVITIES WAITING FOR CORE
574B #
57J2 #MAC COREWAKE
57L9 ...#SKI JPSCF
57ND ...(
57QM ... BSOFF FXCHAPIN,MWAKE
57SW ... FON FCXWAIT
57X5 ...MWAKE
57^# ...)
583L FON 1
58H= STOZ CWAIT
592W #NOR
59GG ...[
5=26 ...[
5=FQ ...[??? FNDELE SECT CENT FGN
5=^B ...[RESTORE TIME MACRO.
5?F2 ...[ALTERS FINISH TO GIVE CHOICE OF ENDINGS TO CLOSEDOWN
5?YL ...[ %A=ON - ENDS WITH GEOSTOP
5#D= ...[ %A=OFF - ENDS WITH ENDCOM
5#XW ...[DEFAULT = ON
5*CG ...[
5*X6 ...#MAC FNDELE
5BBQ ...#STR %A,ON
5BWB ...#STR
5CB2 ...(
5CTL ...#MEN FINISH
5D*= ...#TRA K14FINISH
5DSW ... ACROSS FINISHB,11
5F#G ...#END
5FS6 ...#EXI
5G?Q ...)
5GRB ...[
5H?2 ...#STR %A,OFF
5HQL ...#STR
5J== ...(
5JPW ...#MEND FINISH
5K9G ...#TRA K14FINISH
5KP6 ... ENDCOM
5L8Q ...#END
5LNB ...#EXI
5M82 ...)
5MML ...[
5N7= ...#STR %A
5NLW ...#STR
5P6G ...(
5PL6 ...#MEN FINISH
5Q5Q ...#TRA K14FINISH
5QKB ... ACROSS FINISHB,11
5R52 ...#END
5RJL ...#EXI
5S4= ...)
5SHW ...[
5T3G ...! PARAMETER MUST BE ON OR OFF
5TH6 ...#NOR
5W2Q ...[
5WGB ...[
^^^^ ...52672140001300000000