(GIN Macro)
Defined in: CLOSE-MACROS
Used in:
636S ...[??? FILEA SECT FILE FGN 11 DOC 63BL #MAC FILEA 63W= ...[ CALCULATE POINTERS,SET GEN1 & GEN2 TO B.S.HOME PAIR OF BLOCK TO BE TRA 64*W ...M2FILEA 64TG #STR %A,3 65*6 LDX 3 %A 65SQ #STR %A 66#B #SKI 66S2 LDN 3 0 67?L ... CALL 0 M1FILETRAN [X1-> FCB, X2-> FCA 67R= ...#STR %C 68=W ... SMO %C 68QG ...#STR %C 69=6 #SKI 69PQ SMO FREADBLOCK(2) 6=9B LDX 0 0(1) 6=KB ... STO 0 GEN2 [INSERT BLOCK NO. IN GEN2 6=^B ...#STR %B [SKIP IF 512-WORD TRANSFER 6?*B ...( 6?PB ...#STR %C 6#5B ... LDX 0 %C 6#FB ...#STR %C 6#TB ...#SKI 6*9B ... LDX 0 FREADBLOCK(2) 6*KB ... SLC 0 2 6*^B ... ANDN 0 3 6B*B ... ORS 0 GEN2 [INSET BLOCKLET BITS INTO GEN2 6BPB ...) 6C5L LDX 0 BSPRE(1) 6CK= ... STO 0 GEN1 [ & RESIDENCE NO. IN GEN1 6D4W CALL 0 M2FILETRAN 6D82 ... BRN M1FILEA [FILE NOT BEING COPIED 6D?6 ... COOR3 COPY 6DB= ... BRN M2FILEA 6DFB ...M1FILEA 6DJG #NOR