image of READY prompt

Wang2200.org

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"