LOCFCB
(GIN Macro)
Defined in: RING-MACROS
Used in: BSPRUNE867, OPENEND865
- LOCFCB.mac.txt
H55S ...[??? LOCFCB SECT FILE FGN 20 DOC H5*L #MAC LOCFCB H5T= LDN 1 %A H6#W CALL 0 M1LOCFCB H6SG #OPT M2LOCFCB=1 H7#6 #SKI M2LOCFCB H7RQ ( H8?B BRN M3LOCFCB H8R2 #DEF M1LOCFCB=0? H9=L STO 0 GEN0 H9Q= STO 1 GEN1 H=9W LDN 0 3 H=PG LDN 1 GEN2 H=^# ... MOVE 0 5 H?DY ...[ ACC USE H?YJ ...[ 0 TESTNAMX H#D8 ...[ 1FILE FABS POINTER H#XS ...[ 2 FCB POINTER H*CD ...[ 3 FCB RING POINTER H*X4 ...[ 4AND 5 COMPARISON WORDS HBBN ...[ 6 NEXTFCB MACRO COUNT OF FCBS HBW# ...[ 7 TESTNAMX MACRO HCTJ ... TOPFCB 2 HD*8 ... HUNT 1,FILE,FABSNB HDSS ... ADX 1 A1(1) [X1 POINTS TO LOCAL NAME HF#D ... [REF BY A1-6 HFS4 ... LDX 4 A1-6(1) [FIRST WORD OF LOCAL NAME HG?N ... LDX 5 FME1(2) [FIRST WORD OF USER NAME HGR# ... BASEFCB 3,FILE,M7LOCFCB,6 HH=Y ...M4LOCFCB HHQJ ... BXE 4 FLOC1-FCBRING(3),M6LOCFCB [FAST LOOP TO FIND FCB HJ=8 ...M5LOCFCB HJPS ... NEXTFCB 3,FILE,M4LOCFCB,6 HK9D ... BRN M7LOCFCB [FCB RING EXHAAUSTED HKP4 ...M6LOCFCB [A POSSIBLE FCB FOUND HL8N ... BXU 5 FUSER1-FCBRING(3),M5LOCFCB [USER NAME COMP HLN# ... TESTNAMX 5,FLOC2-FCBRING(3),A1-6+1(1),M5LOCFCB HM7Y ... LDX 0 FME2(2) [COMPARE REST OF USER NAME HMMJ ... BXU 0 FUSER2-FCBRING(3),M5LOCFCB HN78 ... LDX 0 FME3(2) HNLS ... BXU 0 FUSER3-FCBRING(3),M5LOCFCB HP6D ... BRN M9LOCFCB J27G M7LOCFCB J2M6 SETREP NOTFOUND J36Q BRN M10LOCFCB J3LB M9LOCFCB J462 SETREP OK J4KL M10LOCFCB J55= LDX 0 3 J5*4 ... SBN 0 FCBRING J5JW LDN 1 GEN2 J64G LDN 2 3 J6J6 MOVE 1 5 J73Q LDX 1 GEN1 J7HB STO 0 0(1) J832 #SKI %A-1 J8GL LDX 1 FX1 J92= #SKI %A-2 J9FW LDX 2 FX2 J9^G LDX 0 GEN0 J=F6 EXIT 0 0 J=YQ #FREE M2LOCFCB J?DB #DEF M2LOCFCB=0 J?Y2 M3LOCFCB J#CL ) J#X= #NOR