effectus : fs.eff displaylist-array split.

[funkheld]

Hi good afternoon.
I've changed the fs.eff a bit and have the array for the
split displaylist. it is clearer for me.

it works .
greeting

 

note ndlc :

int j=[0]
int k=[0]
byte hsc=54276
byte tmpl
byte tmph 
byte tmp

byte array ndla = [112 112 112 66]
card array ndlb = [$9c40] 
byte array ndlc = [2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 86 216 159 65]
card array ndld = [$9c20]
 
proc chndl()
  tmp=ndlc(22)  ; (1)  
  if tmp < 2 THEN
   ndlc(22)=255  ; (2)
   tmp=ndlc(23)-1  ; (3)
   ndlc(23)=tmp  ; (4)
  else
   tmp=ndlc(22)-2  ; (5)
   ndlc(22)=tmp  ; (6)
  fi
return
 
proc scrol()
 hsc=j
 j=j+1
 if j=17 then
  chndl()
  j=0
  k=k+1
 fi
 if k=14 then
  ndlc(22)=tmpl
  ndlc(23)=tmph
  k=0
 fi
[$4C$E462]
return 
 
proc main()
 int i 
 card sav=88
 byte clock=$14
 byte nmi=$D40E
 card dlist=560
 card vvblkd=$0224
 byte col0=708
 byte col1=709
 
 graphics(0)
 dlist=ndla
 sav=40000
 col0=14 
 col1=14
 
 for i=1 to 23 
  do
   printf("line: %i%E", i)
  od
 
 print("Action!")
 
 tmpl=ndlc(22)
 tmph=ndlc(23)
 i=clock
 while clock=i do od
 nmi=0
 vvblkd=scrol
 nmi=$40
 do od
return

Edited November 9, 2019 by funkheld