{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: REPLY-MACROS)}}
====== REPLY-MACROS ======
(George Source)
229S ...[??? SETREP SECT FILE FGN 2 DOC
22FL [JUDY BIDGOOD.
2S*Q #MAC SETREP
2STB #SKI ANS%A
2T*2 (
2TSL LDN 0 ANS%A
2W#= SMO FX2
2WRW STO 0 ACOMMUNE9
2X?G )
2XR6 #SKI ANS%A<1$1
2Y=Q ANSOK
2YQB #NOR
2^28 ...[??? SETREP2 SECT FILE FGN 2 DOC
2^=2 #MAC SETREP2
2^PL #SKI ANS%A
329= (
32NW LDN 0 ANS%A
338G STO 0 ACOMMUNE9(2)
33N6 )
347Q #SKI ANS%A<1$1
34MB ANSOK2
3572 #NOR
35BS ...[??? TESTREP SECT FILE FGN 2 DOC
35LL #MAC TESTREP
366= SMO FX2
36KW LDX 0 ACOMMUNE9
375G #SKI ANS%A
37K6 SBN 0 ANS%A
384Q BZE 0 %B
38JB #STR %C
3942 T %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V
39HL #NOR
39RD ...[??? TESTREP2 SECT FILE FGN 2 DOC
3=3= #MAC TESTREP2
3=GW LDX 0 ACOMMUNE9(2)
3?2G #SKI ANS%A
3?G6 SBN 0 ANS%A
3?^Q BZE 0 %B
3#FB #STR %C
3#^2 T %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V
3*DL #NOR
3*ND ...[??? T SECT FILE FGN 2 DOC
3*Y= #MAC T
3BCW SUBNUM 0,ANS%C-ANS%A
3BXG BZE 0 %D
3CC6 #STR %E
3CWQ T %C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V
3DBB #NOR
3DL8 ...[??? TESTERR SECT FILE FGN 2 DOC
3DW2 #MAC TESTERR
3F*L # USED WHEN A REPLY FROM A ROUTINE IS SEEN TO INDICATE A STANDARD ERROR
3FT= SMO FX2
3G#W LDX 0 ACOMMUNE9
3GSG SBN 0 ANS%A
3H#6 BNZ 0 M1TESTERR
3HRQ ERROR ER%A
3J?B SETREP2 %A
3JR2 BRN %B
3K=L M1TESTERR
3KQ= #NOR
3L24 ...[??? TESTNERR SECT FILE FGN 2 DOC
3L9W #MAC TESTNERR [LIKE TESTERR BUT BRANCH IF NOT
3LPG SMO FX2
3M96 LDX 0 ACOMMUNE9
3MNQ SBN 0 ANS%A
3N8B BNZ 0 %B
3NN2 ERROR ER%A
3P7L SETREP2 %A
3PM= #NOR
3PX4 ...[??? TESTERRX SECT FILE FGN 2 DOC
3Q6W #MAC TESTERRX [LIKE TESTERR BUT REP IN X%A
3QLG LDX 0 %A
3R66 SBN 0 ANS%B
3RKQ BNZ 0 M1TESTERRX
3S5B ERROR ER%B
3SK2 BRN %C
3T4L M1TESTERRX
3TJ= #NOR
3TS4 ...[??? ANS SECT FILE FGN 2 DOC
3W3W #MAC ANS
3WHG #DEF ANS%A=%B
3X36 #NOR
3X=Y ...[??? ANQ SECT FILE FGN 2 DOC
3XGQ #MAC ANQ
3Y2B #DEF ANQ%A=%B
3YG2 #NOR
3YPS ...[??? ERRTESTA SECT FILE FGN 2 DOC
3Y^L # RECURSIVE MACRO USED BY ERRTEST MACRO
3^F= #MACRO ERRTESTA [M.B.KINGHAM
3^YW #STR %B
42DG (
42Y6 LDN %A ANS%B
43CQ CALL 0 M0ERRTEST
43XB +ER%B
44C2 ERRTESTA %A,%C,%D,%E,%F,%G,%H,%I,%J,%K
44WL )
45B= #NOR
45L4 ...[??? ERRTEST SECT FILE FGN 2 DOC
45TW # MACRO TO TEST FOR A NUMBER OF SPECIFIED FILESTORE REPLIES
46*G # AND, IF ANY OF THEM ARE FOUND, OUTPUT AN APPROPRIATE
46T6 # ERROR MESSAGE AND BRANCH TO A SPECIFIED ADDRESS.
47#Q #MACRO ERRTEST [M.B.KINGHAM
47SB #SKI %A>2-2
48#2 #SKI
48RL ! ERROR - %A MUST BE IN RANGE X3-X7 INCLUSIVE
49?= ERRTESTA %A,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L
49QW BRN M2ERRTEST
4==G M0ERRTEST
4=Q6 SMO FX2
4?9Q BXE %A ACOMMUNE9,M1ERRTEST
4?PB EXIT 0 1
4#92 M1ERRTEST
4#NL SMO 0
4*8= LDX 0 0
4*MW ERRORX 0
4B7G STO %A ACOMMUNE9(2)
4BM6 BRN %B
4C6Q M2ERRTEST
4CLB #NOR
4CW8 ...[??? ANSOK SECT FILE FGN 2 DOC
4D62 #MAC ANSOK
4DKL SMO FX2
4F5= STOZ ACOMMUNE9
4FJW #NOR
4FSN ...[??? ANSOK2 SECT FILE FGN 2 DOC
4G4G #MAC ANSOK2
4GJ6 STOZ ACOMMUNE9(2)
4H3Q #NOR
4H?J ...[??? ANQOK SECT FILE FGN 2 DOC
4HHB #MAC ANQOK
4J32 SMO FX2
4JGL STOZ ACOMMUNE2
4K2= #NOR
4K=4 ...[??? ANQOK2 SECT FILE FGN 2 DOC
4KFW #MAC ANQOK2
4K^G STOZ ACOMMUNE2(2)
4LF6 #NOR
4LNY ...[??? KEEPREP SECT FILE FGN 2 DOC
4LYQ #MAC KEEPREP
4MDB LDN %A ANS%B
4MY2 #NOR
4N7S ...[??? PUTREP2 SECT FILE FGN 2 DOC
4NCL #MAC PUTREP2
4NX= STO %A ACOMMUNE9(2)
4PBW #NOR
4PLN ...[??? PUTREP SECT FILE FGN 2 DOC
4PWG #MAC PUTREP
4QB6 SMO FX2
4QTQ STO %A ACOMMUNE9
4R*B #NOR
4RK8 ...[??? PICKREP SECT FILE FGN 2 DOC
4RT2 #MAC PICKREP [PICK UP REPLY
4S#L SMO FX2
4SS= LDX %A ACOMMUNE9
4T?W #NOR
4THN ...[??? PICKREP2 SECT FILE FGN 2 DOC
4TRG #MAC PICKREP2
4W?6 LDX %A ACOMMUNE9(2)
4WQQ #NOR
4X2J ...[??? TESTREPX SECT FILE FGN 2 DOC
4X=B #MAC TESTREPX [TEST REPLY IN XA
4XQ2 LDX 0 %A
4Y9L #SKI ANS%B
4YP= SBN 0 ANS%B
4^8W BZE 0 %C
4^NG #NOR
4^Y# ...[??? TESTREPN SECT FILE FGN 2 DOC
5286 #MAC TESTREPNOT
52MQ SMO FX2
537B LDX 0 ACOMMUNE9
53M2 #SKI ANS%A
546L SBN 0 ANS%A
54L= BNZ 0 %B
555W #NOR
55*N ...[??? TESTRPN2 SECT FILE FGN 2 DOC
55KG #MAC TESTRPN2
5656 LDX 0 ACOMMUNE9(2)
56JQ #SKI ANS%A
574B SBN 0 ANS%A
57J2 BNZ 0 %B
583L #NOR
58?D ...[??? SREPC SECT FILE FGN 2 DOC
58H= #MAC SREPC
592W #SKI ANQ%A
59GG (
5=26 LDN 0 ANQ%A
5=FQ SMO FX2
5=^B STO 0 ACOMMUNE2
5?F2 )
5?YL #SKI ANQ%A<1$1
5#D= ANQOK
5#XW #NOR
5*7N ...[??? SREPC2 SECT FILE FGN 2 DOC
5*CG #MAC SREPC2
5*X6 #SKI ANQ%A
5BBQ (
5BWB LDN 0 ANQ%A
5CB2 STO 0 ACOMMUNE2(2)
5CTL )
5D*= #SKI ANQ%A<1$1
5DSW ANQOK2
5F#G #NOR
5FJ# ...[??? SREP SECT FILE FGN 2 DOC
5FS6 #MAC SREP
5G?Q LDN 0 ANQ%A
5GRB SMO FX2
5H?2 ORS 0 ACOMMUNE2
5HQL #NOR
5J2D ...[??? SREP2 SECT FILE FGN 2 DOC
5J== #MAC SREP2
5JPW LDN 0 ANQ%A
5K9G ORS 0 ACOMMUNE2(2)
5KP6 #NOR
5KYY ...[??? KREPC SECT FILE FGN 2 DOC
5L8Q #MAC KREPC
5LNB LDN %A ANQ%B
5M82 #NOR
5MCS ...[??? KREP SECT FILE FGN 2 DOC
5MML #MAC KREP
5N7= ORN %A ANQ%B
5NLW #NOR
5NWN ...[??? TREP SECT FILE FGN 2 DOC
5P6G #MAC TREP
5PL6 SMO FX2
5Q5Q LDX 0 ACOMMUNE2
5QKB #SKI ANQ%A
5R52 (
5RJL ANDN 0 ANQ%A
5S4= BNZ 0 %B
5SHW )
5T3G #SKI ANQ%A<1$1
5TH6 BZE 0 %B
5W2Q #NOR
5W=J ...[??? TREP2 SECT FILE FGN 2 DOC
5WGB #MAC TREP2
5X22 LDX 0 ACOMMUNE2(2)
5XFL #SKI ANQ%A
5X^= (
5YDW ANDN 0 ANQ%A
5YYG BNZ 0 %B
5^D6 )
5^XQ #SKI ANQ%A<1$1
62CB BZE 0 %B
62X2 #NOR
636S ...[??? TREPN SECT FILE FGN 2 DOC
63BL #MAC TREPN
63W= SMO FX2
64*W LDX 0 ACOMMUNE2
64TG #SKI ANQ%A
65*6 (
65SQ ANDN 0 ANQ%A
66#B BZE 0 %B
66S2 )
67?L #SKI ANQ%A<1$1
67R= BNZ 0 %B
68=W #NOR
68GN ...[??? TREPN2 SECT FILE FGN 2 DOC
68QG #MAC TREPN2
69=6 LDX 0 ACOMMUNE2(2)
69PQ #SKI ANQ%A
6=9B (
6=P2 ANDN 0 ANQ%A
6?8L BZE 0 %B
6?N= )
6#7W #SKI ANQ%A<1$1
6#MG BNZ 0 %B
6*76 #NOR
6*BY ...[??? PREP SECT FILE FGN 2 DOC
6*LQ #MAC PREP
6B6B SMO FX2
6BL2 LDX %A ACOMMUNE2
6C5L #NOR
6C*D ...[??? PREP2 SECT FILE FGN 2 DOC
6CK= #MAC PREP2
6D4W LDX %A ACOMMUNE2(2)
6DJG #NOR
6DS# ...[??? PTREP SECT FILE FGN 2 DOC
6F46 #MAC PTREP
6FHQ SMO FX2
6G3B STO %A ACOMMUNE2
6GH2 #NOR
6GQS ...[??? PTREP2 SECT FILE FGN 2 DOC
6H2L #MAC PTREP2
6HG= STO %A ACOMMUNE2(2)
6H^W #NOR
6J9N ...[??? BXU SECT FILE FGN 2 DOC
6JFG #MAC BXU
6J^6 TXU %A
6KDQ BCS %B
6KYB #NOR
6L88 ...[??? BXE SECT FILE FGN 2 DOC
6LD2 #MAC BXE
6LXL TXU %A
6MC= BCC %B
6MWW #NOR
6N6N ...[??? BXL SECT FILE FGN 2 DOC
6NBG #MAC BXL
6NW6 TXL %A
6P*Q BCS %B
6PTB #NOR
6Q58 ...[??? BXGE SECT FILE FGN 2 DOC
6Q*2 #MAC BXGE
6QSL TXL %A
6R#= BCC %B
6RRW #NOR
6S3N ...[??? REPERR SECT FILE FGN 2 DOC
6S?G #MAC REPERR
6SR6 TESTREP OK,%A
6T=Q DOWN REPERR,1
6TQB #NOR
6W28 ...[??? REPERR2 SECT FILE FGN 2 DOC
6W=2 #MAC REPERR2
6WPL TESTREP2 OK,%A
6X9= DOWN REPERR,1
6XNW #NOR
6XYN ...[??? REPALLER SECT FILE FGN 2 DOC
6Y8G #MAC REPALLER
6YN6 DOWN REPERR,5
6^7Q #NOR
^^^^ ...30422632000200000000