{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROSIPC)}}
====== MACROSIPC ======
(George Source)
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