Listing of file='DFA.FE ' on disk='vmedia/701-2720C.wvd.zip'
# Sector 657, program filename = 'DFA.FE' 6100 REM DFA.FE, RELEASE X03, (OCT 10, 81) Generic Fetch Operation 6105 IF N7$(1)="NP"THEN 6199 : MAT SEARCHN8$(),=N3$TO N6$()STEP N5(5) : IF N6$(1)=HEX(0000)THEN 6184 : N5(2)=INT(VAL(N6$(1),2)/N5(5))+1 : N7$(6)=STR(N8$(N5(2)),42,1) : IF N7$(1)="FP"THEN 6130 : IF STR(N8$(N5(2)),41,1)=HEX(FF)THEN 6182 : IF N7$(1)="KE"THEN 6120 : N5(1)=VAL(STR(N8$(N5(2)),43),2) : IF N5(1)=255THEN 6185 : GOTO 6128 6120 IF N5$<>" "THEN 6122 : N5(1)=VAL(STR(N8$(N5(2)),46),2) : GOTO 6128 6121 MAT COPY -N5$<1,20>TO -N5$<1,22> : STR(N5$,,2)=N6$(1) 6122 V=99 : MAT SEARCHN9$(),=STR(N5$,,22)TO N6$()STEP N5(9) : IF N6$(1)=HEX(0000)THEN 6183 : N5(1)=1+INT(VAL(N6$(1),2)/N5(9)) 6128 V=VAL(STR(N9$(N5(1)),23),2) 6130 IF N7$(4)="FE"THEN 6199 : J1$="DFA."&N7$(6)&"FE" : LOAD T#0,J1$6200,6299 6182 N4(1)=0 : N4(2)=9002 : GOTO 6198 6183 N4(1)=0 : N4(2)=9003 : GOTO 6198 6184 N4(1)=0 : N4(2)=9007 : GOTO 6198 6185 N4(1)=0 : N4(2)=9008 : GOTO 6198 6186 N4(1)=0 : N4(2)=9009 : GOTO 6198 6196 %return to this line from lower module ** DO NOT RENUMBER 6196 ** 6197 IF N4(1)<>1THEN 6198 : STR(N8$(N5(2)),43,2)=BIN(N5(1),2) : MAT COPY N4$(1)TO N8$(N5(2))<N5(4)> 6198 GOTO 6098 6199 %A$="DFA.FE ": SCRATCH TA$: SAVE T()A$6100,6199:PRINT A$;" Updated"