OPEN-MACROS
(George Source)
- OPEN-MACROS.txt
22FL ...[??? OPEN SECT FILE FGN 20 DOC 2M^6 #MAC OPEN 2NDQ SETMODE 0,%B,%C,%D,%E,%F,%G,%H,%I 2NYB OPEND %A,0 2PD2 #NOR 2PMS ...[??? OPENREL SECT FILE FGN 20 DOC 2PXL #MAC OPENREL 2QC= SETMODE 0,%B,%C,%D,%E,%F,%G,%H,%I 2QWW OPENRELD %A,0 2RBG #NOR 2RL# ...[??? OPENDIR SECT FILE FGN 20 DOC 2RW6 #MAC OPENDIR 2S*Q OPEN %A,%B,DIR,%C,%D,%E,%F,%G,%H,%I 2STB #NOR 2T58 ...[??? OPENMAS SECT FILE FGN 20 DOC 2T*2 #MAC OPENMAS 2TSL SETMODE 0,%B,%C,%D,%E,%F,%G,%H,%I 2W#= OPENMASD %A,0 2WRW #NOR 2X3N ...[??? SAVETHAW SECT FILE FGN 20 DOC 2X?G [ 2XR6 #MAC SAVETHAW 2Y=Q #STR %B,0 2YQB ( 2^=2 SETMODE 0,REOPEN,ERASING 2^PL ORX 0 %B 329= ) 32NW #STR %B,0 338G #SKI 33N6 ADDMODE 0,REOPEN,ERASING 347Q OPEND %A,0 34MB #NOR 34X8 ...[??? THAWSAVE SECT FILE FGN 20 DOC 3572 #MAC THAWSAVE 35LL SETMODE 0,READ,REOPEN,ERASING 366= OPEND %A,0 36KW #NOR 36TN ...[??? USEROPEN SECT FILE FGN 20 DOC 375G #MAC USEROPEN 37K6 BRN M2USEROPEN 384Q #DEF M2USE=E%B^E%C^E%D^E%E^E%F^E%G^E%H^E%I 38JB M1USEROPEN +A%B^A%C^A%D^A%E^A%F^A%G^A%H^A%I 3942 #SKI M2USE>#7777$#7777 39HL M0USEROPEN +M2USE 3=3= M2USEROPEN 3=GW LDX 1 FX1 3?2G LDX 0 M1USEROPEN(1) 3?G6 #SKI M2USE 3?^Q ( 3#FB #SKI M2USE>#7777$#7777 3#^2 LDX 1 M0USEROPEN(1) 3*DL #SKI M2USE<#10000$#10000 3*Y= LDN 1 M2USE 3BCW USEROPEX %A,0,1 3BXG ) 3CC6 #SKI M2USE<1-1 3CWQ USEROPEX %A,0 3DBB #FREE M2USE 3DW2 #NOR 3F5S ...[??? USEROPEX SECT FILE FGN 20 DOC 3F*L #MAC USEROPEX 3FT= LDX 2 FX2 3G#W #ACC %B 3GSG ( 3H#6 LDX 0 %B 3HRQ STO 0 ACOMMUNE1(2) 3J?B ) 3JR2 #ACC %B 3K=L #SKI 3KQ= ( 3L9W #STR %B,2 3LPG #SKI 3M96 ! B=2 3MNQ STO %B ACOMMUNE1(2) 3N8B ) 3NN2 #STR %C, 3P7L ( 3PM= #ACC %C 3Q6W ( 3QLG LDX 0 %C 3R66 STO 0 ACOMMUNE2(2) 3RKQ ) 3S5B #ACC %C 3SK2 #SKI 3T4L ( 3TJ= #STR %C,2 3W3W #SKI 3WHG ! C=2 3X36 #STR %C,0 3XGQ #SKI 3Y2B ! C=0 3YG2 STO %C ACOMMUNE2(2) 3Y^L ) 3^F= DOWN USERONE,10 3^YW ) 42DG #STR %C, 42Y6 #SKI 43CQ ( 43XB DOWN USERONE,1 44C2 ) 44WL BRN %A 45B= #NOR 45L4 ...[??? ADDMODE SECT FILE FGN 20 DOC 45TW # 46*G #MAC ADDMODE 46T6 #DEF M1ADDMODE=A%B^A%C^A%D^A%E^A%F^A%G^A%H^A%I 47#Q #DEF M2ADDMODE=E%B^E%C^E%D^E%E^E%F^E%G^E%H^E%I 47SB #SKI M2ADDMODE 48#2 ! "E" MODE GIVEN IN ADDMODE : USE ADDINMODE ! 48RL #FREE M2ADDMODE 49?= #SKI M1ADDMODE>#7777$#7777 49QW ( 4==G BRN M4ADDMODE 4=Q6 M3ADDMODE +M1ADDMODE 4?9Q M4ADDMODE 4?PB SMO FX1 4#92 #ACC %A 4#NL ( 4*8= LDX 0 M3ADDMODE 4*MW ORS 0 %A 4B7G ) 4BM6 #ACC %A 4C6Q #SKI 4CLB ORX %A M3ADDMODE 4D62 ) 4DKL #SKI M1ADDMODE<#10000$#10000 4F5= ( 4FJW #ACC %A 4G4G ( 4GJ6 LDN 0 M1ADDMODE 4H3Q ORS 0 %A 4HHB ) 4J32 #ACC %A 4JGL #SKI 4K2= ORN %A M1ADDMODE 4KFW ) 4K^G #FREE M1ADDMODE 4LF6 #NOR 4LNY ...[??? CLEARMOD SECT FILE FGN 20 DOC 4LYQ [ 4MDB #MAC CLEARMODE 4MY2 SETMODE 0,%B,%C,%D,%E,%F,%G,%H,%I 4NCL ANDX 0 %A 4NX= ERS 0 %A 4PBW #NOR 4PLN ...[??? TESTMAIN SECT FILE FGN 20 DOC 4PWG [ 4QB6 #MAC TESTMAINMODE 4QTQ LDX 0 %A 4R*B #STR READING,%D 4RT2 #SKI 4S#L ( 4SS= ANDN 0 #7000 4T?W SBN 0 #3000 4TRG #STR NOT,%C 4W?6 BNG 0 %B 4WQQ #STR NOT,%C 4X=B #SKI 4XQ2 BPZ 0 %B 4Y9L #EXI 4YP= ) 4^8W #STR UNCLEAN,%D 4^NG #SKI 5286 ( 52MQ ADN 0 #1000 537B ANDN 0 #4000 53M2 #STR NOT,%C 546L BNZ 0 %B 54L= #STR NOT,%C 555W #SKI 55KG BZE 0 %B 5656 #EXI 56JQ ) 574B #STR RANDOM,%D 57J2 #SKI 583L ( 58H= ANDN 0 #1000 592W #STR NOT,%C 59GG BZE 0 %B 5=26 #STR NOT,%C 5=FQ #SKI 5=^B BNZ 0 %B 5?F2 #EXI 5?YL ) 5#D= ANDN 0 #7000 5#XW #STR NONE,%D 5*CG SBN 0 A%D 5*X6 #STR NOT,%C 5BBQ BZE 0 %B 5BWB #STR NOT,%C 5CB2 #SKI 5CTL ( 5D*= #STR %E 5DSW BZE 0 M1TESTMAINM 5F#G #STR %E 5FS6 #SKI 5G?Q BNZ 0 %B 5GRB ) 5H?2 #STR %E 5HQL ( 5J== SBADN 0,A%E-A%D 5JPW #STR NOT,%C 5K9G BZE 0 %B 5KP6 #STR NOT,%C 5L8Q #SKI 5LNB ( 5M82 BNZ 0 %B 5MML M1TESTMAINM 5N7= ) 5NLW ) 5P6G #NOR 5PB# ...[??? ADDINMOD SECT FILE FGN 20 DOC 5PL6 [ 5Q5Q # 5QKB #MAC ADDINMODE 5R52 #DEF M1ADD=A%C^A%D^A%E^A%F^A%G^A%H^A%I^A%J 5RJL #DEF M2ADD=E%C^E%D^E%E^E%F^E%G^E%H^E%I^E%J 5S4= #STR %A 5SHW #SKI 5T3G ( 5TH6 #SKI M1ADD 5W2Q ! "A" MODE USED BUT NO %A ! 5WGB ) 5X22 #STR %B 5XFL #SKI 5X^= ( 5YDW #SKI M2ADD 5YYG ! "E" MODE USED BUT NO %B ! 5^D6 ) 5^XQ #SKI M1ADD^M2ADD>#7777-#7777 62CB ( 62X2 BRN M3ADDINMODE 63BL #SKI M1ADD>#7777-#7777 63W= M1ADDINMODE +M1ADD 64*W #SKI M2ADD>#7777-#7777 64TG ( 65*6 M2ADDINMODE +M2ADD 65SQ M3ADDINMODE 66#B SMO FX1 66S2 ORX %B M2ADDINMODE 67?L ) 67R= ) 68=W #SKI M2ADD<#10000-#10000 68QG ( 69=6 M3ADDINMODE 69PQ #SKI M2ADD 6=9B ORN %B M2ADD 6=P2 ) 6?8L #SKI M1ADD 6?N= ( 6#7W #SKI M1ADD>#7777-#7777 6#MG ( 6*76 SMO FX1 6*LQ ORX %A M1ADDINMODE 6B6B ) 6BL2 #SKI M1ADD<#10000-#10000 6C5L ORN %A M1ADD 6CK= ) 6D4W #FREE M1ADD 6DJG #FREE M2ADD 6F46 #NOR 6F?Y ...[??? SMODE SECT FILE FGN 20 DOC 6FHQ # 6G3B #MAC SMODE 6GH2 #SKI M1SETMODE 6H2L ( 6HG= #SKI M1SETMODE<#10000-#10000 6H^W LDN %A M1SETMODE 6JFG #SKI M1SETMODE𒿑 6J^6 #SKI 6KDQ ( 6KYB #DEF M3SETMODE=M1SETMODE�<#400 6LD2 LDCT %A M1SETMODE�/#77777^M3SETMODE 6LXL #FREE M3SETMODE 6MC= ) 6MWW #SKI M1SETMODE� 6NBG ( 6NW6 #SKI M1SETMODE𒿑 6P*Q ( 6PTB #DEF M3SETMODE=M1SETMODE�<#4000 6Q*2 LDN %A M1SETMODE�/#7777^M3SETMODE 6QSL #FREE M3SETMODE 6R#= SLL %A 12 6RRW #SKI M1SETMODEṡ 6S?G ORN %A M1SETMODEṡ 6SR6 ) 6T=Q ) 6TQB ) 6W=2 #FREE M1SETMODE 6WPL #NOR 6W^D ...[??? SETMODE SECT FILE FGN 20 DOC 6X9= # 6XNW #MAC SETMODE 6Y8G #DEF M1SETMODE=A%B^A%C^A%D^A%E^A%F^A%G^A%H^A%I 6YN6 #DEF M2SETMODE=E%B^E%C^E%D^E%E^E%F^E%G^E%H^E%I 6^7Q #SKI M2SETMODE 6^MB ! "E" MODE GIVEN IN SETMODE : USE SETUPMODE ! 7272 #FREE M2SETMODE 72LL #ACC %A 736= ( 73KW SMODE 0 745G STO 0 %A 74K6 ) 754Q #ACC %A 75JB #SKI 7642 SMODE %A 76HL #NOR 76RD ...[??? SETUPMOD SECT FILE FGN 20 DOC 773= # 77GW #MAC SETUPMODE 782G #DEF M1SETMODE=A%C^A%D^A%E^A%F^A%G^A%H^A%I^A%J 78G6 #DEF M2SET=E%C^E%D^E%E^E%F^E%G^E%H^E%I^E%J 7?XG #STR %A 7#C6 #SKI 7#WQ ( 7*BB #SKI M1SETMODE 7*W2 ! "A" MODE USED BUT NO ACCUMULATOR PROVIDED ! 7B*L #FREE M1SETMODE 7BT= ) 7C#W #STR %B 7CSG #SKI 7D#6 ( 7DRQ #SKI M2SET 7F?B ! "E" MODE USED BUT NO ACCUMULATOR PROVIDED ! 7FR2 #FREE M2SET 7G=L ) 7GQ= #STR %A 7H9W SMODE %A 7HPG #STR %B 7J96 ( 7JNQ #DEF M1SETMODE=M2SET 7K8B #FREE M2SET 7KN2 SMODE %B 7L7L ) 7T2B #NOR 7T=8 ...[??? OPENRELD SECT FILE FGN 20 DOC 7TG2 #MAC OPENRELD [OPENREL IN MODE GIVEN IN %A 7T^L ACCSTO %B,ACOMMUNE7,FX2 7WF= DOWN OPENREL,2 7WYW BRN %A [BREAKIN 7XDG #NOR 7XN# ...[??? OPENRELN SECT FILE FGN 20 DOC 7XY6 #MAC OPENRELN 7YCQ SETMODE 0,%B,%C,%D,%E,%F,%G,%H,%I 7YXB OPENRELX %A,0 7^C2 #NOR 7^LS ...[??? OPENRELX SECT FILE FGN 20 DOC 7^WL #MAC OPENRELX 82B= ACCSTO %B,ACOMMUNE7,FX2 82TW DOWN OPENREL,1 83*G BRN %A 83T6 #NOR 844Y ...[??? OPENCREX SECT FILE FGN 20 DOC 84#Q [ 84SB #MAC OPENCREX 85#2 ACCSTO %B,ACOMMUNE7,FX2 85RL DOWN OPENREL,3 86?= BRN %A 86QW #NOR 872N ...[??? OPENCREN SECT FILE FGN 20 DOC 87=G #MAC OPENCREN 87Q6 SETMODE 0,%B,%C,%D,%E,%F,%G,%H,%I 889Q OPENCREX %A,0 88PB #NOR 88^8 ...[??? OPENMASD SECT FILE FGN 20 DOC 8992 #MAC OPENMASD [OPENMAS IN MODE GIVEN IN %A 89NL ACCSTO %B,ACOMMUNE7,FX2 8=8= DOWN ORELHALF,1 8=MW BRN %A [BREAKIN 8?7G #NOR 8?C# ...[??? OPEND SECT FILE FGN 20 DOC 8?M6 #MAC OPEND 8#6Q ACCSTO %B,ACOMMUNE7,FX2 8#LB DOWN OPENFILE,1 8*62 BRN %A [BREAKIN 8*KL #NOR 8*TD ...[??? OPENENDX SECT FILE FGN 20 DOC 8B5= #MAC OPENENDX [OPENREL LAST COMPONENT (SEE 3.6.3.6) 8BJW ACCSTO %B,ACOMMUNE7,FX2 8C4G DOWN OPENEND,1 8CJ6 BRN %A [BREAKIN 8D3Q #NOR 8D?J ...[??? OPENEND SECT FILE FGN 20 DOC 8DHB #MAC OPENEND 8F32 SETMODE 0,%B,%C,%D,%E,%F,%G,%H,%I 8FGL OPENENDX %A,0 8G2= #NOR 8G=4 ...[??? HALFOPEX SECT FILE FGN 20 DOC 8GFW #MAC HALFOPEX 8G^G LDX 2 FX2 8HF6 ACCSTO %C,ACOMMUNE7(2) 8HYQ ACCSTO %B,ACOMMUNE8(2) 8JDB DOWN ORELHALF,2 8JY2 BRN %A 8KCL #NOR 8KMD ...[??? THAW SECT FILE FGN 20 DOC 8KX= [ 8LBW #MAC THAW 8LWG #STR SAVE,%B 8MB6 #SKI 8MTQ DOWN OPENEND,4 8N*B #STR SAVE,%B 8NT2 DOWN OPENEND,2 8P#L BRN %A 8PS= #NOR 8Q44 ...[??? OPENINCX SECT FILE FGN 20 DOC 8Q?W # THIS MACRO OPENS ?SYSTEM.INCINDEX - MODE IN %B 8QRG #MAC OPENINCX 8R?6 OPENSYSX %A,INCINDEX,%B 8RQQ #NOR 8S2J ...[??? OPENINC SECT FILE FGN 20 DOC 8S=B # THIS MACRO OPENS :SYSTEM.INCINDEX - N TYPE MODE 8SQ2 #MAC OPENINC 8T9L SETMODE 0,%B,%C,%D,%E,%F,%G,%H,%I 8TP= OPENSYSX %A,INCINDEX,0 8W8W #NOR 8WDN ...[??? OPENSYSX SECT FILE FGN 20 DOC 8WNG [ 8X86 #MAC OPENSYSX 8XMQ # THIS MACRO OPENS A CERTAIN SYSTEM FILE AS SPECIFIED BY %B. 8Y7B # %A IS A BREAKIN ADDRESS. %B IS A LOCAL NAME OF AN ALLOWED FILE. 8YM2 # %C CONTAINS THE OPENING MODES. 8^6L # 8^L= ACCSTO %C,ACOMMUNE7,FX2 925W #STR DICTIONARY,%B 92KG #SKI 9356 DOWN OPENFILE,2 93JQ #STR DICTIONARY,%B 944B ( 94J2 #STR LEXICON,%B 953L #SKI 95H= DOWN OPENFILE,3 962W #STR LEXICON,%B 96GG ( 9726 #STR DOCUMENT,%B 97FQ #SKI 97^B DOWN OPENFILE,4 98F2 #STR DOCUMENT,%B 98YL ( 99D= #STR SERIAL,%B 99XW #SKI 9=CG DOWN OPENFILE,5 9=X6 #STR SERIAL,%B 9?BQ ( 9?WB #STR INCINDEX,%B 9#B2 #SKI 9#TL DOWN OPENFILE,7 9**= #STR INCINDEX,%B 9*SW ( 9B#G #STR OUTPUT,%B 9BS6 #SKI 9C?Q DOWN OPENFILE,8 9CRB #STR OUTPUT,%B 9D?2 ( 9D*K ...#STR IDFB,%B 9DD8 ...#SKI 9DGR ... DOWN OPENFILE,13 9DKB ...#STR IDFB,%B 9DM^ ...( 9DQL #STR IDF,%B 9F== #SKI 9FPW DOWN OPENFILE,9 9G9G #STR IDF,%B 9GP6 ( 9H8Q #STR PROPERTY,%B 9HNB #SKI 9J82 DOWN OPENFILE,10 9JML #STR PROPERTY,%B 9K7= ( 9KLW #STR JOBLIST,%B 9L6G #SKI 9LL6 DOWN OPENFILE,11 9M5Q #STR JOBLIST,%B 9MKB ( 9N52 #STR PARAMINDEX,%B 9NJL #SKI 9P4= DOWN OPENFILE,12 9PHW #STR PARAMINDEX,%B 9Q3G GEOERR 1,WRNGNAME 9Q?# ...) 9QH6 ) 9R2Q ) 9RGB ) 9S22 ) 9SFL ) 9S^= ) 9TDW ) 9TYG ) 9WD6 ) 9WXQ #STR %A 9XCB BRN %A 9XX2 #STR %A 9YBL #SKI 9YW= BRN (GEOERR) 9^*W #NOR 9^KN ...[??? OPENSYS SECT FILE FGN 20 DOC 9^TG #MAC OPENSYS =2*6 # AS OPENSYSX EXCEPT THAT:- =2SQ # %C TO %J INCLUSIVE ARE THE FILE OPENING MODES. =3#B SETMODE 0,%C,%D,%E,%F,%G,%H,%I,%J =3S2 OPENSYSX %A,%B,0 =4?L #NOR =4HD ...[??? MODCHANG SECT FILE FGN 20 DOC =4R= [ =5=W [ =5QG # THIS MACRO CHANGES THE MODE OF OPENING OF THE TOP FILE OPEN =6=6 # FROM GENERAL TO READ MODE. IT DOES NOT GURANTEE THAT THE =6PQ # FILE WILL BE LISTFILED IF FROZEN. =79B #MAC MODCHANGE [CAN'T USE MODECHANGE AS MODE =7P2 [IS AN INSTRUCTION ('125) =88L TOPFCAB 2,1 =8N= ... MBI 2,BAMAPP,BAMREAD [SWITCH OPENING MODES =97W LDN 0 1 =9MG STO 0 CTOPEN(1) [1 READER ==76 LDX 0 FWAITCOUNT(1) [ANY WAITERS? ==LQ BZE 0 M1MODECHAN =?6B STOZ FWAITCOUNT(1) [ZEROISE =?L2 LONGON 6,BACK2(1) [WAKE WAITERS =#5L M1MODECHAN =#K= #NOR =#T4 ...[??? TESTOPEN SECT FILE FGN 20 DOC =*4W #MAC TESTOPEN =*JG ... DOWN OPENEND,3 =B46 BRN %A =BHQ #NOR =BJ2 ...[??? COPYCOMM SECT FILE =BJ= ...#MAC COPYCOMM =BJG ...[ THIS IS A RESTORE-TIME MACRO TO ALLOW THE USE OF COMMUNE =BJQ ...[ AND GDR QUALIFIERS TO THE 2ND PARAMETER OF THE COPY COMMAND. =BK2 ...[ =BK= ...#STR ON,%A =BKG ...#SKI =BKQ ...( =BL2 ...#MEN COPYA =BL= ...#TRA K55COPYA =BLG ... NULL =BLQ ...#END =BM2 ...#MEN COPYB =BM= ...#TRA K55COPYB =BMG ... NULL =BMQ ...#END =BN2 ...) =BN= ...#STR OFF,%A =BNG ...#SKI =BNQ ...( =BP2 ...#MEN COPYA =BP= ...#TRA K55COPYA =BPG ... BRN K56COPYA =BPQ ...#END =BQ2 ...#MEN COPYB =BQ= ...#TRA K55COPYB =BQG ... BRN K56COPYB =BQQ ...#END =BR2 ...) =BR= ...#NOR =BRJ ...[??? GDRPTRS SECT FILE FGN 20 DOC =C3B #MAC GDRPTRS =CH2 [ =D2L [ THIS MACRO CALCULATES THE READ POINTERS OF A NEWLY OPENED GENERAL =DG= [ DESTRUCTIVE READ FILE,AND SETS THEM EQUAL TO THE READ PTRS OF THE =D^W [ MOST ADVANCED READER. =FFG [ =F^6 LDX %B %A =GDQ ADX %B FBACKPOINT(%A) [%B -> FSTACK =GYB MOD LDEX 0 ARINGNO,%B =HD2 #SKI K6OPEN>100$100 =HXL TRACE 0,NO.ELTDR =JC= BCT 0 M1GDRPTRS [J IF >1 ELEMENTS =JWW M8GDRPTRS =KBG NGS %B FREADBLOCK(%A) [O/W SET 'REWOUND' POINTERS =KW6 NGS %B FREADWORD(%A) =L*Q BRN M2GDRPTRS =LTB M1GDRPTRS =M*2 NGX 0 0 [REVERSE COUNT =MSL ANDX 0 BITS22LS =N#= STOZ FREADBLOCK(%A) =NRW M3GDRPTRS =P?G MOD LDXC %C A1+FGENERAL1,%B =PR6 BCC M4GDRPTRS [J IF NOT OPEN IN READ MODE =Q=Q MOD LDN %C A1+FREADBLOCK,%B =QQB SBN %C FREADBLOCK(%A) [IS THIS'OUR' ELEMENT ? =R=2 BZE %C M4GDRPTRS [J IF SO =RPL MOD LDXC %C FREADBLOCK+A1,%B =S9= BCS M4GDRPTRS [J IF NEGATIVE POINTERS. =SNW SBX %C FREADBLOCK(%A) =T8G BNG %C M4GDRPTRS [J IF READER BEHIND LATEST FOUND BEFO =TN6 BZE %C M5GDRPTRS [J IF EQUAL TO CF. RECORD PTRS. =W7Q ADS %C FREADBLOCK(%A) [UPDATE READ PTRS =WMB #SKI K6OPEN>99$99 =X72 TRACE FREADBLOCK(%A),NEW BLDR =XLL MOD LDX %C FREADWORD+A1,%B =Y6= M6GDRPTRS =YKW STO %C FREADWORD(%A) [ =^5G #SKI K6OPEN>99$99 =^K6 TRACE FREADWORD(%A),NEWRECDR ?24Q M4GDRPTRS ?2JB BZE 0 M7GDRPTRS [EXIT IF END ?342 ADN %B FELLEN [STEP ON FSTACK PTR ?3HL #SKI K6OPEN>100$100 ?43= TRACE FREADBLOCK+A1(%B),LOOP GDR ?4GW BUX 0 M3GDRPTRS [CT = NEG.OF TOTAL ELTS.MINUS ONE ?52G M5GDRPTRS ?5G6 MOD LDXC %C FREADWORD+A1,%B ?5^Q BCS M4GDRPTRS [J IF RECORD PTR <0 ?6FB BXL %C FREADWORD(%A),M4GDRPTRS[J IF LESS THAN ?6^2 BRN M6GDRPTRS [O/W UPDATE ?7DL M7GDRPTRS ?7Y= LDX 0 FREADBLOCK(%A) [IF NO POINTER CALCULATED,SET <0. ?8CW BZE 0 M8GDRPTRS ?8XG M2GDRPTRS ?9C6 #NOR ?9LY ...[??? XGDRPTRS SECT FILE FGN 20 DOC ?9WQ #MAC XGDRPTRS ?=BB LDX %B %A ?=W2 ADX %B FBACKPOINT(%A) ??*L MOD LDEX 0 ARINGNO,%B ??T= SBN 0 1 ?##W BZE 0 M2XGDR ?#SG M1XGDR ?*#6 NGX 0 0 ?*RQ ANDX 0 BITS22LS ?B?B NGNC %C 2 ?BR2 STO %C FREADWORD(%A) ?C=L STO %C FREADBLOCK(%A) ?CQ= M3XGDR ?D9W MOD LDXC %C A1+FGENERAL1,%B ?DPG BCC M4XGDR ?F96 MOD LDN %C A1,%B ?FNQ SBN %C 0(%A) ?G8B BZE %C M4XGDR ?GN2 MOD LDXC %C FREADBLOCK+A1,%B ?H7L BCS M9XGDR ?HM= SBX %C FREADBLOCK(%A) ?J6W BZE %C M5XGDR ?JLG BPZ %C M4XGDR ?K66 ADS %C FREADBLOCK(%A) ?KKQ MOD LDX %C FREADWORD+A1,%B ?L5B M6XGDR ?LK2 STO %C FREADWORD(%A) ?M4L M4XGDR ?MJ= BZE 0 M7XGDR ?N3W ADN %B FELLEN ?NHG BUX 0 M3XGDR ?P36 M9XGDR ?PGQ GEOERR 1,XGDRXTR ?Q2B M5XGDR ?QG2 MOD LDX %C FREADWORD+A1,%B ?Q^L BNG %C M6XGDR ?RF= BXL %C FREADWORD(%A),M6XGDR ?RYW BRN M4XGDR ?SDG M7XGDR ?SY6 M2XGDR ?TCQ #NOR ?TMJ ...[??? MAPBOREL SECT FILE FGN 20 DOC ?TXB #MAC MAPBOREL ?WC2 LDX 1 ALOGLEN(%A) ?WWL SBN 1 FBITS-A1 ?XB= BZE 1 M2MAPBOREL ?XTW NGN 0 1 ?Y*G M1MAPBOREL ?YT6 SBN 1 1 ?^#Q SMO 1 ?^SB STO 0 FBITS(%A) #2#2 BNZ 1 M1MAPBOREL #2RL M2MAPBOREL #3?= #NOR #3H4 ...[??? GFCB SECT FILE FGN 20 DOC #3QW #MAC GFCB #4=G ... GFCBC %A,%B #8M6 #NOR #8WY ...[??? GFCBC SECT FILE FGN 20 DOC #96Q # #9LB # THIS MACRO LOCATES AN FCB IN THE FILE RING BY ITS UNIQUE NUMBER & #=62 # BRANCHES TO A GIVEN LABEL IF FCB NOT FOUND #=KL # #?5= #MAC GFCBC #?#8 ... LDXC 0 %A [DIRECTORY OR TERM FILE #?H6 ... LDN 0 0 #?Q4 ... ERN 0 1 [DIR=0 FILE=1 #?^2 ... STO 0 GEN0 [SMO MODIFIER =1 OR 0 ##7Y ... BASEFCB %B,DIR,M2GFCBC,,SMO GEN0 ##BW ...M1GFCBC ##KS ... SMO CMIN64 ##SQ ... BXE %A BACK2-FCBRING+64(%B),M3GFCBC [COMPARE FCB NOS #*3N ... NEXTFCB %B,DIR,M1GFCBC,,SMO GEN0 [TRY NEXT FCB #*=L ...M2GFCBC [FCB RING EXHAUSTED #*FJ ...#STR %C #*NG ... BRN %C #*XD ...#STR %C #B6B ...#STR #B*# ... GEOERR 1,FCB MISS #BJ= ...M3GFCBC #BR8 ... SBN %B FCBRING #C2= #NOR #C=4 ...[??? PROPTEST SECT FILE FGN 20 DOC #CFW #MAC PROPTEST #C^G DOWN LEXIFIND,3 #DF6 #NOR ^^^^ ...32275202002700000000