{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MONOLITH864)}}
====== MONOLITH864 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLEN|ALTLEN]], [[george:macro:DATECON|DATECON]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFDEFS|MFDEFS]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MPERTYPNO|MPERTYPNO]], [[george:macro:MPROPCON|MPROPCON]], [[george:macro:NAME|NAME]], [[george:macro:PERCHARS|PERCHARS]], [[george:macro:PERTYPNO|PERTYPNO]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TIMECON|TIMECON]]
22FL #SEG MONOLITH70 [R TERRY
22^= #LIS K0MONCHAPS>K0ALLGEO>K0MONFILE
23DW 8HMONOLITH
23YG SEGENTRY K1MONOLITH,SENTRY1
24D6 SEGENTRY K2MONOLITH,SENTRY2
24XQ #
25CB # THIS SECTION IS ENTERED FROM MONFILE/JRNAL
25X2 # TO CREATE A BOUT BLOCK WHEN THERE ARE NO
26BL # PARAMETERS
26W= #
27*W #
27TG # THERE ARE NO PARAMETERS, SO HERE WE MUST
28*6 # JUST DISCARD UNWANTED MESSAGE PARTS
28SQ #
29#B SENTRY2
29S2 MHUNTW 3,GMON,ATEMP
2=?L NAME 3,GMON,BOUT
2=R= LDX 7 ALOGLEN(3) [TOTAL WORDS
2?=W ADN 3 A1
2?QG STO 3 PARTPTR(2) [1ST PART
2#=6 LDX 2 3
2#FY ... LDX 1 3
2#PQ #
2*9B # OFF WE GO
2*P2 SCAR1 TXU 2 3
2B8L BCC SCAR3 [J IF MOVE FUTILE
2BN= SMOVE SMO 7
2C7W MOVE 2 0
2CMG MV2 LDX 2 3
2D76 SCAR3 LDEX 0 0(3)
2DLQ ADN 0 11
2F6B SRL 0 2
2FL2 ADX 2 0 [PTR TO NEXT PART
2G5L SBX 7 0
2GK= LDEX 4 0(3) [CHARACTER COUNT
2H4W BZE 4 SCAR4
2HJG LDX 1 3
2J46 SCARF LDCH 0 2(1)
2JHQ SBN 0 #25
2K3B BZE 0 SCARE [J IF % OR $
2KH2 SBN 0 #74-#25
2L2L BZE 0 SCARE
2LG= BCHX 1 £
2L^W BCT 4 SCARF
2MFG SCARE SBS 4 0(3) [ADJUST CHAR COUNT HDDR
2M^6 SCAR4 LDCT 0 #100
2NDQ ANDX 0 1(3)
2NYB TXL 1 BITS22LS
2PD2 NGN 3 0
2PXL ADN 3 3(1) [PTR TO NEXT FREE WORD
2QC= BNZ 0 SCAR1 [J IF CONTINUED
2QWW #
2RBG # HERE WERE ALL THROUGH !
2RW6 # X3->NEXT FREE WORD
2S*Q LDX 2 FX2
2STB LDX 4 3
2T*2 SBX 4 PARTPTR(2)
2TSL LDX 3 PARTPTR(2)
2W#= SBN 3 A1 [->BOUT
2WRW TXU 4 ALOGLEN(3)
2X?G BCC NOCNG [J IF NO CHANGE
2XR6 ALTLEN 3,4 [ELSE LOP END OFF
2Y=Q ...NOCNG ACROSS MONFILEA,1 [TO T/P
2YQB #
2^=2 # OVERSPILL FROM MONFIL
2^PL # ON ENTRY , X5 IS A ROUTING PARAM
329= # ON EXIT X5 INDICATES 'RETURN' OR 'PDCEND' CF NOMLIF
32NW #
338G SETUP MHUNTW 1,GMON,BOUT
33N6 LDX 2 FX2
347Q LDX 3 OUTCHAR(2) [OUTCHAR>ACOMMUNE3
34MB ADX 3 1
3572 EXIT 5 0
35LL #
366= #
36KW UNSVB MHUNTW 1,ADATA,GMONACC
375G ADN 1 A1
37K6 LDX 2 FX2
384Q ADN 2 ACOMMUNE1
38JB MOVE 1 9
3942 EXIT 6 0
39HL MFDEFS
3=3= # BRANCH TABLE
3=GW TABLE BRN QGEOPER [0
3?2G BRN QPERINAME [1
3?G6 BRN QPERITYPE [2
3?^Q BRN QTIMETHEN [3
3#FB BRN QDATETHEN [4
3#^2 BRN QPROPS [5
3*DL #
3*Y= SENTRY1
3BCW SMO 5
3BXG BRN TABLE
3CC6 RETURN
3CWQ LDN 5 0
3DBB BRN QUIT
3DW2 PDCEND
3F*L LDN 5 1
3FT= QUIT MHUNTW 2,GMON,BOUT
3G#W MHUNTW 1,ADATA,GMONACC
3GSG SBX 3 2 [DATUMIZE
3H#6 STO 3 OUTCHAR-ACOMMUNE1+A1(1)
3HRQ ACROSS MONFIL,2 [BACK TO MONFIL
3J?B #
3JR2 #
3K=L QPERINAME
3KQ= ... MPERTYPNO 4
3L9W CALL 5 SETUP
3LJ? ... LDX 5 ACOMMUNE9(2)
3LWN ... ADN 2 ACOMMUNE8
3M96 LDN 0 #32
3MNQ DCH 0 0(3) [*
3N8B BCHX 3 £
3N?G ... BZE 5 XLESS64 [J IF ONLY 4 CHARS IN NAME
3NBL ... LDN 5 1 [5TH IN ACOMMUNE9
3NFQ ...XLESS64
3NJW ... SMO 5
3NN2 MVCH 2 4
3P7L BRN RETURN
3PM= #
3Q6W #
3QLG QPERITYPE
3R66 SRC 4 9
3RKQ PERTYPNO 4,1
3S5B CALL 5 SETUP
3SK2 ADN 2 ACOMMUNE9
3T4L LDN 0 #32
3TJ= DCH 0 0(3) [*
3W3W BCHX 3 £
3WHG MVCH 2 2
3X36 BRN RETURN
3XGQ #
3Y2B #
3YG2 QGEOPER
3Y^L PERCHARS 4
3^F= CALL 5 SETUP
3^YW LDX 0 ACOMMUNE1(2)
42DG ADN 2 ACOMMUNE2
42Y6 SMO 0
43CQ MVCH 2 0
43XB SBX 7 0
44C2 BRN PDCEND
44WL #
45B= #
45TW QTIMETHEN
46*G TIMECON 4
46T6 QTIM1 CALL 5 SETUP
47#Q ADN 2 ACOMMUNE1
47SB MVCH 2 8
48#2 SBN 7 8
48RL BRN PDCEND
49?= #
49QW #
4==G QDATETHEN
4=Q6 DATECON 4
4?9Q BRN QTIM1
4?PB #
4#92 #
4#NL #
4*8= QPROPS
4*MW CALL 5 SETUP
4B7G LDX 2 X2(2)
4BM6 ADN 2 A1
4C6Q MHUNTW 1,ADATA,GMONACC
4CLB LDX 0 JPROPCON(1)
4D62 BZE 0 PROPCON [DITTI
4DKL PR1 TXU 2 JPROPCON+1(1)
4F5= BCC THIS
4FJW LDX 6 JPROPCON+2(1)
4G4G ADN 6 11
4GJ6 SRL 6 2
4H3Q ADX 1 6
4HHB BRN PR1 [NEXT RECORD
4J32 PROPCON
4JGL MHUNTW 1,GMON,ASET
4K2= ADX 2 1
4KFW LDX 0 0(2)
4K^G SRL 0 6
4LF6 ANDN 0 4095
4LYQ SBN 0 1
4MDB ADX 0 1(2) [1ST PROPERTY
4MY2 BNZ 0 VPROP [IF JUST 'CENTRAL' SPECIAL
4NCL SMO FX1
4NX= LDN 1 XCENT-2-JPROPCON
4PBW THIS LDN 2 JPROPCON+3(1) [[X1->APPR RECORD
4PWG LDX 1 JPROPCON+2(1) [NO OF CHARS
4QB6 MVCH 2 0(1)
4QTQ BRN RETURN
4R*B # MUSST CONVERT
4RT2 VPROP MPROPCON
4S#L CALL 6 UNSVB
4SS= BRN QPROPS [AND SEARCH
4T?W XCENT +7,8HCENTRAL
4TRG #
4W?6 MENDAREA 50,GAPMONOLITH
4WQQ #END
^^^^ ...14725353000100000000