MONOLITH864
(George Source)
Macros used: ACROSS, ALTLEN, DATECON, MENDAREA, MFDEFS, MHUNTW, MPERTYPNO, MPROPCON, NAME, PERCHARS, PERTYPNO, SEGENTRY, TIMECON
- MONOLITH864.txt
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