{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MES INTLUDES)}}
====== MES INTLUDES ======
(George Source)
**Macros used:** [[george:macro:OFF|OFF]], [[george:macro:ON|ON]], [[george:macro:REQSTARS|REQSTARS]]
22FL #MAC PWTABLE
22^= #STR %A
23DW (
23YG #MEN INITJOB
24D6 #TRA K21INITJOB
24XQ 3H%A,3H%B,3H%C,3H%D,3H%E,3H%F,3H%G,3H%H
25CB #END
25X2 )
26BL #DEF Z = 1?
26W= #LIS 0%I
27*W #ORD
27TG #INT
28*6 ZB
28SQ #GAP K21INITJOB+8
29#B SLINK 0
29S2 PFA +DINITJOB
2=?L SPS 4H
2=R= #DEF SW = #20202020
2?=W T1 24HPASSWORD CHECK SETTINGS ,+SW,+SW,+SW,#20202043
2?QG 8HENTRAL
2#=6 T1A #20202062,8HEMOTE
2#PQ T2 #20206345,8HCURITY :
2*9B T2A #20545767,#20202056,#57625541,#54202020,#50514750
2*P2 T31 28HLOGIN/CONNECT
2B8L T32 16HJOB/RUNJOB/INPUT,#20202030,8HMOP)
2BN= T33 16HJOB/RUNJOB/INPUT,#20203062,8HEADER)
2C7W T34 #20202020,8HRUNJOB
2CMG #20202020,12H(OPERATOR)
2D76 T3 +T31,+T32,+T33,+T34
2DLQ SIGN #40000000
2F6B #
2FL2 P STO 0 SLINK
2G5L CALL 3 18?+2]+5]
2GK= STOZ 18?+3]+20
2H4W LDN 5 ZB
2HJG LDN 2 K21INITJOB+8
2J46 LDX 6 PFA
2JHQ CALL 0 18?+2]+3]
2K3B CALL 3 18?+2]+10]
2KH2 CALL 0 NBL
2L2L LDN 0 T1
2LG= MOVE 0 12
2L^W LDN 5 T1A
2MFG LDN 6 16(1)
2M^6 MOVE 5 3
2NDQ CALL 3 18?+2]+19]
2NYB CALL 0 NBL
2PD2 LDN 5 T2
2PXL LDN 6 4(1)
2QC= MOVE 5 3
2QWW LDN 5 T2A
2RBG LDN 6 8(1)
2RW6 MOVE 5 5
2S*Q LDN 6 15(1)
2STB MOVE 5 5
2T*2 CALL 3 18?+2]+19]
2TSL LDN 7 4
2W#= PL CALL 0 NBL
2WRW LDN 2 4
2X?G SBX 2 7
2XR6 LDX 0 T3(2)
2Y=Q MOVE 0 7
2YQB ADN 1 8
2^=2 ADX 1 SIGN
2^PL LDX 6 ZB+K21INITJOB(2)
329= CALL 0 PTAB
32NW ADN 1 1
338G LDX 6 ZB+K21INITJOB+4(2)
33N6 CALL 0 PTAB
347Q CALL 3 18?+2]+19]
34MB BCT 7 PL
3572 CALL 3 18?+2]+10]
35LL CALL 3 18?+2]+10]
366= LDX 0 SLINK
36KW EXIT 0 0
375G #
37K6 PTAB LDN 3 3
384Q PTC LDN 5 0
38JB SLL 56 6
3942 DCH 5 0(1)
39HL SBN 5 #55
3=3= BPZ 5 OK1
3=GW ADN 5 #55-#46
3?2G BZE 5 OK
3?G6 NOK LDCT 5 #320
3?^Q ORS 5 0(1)
3#FB ORS 5 1(1)
3#^2 STO 5 18?+3]+20
3*DL BRN OK
3*Y= OK1 SBN 5 5
3BCW BPZ 5 NOK
3BXG OK ADN 1 2
3CC6 BCT 3 PTC
3CWQ EXIT 0 0
3DBB #
3DW2 NBL CALL 3 18?+2]+10]
3F*L CALL 5 18?+2]+20]
3FT= LDX 1 18?+1]+62
3G#W LDN 2 1(1)
3GSG LDX 5 SPS
3H#6 STO 5 0(1)
3HRQ MOVE 1 29
3J?B EXIT 0 0
3JR2 #JUM P
3K=L #EXT
3KQ= #LIS Z
3L9W #SKI 20?
3LPG ! **** ERROR IN PASSWORD CHECK TABLE * * * * * * * * * * * * * * * * *
3M96 #FRL
3MNQ #NOR
3N8B #
3NN2 #
3P7L #MAC REQSTARS
3PM= #ORD
3Q6W #INT
3QLG #DEF Z = 1?-2�$#40000000
3R66 SLINK +0
3RKQ #STR OFF,%A
3S5B (
3SK2 STARS 8H****00**
3T4L ...MPLEASE 8HPLEA00SE
3TJ= )
3W3W #STR ON,%A
3WHG (
3X36 ...MPLEASE 8H****00**
3XGQ STARS 8HPLEA00SE
3Y2B )
3YG2 #SKI Z
3Y^L SPACS 4H
3^F= X512 +512
3^YW PERI 6:0,0,0,0,0
42DG MAX +1024-(SB-SLINK)+1 [ MAX BUFFER SPACE +1
42Y6 SUMPART1 +0
43CQ ZMS +0 [ ADDR OF WORD AFTER MESSAGES
43XB WCH +0 [ WHICH CHAPTER
44C2 WMS +0 [ POINTER TO CURRENT MESSAGE
44WL SEG 8H
45B= TCHD +0 [ ACTUAL CHAPTER D ADDRESS
45TW TCHL +0 [ ACTUAL CHAPTER LENGTH
46*G TABLE
46T6 #GAP AMFNUMBER [ COMPILED-IN CHAPTERS
472# ...#UNS ADDMESS
477G ...(
47#Q +DMESSX/128+(LMESSX@L13)
47SB #SKI ADDMESS� [ IF ANY MESSXX ETC.
48#2 (
48RL +DMESSXX/128+(LMESSXX@L13)
49?= #SKI AKMESSXX>1$1
49QW +DMESSXY/128+(LMESSXY@L13)
4==G #SKI AKMESSXX>2$2
4=Q6 +DMESSXZ/128+(LMESSXZ@L13)
4?4H ...)
4?BY ...)
4?PB TABEND +TABEND-TABLE
4#92 TD [ DISC ADDRESS OF CURRENT TRANSFER
4#NL +DCHTABLE+KMESSA/128+1
4*8= TL [ LENGTH OF CURRENT TRANSFER
4*MW +DCHTABLE+KMESSA±+AMFNUMBER
4B7G QCHANG -1 [ SET TO 0 IF ANY CHANGES THIS TIME
4BM6 #
4C6Q TFR DEX 0 PERI [ DISC TRANSFER ROUTINE,
4CLB LDX 0 TD [ ALLOWING FOR END-OF-SEEK-AREA
4D62 STO 0 PERI+4
4DKL LDX 0 TL
4F5= STO 0 PERI+2
4FJW LDN 0 SB
4G4G STO 0 PERI+3
4GJ6 RPT PERI 0 PERI
4H3Q SUSBY 0 6
4HHB LDCT 0 #200
4J32 ANDX 0 PERI+1
4JGL BZE 0 XESA
4K2= LDX 0 PERI+1 [ END OF SEEK AREA HIT
4KFW ANDN 0 #7777
4K^G SBX 0 PERI+3
4LF6 ADS 0 PERI+3
4LYQ SBS 0 PERI+2
4MDB SRL 0 7
4MY2 ADS 0 PERI+4
4NCL BRN RPT
4NX= XESA EXIT 7 0
4PBW #
4PWG START STO 0 SLINK
4QB6 #SKI Z
4QTQ CALL 3 18?+2]+10]
4R*B LDN 0 2 [ INITIALLY, READ MESSAGE CHAPTER
4RT2 CALL 7 TFR [ DETAILS FROM CHTABLE INTO BUFFER
4S#L LDN 6 DCHTABLE+KMESSA±+SB
4SS= LDN 7 TABLE
4T?W MOVE 6 AMFNUMBER [ COPY RELEVANT DATA INTO TABLE
4TRG LDX 3 WCH
4W?6 NCHAP
4WQQ LDX 1 TABLE(3)
4X=B SRL 12 13
4XQ2 STO 1 TCHL [ UNPACK L AND D VALUES
4Y9L SRL 2 11
4YP= STO 2 TCHD
4^8W ADN 2 1
4^NG STO 2 TD
5286 TXL 1 MAX
52MQ BCS NTB
537B LDN 1 640
53M2 NTB STO 1 TL
546L LDN 0 2
54L= CALL 7 TFR
555W STO 7 QCHANG [ SET # 0 AT START OF NEW SEG
55KG TXU 1 TCHL
5656 BCC PLZ
56JQ LDN 1 512
574B STO 1 TL
57J2 PLZ LDX 0 K90MESSA+SB
583L STO 0 ZMS
58H= LDN 2 K90MESSA+1
592W STO 2 WMS
59GG LDX 0 SB
5=26 LDX 1 SB+1
5=FQ STO 0 SEG
5=^B STO 1 SEG+1
5?F2 STOZ SUMPART1
5?YL NMESS
5#D= LDX 5 SB+2(2)
5#XW LDX 6 SB+3(2)
5*CG SRL 67 12
5*X6 ... TXU 5 MPLEASE
5BBQ ... TXU 6 MPLEASE+1
5BWB BCS SRCH [ NOT 'PLEASE' REQUEST
5CB2 STOZ QCHANG
5CTL LDX 5 STARS
5D*= LDX 6 STARS+1
5DSW SLL 67 12
5F#G STO 5 SB+2(2)
5FS6 STO 6 SB+3(2)
5G?Q #SKI Z
5GRB (
5H?2 LDN 6 SB+2(2)
5HQL LDX 4 SB(2)
5J== CALL 5 18?+2]+20]
5JPW LDX 1 18?+1]+62
5K9G LDN 0 SEG
5KP6 MVCH 0 8
5L8Q LDX 5 SPACS
5LNB STO 5 0(1)
5M82 LDN 2 1(1)
5MML MOVE 1 27
5N7= LDN 7 0(1)
5NLW LDN 2 111
5P6G ANDN 4 #7777
5PL6 SBN 4 1
5Q5Q TXL 2 4
5QKB BCS TOOL
5R52 LDX 2 4
5RJL TOOL MVCH 6 1(2)
5S4= CALL 3 18?+2]+19]
5SHW LDX 2 WMS
5T3G )
5TH6 SRCH LDEX 3 SB(2)
5W2Q ADN 3 3
5WGB SRL 3 2
5X22 ADN 2 2(3)
5XFL TXL 2 TL
5X^= BCC VFLO
5YDW STO 2 WMS
5YYG TXL 2 ZMS
5^D6 BCS NMESS
5^XQ #
62CB SEGEND
62X2 LDX 0 QCHANG
63BL BNZ 0 UNCH
63W= LDX 6 SUMPART1
64*W LDX 2 TL
64TG LDN 1 SB
65*6 SBN 2 1
65SQ TXL 2 X512
66#B BCS SHORT
66S2 SUM 0 0
67?L TXU 2 X512
67R= BCC SUMMD
68=W LDX 6 0
68QG LDN 1 SB+512
69=6 SHORT SUM 0 0(2)
69PQ ADX 0 6
6=9B SUMMD LDX 1 TCHD
6=P2 SLL 1 7
6?8L SBX 1 0
6?N= STO 1 SB(2)
6#7W LDN 0 3
6#MG CALL 7 TFR
6*76 UNCH LDX 3 WCH
6*LQ ADN 3 1
6B6B STO 3 WCH
6BL2 TXL 3 TABEND
6C5L BCS NCHAP
6CK= #SKI Z
6D4W CALL 3 18?+2]+10]
6DJG LDX 0 SLINK
6F46 EXIT 0 0
6FHQ #
6G3B VFLO LDN 1 SB
6GH2 SUM 0 0
6H2L STO 0 SUMPART1
6HG= LDX 6 QCHANG
6H^W BNZ 6 PT1UC
6JFG LDN 0 3
6J^6 CALL 7 TFR
6KDQ PT1UC LDN 0 4
6KYB ADS 0 TD
6LD2 LDX 0 TCHL
6LXL SBN 0 512
6MC= STO 0 TL
6MWW SBN 2 512
6NBG STO 2 WMS
6NW6 LDN 0 512
6P*Q SBS 0 ZMS
6PTB LDN 0 2
6Q*2 CALL 7 TFR
6QSL BNZ 6 NMESS
6R#= LDN 0 SB+512
6RRW MOVE 0 128
6S?G BRN NMESS
6SR6 #
6T=Q SB [ DISC BUFFER FOR MESSAGE CHAPTERS
6TQB #JUM START
6W=2 #EXT
6WPL #FRE Z
6X9= #NOR
6XF4 ...# THESE LINES ARE NOT NOW USED
6XNW #SKI G110&1
6Y8G REQSTARS ON
6YN6 #SKI G110&3-2<1$1
6^7Q REQSTARS OFF
6^MB #
7272 #
^^^^ ...013361650003