MES INTLUDES
(George Source)
Macros used: OFF, ON, REQSTARS
- MES INTLUDES.txt
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