(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