ACCESSMACROS
(George Source)
- ACCESSMACROS.txt
22FL ... [JUDY BIDGOOD. 22^= [ PLEASE DO NOT REMOVE THIS LISTING FROM ROOM D7. 23DW [ PLEASE ENSURE THAT ALL EDITS ARE CHECKED BY THE CURRENT OWNER. 23YG #OPT ASTEPQ=2+HLINK [STEP MACRO LINK. 24D6 #OPT ASTEPR=ASTEPQ+1 [STEP(APPEND) MACRO LINK. 24XQ #OPT FNEARLY=4 [FILE NEARLY FULL-4 BLOCKS LEFT 25CB # MACROS FOR "RINGS & THINGS" IN THE FILESTORE 25X2 # 26BL # THIS SUBFILE CONTAINS THE FOLLOWING MACROS IN THIS ORDER 26W= # (NB PLEASE UPDATE !! ) 27*W # 27TG # INSERT 28*6 # REPLACE 28SQ # APPEND ACCESS MACROS 29#B # DELETE 29S2 # REWRITE 2=?L # WIND 2=R= # WRITEB 2?=W # STEP 2?QG # QSTEPC 2#=6 # READ 2#PQ # BACKSPACE 2*9B # REWIND 2*P2 # FASTREWIND 2B8L # ! GETFNAME 2BN= # VSKIP 2C7W # SKIP 2CMG # SUBSTITUTE 2D76 # STEPREWRITE 2DLQ # STEPWRITE 2F6B # READBACK 2FL2 # READAGAIN 2G5L # READB 2GK= # STEPAGAIN 2H4W # CURTAIL 2HJG # 2J46 # GETDIR 2JHQ # GDE 2K3B # FINDREC 2KH2 # READDICT 2L2L # READDICU 2LG= # GETSOUT 2L^W # GETJOB 2MFG # LOCATE 2M^6 # NEXTENT 2NDQ # NEXTENT3 2NYB # 2PD2 # 2PXL # GETAFURB [LEXICON ACCESS 2QC= # STEPFBLOCK [M&CROS 2QWW # SCURFUB 2RBG # FUWBSET 2RW6 # 2R^= ...# CORRUPTB 2S4B ...# CHECKBL 2S7G ...# BSCHECK 2S94 ...# DISCFAIL [ NOT FOR GENERAL USE ! 2S=L ...# 2S*Q # MACRO DEFINITIONS FOR TESTING RINGS AND THINGS 2STB # 2T58 ...[??? INSERT SECT FILE FGN 19 DOC 2T*2 #MAC INSERT 2TSL #STR %A 2W#= ( 2WRW LDCT 0 %A 2X?G SMO FX2 2XR6 STO 0 ACOMMUNE7 2Y=Q DOWN INSERT,1 2YQB ) 2^=2 #STR %A 2^PL #SKI 329= DOWN INSERT,11 32NW #NOR 32YN ...[??? REPLACE SECT FILE FGN 19 DOC 338G #MAC REPLACE 33N6 #STR %A 347Q ( 34MB LDCT 0 %A 3572 SMO FX2 35LL STO 0 ACOMMUNE7 366= DOWN INSERT,2 36KW ) 375G #STR %A 37K6 #STR 384Q DOWN INSERT ,12 38JB #NOR 38S8 ...[??? APPEND SECT FILE FGN 19 DOC 3942 #MAC APPEND 39HL #STR %A 3=3= #SKI 3=GW ( 3?2G #STR %B 3?G6 ( 3?^Q #STR ANSWER,%B 3#FB #SKI 3#^2 DOWN APPEND,13 3*DL #STR FORCED,%B 3*Y= #SKI 3BCW DOWN APPEND,12 3BXG #STR ANSWER,%B 3CC6 ( 3CWQ #STR FORCED,%B 3DBB ( 3DW2 #OPT M10APPEND=1 3F*L DOWN APPEND,14 3FT= ) 3G#W ) 3GSG ) 3H#6 #STR %B 3HRQ #SKI 3J?B DOWN APPEND,11 3JR2 ) 3K=L #STR %A 3KQ= ( 3L9W LDCT 0 %A 3LPG SMO FX2 3M96 STO 0 ACOMMUNE7 3MNQ #STR %B 3N8B ( 3NN2 #STR ANSWER,%B 3P7L #SKI 3PM= DOWN APPEND,9 3Q6W #STR FORCED,%B 3QLG #SKI 3R66 DOWN APPEND,8 3RKQ #STR ANSWER,%B 3S5B ( 3SK2 #STR FORCED,%B 3T4L ( 3TJ= #OPT M10APPEND=1 3W3W DOWN APPEND,10 3WHG ) 3X36 ) 3XGQ ) 3Y2B #STR %B 3YG2 #SKI 3Y^L DOWN APPEND,1 3^F= ) 3^YW #OPT M10APPEND=0 42DG #SKI M10APPEND 42Y6 #SKI 43CQ NULL 43XB #SKI M10APPEND 44C2 BRN %B 44WL #FRE M10APPEND 45B= #NOR 45L4 ...[??? DELETE SECT FILE FGN 19 DOC 45TW #MAC DELETE 46*G #STR %A 46T6 #SKI 47#Q DOWN DELETE,22 47SB #STR %A 48#2 ( 48RL LDCT 0 %A 49?= SMO FX2 49QW STO 0 ACOMMUNE7 4==G DOWN DELETE,2 4=Q6 ) 4?9Q #NOR 4?FJ ...[??? REWRITE SECT FILE FGN 19 DOC 4?PB #MAC REWRITE 4#92 #STR %A 4#NL #SKI 4*8= DOWN REWRITE,33 4*MW #STR %A 4B7G ( 4BM6 LDCT 0 %A 4C6Q SMO FX2 4CLB STO 0 ACOMMUNE7 4D62 DOWN REWRITE,3 4DKL ) 4F5= #NOR 4F*4 ...[??? WIND SECT FILE FGN 19 DOC 4FJW #MAC WIND 4G4G #STR %A 4GJ6 #SKI 4H3Q DOWN REWRITE,44 4HHB #STR %A 4J32 ( 4JGL LDCT 0 %A 4K2= SMO FX2 4KFW STO 0 ACOMMUNE7 4K^G DOWN REWRITE,4 4LF6 ) 4LYQ #NOR 4M8J ...[??? WRITEB SECT FILE FGN 19 DOC 4MDB #MAC WRITEB 4MY2 #STR %A 4NCL #SKI 4NX= ( 4PBW #STR %B 4PWG ( 4QB6 #STR ANSWER,%B 4QTQ #SKI 4R*B DOWN REWRITE,57 4RT2 #STR FORCED,%B 4S#L #SKI 4SS= DOWN REWRITE,58 4T?W #STR ANSWER,%B 4TRG ( 4W?6 #STR FORCED,%B 4WQQ ( 4X=B #OPT M10WRITEB=1 4XQ2 DOWN REWRITE,56 4Y9L ) 4YP= ) 4^8W ) 4^NG #STR %B 5286 #SKI 52MQ DOWN REWRITE,55 537B ) 53M2 #STR %A 546L ( 54L= LDCT 0 %A 555W SMO FX2 55KG STO 0 ACOMMUNE7 5656 #STR %B 56JQ ( 574B #STR ANSWER,%B 57J2 #SKI 583L DOWN REWRITE,52 58H= #STR FORCED,%B 592W #SKI 59GG DOWN REWRITE,53 5=26 #STR ANSWER,%B 5=FQ ( 5=^B #STR FORCED,%B 5?F2 ( 5?YL #OPT M10WRITEB=1 5#D= DOWN REWRITE,51 5#XW ) 5*CG ) 5*X6 ) 5BBQ #STR %B 5BWB #SKI 5CB2 DOWN REWRITE,5 5CTL ) 5D*= #OPT M10WRITEB=0 5DSW #SKI M10WRITEB 5F#G #SKI 5FS6 NULL 5G?Q #SKI M10WRITEB 5GRB BRN %B 5H?2 #FRE M10WRITEB 5HQL #NOR 5J2D ...[??? STEP SECT FILE FGN 19 DOC 5J== #MAC STEP 5JPW #STR %B 5K9G #SKI 5KP6 ( 5L8Q #STR %A 5LNB ( 5M82 LDCT 3 %A 5MML CALL 1 (ASTEP13) 5N7= DOWN READFILE,2 5NLW CALL 1 (ASTEP14) 5P6G ) 5PL6 #STR %A 5Q5Q #SKI 5QKB ( 5R52 CALL 1 (ASTEP11) 5RJL DOWN READFILE,22 5S4= CALL 1 (ASTEP12) 5SHW ) 5T3G ) 5TH6 #STR %B 5W2Q ( 5WGB #STR %A 5X22 ( 5XFL #STR %B,0(3) 5X^= #SKI 5YDW ( 5YYG LDCT 0 %A 5^D6 ADX 3 0 5^XQ ) 62CB #STR %B,0(3) 62X2 ( 63BL LDCT 3 %A 63W= ADN 3 %B 64*W ) 64TG CALL 1 (ASTEP17) 65*6 #STR %C 65SQ ( 66#B #STR ANSWER,%C 66S2 #SKI 67?L DOWN APPEND,21 67R= #STR FORCED,%C 68=W #SKI 68QG DOWN APPEND,20 69=6 #STR ANSWER,%C 69PQ ( 6=9B #STR FORCED,%C 6=P2 ( 6?8L #OPT M10APPEND=1 6?N= DOWN APPEND,22 6#7W ) 6#MG ) 6*76 ) 6*LQ #STR %C 6B6B #SKI 6BL2 DOWN APPEND,2 6C5L #OPT M10APPEND=0 6CK= #SKI M10APPEND 6D4W #SKI 6DJG NULL 6F46 #SKI M10APPEND 6FHQ BRN %C 6G3B #FRE M10APPEND 6GH2 CALL 1 (ASTEP18) 6H2L ) 6HG= #STR %A 6H^W #SKI 6JFG ( 6J^6 LDN 3 %B 6KDQ CALL 1 (ASTEP15) 6KYB #STR %C 6LD2 ( 6LXL #STR ANSWER,%C 6MC= #SKI 6MWW DOWN APPEND,21 6NBG #STR FORCED,%C 6NW6 #SKI 6P*Q DOWN APPEND,20 6PTB #STR ANSWER,%C 6Q*2 ( 6QSL #STR FORCED,%C 6R#= ( 6RRW #OPT M10APPEND=1 6S?G DOWN APPEND,22 6SR6 ) 6T=Q ) 6TQB ) 6W=2 #STR %C 6WPL #SKI 6X9= DOWN APPEND,2 6XNW #OPT M10APPEND=0 6Y8G #SKI M10APPEND 6YN6 #SKI 6^7Q NULL 6^MB #SKI M10APPEND 7272 BRN %C 72LL #FRE M10APPEND 736= CALL 1 (ASTEP16) 73KW ) 745G ) 74K6 #NOR 74SY ...[??? QSTEPC SECT FILE FGN 19 DOC 754Q #MAC QSTEPC 75JB [ J.TO %B IF WE HAVE TO COORDINATE TO DO A STEP ON FILE @ DEPTH %A 7642 #STR %A 76HL ( 773= LDCT 3 %A 77GW CALL 1 (ASTEP13) 782G ) 78G6 #STR %A 78^Q #SKI 79FB CALL 1 (ASTEP11) 79^2 LDX 1 FX1 7=DL LDX 2 FX2 7=Y= BRN %B 7?CW NULL 7?XG #NOR 7#7# ...[??? READ SECT FILE FGN 19 DOC 7#C6 #MAC READ 7#WQ #STR %A 7*BB #SKI 7*W2 DOWN READFILE,21 7B*L #STR %A 7BT= ( 7C#W LDCT 0 %A 7CSG SMO FX2 7D#6 STO 0 ACOMMUNE7 7DRQ DOWN READFILE,1 7F?B ) 7FR2 #NOR 7G2S ...[??? BACKSPAC SECT FILE FGN 19 DOC 7G=L #MAC BACKSPACE 7GQ= #STR %A 7H9W #SKI 7HPG DOWN PERUSFIL,44 7J96 #STR %A 7JNQ ( 7K8B LDCT 0 %A 7KN2 SMO FX2 7L7L STO 0 ACOMMUNE7 7LM= DOWN PERUSFIL,40 7M6W ) 7MLG #NOR 7MW# ...[??? REWIND SECT FILE FGN 19 DOC 7N66 #MAC REWIND 7NKQ #STR %A 7P5B #SKI 7PK2 DOWN PERUSFIL,31 7Q4L #STR %A 7QJ= ( 7R3W LDCT 0 %A 7RHG SMO FX2 7S36 STO 0 ACOMMUNE7 7SGQ DOWN PERUSFIL,30 7T2B ) 7TG2 #NOR 7TPS ...[??? FASTREWI SECT FILE FGN 19 DOC 7T^L #MAC FASTREWIND 7WF= [ REWINDS TOP FILE BUT DOESN'T DISPOSE OF USAGE BLOX 7WYW TOPFCA %A 7XDG NGS %A FREADBLOCK(%A) 7XY6 NGS %A FREADWORD(%A) 7YCQ #NOR 7YMJ ...[??? GETFNAME SECT FILE FGN 19 DOC 7YXB #MAC GETFNAME 7^C2 #STR %A 7^WL #SKI 82B= DOWN CHANFILE,24 82TW #STR %A 83*G ( 83T6 LDCT 0 %A 84#Q SMO FX2 84SB STO 0 ACOMMUNE7 85#2 DOWN CHANFILE,4 85RL ) 86?= #NOR 86H4 ...[??? SKIP SECT FILE FGN 19 DOC 86QW #MAC SKIP 87=G #STR %A 87Q6 ( 889Q LDCT 0 %A 88PB ADN 0 %B 8992 ) 89NL #STR %A 8=8= #SKI 8=MW LDN 0 %B 8?7G CALL 1 (ASTEP23) 8?M6 DOWN READFILE,2 8#6Q CALL 1 (ASTEP14) 8#LB #NOR 8#W8 ...[??? VSKIP SECT FILE FGN 19 DOC 8*62 #MAC VSKIP 8*KL ...#STR %A 8B5= ( 8BJW LDCT 0 %A 8C4G ADN 0 %B 8CJ6 ) 8D3Q ...#STR %A 8DHB #SKI 8F32 LDN 0 %B 8FGL CALL 1 (ASTEP32) 8G2= ... DOWN READFILE,9 8GFW CALL 1 (ASTEP34) 8G^G #NOR 8H9# ...[??? SUBSTITU SECT FILE FGN 19 DOC 8HF6 #MAC SUBSTITUTE 8HYQ #STR %A 8JDB ( 8JY2 LDCT 0 %A 8KCL SMO FX2 8KX= STO 0 ACOMMUNE7 8LBW DOWN REWRITE,7 8LWG ) 8MB6 #STR %A 8MTQ #SKI 8N*B DOWN REWRITE,77 8NT2 #NOR 8P4S ...[??? STEPREWR SECT FILE FGN 19 DOC 8P#L #MAC STEPREWRITE 8PS= #STR %A 8Q?W ( 8QRG STO 3 GEN6 8R?6 ... LOADNUM 3,%A 8RQQ LDX 2 FX2 8S=B FFCA 8SQ2 LDX 3 GEN6 8T9L ) 8TP= #STR %A 8W8W #SKI 8WNG TOPFCA 2 8X86 SBX 3 FREADWORD(2) 8XMQ NAME 3,FILE,FUWB 8Y7B ADX 3 FREADWORD(2) 8YM2 LDX 2 FX2 8^6L #NOR 8^BD ...[??? STEPWRIT SECT FILE FGN 19 DOC 8^L= #MAC STEPWRITE 925W #STR %A 92KG #SKI 9356 TOPFCA 2 93JQ #STR %A 944B ( 94J2 ... LOADNUM 3,%A 953L LDX 2 FX2 95H= FFCA 962W ) 96GG PSTAC 1,2 9726 BFCBX 1,1 97FQ JBC M2STEPWRITE,2,BAMCLEAN [J IF NOT OPEN IN CLEAN MODE 97^B GEOERR 1,CANTSTWR 98F2 M2STEPWRITE 98YL JBC M1STEPWRITE,1,BFCARE [J IF NOT CAREFUL 99D= LDX 2 FREADBLOCK(2) 99XW SBN 2 FBLKS-1 9=CG MAPBCH 2,1 9=X6 BNZ 0 M1STEPWRITE [J.IF BLK ALREADY SUBBED 9?BQ SUBSTITUTE %A 9?WB M1STEPWRITE 9#B2 STEPAGAIN %A 9#TL STEPREWRITE %A 9**= #NOR 9*K4 ...[??? READAGAI SECT FILE FGN 19 DOC 9*SW #MAC READAGAIN 9B#G #STR %A 9BS6 #SKI 9C?Q DOWN PERUSFIL,81 9CRB #STR %A 9D?2 ( 9DQL LDCT 0 %A 9F== SMO FX2 9FPW STO 0 ACOMMUNE7 9G9G DOWN PERUSFIL,80 9GP6 ) 9H8Q #NOR 9HDJ ...[??? READBACK SECT FILE FGN 19 DOC 9HNB #MAC READBACK 9J82 #STR %A 9JML #SKI 9K7= DOWN PERUSFIL,83 9KLW #STR %A 9L6G ( 9LL6 LDCT 0 %A 9M5Q SMO FX2 9MKB STO 0 ACOMMUNE7 9N52 DOWN PERUSFIL,82 9NJL ) 9P4= #NOR 9P#4 ...[??? READB SECT FILE FGN 19 DOC 9PHW #MAC READB 9Q3G #STR %A 9QH6 ( 9R2Q LDCT 0 %A 9RGB SMO FX2 9S22 STO 0 ACOMMUNE7 9SFL DOWN PERUSFIL,16 9S^= ) 9TDW #STR %A 9TYG #SKI 9WD6 DOWN PERUSFIL,67 9WXQ #NOR 9X7J ...[??? STEPAGAI SECT FILE FGN 19 DOC 9XCB #MAC STEPAGAIN 9XX2 #STR %A 9YBL ( 9YW= LDCT 3 %A 9^*W CALL 1 (ASTEP21) 9^TG DOWN READFILE,3 =2*6 CALL 1 (ASTEP22) =2SQ ) =3#B #STR %A =3S2 #SKI =4?L ( =4R= CALL 1 (ASTEP19) =5=W DOWN READFILE,23 =5QG CALL 1 (ASTEP20) =6=6 ) =6PQ #NOR =6^J ...[??? CURTAIL SECT FILE FGN 19 DOC =79B # THIS RESETS THE APPEND POINTERS OF A FILE TO ITS READ POINTERS, =7P2 # UNLESS POSITIONED AT OR JUST BEFORE E.O.F. IN WHICH CASE THE APPEN =88L # POINTERS ARE UNALTERED. NB - THIS MACRO HAS A LARGE EXPANSION. =8N= #MAC CURTAIL =97W SFSTACK %A,1,2 =9MG BFCBX 2,2 ==76 STO 1 GEN5 ==LQ LDX 0 FBLMOD(2) =?6B STO 0 GEN6 =?L2 LDX 0 FREADBLOCK(1) =#5L LDX 1 FREADWORD(1) =#K= BNG 0 M1CURTAIL =*4W SBN 0 A1 =*JG BXE 0 FBLMOD(2),M3CURTAIL =B46 BNG 1 M2CURTAIL =BHQ ADN 0 1 =C3B BRN M2CURTAIL =CH2 M1CURTAIL =D2L LDN 0 FBLKS-A1 =DG= M2CURTAIL =D^W STO 0 FBLMOD(2) =FFG STO 1 CMOD(2) =F^6 MBS 2,BFALTB,BFALTR [SET 'FILE AND BLOCK NOS. ALTERED' =GDQ [BITS,AS IN GENERAL BLOCKS WILL BE =GYB [LOST FROM THE FILE. =G^J ... LDN 0 4 =H2Q ... ANDX 0 FCOMM(2) =H3Y ... BZE 0 M4CURTAIL =H56 ... LDX 1 FPTR(2) =H6# ...M5CURTAIL =H7G ... LDX 1 FPTR(1) =H8N ... LDX 0 ATYPE(1) =H9W ... BXE 0 FILEPLUSFCB,M4CURTAIL =H?4 ... BXU 0 FFSFMAPP,M5CURTAIL =H#= ... LDN 0 3 =H*D ... STO 0 FBCOMM(1) =HBL ...M4CURTAIL =HD2 LDX 0 GEN6 =HXL SBX 0 FBLMOD(2) =JC= BZE 0 M3CURTAIL =JWW LDX 2 GEN5 =KBG SUBCUBS 2,0,JOB =KW6 M3CURTAIL =L*Q LDX 1 FX1 =LTB LDX 2 FX2 =M*2 #NOR =MJS ...[??? GETDIR SECT FILE FGN 19 DOC =MSL #MAC GETDIR =N#= DOWN GETDIR,1%A =NRW #NOR =P3N ...[??? GDE SECT FILE FGN 19 DOC =P?G #MAC GDE =PR6 GETDIR 1 =Q=Q #NOR =QGJ ...[??? FINDREC SECT FILE FGN 19 DOC =QQB #MAC FINDREC =R=2 M1FINDREC =RPL STEP %A =S9= BZE 3 %D =SNW LDX 0 %B(3) =T8G BXU 0 %C,M1FINDREC =TN6 #NOR =TXY ...[??? READDICT SECT FILE FGN 19 DOC =W7Q #MAC READDICT =WMB #STR %A =X72 LDX 0 %A =XLL #STR %A =Y6= #SKI =YKW LDN 0 0 =^5G SMO FX2 =^K6 STO 0 ACOMMUNE9 ?24Q #STR %B ?2JB ( ?342 LDN 0 %B ?3HL LDX 2 FX2 ?43= LDN 1 ACOMMUNE1(2) ?4GW MOVE 0 3 ?52G ) ?5G6 #STR %B ?5^Q #SKI ?6FB ( ?6^2 LDX 2 FX2 ?7DL STOZ ACOMMUNE1(2) ?7Y= ) ?8CW #STR %C ?8XG ( ?9C6 LDCT 0 #400 ?9WQ STO 0 ACOMMUNE7(2) ?=BB ) ?=W2 #STR %C ??*L #SKI ??T= STOZ ACOMMUNE7(2) ?##W DOWN LOCATE,5 ?#SG #NOR ?*4# ...[??? READDICU SECT FILE FGN 19 DOC ?*#6 #MAC READDICU ?*RQ #STR %A ?B?B #SKI ?BR2 LDN 0 0 ?C=L #STR %A ?CQ= LDX 0 %A ?D9W SMO FX2 ?DPG STO 0 ACOMMUNE9 ?F96 #ACC %B ?FNQ ( ?G8B LDX 0 %B ?GN2 SMO FX2 ?H7L STO 0 ACOMMUNE7 ?HM= ) ?J6W #ACC %B ?JLG #STR ?K66 ( ?KKQ SMO FX2 ?L5B STO %B ACOMMUNE7 ?LK2 ) ?M4L DOWN LOCATE,2 ?MJ= #NOR ?MS4 ...[??? GETSOUT SECT FILE FGN 19 DOC ?N3W #MAC GETSOUT ?NHG #STR %A ?P36 LDX 0 %A ?PGQ #STR %A ?Q2B #SKI ?QG2 LDN 0 0 ?Q^L SMO FX2 ?RF= STO 0 ACOMMUNE9 ?RYW LDX 0 %B ?SDG SMO FX2 ?SY6 STO 0 ACOMMUNE7 ?TCQ LDX 0 %C ?TXB SMO FX2 ?WC2 STO 0 ACOMMUNE1 ?WWL DOWN LOCATE,4 ?XB= #NOR ?XL4 ...[??? GETJOB SECT FILE FGN 19 DOC ?XTW #MAC GETJOB ?XXD ...#UNS JWPHASE3 ?X^2 ...( ?Y2J ...#STR %C ?Y46 ...( ?Y5N ... LDX 0 %C ?Y7= ... SMO FX2 ?Y8S ... STO 0 ACOMMUNE9 ?Y=B ...) ?Y?Y ...) ?Y*G #STR USER,%B ?YT6 #SKI ?^#Q ( ?^SB LDX 0 %A #2#2 LDX 2 FX2 #2RL LDN 1 ACOMMUNE1(2) #3?= MOVE 0 3 #3*8 ...#UNS JWPHASE3 #3C6 ...( #3F4 ...#STR %C #3H2 ... DOWN LOCATE,9 #3JY ...) #3LW ...#STR %C #3NS ...#SKI #3QW DOWN LOCATE,7 #4=G ) #4Q6 #STR SYSTEM,%B #59Q #SKI #5PB ( #692 #ACC %A #6NL ( #78= LDX 0 %A #7MW SMO FX2 #87G STO 0 ACOMMUNE7 #8M6 ) #96Q #ACC %A #9LB #STR #=62 ( #=KL SMO FX2 #?5= STO %A ACOMMUNE7 #?JW ) #?LS ...#UNS JWPHASE3 #?NQ ...( #?QN ...#STR %C #?SL ... DOWN LOCATE,10 #?WJ ...) #?YG ...#STR %C ##2D ...#SKI ##4G DOWN LOCATE,8 ##J6 ) #*3Q #NOR #*HB ...[??? NEXTENT SECT FILE FGN 19 DOC #DF6 #MAC NEXTENT #DYQ [ THIS MACRO EXPECTS A DIRECTORY OPEN AT LEVEL %A, POSITIONED ON #FDB [ A NAME RECORD,AND IT EXPECTS A FILE/ENT BLOCK FOR THIS ENTRY TO #FY2 [ BE IN THE ACTIVITY CHAIN. #GCL MHUNTW 1,FILE,ENT #GX= #SKI K6ACCESS>99$99 #HBW ( #HWG BPZ 1 M1NEXTENT #JB6 M2NEXTENT #JTQ GEOERR 1,NEXTENT! #K*B M1NEXTENT #KT2 ) #L#L LDEX 2 ECOPS(1) #LS= ADX 2 ENUSE(1) #M?W LDN 0 #1000 #MRG ANDX 0 EINF2(1) #N?6 BZE 0 M3NEXTENT #NQQ ADN 2 1 #P=B M3NEXTENT #PQ2 SKIP %A,1(2) #Q9L BZE 3 M4NEXTENT #QP= #SKI K6ACCESS>99$99 #R8W ( #RNG LDEX 0 EREC-A1(3) #S86 SBN 0 FRDE #SMQ BNZ 0 M2NEXTENT #T7B LDX 0 ERES-A1(3) #TM2 BNZ 0 M2NEXTENT #W6L ) #WL= M4NEXTENT #X5W #NOR #X*N ...[??? NEXTENT3 SECT FILE FGN 19 DOC #XKG #MAC NEXTENT3 #Y56 [ AS FOR NEXTENT,EXCEPT THAT IT ASSUMES X3 -> ENTRY RATHER THAN #YJQ #SKI K6ACCESS>99$99 #^4B CALL 1 M1NEXTENT3 #^J2 LDEX 2 ECOPS-A1(3) *23L ADX 2 ENUSE-A1(3) *2H= LDN 0 #1000 *32W ANDX 0 EINF2-A1(3) *3GG BZE 0 M2NEXTENT3 *426 ADN 2 1 *4FQ #SKI K6ACCESS>99-99 *4^B ( *5F2 BRN M2NEXTENT3 *5YL M1NEXTENT3 *6D= LDX 0 EREC-A1(3) *6XW SBN 0 FRDE *7CG BNZ 0 M3NEXTENT3 *7X6 LDX 0 ERES-A1(3) *8BQ BZE 0 (1) *8WB M3NEXTENT3 *9B2 GEOERR 1,NEXTENT3 *9TL ) *=*= M2NEXTENT3 *=SW SKIP %A,1(2) *?#G BZE 3 M4NEXTENT3 *?S6 #SKI K6ACCESS>99$99 *#?Q ( *#RB CALL 1 M1NEXTENT3 **?2 LDX 1 FX1 **QL ) *B== M4NEXTENT3 *BPW #NOR *B^N ...[??? GETAFURB SECT FILE FGN 19 DOC *C9G # THIS ATTEMPTS TO LEAVE THE CURRENT BLOCK IN THE FILE CHAIN AS A *CP6 # FILE/USAGE BLOCK [IT MAY NOT RE THERE AFTER COMING UP *D8Q #MAC GETAFURB *DNB #STR %A *F82 ( *FML LDCT 0 %A *G7= SMO FX2 *GLW STO 0 ACOMMUNE7 *H6G DOWN PERUSFIL,7 *HL6 ) *J5Q #STR %A *JKB #SKI *K52 DOWN PERUSFIL,27 *KJL #NOR *KSD ...[??? STEPFBLO SECT FILE FGN 19 DOC *L4= # THIS MACRO IS TO UPDATE THE BLOCK POINTER FOR THE FILE OPEN AT *LHW # DEPTH %A (ZERO IF ABSENT).IF THIS IS NEGAT VE,SETS POINTING TO 2ND *M3G # BLOCK *MH6 # %BCOPTIONAL>IS A LABEL TO JUMP TO ON READING FF END OF BL CLIST. *N2Q #MAC STEPFBLOCK *NGB #STR %A *P22 SFSTACK %A,1 *PFL #STR %A *P^= #SKI *QDW TOPFCA 1 *QYG LDX 0 FREADBLOCK(1) *RD6 BPZ 0 M1STEPFBLOC *RXQ LDN 0 FBLKS *SCB M1STEPFBLOC *SX2 ADN 0 1 *TBL STO 0 FREADBLOCK(1) *TW= #STR %B *W*W ( *WTG PSTAC 1,1 *X*6 BFCBX 1,1 *XSQ SBX 0 FBLMOD(1) *Y#B SBN 0 A1 *YS2 BZE 0 %B *^?L BNG 0 M2STEPFBLOC *^R= GEOERR 1,ENDFILE B2=W M2STEPFBLOC B2QG ) B3=6 LDX 1 FX1 B3PQ #NOR B3^J ...[??? SCURFUB SECT FILE FGN 19 DOC B49B # THIS MACRO SETS %A POINTING TO THE CURRENT USAGE BLOCK OF THE B4P2 # FILE OPEN AT DEPTH [%B] & JUMPS TO %C IF THE BLOCK'S NOT THERE B58L #MAC SCURFUB B5N= #STR %B B67W SFSTACK %B,1,2 B6MG #STR %B B776 #SKI B7LQ ( B86B TOPFCA 1 B8L2 PSTAC 2,1 B95L ) B9K= LDX 0 FREADBLOCK(1) B=4W BPZ 0 M1SCURFUB B=JG LDN 0 FBLKS B?46 STO 0 FREADBLOCK(1) B?HQ M1SCURFUB B#3B LDX 0 2 B#H2 BFCBX 2,2 B*2L ADX 2 FREADBLOCK(1) B*G= LDX 1 0 B*^W SFUB 1,0(2),%A,%C BBFG #STR %A,1 BB^6 #SKI BCDQ #OPT M2SCURFUB=1 BCYB #STR %A,2 BDD2 #SKI BDXL #OPT M2SCURFUB=2 BFC= #OPT M2SCURFUB=0 BFWW #SKI M2SCURFUB$1 BGBG LDX 1 FX1 BGW6 #SKI M2SCURFUB$2 BH*Q LDX 2 FX2 BHTB #FRE M2SCURFUB BJ*2 #NOR BJJS ...[??? FUWBSET SECT FILE FGN 19 DOC BJSL # THIS MACRO I LIKE STEPREWRITE - IT RENAMES T E CURRENT USA E BK#= # BLOCK A FILE/FUWB J TO %B IF BLOCK NOT THERE BKRW #MAC FUWBSET BL?G SCURFUB 1,%A,%B BLR6 LDX 0 FFSFUWB BM=Q STO 0 ATYPE(1) BMQB #NOR BN28 ...[??? CORRUPTB SECT FILE FGN 19 DOC BN=2 ...#UNS JSKI33 BNPL ...( BP9= ...# THIS DEALS WITH FILES IN WHICH CORRUPTION HAS BEEN FOUND BPNW ...#MAC CORRUPTB BQ8G ...#ACC %A BQN6 ...( BR7Q ... LDX 0 %A BRMB ... SMO FX2 BS72 ... STO 0 ACOMMUNE2 BSLL ...) BT6= ...#ACC %A BTKW ...#SKI BW5G ...( BWK6 ... SMO FX2 BX4Q ... STO %A ACOMMUNE2 BXJB ...) BY42 ...#ACC %B BYHL ...( B^3= ... LDX 0 %B B^GW ... SMO FX2 C22G ... STO 0 ACOMMUNE3 C2G6 ...) C2^Q ...#ACC %B C3FB ...#SKI C3^2 ...( C4DL ... SMO FX2 C4Y= ... STO %B ACOMMUNE3 C5CW ...) C5XG ... DOWN READFAIL,1 C6C6 ...#NOR C6G= ...) C6KB ...[??? CHECKBL SECT FILE FGN 19 DOC C6NG ...#UNS JSKI33 C6RL ...( C6WQ ...# THIS CALLS A SUBROUTINE IN STEP TO CHECK RECORD HEADERS C7BB ...#MAC CHECKBL C7W2 ...#STR %A,1 C8*L ... LDX 1 %A [SKIPPED IF %A=1 C8T= ...#STR %B,2 C9#W ... LDX 2 %B [SKIPPED IF %B=2 C9SG ... CALL 0 (HCHBL) C=#6 ... BRN %C C=RQ ...#NOR C=WW ...) C?22 ...[??? BSCHECK SECT FILE FGN 19 DOC C?56 ...#UNS JSKI33 C?8= ...( C??B ...# THIS IS A RESTORE TIME MACRO TO SWITCH CORRUPTION CHECKING C?R2 ...# DURING READ TRANSFERS ON AND OFF. C#=L ...#MAC BSCHECK C#Q= ...#STR %A,ON C*9W ...#SKI C*PG ...( CB96 ...#STR %B CBNQ ...( CC8B ...#CON ILLEGAL USE OF PARAMETERS CCN2 ...#EXI CD7L ...) CDM= ...) CF6W ...#MEN STEP CFLG ...#STR %A,ON CG66 ...#SKI CGKQ ...( CH5B ...#TRA K1STEP+1 CHK2 ... BRN K1STEP+4 CJ4L ...) CJJ= ...#STR %A,OFF CK3W ...#SKI CKHG ...( CL36 ...#STR %B,USER CLGQ ...#SKI CM2B ...( CMG2 ...#TRA K1STEP+1 CM^L ... LDX 0 FINFC(1) CNF= ... ANDN 0 #77 CNYW ... BZE 0 (GEN0) CPDG ...) CPY6 ...#STR %B,SYSTEM CQCQ ...#SKI CQXB ...( CRC2 ...#TRA K1STEP+1 CRWL ... LDX 0 FINFC(1) CSB= ... ANDN 0 #77 CSTW ... BNZ 0 (GEN0) CT*G ...) CTT6 ...#STR %B,ALL CW#Q ...#SKI CWSB ...( CX#2 ...#TRA K1STEP+1 CXRL ... BRN (GEN0) CY?= ...) CYQW ...) C^=G ...#END C^Q6 ...#NOR D29Q ...) D2PB ...#MAC DISCFAIL D392 ...[ D3NL ...[ THERE ARE FRIGS IN THIS RESTORE TIME MACRO TO GENERATE TRANSFER FAILUR D48= ...[ D4MW ...[ IP MANAGER1 CAN BE SET TO THE FOLLOWING: D57G ...[ #1 FAIL ANY TRANSFER D5M6 ...[ #2 ANY AUTONOMOUS TRANSFER D66Q ...[ #4 A SWAP TRANSFER D6LB ...[ #10 ANY DUMPER TRANSFER D762 ...[ #20 TERMINAL FILE TRANSFER DURING DUMPING D7KL ...[ #40 A VITAL SYSTEM FILE DURING DUMPING D85= ...[ #100 NON AUTONOMOUS, NON CHAPTER TRANSFER D8JW ...[ #200 CHAPTER TRANSFER D94G ...[ #400 WRITE TRANSFERS AS WELL AS READ TRANSFERS D9J6 ...[ D=3Q ...[ ALL TRANSFERS FAILED ARE READ TRANSFERS UNLESS #400 IS INCLUDED. D=HB ...[ D?32 ...[ %A CAN BE SET TO THE NUMBER OF TRANSFERS DURING BACKMAP BEFORE D?GL ...[ A FAIL (20 IS A GOOD FIGURE ... CAUSES PARTIAL RESTORE) D#2= ...[ D#FW ...#SKI %A D#^G ...( D*F6 ... FCMENDV D*YQ ..NBMAP +%A DBDB ... FCENDV DBY2 ...) DCCL ...#MEN BSQ DCX= ...#TRA K1BSQ+115 DDBW ... BRN FCPCM DDWG ...#END DFB6 ... FCMEND DFTQ ...FCPCM DG*B ... STO 0 BSMODE(3) DGT2 ... BNZ 0 K1BSQ+116 DH#L ... LDCT 0 2 DHS= ... ANDX 0 BA1(2) DJ?W ... BNZ 0 K1BSQ+116 [ J IF SWAP DJRG ... LDX 0 BIT9 DK?6 ... ORS 0 ATRAN(3) [ SET BIT 9 IN ATRAN FOR DUMPER TEST DKQQ ... DL=B ... BRN K1BSQ+116 DLQ2 ... FCEND DM9L ...#MEN BSTS DMP= ...#TRA K1BSTS+221 DN8W ... BRN FCPCM1 [ TRANS ENTRY DNNG ...#SKI %A DP86 ...( DPMQ ...#TRA K1BSTS+237 DQ7B ... BZE 3 FCPCMA [ BMAP ENTRY DQM2 ...) DR6L ...#END DRL= ... FCMEND DS5W ...#SKI %A DSKG ...( DT56 ...FCPCMA DTJQ ... BSOFF EMSBIT,K1BSTS+239 DW4B ... LDX 0 HBMAP DWJ2 ... SBN 0 1 DX3L ... STO 0 HBMAP DXH= ... BNZ 0 K1BSTS+239 DY2W ... BRN FCPCMF DYGG ...) D^26 ...FCPCM1 D^FQ ... BSON EMSBIT,XOK [ DONT FAIL IF BMAP D^^B ... LDX 0 INSTPARAM+1 F2F2 ... ANDN 0 #400 F2YL ... BNZ 0 FCPCM8 [ J - IF NOT TO ALLOW WRITE FAILS. F3D= ... SMO CPPTR(2) F3XW ... LDEX 3 IMODE F4CG ... BNZ 3 XOK [ DONT FAIL WRITE TRANS F4X6 ...FCPCM8 LDX 3 BSCHANAD(2) F5BQ ... SBN 3 CHAINADD F5WB ... LDX 0 INSTPARAM+1 F6B2 ... ANDN 0 #1 [ ANY TRANSFER F6TL ... BZE 0 FCPCM2 F7*= ... ERS 0 INSTPARAM+1 F7SW ...FCPCMF F8#G ...# FAILURE PART F8S6 ... LDCT 0 #040 F9?Q ... STO 0 CPRW1(2) F9RB ... BRN K1BSTS+253 F=?2 ...XOK F=QL ...# NON FAIL PART F?== ... LDX 3 JMBSTS F?PW ... BRN K1BSTS+222 F#9G ... F#P6 ...FCPCM2 F*8Q ... LDX 0 ACOMMUNE1(2) F*NB ... BPZ 0 FCPCMC [ NON AUTO TRANS FB82 ... LDX 0 INSTPARAM+1 FBML ... ANDN 0 #2 [ ANY AUTO TRANS FC7= ... BZE 0 FCPCM3 FCLW ... ERS 0 INSTPARAM+1 FD6G ... BRN FCPCMF FDL6 ...FCPCM3 FF5Q ... LDX 0 BIT9 FFKB ... ANDX 0 ATRAN(3) FG52 ... BNZ 0 FCPCM4 [ DUMPER !!! FGJL ... LDCT 0 2 FH4= ... ANDX 0 ATRAN(3) FHHW ... BZE 0 XOK FJ3G ... LDN 0 #4 [ SWAP TRANS FJH6 ... BRN FCPCM6 FK2Q ...FCPCM4 [ DUMPER FKGB ... LDX 3 BPTR(3) FL22 ... LDX 0 ATYPE(3) FLFL ... TXL 0 CACT FL^= ... BCS FCPCM4 FMDW ... HUNT2 3,FILE,ENT FMYG ... LDX 0 INSTPARAM+1 FND6 ... ANDN 0 #10 [ DUMP FAIL FNXQ ... BZE 0 FCPCMD FPCB ... ERS 0 INSTPARAM+1 FPX2 ... BRN FCPCMF FQBL ...FCPCMD FQW= ... JMBS FCPCM5,3,BECARE,BECOOR,BEINDEX,BEREVERE FR*W ...[ NO DY ETC FRTG ... LDN 0 #20 [ TERMINAL FILE FS*6 ... BRN FCPCM6 FSSQ ...FCPCM5 FT#B ... LDN 0 #40 [ VSF FTS2 ...FCPCM6 FW?L ...# COMMON CODE FWR= ... ANDX 0 INSTPARAM+1 FX=W ... BZE 0 XOK FXQG ... ERS 0 INSTPARAM+1 FY=6 ... BRN FCPCMF FYPQ ... F^9B ...FCPCMC F^P2 ...[ NON-AUTO TRANSFERS G28L ... LDN 0 ASWAP G2N= ... ANDX 0 ACOMMUNE1(2) G37W ... BZE 0 FCPCM9 [ NOT A SWAP TRANSFER G3MG ... LDN 0 #4 G476 ... BRN FCPCM6 [ SWAP FAILURE G4LQ ...FCPCM9 G56B ... LDCT 0 #200 G5L2 ... ANDX 0 ACOMMUNE1(2) G65L ... BNZ 0 FCPCM7 [ CHAPTER FAIL G6K= ... LDN 0 #100 G74W ... BRN FCPCM6 [ NON CHAPTER, NON AUTO FAIL G7JG ...FCPCM7 G846 ... LDN 0 #200 [ CHAPTER FAIL G8HQ ... BRN FCPCM6 G93B ... FCEND G9H2 ...#NOR ^^^^ ...71446300002500000000