REPLY-MACROS
(George Source)
- REPLY-MACROS.txt
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