Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!seismo!rutgers!cbmvax!fred From: fred@cbmvax.commodore.COM (Fred Bowen) Newsgroups: net.micro.cbm Subject: Re: Koala pictures on a 128 Message-ID: <965@cbmvax.cbmvax.commodore.COM> Date: Wed, 5-Nov-86 12:25:23 EST Article-I.D.: cbmvax.965 Posted: Wed Nov 5 12:25:23 1986 Date-Received: Wed, 5-Nov-86 22:40:50 EST References: <2905@garfield.UUCP> Organization: Commodore Technology, West Chester, PA Lines: 32 > Does anyone out there know what format a Koala picture has to be in to be used > on a C-128? I have a loader which works on the 64, but I am not sure where the > memory has to be loaded into on the 128. Since you sound familiar with the layout, and you are working in BASIC 7.0, I will give a brief example and explanation: 10 GRAPHIC 3,1 :REM MULTICOLOR GRAPHIC MODE 20 A=PEEK(1): B=PEEK(216) :REM SAVE THESE 30 POKE 216,255 :REM TELL IRQ TO GIVE US VIC CONTROL 40 POKE 1, A AND 252 :REM SELECT PROCESSOR NYBBLE BANK 50 BLOAD "PIC.BM",P(DEC("2000")) :REM LOAD BIT MAP 60 BLOAD "PIC.VM",P(DEC("1C00")) :REM LOAD COLORS 01 AND 10 70 BLOAD "PIC.CN",P(DEC("D800")) :REM LOAD COLORS 11 80 POKE 1,A :REM RESTORE SYSTEM NYBBLE BANK 90 POKE 216,B :REM RESTORE SYSTEM VIC CONTROL I think you can figure it out from here. The problem was your handling of the color nybble banks. There are two of them, one for text mode and one for multicolor graphic mode, and they are controlled by the two least significant bits of the port at $0001. Bit 0 controls which bank the processor sees, and bit 1 controls which bank the VIC sees. 1=text, 0=graphic. Normally, the editor handles all this automatically during IRQ processing. The system variable GRAPHM, location $D8 (216 dec), contains bits indicating the current graphic mode (text/graphic/split-screen). A special case, GRAPHM=255, means YOU want to twiddle the bits, and hence the system leaves hands-off. -- Fred Bowen uucp: {ihnp4|seismo|caip}!cbmvax!fred arpa: cbmvax!fred@seismo.css.GOV tele: 215 431-9100 Commodore Electronics, Ltd., 1200 Wilson Drive, West Chester, PA, 19380