' *** SCR_INIT.LST *** 2nd GFA-Manual, page 20-23 > PROCEDURE bitblt_a_screen_init(screen2%) ' ' *** Fill Line-A BITBLT-array for Procedure Bitblt_a ' *** Source is (invisible) screen at address screen2% ' *** Destination is the physical screen (monitor) ' ' *** Standard: physbase% ' *** Global: blt.a%() ' IF DIM?(blt.a%())=0 ! if array doesn't exist yet, DIM blt.a%(27) ! create it now ENDIF ' ' *** general parameters blt.a%(2)=INT{L~A} ! number of bitplanes blt.a%(3)=PRED(2^blt.a%(2)) ! SETCOLOR-index of foreground (e.g. for PRINT) blt.a%(4)=0 ! SETCOLOR-index of background ' *** source blt.a%(8)=screen2% ! source-screen blt.a%(9)=MUL(blt.a%(2),2) ! byte-offset for next screen-unit blt.a%(11)=2 ! byte-offset to next plane (always one word) ' *** destination blt.a%(14)=physbase% ! destination is physical screen (monitor) blt.a%(15)=blt.a%(9) ! byte-offset for next screen-unit blt.a%(17)=2 ! byte-offset to next plane (always one word) ' *** fill-mask (not used: all parameters are 0) blt.a%(18)=0 blt.a%(19)=0 blt.a%(20)=0 blt.a%(21)=0 RETURN ' ********* '