Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROSIPC)}} ====== MACROSIPC ====== (George Source) <code - MACROSIPC.txt>229S ...[ THIS MACRO SUBFILE BELONGS TO :- 22FL ...[ 1) KEITH MARTIN :COMM 22PD ...[ 2) OWEN N JOHN :CENT 22^= ...[ 2394 ...[ LOCATION 8-OPAW (BRA) 23DW ...[ 23NN ...[ 23YG [ 24D6 [CONTENTS LIST:- 24XQ [ 25CB [ CANTR [CANCELS A STORED TRANSFER 25X2 [ CIPCM 26BL [ CLINK 26W= [ DECLINK 27*W [ DROPTASK 27TG [ FRENO 28*6 [ GDISREP 28SQ [ GETNO 29#B [ GETNOG 29S2 [ GETPERNEXT 2=?L [ GPNS 2=R= [ INCLINK 2?=W [ INFIPCA 2?QG [ IPCANC 2#=6 [ IPCLIM 2#PQ [ IPCLOSE 2*9B [ IPCOPEN 2*P2 [ IPCREAD 2*YS ...[ IPCREOFF 2B8L [ IPCREP 2BN= [ IPCSTATE 2C7W [ IPCWRITE 2CCN ...[ IPCPRIV 2CMG [ IPFAIL 2D76 [ JIPCM 2DLQ [ JIPCMC 2F6B [ JIPCMN 2FL2 [ KILLHANGER 2FYC ...[ LRIDENT 2G=S ...[ NOSUSPEND (OWNED BY :CENT ! 2GK= [ NUMLINK 2HJG [ QTASK 2J46 [ QTASKW 2JHQ [ RESETIPC 2K3B [ SIPCM 2KH2 [ STOPHANGER 2L2L [ TELEST 2LG= [ TESTPROP 2L^W [ TIPCREP 2MFG [ TRAST 2M^6 [ TREQST 2NDQ [ TRIPB 2NYB [ WAKEHANGER 2PD2 [ 2PXL [END OF LIST. 2QC= [ 2QM4 ...[??? CANTR SECT COMM FGN 19 DOC 2QWW #MAC CANTR [CANCELS A STORED TRANSFER 2RBG #STR %A 2RW6 STO %A ACOMMUNE9(2) 2S*Q #STR %A 2STB #SKIP 2T*2 STO 2 ACOMMUNE9(2) 2TSL DOWN GETNO,5 2W#= LDX 6 ACOMMUNE9(2) 2WRW #NOR 2X3N ...[??? CIPCM SECT COMM FGN 19 DOC 2X?G #MAC CIPCM 2XR6 NGN 0 1+IPCMR%A 2Y=Q #STR %B 2YQB ( 2^=2 SMO %B 2^PL ANDS 0 IPCMKR 329= ) 32NW #STR %B 338G #SKI 33N6 ANDS 0 IPCMKR(2) 347Q #NOR 34G7 ...[??? CLINK SECT COMM FGN 19 DOC 34SJ ...[ CLOSE A LINK 3572 #MAC CLINK 35LL #STR %A 366= STO %A ACOMMUNE9(2) 36KW #STR %A 375G #SKIP 37K6 STO 2 ACOMMUNE9(2) 384Q DOWN GETNO,4 38JB #NOR 38S8 ...[??? DECLINK SECT COMM FGN 19 DOC 3942 #MAC DECLINK 39HL DFLOAD %A,LKCT 3=3= SBN 0 1 3=GW DFSET %A,LKCT,0 3?2G #NOR 3?#X ...[??? DROPTASK SECT COMM FGN 19 DOC 3?M# ...[ REMOVE A TASK BLOCK ASSOCIATED WITH A LINK TO BE CLOSED 3?^Q #MAC DROPTASK 3#FB LDX 2 FX2 3#^2 LDX 0 %A 3*DL STO 0 ACOMMUNE1(2) 3*Y= SMO %B 3BCW LDX 0 ALINUM 3BXG STO 0 ACOMMUNE2(2) 3CC6 DOWN GETNOR,1 3CWQ #NOR 3D97 ...[??? FRENO SECT COMM FGN 19 DOC 3DHJ ...[ REMOVES RECORD WITH LINK NUMBER %A FROM IPSTACK AND FREES NUMBER 3DW2 #MAC FRENO 3F*L LDX 0 %A 3FT= SMO FX2 3G#W STO 0 ACOMMUNE1 3GSG DOWN GETNOR,3 3H#6 #NOR 3HLH ...[??? GDISREP SECT COMM FGN 19 DOC 3HYY ...[ UNSET DISESTABLISHED MARKER,AND SET DISESTABLISHED REPLY GIVEN. 3J?B #MAC GDISREP 3JR2 LDX 0 AWORK1(%A) 3K=L SMO AWORK1(%A) 3KQ= LDX 1 ARINGEL(%A) 3L9W SBX 1 0 3LPG LDN 0 1 3M96 SLL 0 20 3MNQ ORS 0 ASTATUS2(1) 3N8B SLL 0 1 3NN2 ERS 0 ASTATUS2(1) 3P7L LDX 1 FX1 3PM= #NOR 3P^M ...[??? GETNO SECT COMM FGN 19 DOC 3Q#4 ...[ TO ASSIGN A UNIQUE LINK NUMBER TO A LINK BEING OPENED 3QLG #MAC GETNO 3R66 DOWN GETNO,1 3RKQ LDX 0 ACOMMUNE1(2) 3S5B STO 0 %A 3SK2 #NOR 3SXC ...[??? GETNOG SECT COMM FGN 19 DOC 3T9S ...[ ASSIGNS A LINK NUMBER TO A GEORGE LINK 3TJ= #MAC GETNOG 3W3W DOWN GETNO,8 3WHG LDX 0 ACOMMUNE1(2) 3X36 STO 0 %A 3XGQ #NOR 3XT7 ...[??? GETPERNE SECT COMM FGN 19 DOC 3Y7J ...[ GET THE NEXT DEVICE WITH SUITABLE PROPERTIES 3YG2 #MAC GETPERNEXT 3Y^L LDX 0 %A 3^F= SRL 0 18 3^YW STO 0 %A 42DG FINDPEREC %C,APFOTY,%A,MGNEXT1 42Y6 BNG %C MGNEXTY 43CQ SMO FX2 43XB STO %C CPPTR 44C2 LGEOG %C,0 44WL SMO FX2 45B= STO 0 JSOURCE1 45TW LDX 0 %A 46*G SLL 0 18 46T6 STO 0 %A 47#Q SMO FX2 47SB ORS 0 JSOURCE1 48#2 SETPROP MGNEXTBRK,MGNEXTAG,KEEP [CHECK PROPERTIES 48RL TESTREP OK,MGNEXT2 49?= MGNEXTAG [PROPERTIES NO GOOD 49QW LDX 0 %A 4==G SRL 0 18 4=Q6 STO 0 %A 4?9Q SMO FX2 4?PB LDX %C CPPTR 4#92 BRN MGNEXT1 [FIND NEXT DEVICE 4#NL MGNEXTBRK [SETPROP BROKEN IN ON 4*8= SMO FX2 4*MW LDX %C CPPTR 4B7G BRN %B 4BM6 %D [RE-ENTRY POINT 4C6Q LDX 0 %A 4CLB SRL 0 18 4D62 STO 0 %A 4DKL BRN MGNEXT1 4F5= MGNEXT2 4FJW JDISENG CPPTR(2),MGNEXT3 4G4G DSCA ,LDX,2,CHADD 4GJ6 SBN 2 CHAINADD 4H3Q JIPCM DS,MGNEXT3,2 4HHB LDX 2 FX2 4J32 BRN MGNEXTX 4JGL MGNEXT3 4K2= LDX 2 FX2 4KFW LDN 0 1 4K^G ORS 0 HBRIN(2) 4LF6 LDX 0 %A 4LYQ SRL 0 18 4MDB STO 0 %A 4MY2 BRN MGNEXT1 4NCL MGNEXTX 4NX= LDX %C CPPTR(2) [GIVE POINTER TO NEXT DEVICE 4PBW MGNEXTY 4PWG #NOR 4Q8X ...[??? GPNS SECT COMM FGN 19 DOC 4QH# ...[ GET THE NAMES OF THE PROGRAMS AT EITHER END OF THE LINK 4QTQ #MAC GPNS 4R*B STO 1 GEN0 4RT2 HUNT2B 1,AOBRES,0,2 4S#L LDX 0 A1+1(1) 4SS= STO 0 %A [GIVE 1ST PROGRAM NAME 4T?W SMO AWORK1(2) 4TRG LDX 1 ARINGEL(2) 4W?6 SBX 1 AWORK1(2) 4WQQ LDX 0 ASTATUS2(1) 4X=B ADX 1 AWORK1(2) 4XQ2 SLL 0 1 4Y9L BPZ 0 M1 [J IF LINK ESTABLISHED 4YP= STOZ %B [2ND PROGRAM NAME=0 4^8W BRN MX 4^NG M1 LDX 0 ALTPROG(1) 5286 BZE 0 M2 [J IF WMC LINK 52MQ STO 0 %B 537B BRN MX 53M2 M2 LDX 0 AWORK1(2) 546L SBX 2 0 54L= LDX 1 ARINGEL+1(2) 555W ADX 2 0 55KG SBN 1 ARINGEL 5656 HUNT2B 1,AOBRES,0 56JQ LDX 0 A1+1(1) 574B STO 0 %B 57J2 MX LDX 1 GEN0 583L #NOR 58?D ...[??? INCLINK SECT COMM FGN 19 DOC 58H= #MAC INCLINK 592W DFLOAD %A,LKCT 59GG ADN 0 1 5=26 DFSET %A,LKCT,0 5=FQ #NOR 5=S7 ...[??? INFIPCA SECT COMM FGN 19 DOC 5?6J ...[ STORE THE DETAILS OF A LINK IN THE STACK AND WAKE THE INTERN ACTIVITY 5?F2 #MAC INFIPCA 5?YL LDX 0 %A 5#D= STO 0 ACOMMUNE1(2) 5#XW DOWN GETNO,3 5*CG #NOR 5*M# ...[??? IPCANC SECT COMM FGN 19 DOC 5*X6 #MAC IPCANC 5BBQ HUNT 2,IPCD,IPCGL%A 5BWB BPZ 2 MIPCANC1 5CB2 GEOERR 1,NOIPCLNK 5CTL MIPCANC1 5D*= LDX 2 A1(2) 5DSW LDX 0 ASTATUS1(2) 5F#G BNG 0 %B 5FS6 ANDN 0 1 5G?Q BZE 0 MIPCANC2 5GRB ERS 0 ASTATUS1(2) 5H?2 STOZ ATIMCT(2) 5HQL STOZ AREPPTR(2) 5J== STOZ ASTMEL(2) 5JPW LDX 0 ALINUM(2) 5K9G SMO FX2 5KP6 STO 0 ACOMMUNE1 5L8Q LDX 2 APTRIPB(2) 5LNB MIPCANC3 5M82 HUNT2OPT 2,IPCD,ATASK 5MML BNG 2 MIPCANC2 5N7= LDX 0 A1+1(2) 5NLW SBN 0 6 5P6G BNZ 0 MIPCANC3 5PL6 LDX 0 A1(2) 5Q5Q SMO FX2 5QKB TXU 0 ACOMMUNE1 5R52 BCS MIPCANC3 5RJL SMO FX2 5S4= STO 2 ACOMMUNE2 5SHW FREECORE 2 5T3G LDX 2 ACOMMUNE2(2) 5TH6 BRN MIPCANC3 5W2Q MIPCANC2 5WGB LDX 1 FX1 5X22 LDX 2 FX2 5XFL #NOR 5XPD ...[??? IPCLIM SECT COMM FGN 19 DOC 5X^= #MAC IPCLIM 5YDW #STR ALL,%A 5YYG ( 5^D6 #SKI IPCLIMAX-IPCLIMNO 5^XQ ( 62CB #MEND IPCSTART 62X2 #TRA IPCLIMA+IPCLIMNO 63BL #STR WMC,%A 63W= ... +(%B<#7776)*10000+%A 64*W #STR WMC,%A 64TG #SKI 65*6 ... +(%B<#7776)*10000 65SQ #END 66#B RESET IPCLIMNO,IPCLIMNO+1 66S2 ) 67?L ) 67R= #STR ALL,%A 68=W #SKI 68QG ( 69=6 #MEND GETNO 69PQ #TRA IPCLIMB 6=9B ... LDN 5 %B<#7776 6=P2 #END 6?8L ) 6?N= #NOR 6?Y4 ...[??? IPCLOSE SECT COMM FGN 19 DOC 6#7W #MAC IPCLOSE 6#MG IPCANC %A,%B 6*76 #STR R,%A 6*LQ ( 6B6B LDN 0 1 6BL2 STO 0 ACOMMUNE4(2) 6C5L ) 6CK= #STR R,%A 6D4W #SKI 6DJG STOZ ACOMMUNE4(2) 6F46 DOWN IPCGEO,2 6FHQ #NOR 6FRJ ...[??? IPCOPEN SECT COMM FGN 19 DOC 6G3B #MAC IPCOPEN 6GH2 LDX 0 %D 6H2L SMO FX2 6HG= STO 0 ACOMMUNE1 6H^W LDX 0 %B 6JFG ADN 0 5 6J^6 SMO FX2 6KDQ STO 0 ACOMMUNE2 6KYB LDX 2 FX2 6LD2 SETUPCORE ACOMMUNE2(2),2,IPCD,IPCGL%A,,1 6LXL SMO FX2 6MC= STO 2 ACOMMUNE3 6MWW LDX 2 FX2 6NBG LDX 0 ACOMMUNE2(2) 6NW6 SBN 0 5 6P*Q LDN 1 %C 6PTB LDX 2 ACOMMUNE3(2) 6Q*2 ADN 2 IPCGNAM 6QSL SMO 0 6R#= MOVE 1 0 6RRW LDX 2 FX2 6S?G #STR %E 6SR6 STOZ ACOMMUNE3(2) 6T=Q #STR %E 6TQB %SKI 6W=2 ( 6WPL LDN 0 1 6X9= STO 0 ACOMMUNE3(2) 6XNW ) 6Y8G #STR W,%A 6YN6 STOZ ACOMMUNE4(2) 6^7Q #STR R,%A 6^MB ( 7272 LDN 0 1 72LL STO 0 ACOMMUNE4(2) 736= ) 73KW DOWN IPCGEO,1 745G #STR %E 74K6 BRN %E 754Q #STR %E 75JB #SKI 7642 BRN £ 76HL #NOR 76HP ...[??? IPCSUBR SECT FILE FGN 1 DOC 76HS ...[ THIS MACRO IS CALLED BY IPCREAD/IPCWRITE 76HX ...[ TO GENERATE A SUBROUTINE 76J2 ...#MAC IPCSUBR 76J5 ...#UNS MIPCSUBR 76J8 ...#EXI 76J? ... BRN MIPCSUBRX 76JB ...#DEF MIPCSUBR=0? 76JF ... STO 1 GEN0 76JJ ... HUNTX 1,0(1) 76JM ... BPZ 1 MIPCSUB1 76JQ ... GEOERR 1,NOIPCLNK 76JT ...MIPCSUB1 76JY ... LDX 1 IPCRNG(1) 76K3 ... LDX 0 ASTATUS1(1) 76K6 ... ANDN 0 1 76K9 ... BZE 0 MIPCSUB2 76K# ... LDN 0 #21 76KC ... SRC 0 5 76KG ... LDX 1 FPTR(1) 76KK ... STO 0 IPCGREP-IPCRNG(1) 76KN ... BRN MIPCSUB 76KR ...MIPCSUB2 76KW ... SMO GEN0 76K^ ... OBEY 2 76L4 ... STO 0 ASTR(1) 76L7 ... SMO GEN0 76L= ... OBEY 3 76L* ... STO 0 ALENTR(1) 76LD ... SMO GEN0 76LH ... OBEY 4 76LL ... STO 0 ATIMCT(1) 76LP ... SMO GEN0 76LS ... OBEY 1 76LX ... STO 0 ASTMEL(1) 76M2 ... LDN 0 1 76M5 ... ORS 0 ASTATUS1(1) 76M8 ... LDX 0 ASTATUS2(1) 76M? ... SLL 0 2 76MB ... BPZ 0 MIPCSUB3 76MF ... LDN 2 0 76MJ ... JDISENG APTRIPB(1),MIPCSUB4 76MM ... LDN 2 #10 76MQ ...MIPCSUB4 76MT ... LDCT 0 #24(2) 76MY ... LDX 1 FPTR(1) 76N3 ... STO 0 IPCGREP-IPCRNG(1) 76N6 ... LDX 1 FPTR(1) 76N9 ... NGN 0 2 76N# ... ANDS 0 ASTATUS1(1) 76NC ... LDCT 0 #140 76NG ... ERS 0 ASTATUS2(1) 76NK ... BRN MIPCSUB 76NN ...MIPCSUB3 76NR ... SLL 0 1 76NW ... BPZ 0 MIPCSUB5 76N^ ... LDX 0 GEN0 76P4 ... EXIT 0 5 76P7 ...MIPCSUB5 76P= ... LDCT 0 #400 76P* ... SMO FPTR(1) 76PD ... STO 0 IPCGREP-IPCRNG 76PH ... LDCT 0 #200 76PL ... ANDX 0 ASTATUS2(1) 76PP ... BNZ 0 MIPCSUB 76PS ... LDX 3 GEN0 76PX ... SBX 3 FX1 76Q2 ... SETNCORE 2,2,IPCD,ATASK 76Q5 ... ADX 3 FX1 76Q8 ... STO 3 GEN0 76Q? ... MHUNTX 1,0(3) 76QB ... LDX 1 IPCRNG(1) 76QF ... LDX 0 ASTATUS1(1) 76QJ ... ANDN 0 1 76QM ... BNZ 0 MIPCSUBX 76QQ ... FREECORE 2 76QT ... BRN MIPCSUB 76QY ...MIPCSUBX 76R3 ... LDX 0 ALINUM(1) 76R6 ... LDX 4 APTRIPB(1) 76R9 ... STO 0 A1(2) 76R# ... LDN 0 6 76RC ... STO 0 A1+1(2) 76RG ... LDX 3 2 76RK ... QTASK 3,,4 76RN ...MIPCSUB 76RR ... LDX 1 FX1 76RW ... LDX 2 FX2 76R^ ... LDX 0 GEN0 76S4 ... EXIT 0 7 76S7 ...MIPCSUBRX 76S= ...#NOR 76W3 ...[??? IPCREAD SECT COMM FGN 20 DOC 778D ...[ THIS MACRO REQUESTS A READ ON A GEORGE IPC LINK 77N4 ...#MAC IPCREAD 787N ... IPCSUBR 78M# ... CALL 1 MIPCSUBR 796Y ...#HAL +IPCD+IPCGLR,0 79LJ ... LDN 0 IPCGT%A 7=68 ... LDX 0 %B 7=KS ... LDX 0 %C 7?5D ... LDX 0 %D 7?K4 ... DOWN IPCGEO,3 7#4N ...#NOR 899C ...[ 899S ...[ 89=9 ...[ 89=L ...[??? IPCREOFF SECT COMM FGN 21 DOC 89?3 ...#MAC IPCREOFF 89?D ...#MEN IPCOPENA 89?T ...#TRA BIPCOPENA 89#= ... BRN CIPCOPENA 89## ...#TRA FIPCOPENA 89#B ... NULL 89#D ...#TRA EIPCOPENA 89#G ... NULL 89#M ...#END 89*4 ...#MEN IPCOPENB 89*F ...#TRA BIPCOPENB 89*W ... BRN CIPCOPENB 89B2 ...#TRA EIPCOPENB 89B6 ... NULL 89B? ...#END 89B* ...#MEN IPCPERI 89BC ...#TRA AIPCPERI 89BF ... NULL 89BH ...#END 89BN ...#NOR 89C5 ...[ 89CG ...[ 89CX ...[ 89DS ...[??? IPCREP SECT COMM FGN 19 DOC 89NL #MAC IPCREP 8=8= HUNT %B,IPCD,IPCGL%A 8=MW BPZ %B MIPCREP 8?7G GEOERR 1,NOIPCLNK 8?M6 MIPCREP LDX %B IPCGREP(%B) 8#6Q #NOR 8#BJ ...[??? IPCSTATE SECT COMM FGN 19 DOC 8#LB #MAC IPCSTATE 8*62 HUNT %B,IPCD,IPCGL%A 8*KL BPZ %B MIPCSTATE1 8B5= GEOERR 1,NOIPCLNK 8BJW MIPCSTATE1 SMO FX2 8C4G STOZ ACOMMUNE1 8CJ6 LDX %B IPCRNG(%B) 8D3Q SMO FX2 8DHB STO %B ACOMMUNE2 8F32 LDX %B APTRIPB(%B) 8FGL JDISENG CPPTR(%B),MIPCSTATE2 8G2= LDCT 0 #10 8GFW SMO FX2 8G^G ORS 0 ACOMMUNE1 8HF6 MIPCSTATE2 JIPCMN DS,MIPCSTATE3,%B 8HYQ LDCT 0 #100 8JDB SMO FX2 8JY2 ORS 0 ACOMMUNE1 8KCL JIPCMN GB,MIPCSTATE4,%B 8KX= LDCT 0 #40 8LBW SMO FX2 8LWG ORS 0 ACOMMUNE1 8MB6 MIPCSTATE4 JIPCMN CD,MIPCSTATE5,%B 8MTQ LDCT 0 #20 8N*B SMO FX2 8NT2 ORS 0 ACOMMUNE1 8P#L MIPCSTATE5 JIPCMN ER,MIPCSTATE3,%B 8PS= LDCT 0 4 8Q?W SMO FX2 8QRG ORS 0 ACOMMUNE1 8R?6 MIPCSTATE3 SMO FX2 8RQQ LDX %B ACOMMUNE2 8S=B LDX 0 ASTATUS2(%B) 8SQ2 SLL 0 1 8T9L BNG 0 MIPCSTATE 8TP= ANDN 0 2 8W8W SLL 0 15 8WNG ORX 0 GSIGN 8X86 SMO FX2 8XMQ ORS 0 ACOMMUNE1 8Y7B LDX 0 ASTATUS1(%B) 8YM2 ANDN 0 1 8^6L SRC 0 1 8^L= SMO FX2 925W ORS 0 ACOMMUNE1 92KG MIPCSTATE SMO FX2 9356 LDX %B ACOMMUNE1 93JQ #NOR 93JX ...[??? IPCSUBX SECT FILE FGN 1 DOC 93K4 ...[ MACRO TO GENERATE S/R FOR IPCSTAT2 93K9 ...#MAC IPCSUBX 93KB ...#UNS MIPCSUBX 93KH ...#EXI 93KN ... BRN MIPCSUBXX 93KT ...#DEF MIPCSUBX=0? 93L2 ... LDX 0 0(1) 93L7 ... ADN 1 1 93L# ... STO 1 GEN0 93LF ... HUNTX 1,0 93LL ... BPZ 1 MIPCSUBX1 93LR ... GEOERR 1,NOIPCLNK 93LY ...MIPCSUBX1 93M5 ... LDX 2 FX2 93M= ... STOZ ACOMMUNE1(2) 93MC ... LDX 1 IPCRNG(1) 93MJ ... STO 1 ACOMMUNE2(2) 93MP ... LDX 1 APTRIPB(1) 93MW ... JDISENG CPPTR(1),MIPCSUBX2 93N3 ... LDCT 0 #10 93N8 ... ORS 0 ACOMMUNE1(2) 93N* ...MIPCSUBX2 93NG ... JIPCMN DS,MIPCSUBX3,1 93NM ... LDCT 0 #100 93NS ... ORS 0 ACOMMUNE1(2) 93N^ ... JIPCMN GB,MIPCSUBX4,1 93P6 ... LDCT 0 #40 93P? ... ORS 0 ACOMMUNE1(2) 93PD ...MIPCSUBX4 93PK ... JIPCMN CD,MIPCSUBX5,1 93PQ ... LDCT 0 #20 93PX ... ORS 0 ACOMMUNE1(2) 93Q4 ...MIPCSUBX5 93Q9 ... JIPCMN ER,MIPCSUBX3,1 93QB ... LDCT 0 4 93QH ... ORS 0 ACOMMUNE1(2) 93QN ...MIPCSUBX3 93QT ... LDX 1 ACOMMUNE2(2) 93R2 ... LDX 0 ASTATUS2(1) 93R7 ... SLL 0 1 93R# ... BNG 0 MIPCSUBXIT 93RF ... ANDN 0 2 93RL ... SLL 0 15 93RR ... ORX 0 GSIGN 93RY ... ORS 0 ACOMMUNE1(2) 93S5 ... LDX 0 ASTATUS1(1) 93S= ... ANDN 0 1 93SC ... SRC 0 1 93SJ ... ORS 0 ACOMMUNE1(2) 93SP ...MIPCSUBXIT 93SW ... LDX 1 FX1 93T3 ... BRN (GEN0) 93T8 ...MIPCSUBXX 93T* ...#NOR 93TG ...[??? IPCSTAT2 SECT FILE FGN 1 DOC 93TM ...#MAC IPCSTAT2 93TS ... IPCSUBX 93T^ ... CALL 1 MIPCSUBX 93W6 ...#HAL +IPCD+IPCGL%A,0 93W? ...#STR %B 93WD ... LDX %B ACOMMUNE1(2) 93WK ...#NOR 93X7 ...[??? IPCWRITE SECT COMM FGN 20 DOC 949J ...[ THIS MACRO REQUESTS A WRITE ON A GEORGE IPC LINK 94P8 ...#MAC IPCWRITE 958S ... IPCSUBR 95ND ... CALL 1 MIPCSUBR 9684 ...#HAL +IPCD+IPCGLW,0 96MN ... LDN 0 IPCGT%A 977# ... LDX 0 %B 97LY ... LDX 0 %C 986J ... LDX 0 %D 98L8 ... DOWN IPCGEO,4 995S ...#NOR =6=* ...[ =6=J ...[ =6=R ...[ =6?2 ...[??? IPCPRIV SECT COMM FGN 21 DOC =6?9 ...#MAC IPCPRIV =6*C ...#MEN IPCOPENA =6B4 ...#TRA AIPCOPENA =6B? ... 8H%A =6BP ...#TRA CIPCOPENA =6C7 ... NULL =6CK ...#END =6CS ...#MEN IPCOPENB =6DF ...#TRA AIPCOPENB =6DN ... 8H%A =6F6 ...#TRA CIPCOPENB =6FJ ... NULL =6G2 ...#END =6GD ...#NOR =6GM ...[ =6GW ...[ =6H5 ...[ =6JH ...[??? IPFAIL SECT COMM FGN 19 DOC =6WY ...[ TEST IF LINK HAS FAILED IN OPENING,AND JUMP IF NOT =79B #MAC IPFAIL =7P2 SMO AWORK1(%A) =88L LDX 1 ARINGEL(%A) =8N= SBX 1 AWORK1(%A) =97W LDX 0 ASTATUS2(1) =9MG LDX 1 FX1 ==76 SLL 0 4 ==LQ BPZ 0 %B =?6B #NOR =?L2 ...[??? JIPCM SECT COMM FGN 20 DOC =#5L ...#MAC JIPCM =#K= ... LDN 0 IPCMR%A =*4W ...#STR %C =*JG ... MOD ANDX 0 IPCMKR,%C =B46 ...#STR %C =BHQ ...#SKI =C3B ... ANDX 0 IPCMKR(2) =CH2 ... BNZ 0 %B =D2L ...#NOR =DG= ...[??? JIPCMC SECT COMM FGN 20 DOC =D^W ...#MAC JIPCMC =FFG ... LDN 0 IPCMR%A =F^6 ...#STR %C =GDQ ... MOD ANDX 0 IPCMKR,%C =GYB ...#STR %C =HD2 ...#SKI =HXL ... ANDX 0 IPCMKR(2) =JC= ...#STR %C =JWW ... MOD ERS 0 IPCMKR,%C =KBG ...#STR %C =KW6 ...#SKI =L*Q ... ERS 0 IPCMKR(2) =LTB ... BNZ 0 %B =M*2 ...#NOR =MSL ...[??? JIPCMN SECT COMM FGN 20 DOC =N#= ...#MAC JIPCMN =NRW ... LDN 0 IPCMR%A =P?G ...#STR %C =PR6 ... MOD ANDX 0 IPCMKR,%C =Q=Q ...#STR %C =QQB ...#SKI =R=2 ... ANDX 0 IPCMKR(2) =RPL ... BZE 0 %B =S9= ...#NOR =YY? ...[??? KILLHANG SECT COMM FGN 19 DOC =^=N ...[ CAUSE HANGER BLOCK TO COMMIT SUICIDE =^K6 #MAC KILLHANGER ?24Q LDX 0 %A ?2JB LDX 2 FX2 ?342 STO 0 ACOMMUNE1(2) [STORE LINK NUMBER ?3HL MFREE IPCD,ATASK ?43= HUNT2 1,IPCD,IPSTACK,FX2 ?4GW LDX 2 1 ?52G ADX 2 ALOGLEN(2) ?5G6 LDN 1 A1(1) ?5^Q MKHANGER2 ?6FB LDX 0 ALINUM(1) ?6^2 SMO FX2 ?7DL ERX 0 ACOMMUNE1 ?7Y= ANDN 0 #7777 ?8CW BZE 0 MKHANGER1 ?8XG ADN 1 ARECLEN ?9C6 LDN 0 A1-1(2) ?9WQ TXL 0 1 ?=BB BCC MKHANGER2 ?=W2 MKHANGER3 ??*L GEOERR 1,NOLINK ??T= MKHANGER1 ?##W LDCT 0 #10 ?#SG ANDX 0 ASTATUS2(1) ?*#6 BZE 0 MKHANGER3 ?*RQ ERS 0 ASTATUS2(1) ?B?B LDX 1 FX2 ?BR2 MKHANGER4 ?C=L FINDACTFB 1,,IPCA,HANGER,,FPTR ?CQ= LDX 0 HLINKIPC(1) ?D9W SMO FX2 ?DPG ERX 0 ACOMMUNE1 ?F96 ANDN 0 #7777 ?FNQ BNZ 0 MKHANGER4 ?G8B LDX 0 GSIGN ?GN2 STO 0 HBRIN(1) ?H7L LDX 2 1 ?HM= FPUT ?J6W #NOR ?JBN ...[??? LRIDENT SECT COMM FGN 19 DOC ?JLG #MAC LRIDENT ?K66 DSCA %A,LDX,1,CHADD ?KKQ ANDX 1 BITS22LS ?L5B SBN 1 CHAINADD ?LK2 JIPCM DS,%C,1 ?M4L DFJUMPN %A,RGM,%D ?MJ= DFLOAD %A,IDENT1 ?N3W STO 0 %B ?NHG DFLOAD %A,IDENT2 ?P36 STO 0 1+%B ?PGQ LDX 1 FX1 ?Q2B LDX 2 FX2 ?QG2 #NOR ?QPS ...[??? NUMLINK SECT COMM FGN 19 DOC ?Q^L #MAC NUMLINK ?RF= DFLOAD %A,LKCT ?RYW #NOR ?SDG ...[??? QTASK SECT COMM FGN 19 DOC ?SY6 ...[ RINGS TASK BLOCK TO IPSTACK AND WAKES IPC ACTIVITY ?Y*G #MAC QTASK ?YT6 SMO FX2 ?^#Q STO %C ACOMMUNE8 ?^SB LDX 2 FX2 #2#2 SMO %A #2RL LDX 0 A1+1 #3?= SBN 0 2 #3QW BZE 0 MQTASK2 #4=G SBN 0 2 #4Q6 BZE 0 MQTASK3 #59Q MQTASK1 #5PB SMO ACOMMUNE8(2) #692 LDX 1 ACTRING #6NL SBN 1 ACTRING #78= LDX 1 BPTR(1) #7MW BRN MQTASK4 #87G MQTASK2 #8M6 #STR %B #96Q #SKI #9LB GEOERR 1,TASKTYPE #=62 #STR %B #=KL ( #?5= SMO FX2 #?JW STO 3 ACC3 ##4G LDX 3 %B ##J6 LDX 3 ARINGEL(3) #*3Q LDX 0 ASTATUS2(3) #*HB SMO FX2 #B32 LDX 3 ACC3 #BGL ANDN 0 1 #C2= BZE 0 MQTASK1 #CFW ) #C^G MQTASK3 #DF6 HUNT2OPT 1,IPCD,ATASK,ACOMMUNE8(2) #DYQ BNG 1 MQTASK1 #FDB MQTASK4 #FY2 LDX 2 1 #GCL CHAIN %A,2 #GX= MQTASK5 #HBW JIPCMN Q,MQTASKX,ACOMMUNE8(2) #HWG ... LDX 2 ACOMMUNE8(2) #JB6 ... DESUSPEND #L#L MQTASKX #LS= #NOR #M44 ...[??? QTASKW SECT COMM FGN 19 DOC #M?W #MAC QTASKW #MRG HUNT2B 2,IPCA,INTERN,FX2 #N?6 LDX 0 ATYPE(2) #NQQ ANDN 0 #777 #P=B SBN 0 ATIMWT #PQ2 BNZ 0 MQTASKW1 #Q9L UNQUEUE #QP= FPUT #R8W HUNT2B 2,IPCA,INTERN,FX2 #RNG MQTASKW1 #S86 HUNT2OPT 1,IPCD,ATASK,2 #SMQ BPZ 1 MQTASKW2 #T7B LDX 1 ACTRING(2) #TM2 SBN 1 ACTRING #W6L LDX 1 BPTR(1) #WL= MQTASKW2 #X5W LDX 2 1 #XKG CHAIN %A,2 #Y56 #NOR #Y#Y ...[??? RESETIPC SECT COMM FGN 19 DOC #YJQ #MAC RESETIPC #^4B #STR %A #^J2 '153 0 %A *23L #STR %A *2H= #SKI *32W '153 0 CPPTR(2) *3GG LDX 0 9 *426 #NOR *49Y ...[??? SIPCM SECT COMM FGN 19 DOC *4FQ #MAC SIPCM *4^B LDN 0 IPCMR%A *5F2 #STR %B *5YL ( *6D= SMO %B *6XW ORS 0 IPCMKR *7CG ) *7X6 #STR %B *8BQ #SKI *8WB ORS 0 IPCMKR(2) *9B2 #NOR *9KS ...[??? STOPHANG SECT COMM FGN 19 DOC *9TL # *=*= #MAC STOPHANGER *=SW LDX 0 %A *?#G LDX 2 FX2 *?S6 STO 0 ACOMMUNE1(2) *#?Q LDX 1 FX2 *#RB MSTHR FINDACTFB 1,1,IPCA,HANGER,,FPTR **?2 LDX 0 HLINKIPC(1) **QL TXU 0 ACOMMUNE1(2) *B== BCS MSTHR *BPW LDN 0 #2000 *C9G ANDX 0 ATYPE(1) *CP6 BZE 0 MSTHRX *D8Q LDN 0 1 *DNB ADJUSTLK 1 *F82 FON ATTRIBUTE *FML MSTHRX LDX 1 FX1 *G7= #NOR *GFM ...[??? TELEST SECT COMM FGN 19 DOC *GS4 ...[ TEST WHETHER THE LINK IS ESTABLISHED *H6G #MAC TELEST *HL6 #STRING %B *J5Q LDX 2 %B *JKB #STRING %B *K52 #SKIP *KJL LDX 2 FX2 *L4= SMO AWORK1(2) *LHW LDX 1 ARINGEL(2) *M3G LDX 0 ASTATUS2(1) *MH6 SLL 0 1 *N2Q BNG 0 M1 *NGB LDN 0 1 *P22 STO 0 %A *PFL BRN M2 *P^= M1 SLL 0 1 *QDW BPZ 0 M3 *QYG NGN 0 1 *RD6 STO 0 %A *RXQ BRN M2 *SCB M3 SLL 0 1 *SX2 BPZ 0 M4 *TBL NGN 0 2 *TW= STO 0 %A *W*W BRN M2 *WTG M4 SLL 0 5 *X*6 BPZ 0 M5 *XSQ NGN 0 2 *Y#B STO 0 %A *YS2 BRN M2 *^?L M5 STOZ %A *^R= M2 LDX 1 FX1 B2=W LDX 2 FX2 B2QG #NOR B32# ...[??? TESTPROP SECT COMM FGN 19 DOC B3=6 #MAC TESTPROP B3PQ LDX 2 FX2 B49B LDX 2 FX2 B4P2 LDX 0 EVENT4(2) B58L BPZ 0 MX B5N= LDX 1 EVENT3(2) B67W SRL 1 6 B6MG BZE 1 MX B776 BBUS 15,1,M1 B7LQ ERN 1 #740 B86B BZE 1 MX B8L2 M1 BBS 16,1,MX B95L HUNT2 1,IPCA,INTERN,2 B9K= LDX 0 APROPRES(1) B=4W BNZ 0 MX B=JG LDX 1 FX1 B?46 BRN %A B?HQ MX LDX 1 FX1 B#3B #NOR B#?8 ...[??? TIPCREP SECT COMM FGN 19 DOC B#H2 #MAC TIPCREP B#LX ...[ %I IS THE NAME OF A SUBROUTINE TO BE CALLED B#QS ...[ ON X0 IN THE EVENT OF BEING WOKEN B#WP ...[ UP WITH A READ UP B*2L #STR %B B*G= ( B*^W LDX 0 CLEANCT BBFG #STR %A BB^6 ADN 0 5000/K9 BCDQ #STR %A BCYB #SKI BDD2 ADN 0 10000/K9 BDXL STO 0 IPCPTIME(2) BFC= ) BFWW #STR %A,CT BGBG BRN MTIPCREP6 BGW6 #STR %A,CT BH*Q #SKI BHTB BRN MTIPCREP4 BJ*2 MTIPCREP2 BJSL GEOERR 1,IPCREP BK#= MTIPCREP1 BKRW #STR %B BL?G JIPCMC TO,%B BLR6 #STR %B BM=Q #SKI BMQB JIPCM TO,MTIPCREP2 BN=2 #STR %A,CT BNPL #SKI BP9= ( BPNW LDX 0 CPRW1(2) BQ8G BPZ 0 MTIPCREP3 BQN6 LDN 0 1 BR7Q ORX 0 GSIGN BRMB STO 0 CHAINADD(2) BS72 LDX 0 CPRW1(2) BSLL BNG 0 MTIPCREP4 BT6= NGNC 0 1 BTKW ANDS 0 CHAINADD(2) BW5G LDX 0 CHAINADD(2) BWK6 SBN 0 1 BX4Q BZE 0 MTIPCREP3 BXJB MTIPCREP4 BY42 COOR1 BYHL BRN MTIPCREP1 B^3= MTIPCREP3 B^GW LDCH 0 CPRW1(2) C22G ANDN 0 2 C2G6 #STR CT,%A C2^Q BZE 0 MTIPCREPA C3FB #STR %A C3^2 BZE 0 MTIPCREP C4DL LDX 0 CPRW1(2) C4Y= SLC 0 5 C5CW #STR %A C5XG ( C6C6 #STR %D C6WQ BPZ 0 %D C7BB #STR %D C7W2 #SKI C8*L BNG 0 MTIPCREP2 C8T= ) C9#W #STR %A C9SG #SKI C=#6 ( C=RQ #STR %H C??B BPZ 0 %H C?R2 #STR %H C#=L #SKI C#Q= BPZ 0 MTIPCREP2 C*9W ) C*PG SRC 0 2 CB96 #STR %A CBNQ ( CC8B #STR %C CCN2 BNG 0 %C CD7L #STR %C CDM= #SKI CF6W BNG 0 MTIPCREP2 CFLG ) CG66 #STR %A CGKQ #SKI CH5B ( CHK2 #STR %G CJ4L BNG 0 %G CJJ= #STR %G CK3W #SKI CKHG BNG 0 MTIPCREP2 CL36 ) CLGQ #STR %E CM2B BRN %E CMG2 #STR %E CM^L #SKI CNF= BRN MTIPCREP2 CNYW #STR %A CPDG #SKI CPY6 MTIPCREPA CQCQ ) CQXB #STR %A,SPQ CRC2 #SKI CRWL ( CSB= LDX 0 CPRW2(2) CSTW BPZ 0 MTIPCREP5 CT34 ...#STR %I CT8= ... CALL 0 %I CT*G LDN 0 1 CTT6 ORX 0 GSIGN CW#Q STO 0 CHAINADD(2) CWSB LDX 0 CPRW2(2) CX#2 BNG 0 MTIPCREP6 CXRL NGNC 0 1 CY?= ANDS 0 CHAINADD(2) CYQW LDX 0 CHAINADD(2) C^=G SBN 0 1 C^Q6 BZE 0 MTIPCREP5 D29Q MTIPCREP6 D2PB COOR1 D392 #STR %A D3NL BRN MTIPCREP1 D48= #STR %A D4MW #SKI D57G BRN MTIPCREPA D5M6 MTIPCREP5 D66Q #STR SPQ,%A D6LB #SKI D762 CIPCM Q D7KL LDCH 0 CPRW2(2) D85= ANDN 0 2 D8JW BZE 0 MTIPCREP D94G LDX 0 CPRW2(2) D9J6 SLC 0 5 D=3Q #STR %D D=HB BPZ 0 %D D?32 #STR %D D?GL #SKI D#2= BPZ 0 MTIPCREP2 D#FW SRC 0 2 D#^G #STR %C D*F6 BNG 0 %C D*YQ #STR %C DBDB #SKI DBY2 BNG 0 MTIPCREP2 DCCL #STR %F DCX= BRN %F DDBW #STR %F DDWG #SKI DFB6 BRN MTIPCREP2 DFTQ ) DG*B MTIPCREP DGT2 #NOR DH7C ...[??? TRAST SECT COMM FGN 19 DOC DHFS ...[ TO TEST WHETHER A TRANSFER HAS B&EN STORED DHS= #MAC TRAST DJ?W #STRING %B DJRG LDX 2 %B DK?6 #STRING %B DKQQ #SKIP DL=B LDX 2 FX2 DLQ2 SMO AWORK1(2) DM9L LDX 1 ARINGEL(2) DMP= SMO AWORK1(2) DN8W LDX 0 ASTATUS1(1) DNNG BPZ 0 M1 DP86 NGN 0 1 DPMQ STO 0 %A DQ7B BRN M3 DQM2 M1 ANDN 0 1 DR6L BZE 0 M2 DRL= LDN 0 1 DS5W STO 0 %A DSKG BRN M3 DT56 M2 STOZ %A DTJQ M3 LDX 1 FX1 DW4B LDX 2 FX2 DWJ2 #NOR DWWC ...[??? TREQST SECT COMM FGN 19 DOC DX8S ...[ TO TEST WHETHER A REQUEST HAS BEEN STORED DXH= #MAC TREQST DY2W #STRING %B DYGG LDX 2 %B D^26 #STRING %B D^FQ #SKIP D^^B LDX 2 FX2 F2F2 SMO AWORK1(2) F2YL LDX 1 ARINGEL(2) F3D= SBX 1 AWORK1(2) F3XW LDX 0 ASTATUS2(1) F4CG ANDN 0 1 F4X6 BZE 0 M1 F5BQ LDN 0 1 F5WB STO 0 %A F6B2 BRN M2 F6TL M1 STOZ %A F7*= M2 LDX 1 FX1 F7SW LDX 2 FX2 F8#G #NOR F8C5 ...[??? TRIPB SECT COMM FGN 19 DOC F8FN ...#SKI JSKI21<1$1 F8LW ...( F8S6 #MAC TRIPB F9?Q #SKIP %B F9RB ( F=?2 LDX 0 %A F=QL STO 0 ACOMMUNE1(2) F?== LDX 0 %B F?PW STO 0 ACOMMUNE2(2) F#9G ) F#P6 #SKIP %B<1$1 F*8Q ( F*NB STO 0 ACOMMUNE2(2) FB82 LDX 0 %A FBML STO 0 ACOMMUNE1(2) FC7= ) FCLW DOWN TRIPB,1 FD6G #NOR FD8D ...) FD=B ...#SKI JSKI21 FD## ...( FDB= ...#MAC TRIPB FDD8 ... DOWN TRIPB,1 FDG6 ...#NOR FDJ4 ...) FDPY ...[??? WAKEHANG SECT COMM FGN 19 DOC FDXS ...[ RECHAIN TASK BLOCK AND PUT HANGER ON ACTIVITY LIST FF5Q #MAC WAKEHANGER FFKB LDX 0 %A FG52 LDX 2 FX2 FGJL ANDN 0 #7777 FH4= STO 0 ACOMMUNE1(2) FHHW MWHANGER1 FJ3G FINDACTFB 2,,IPCA,HANGER,MWHANGERX,FPTR FJH6 LDX 0 HLINKIPC(2) FK2Q SMO FX2 FKGB TXU 0 ACOMMUNE1 FL22 BCS MWHANGER1 FLFL LDX 0 BACKCHAN(2) FL^= BNZ 0 MWHANGERB FMDW LDX 0 ATYPE(2) FMYG ANDN 0 #7777 FND6 BNZ 0 MWHANGERB FNXQ SMO FX2 FPCB STO 2 ACOMMUNE2 FPX2 FPUT FQBL LDX 2 ACOMMUNE2(2) FQW= MWHANGER2 FR*W HUNT 1,IPCD,ATASK FRTG BNG 1 MWHANGER3 FS*6 LDX 0 A1(1) FSSQ SMO FX2 FT#B TXU 0 ACOMMUNE1 FTS2 BCS MWHANGER3 FW?L LDN 0 1 FWR= TXU 0 A1+1(1) FX=W BCS MWHANGER3 FXQG CHAIN 1,2 FY=6 BRN MWHANGER3 FYPQ MWHANGERX F^9B GEOERR 1,NOHANGER F^P2 MWHANGERB G28L GEOERR 1,HANGBUSY G2N= MWHANGER3 G37W #NOR G3HK ...[??? NOSUSPEN SECT CENT FGN 19 DOC G3X# ...[ G4?3 ...[ G4LQ ...[ G52F ...[ G5B8 ...[ THIS MACRO ONLY FOR 8.10 AND 8.20 AND 8.30 G5D6 ...#UNS IPCPRIVSK G5G4 ...#SKI G5J2 ...( G5L2 ...#SKI ELLS<1$1 G5TS ...( G65L ...#MAC NOSUSPEND G6K= ...#DEF 20?=1? G74W ...#LIS 0 G7JG ...#MEND PROCONTB G846 ...#TRA K72PROCONTB G8HQ ...#REP K73PROCONTB-K72PROCONTB G93B ... NULL G9H2 ...#END G=2L ...#LIST 20? G=G= ...#NOR G=^W ...) G?9N ...) G?FG ...[ G?^6 ...[ NOW THE MACRO FOR 8.40 AND LATER I.E. NLLS G#DQ ...[ G#JM ...#UNS IPCPRIVSK G#NJ ...#SKI G#SF ...( G#YB ...#SKI ELLS G*D2 ...( G*XL ...#MAC NOSUSPEND GBC= ...#DEF 20? = 1? GBWW ...#LIS 0 GCBG ...#MEND UNPLUG GCW6 ...#TRA K72UNPLUG GD*Q ...#REP K73UNPLUG - K72UNPLUG GDTB ... NULL GF*2 ...#END GFSL ...#LIS 20? GG#= ...#NOR GGRW ...) GGSC ...) GGSY ...[ GGTF ...[ GGW2 ...[ GH?G ...[ GHR6 ...[ THE END GJ=Q ...[ ^^^^ ...700457550026 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In