PCS format

[unseenmenace]

Not quite as impressive but there is also a medium res fullscreen with plasma in Best Part Of Creation from Delta Forces Punish Your Machine

[Nyh]

More than 4 colors in a medium resolution screen for Atari ST are found in the presentation logotype of
Asteroids by Sinister Developments,
for example.

I could count more than 8 colors!

and you can find much more colours in this production:

http://www.pouet.net/prod.php?which=12237

Nice one! I wrote a converter for the format.

Hans Wessels

[earx]

nice one, ni! feel free to share this source with us ))

ra's mode is much more suited to regions with edges and lines. and less to more smooth regions. as i could already see at outline2004 where it was released. hint: come to outline this year

[Nyh]

nice one, ni! feel free to share this source with us ))

ra's mode is much more suited to regions with edges and lines. and less to more smooth regions. as i could already see at outline2004 where it was released. hint: come to outline this year

I just dumped a lot of format information in the Atari Wiki. Now there is data on the following formats:
NEOchrome *.NEO
NEOchrome Animation *.ANI
DEGAS *.PI? ? = 1, 2, 3 (4, 5, 6)
DEGAS Elite *.PI? ? = 1, 2, 3
DEGAS Elite (Compressed) *.PC? ? = 1, 2, 3
DEGAS Elite block *.BL? ? = 1, 2, 3
DEGAS Elite icon *.ICN
CrackArt *.CA? ? = 1, 2, 3
ArtDirector *.ART
Tiny *.TN? ? = 1, 2, 3, Y, (4, 5, 6)
Spectrum 512 *.SPU
Spectrum 512 (Compressed) *.SPC
Spectrum 512 (Smooshed) *.SPS
Spectrum 512 Extended *.SPX
Photochrome *.PCS
QuantumPaint *.PBX
Art Director *.ART
C.O.L.R. Object Editor Mural *.MUR
Doodle *.DOO
Cyber Paint Sequence *.SEQ
Animatic Film *.FLM
Animaster Sprite Bank *.ASB
STOS *.MBK
GEM Bit Image *.IMG
STAD *.PAC
Imagic Film/Picture *.IC? ? = 1, 2, 3
IFF *.IFF
RGB Intermediate Format *.RGB
ComputerEyes Raw Data Format *.CE? ? = 1, 2
HighresMedium *.HRM
Overscan Interlaced *.PCI
Picture Packer *.PP1? ? = 1, 2, 3
MacPaint *.MAC
PackBits Compression Algorithm

But because you asked so nice about the HRM:

Code: Select all

int find_hrm_index(int x, int c)
{
  x+=80;
	if(c==0)
	{
	  return -1+4*(int)((x+0)/80);
	}
	else if(c==1)
	{
	  return 0+4*(int)((x-8)/80);
	}
	else if(c==2)
	{
	  return 1+4*(int)((x-40)/80);
	}
  return 2+4*(int)((x-48)/80);
}

HGLOBAL convert_hrm(unsigned char* gfx)
{
  HGLOBAL dst;
  unsigned char *data;
  dst=create_dip(&data, 640, 400, 24, 0, NULL);
  if(dst != NULL)
  {
    long y;
    unsigned char*p=data;
    for(y=0;y<400;y++)
    {
      unsigned char* q=gfx+(399-y)*160;
      unsigned char* cp=gfx+64000L+(399-y)*70;
      int x;
      for(x=0;x<40;x++)
      {
        unsigned int plane0;
        unsigned int plane1;
        int i;
        plane0=*q++;
        plane0<<=8;
        plane0+=*q++;
        plane1=*q++;
        plane1<<=8;
        plane1+=*q++;
        for(i=0;i<16;i++)
        {
          int color;
          color=(unsigned char)((plane1>>14)&2);
          color+=(unsigned char)((plane0>>15)&1);
          plane0<<=1;
          plane1<<=1;
          color=find_hrm_index(x*16+i, color);
          color=(cp[color*2]<<8)+cp[color*2+1];
          *p++=colortable[color&0xf]&0xff;
          *p++=colortable[(color>>4)&0xf]&0xff;
          *p++=colortable[(color>>8)&0xf]&0xff;
        }
      }
    }
    GlobalUnlock(dst);
  }
  return dst;
}

HGLOBAL hrm(char *fileName, char *errorText, char *compressionText)
{ /* medium res interlaced high color */
  FILE* f;
  long int len;
  unsigned char *file;
  HGLOBAL h=NULL;
  file=malloc(93000L);
  if(file==NULL)
  {
    sprintf(errorText, "Out of memory.");
    return h;
  }
  f=fopen(fileName, "rb");
  if(f==NULL)
  {
    sprintf(errorText, "Can not open file!");
  }
  else
  {
    len=packed_fread(file, 93000L, f);
    fclose(f);
    if(len!=92000L)
    {
      sprintf(errorText, "This is not a HRM file!");
    }
    else
    {
      h=convert_hrm(file);
      if(h==NULL)
      {
        sprintf(errorText, "Out of memory.");
      }
      else
      {
        sprintf(compressionText, "HRM picture");
      }
    }
  }
  free(file);
  return h;
}

I will do a full code release next week. I still have some testing to do because I did some heavy editing without testing in the source.

Hans Wessels

[bjw66]

I just dumped a lot of format information in the Atari Wiki. Now there is data on the following formats:

Code: Select all

        ...
        IFF                                     *.IFF

Hans Wessels

Just some slight corrections on the ST version of DPaint which uses the VDAT SUB-chunks... . You didn't state in the Wiki that there may be several VDAT SUB-chunks within the BODY chunk (actually, there probably "always" are). The BODY chunk by itself is perfectly valid. But there are several VDAT SUB-chunks within it. Each with their own "VDAT" identifier and with their own size longs, one for each plane. But, most importantly, DPaint uses a compression type of 2, which indicates the use of VDAT sub-chunks. Until ST DPaint created that sub-format, "0" meant uncompressed, "1" meant compressed (which was always PackBits). ST DPaint added "2", meaning their own "vdat compression". Every file that is vdat-compressed has compression type 2.

Either way, feel free to use whatever information I sent you by email to add to this Wiki.

[bjw66]

As for the information I sent you through email, regarding ST's IFF compression 2 format, and regarding the animated "4, 5, 6" extensions, you can use that information to add to the wiki without any restrictions. Common courtesy might require a mention of my contributions, but I really don't care. Use whatever information I sent you through private email. No need for acknowledgements. I got much more from your contributions than you got from mine. Thanks again, Hans.

[xdelatour]

I found this source code to display PCS pictures. I hope it will help you.

Code: Select all

*-----------------------------------------------------------------------*
*		     		  'PCS' display module					*
*-----------------------------------------------------------------------*
*			      (C) 1992  Douglas Little 				*
*-----------------------------------------------------------------------*

	OPT	O+,W-

Devpac2_Pro		; if this option does not work, take it out!
			; (Devpac2 Pro's dcb.? command is back to front and
			; can cause problems. If the assembler jams up,
			; comment this option out and try again.

*-----------------------------------------------------------------------*
*	STANDARD HARDWARE EQUATES							*
*-----------------------------------------------------------------------*

LineADD		=	160
PHYS_MED		=	$FFFF8201
PHYS_TOP		=	$FFFF8203
COLOUR		=	$FFFF8240
FREQ			=	$FFFF820A

MFP			=	$FFFFFA00
ENABLE_A		=	MFP+$07		; int enable A
ENABLE_B		=	MFP+$09		; int enable B
PENDING_A		=	MFP+$0B		; int pending A
PENDING_B		=	MFP+$0D		; int pending B
IN_SERVICE_A	=	MFP+$0F		; int in-service A
IN_SERVICE_B	=	MFP+$11		; int in-service B
MASK_A		=	MFP+$13		; int mask A
MASK_B		=	MFP+$15		; int mask B
VECTOR		=	MFP+$17		; MFP vector base
CTRL_A		=	MFP+$19		; MFP timer A control
CTRL_B		=	MFP+$1B		; MFP timer B control
DATA_A		=	MFP+$1F		; timer A data
DATA_B		=	MFP+$21		; timer B data

HBI_VEC		=	$68			; Hblank timer
VBI_VEC		=	$70			; VBI
KBD_VEC		=	$118			; IKBD
TIMER_A		=	$134			; General timer
TIMER_B		=	$120			; Raster timer

BLIT			=	$FFFF8A00
halftone		=	BLIT+00	16*16 pattern mask
src_xinc		=	BLIT+32	increment of next source word (-128 -> +127)
src_yinc		=	BLIT+34	increment of next source line (-128 -> +127)
src_addr		=	BLIT+36	source data address
endmask1		=	BLIT+40	mask for first word in line (or only word)
endmask2		=	BLIT+42	mask for middle words in line
endmask3		=	BLIT+44	mask for last word in line
dst_xinc		=	BLIT+46	increment of next dest. word (-128 -> +127)
dst_yinc		=	BLIT+48	increment of next dest. line (-128 -> +127)
dst_addr		=	BLIT+50	destination screen address
x_size		=	BLIT+54	x-size	(number of words to go)
y_size		=	BLIT+56	y_size	(number of lines to go)
HOP			=	BLIT+58	halftone operation...
blit_op		=	BLIT+59	logic operations
blit_stat		=	BLIT+60	blitter chip status registers
skew			=	BLIT+61	offset bit shift (byte, 0 > +-15)

*-----------------------------------------------------------------------*
*	USEFUL MACROS									*
*-----------------------------------------------------------------------*

push	macro
	move.\0	\1,-(sp)
	endm
	
pop	macro
	move.\0	(sp)+,\1
	endm

pushall		macro
	movem.l	d0-d7/a0-a6,-(sp)
	endm
	
popall		macro
	movem.l	(sp)+,d0-d7/a0-a6
	endm

delay	macro					; wait for #n VBI's
	lea		TIMER(pc),a5
	move.w	#\1,(a5)
.wz\@	tst.w		(a5)
	bne.s		.wz\@
	endm

*-----------------------------------------------------------------------*

sync		macro				; clock-cycle timing macro
		IFEQ		NARG-1	; please don't read this, especially
		IFD		Devpac2_Pro
		dcb.w		\1,$4E71	; if you are a fan of high level
		ELSEIF
		dcb.w		$4E71,\1
		ENDC
		ELSEIF			; coding!
		IFLT		\1-3-3
		IFD		Devpac2_Pro
		dcb.w		\1,$4E71
		ELSEIF
		dcb.w		$4E71,\1
		ENDC
		ELSEIF
		move.w	#(\1-3)/3-1,\2
.wc\@		dbra		\2,.wc\@
Calc		set		(\1-3)-((\1-3)/3)*3
		IFGT		Calc
		IFD		Devpac2_Pro
		dcb.w		Calc,$4E71	; if you are a fan of high level
		ELSEIF
		dcb.w		$4E71,Calc	; if you are a fan of high level
		ENDC
		ENDC
		ENDC
		ENDC
		endm

*-----------------------------------------------------------------------*

CODE:			bra.s	START

VARIABLES:
TIME:			ds.w	1		; number of seconds to display picture
DATA:			ds.l	1		; source file
BIT1:			ds.l	1		; screen 1 address
PAL1:			ds.l	1		; palette 1 address
BIT2:			ds.l	1		; screen 2 address
PAL2:			ds.l	1		; palette 2 address

OLD_SCR		ds.l	1
TIMER:		ds.w	1
INTERLACE:		ds.b	1
HERZ:			ds.b	1

OLD_PAL		ds.w	16
VECTORS:		ds.b	40

*-----------------------------------------------------------------------*

START:lea		VARIABLES(pc),a6
	move.w	d0,(a6)+
	move.l	a0,(a6)+
	move.l	a1,(a6)+
	move.l	a2,(a6)+
	move.l	a3,(a6)+
	move.l	a4,(a6)+
	bsr		EMPTY_BUFFER			; clear keyboard buffer
	bsr		INIT_VECTORS			; store old vector setup
	bsr.s		DISPLAY_PCS				; show off fancy piccy
	bsr		RESET_VECTORS
	bsr		EMPTY_BUFFER
	rts
	
*-----------------------------------------------------------------------*
*	DISPLAY 'PCS' ROUTINES START HERE						*
*-----------------------------------------------------------------------*

DISPLAY_PCS:				; show one of my own snazzy 'PCS' pics.
	bsr		SAVE_SCREEN_SETUP	; init screen for piccy, saving old one
	move.l	DATA(pc),a0		; get address of file
	bsr		UNPACK_PCS		; unpack picture onto screen(s).
	delay		8			; wait for 10 vbi's (in case of 50/60Hz
	bsr		ENHANCED_DISPLAY	; switch). Turn on display interrupt.
	move.w	TIME(pc),d1
	mulu		#50,d1
	subq.l	#1,d1
.loop	cmp.b		#57,$FFFFFC02.w	; wait for 
	beq.s		.out
	lea		TIMER(pc),a6
	addq		#1,(a6)		; wait for 1 VBI
.wtv	tst.w		(a6)
	bne.s		.wtv
	subq.l	#1,d1			; decrement wait-counter.
	bpl.s		.loop
.out	bsr		STANDARD_DISPLAY	; when done, remove display interrupt.
	bsr		KILL_PALETTE
	bsr		REPLACE_SCREEN_SETUP
	rts

SAVE_SCREEN_SETUP:
	lea		COLOUR.w,a0		; store old colours
	lea		OLD_PAL(pc),a1
	moveq		#8-1,d0
.lp	move.l	(a0)+,(a1)+
	dbra		d0,.lp
	move.l	$FFFF8200.w,d0	; store old screen address
	lsl.w		#8,d0
	and.l		#$00FFFFFF,d0
	lea		OLD_SCR(pc),a0
	move.l	d0,(a0)
	bsr		KILL_PALETTE	; black screen
	move.l	BIT1(pc),a0		; clear screen 1
	bsr		CLS
	move.l	BIT2(pc),a0		; clear screen 2
	bsr		CLS	
	rts
	
REPLACE_SCREEN_SETUP:
	bsr		KILL_PALETTE	; black screen
	move.l	BIT1(pc),a0		; clear screen 1
	bsr		CLS
	move.l	BIT2(pc),a0		; clear screen 2
	bsr		CLS	
	move.l	OLD_SCR(pc),d0
	lsr.w		#8,d0
	move.l	d0,$FFFF8200.w
	lea		OLD_PAL(pc),a0
	lea		COLOUR.w,a1		; store old colours
	moveq		#8-1,d0
.lp	move.l	(a0)+,(a1)+
	dbra		d0,.lp
	rts

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
*	UNPACK A 'PCS' PICTURE								*
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

			rsreset
PCS_width		rs.w	1	; usually 320 for now
PCS_height		rs.w	1	; usually 200 for now
PCS_interlace	rs.b	1	; PCS-ST/E = 0 : SuperHam and Pchrome <> 0
PCS_ste		rs.b	1	; uses ste palette? 50/60Hz?
PCS_start		rs.b	0	; end of file header

;---------------------------------------------------------------------------
;		bit list... 	(PCS_interlace)
;		bit 0		:	if clear > XOR screen1 with screen2
;		bit 1		:	if clear > XOR palette1 with palette2
;		bit 2		:	if set   > interlace on, use bits 0+1,
;					otherwise ignore bits 0+1.
;
;	1.	if bit 2 is CLEAR then ignore bits 0+1.
;	2.	if bit 2 is SET and bit 0 is CLEAR then XOR
;		screen 1 with screen 2 after decompression. (delta-compression)
;	3.	if bit 2 is SET and bit 1 is CLEAR then XOR
;		palette 1 with palette 2 after decompression.
;---------------------------------------------------------------------------
;		bit list... 	(PCS_ste)
;		bit 0		:	if set > use 50Hz otherwise use 60Hz
;		bit 1		:	if set > then pic uses STE palette of 4096.
;
;	1.	if bit 0 is SET then the picture requires 50Hz,
;		otherwise set to 60Hz (STE or not)
;	2.	if bit 1 is SET, then piccy uses 4096 colour palette.
;---------------------------------------------------------------------------
;
;	There are 2 or 4 compressed chunks in each file - 1 bitmap and
;	1 palette for each screen, with 2 screens if it's interlaced.
;
;	The body of a chunk is a 2-byte value (not necessarily on a word
;	boundary) holding the number of control bytes in that compressed
;	chunk. This is followed by a big list of control bytes and data.
;
;	The bitmaps are horizontally byte-run compressed (like Degas)
;	but wrap around the screen instead of terminating on each scanline
;	(unlike Degas, more like Tiny). The screen planes are compressed
;	entirely separately, (the whole of plane 0 followed by the whole
;	of plane 1 etc.) without a break in the compression. It is just
;	one big string of data. If the screen was empty, the entire data
;	would consist of a control byte 0 (get a word), a control word
;	of 32000 (number of repeats), and a byte of 0 (byte to repeat).
;	The palette is compressed the same way, but using compressed words
;	instead of bytes.
;
;       For a given control byte, x: (as Tiny standard)
;
;
;     x < 0   Absolute value specifies the number of unique bytes/words to
;             fetch directly (from 1 to 127)
;
;     x = 0   1 word is taken which specifies the number of times to repeat
;     	  the next data byte/word fetched (from 128 to 32767)
;
;     x = 1   1 word is taken which specifies the number of unique
;     	  bytes/words to be fetched directly (from 128 - 32767)
;
;     x > 1   Specifies the number of times to repeat the next byte/word
;             fetched (from 2 to 127)

UNPACK_PCS:
	lea		INTERLACE(pc),a5
	sf		(a5)
	lea		PCS_start(a0),a1	; get past file header
	move.l	a0,a6			; keep for later
	lea		HERZ(pc),a5
	clr.b		(a5)			; set to 60Hz for now
	btst.b	#0,PCS_ste(a6)	; check real picture frequency,
	beq.s		.hz60			; if 60Hz, then leave as it is
.hz50	move.b	#2,(a5)		; otherwise must be 50Hz
.hz60	move.b	(a5),FREQ.w		; set up freq.
	move.l	BIT1(pc),a0		; get dest address of bitmap 1
	bsr.s		UNPACK_BITMAP	; unpack it onto screen
	move.l	PAL1(pc),a0		; same with palette
	bsr		UNPACK_PALETTE	; unpack it.
	tst.b		PCS_interlace(a6)	; check for interlaced mode
	beq.s		.done			; if not, skip past it
	lea		INTERLACE(pc),a5
	st		(a5)			; set INTERLACE to TRUE.
	move.l	BIT2(pc),a0		; now unpack second screen and
	bsr.s		UNPACK_BITMAP	; palette in the same way
	move.l	PAL2(pc),a0
	bsr		UNPACK_PALETTE
	bsr		XOR_BITMAP		; do delta-decompression if needed
	bsr		XOR_PALETTE		; on bitmap2 or palette2
.done	lea		PAL1(pc),a5
	add.l		#32,(a5)		; skip past first 16 colours
	lea		PAL2(pc),a5
	add.l		#32,(a5)		; in palette banks (used in top border)
	rts
	
UNPACK_BITMAP:				; decompress a bitmap.
	moveq		#0,d6
	move.w	#40,d2
	move.w	#200,d3
	moveq		#5,d4
	move.b	(a1)+,d7
	lsl.w		#8,d7
	move.b	(a1)+,d7
.Main	moveq		#0,d0
	subq		#1,d7
	bmi.s		.esc
	move.b	(a1)+,d0
	bmi.s		.B_block_copy
	beq.s		.W_run_length
	cmp.b		#1,d0
	beq.s		.W_block_copy
	bra.s		.B_run_length
.W_run_length
	move.b	(a1)+,d0
	lsl.w		#8,d0
	move.b	(a1)+,d0
.B_run_length
	subq		#1,d0
	move.b	(a1)+,d1
.run	move.b	d1,(a0,d6)
	addq		#1,d6
	and.w		#1,d6
	bne.s		.ok
	addq		#8,a0
.ok	subq		#1,d2				; drop 1 line
	bne.s		.fine
	moveq		#40,d2
	subq		#1,d3
	bne.s		.fine
	move.w	#200,d3
	lea		2-32000(a0),a0
	subq		#1,d4
	beq.s		.esc
.fine	dbra		d0,.run
	bra.s		.Main
.esc	rts
.B_block_copy
	neg.b		d0
	bra.s		.nw
.W_block_copy
	move.b	(a1)+,d0
	lsl.w		#8,d0
	move.b	(a1)+,d0
.nw	subq		#1,d0
.blk	move.b	(a1)+,d1
	move.b	d1,(a0,d6)
	addq		#1,d6
	and.w		#1,d6
	bne.s		.ok2
	addq		#8,a0
.ok2	subq		#1,d2				; drop 1 line
	bne.s		.fin2
	moveq		#40,d2
	subq		#1,d3
	bne.s		.fin2
	move.w	#200,d3
	lea		2-32000(a0),a0
	subq		#1,d4
	beq.s		.esc
.fin2	dbra		d0,.blk
	bra		.Main

UNPACK_PALETTE:				; decompress a palette
	move.b	(a1)+,d7
	lsl.w		#8,d7
	move.b	(a1)+,d7
.Main	moveq		#0,d0
	subq		#1,d7
	bmi.s		.esc
	move.b	(a1)+,d0
	bmi.s		.B_block_copy
	beq.s		.W_run_length
	cmp.b		#1,d0
	beq.s		.W_block_copy
	bra.s		.B_run_length
.W_run_length
	move.b	(a1)+,d0
	lsl.w		#8,d0
	move.b	(a1)+,d0
.B_run_length
	subq		#1,d0
	move.b	(a1)+,d1
	lsl.w		#8,d1
	move.b	(a1)+,d1
.run	move.w	d1,(a0)+
	dbra		d0,.run
	bra.s		.Main
.esc	rts
.B_block_copy
	neg.b		d0
	bra.s		.nw
.W_block_copy
	move.b	(a1)+,d0
	lsl.w		#8,d0
	move.b	(a1)+,d0
.nw	subq		#1,d0
.blk	move.b	(a1)+,d1
	lsl.w		#8,d1
	move.b	(a1)+,d1
	move.w	d1,(a0)+
	dbra		d0,.blk
	bra.s		.Main

XOR_BITMAP:						; delta decompression on bitmap.
	btst.b	#0,PCS_interlace(a6)
	bne.s		.nox
	pushall
	move.l	BIT1(pc),a0
	move.l	BIT2(pc),a1
	move.w	#32000/4-1,d0
.blop	move.l	(a0)+,d1
	eor.l		d1,(a1)+
	dbra		d0,.blop
	popall
.nox	rts

XOR_PALETTE:						; delta decompression on palette.
	btst.b	#1,PCS_interlace(a6)
	bne.s		.nox
	pushall
	move.l	PAL1(pc),a0
	move.l	PAL2(pc),a1
	move.w	#16*(3*199+1)-1,d0
.clop	move.w	(a0)+,d1
	eor.w		d1,(a1)+
	dbra		d0,.clop
	popall
.nox	rts

*-----------------------------------------------------------------------*
*	COLOUR SWITCHING ROUTINE							*
*-----------------------------------------------------------------------*
*	This is the actual screen-display interrupt and setup code		*
*-----------------------------------------------------------------------*

SCANLINE		=	$700
VIDEO_COUNTER	=	$FFFF8209

STE_HAM:
	btst		#1,FREQ.w
	bne.s		.hz50
	move.b	#32-10,SCANLINE.w
.hz60	pea		SCAN_COUNTER_60HZ(pc)
	bra.s		.done
.hz50	move.b	#62-10,SCANLINE.w
	pea		SCAN_COUNTER_50HZ(pc)
.done	pop.l		HBI_VEC.w
	move.w	#$2100,sr
	pushall
	move.l	PAL2(pc),a0
	lea		2*(1-16)(a0),a0
	lea		2+COLOUR.w,a1
	move.w	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
.wait	tst.b		SCANLINE.w
	bne.s		.wait
	move.w	#$2300,sr
.read	btst		#0,$FFFFFC00.w
	beq.s		.out
	move.b	$FFFFFC02.w,d0
	bra.s		.read
.out	lea		TIMER(pc),a0
	tst.w		(a0)
	ble.s		.rte
	subq		#1,(a0)
.rte	move.l	PAL1(pc),d0
	lea		INTERLACE(pc),a0
	tst.b		(a0)
	beq.s		.nin1
	lea		PAL1(pc),a0
	move.l	PAL2(pc),(a0)
.nin1	lea		PAL2(pc),a0
	move.l	d0,(a0)
	move.l	BIT1(pc),d0
	lea		INTERLACE(pc),a0
	tst.b		(a0)
	beq.s		.nin2
	lea		BIT1(pc),a0
	move.l	BIT2(pc),(a0)
.nin2	lea		BIT2(pc),a0
	move.l	d0,(a0)
.nint	lsr.w		#8,d0
	move.l	d0,$FFFF8200.w
.skip	popall
	rte

SCAN_COUNTER_50HZ:
	subq.b	#1,SCANLINE.w
	ble.s		SCREEN_RASTER_50HZ
	rte
	
SCREEN_RASTER_50HZ:
	move.w	#$2700,sr
	movem.l	d0-a6,-(sp)
	lea		(.ssp)+2(pc),a6
	move.l	a7,(a6)
	lea		VIDEO_COUNTER.w,a6
	moveq		#0,d0
	moveq		#64,d7
.wait	move.b	(a6),d0
	beq.s		.wait
	sub.w		d0,d7
	lsl.w		d7,d0
	sync		55,d0
	move.l	PAL2(pc),a7
	rept		199
	movem.l	(a7)+,d0-a6
	movem.l	d0-d7,COLOUR.w
	movem.l	a0-a6,COLOUR.w
	move.l	(a7)+,28+COLOUR.w
	lea		COLOUR.w,a0
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.w	#0,COLOUR.w
	move.l	(a7)+,(a0)+
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	endr
.ssp	move.l	#0,a7
	movem.l	(sp)+,d0-a6
	pea		ARTE(pc)
	pop.l		HBI_VEC.w	
	move.b	#$23,(sp)
ARTE:	rte

SCAN_COUNTER_60HZ:
	subq.b	#1,SCANLINE.w
	ble.s		SCREEN_RASTER_60HZ
	rte
	
SCREEN_RASTER_60HZ:
	move.w	#$2700,sr
	movem.l	d0-a6,-(sp)
	lea		(.ssp)+2(pc),a6
	move.l	a7,(a6)
	lea		VIDEO_COUNTER.w,a6
	moveq		#0,d0
	moveq		#64,d7
.wait	move.b	(a6),d0
	beq.s		.wait
	sub.w		d0,d7
	lsl.w		d7,d0
	sync		54,d0
	move.l	PAL2(pc),a7	
	rept		199
	movem.l	(a7)+,d0-a6
	movem.l	d0-d7,COLOUR.w
	movem.l	a0-a6,COLOUR.w
	move.l	(a7)+,28+COLOUR.w
	lea		COLOUR.w,a0
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.l	(a7)+,(a0)+
	move.w	#0,COLOUR.w
	move.l	(a7)+,(a0)+
	nop
	nop
	nop
	nop
	nop
	nop
	endr
.ssp	move.l	#0,a7
	movem.l	(sp)+,d0-a6
	pea		ARTE(pc)
	pop.l		HBI_VEC.w	
	move.b	#$23,(sp)
	rte
	
*-----------------------------------------------------------------------*
*	INITIALISE PCS DISPLAY INTERRUPT						*
*-----------------------------------------------------------------------*

ENHANCED_DISPLAY:
	move.b	#$12,$FFFFFC02.w		; turn off the mouse 'cos it
	move.w	#$2700,sr
	pea		STE_HAM(pc)
	pop.l		VBI_VEC.w
	move.w	#$2300,sr
	rts

STANDARD_DISPLAY:
	move.w	#$2700,sr
	pea		NEW_VBI(pc)
	pop.l		VBI_VEC.w
	move.w	#$2300,sr
	move.b	#$8,$FFFFFC02.w		; turn off the mouse 'cos it
	rts

*-------------------------------------------------------------------------*

INIT_VECTORS:
	lea		VECTORS(pc),a0
	move.l	USP,a1
	move.l	a1,(a0)+
	move.l	HBI_VEC.w,(a0)+
	move.l	VBI_VEC.w,(a0)+
	move.l	KBD_VEC.w,(a0)+
	move.l	TIMER_A.w,(a0)+
	move.l	TIMER_B.w,(a0)+
	move.b	ENABLE_A.w,(a0)+
	move.b	ENABLE_B.w,(a0)+
	move.b	MASK_A.w,(a0)+
	move.b	MASK_B.w,(a0)+
	move.b	DATA_A.w,(a0)+
	move.b	DATA_B.w,(a0)+
	move.b	CTRL_A.w,(a0)+
	move.b	CTRL_B.w,(a0)+
	move.b	VECTOR.w,(a0)+
	move.b	FREQ.w,(a0)+
	move.w	#$2700,sr
	pea		NEW_VBI(pc)
	pop.l		VBI_VEC.w
	move.b	#0,ENABLE_A.w
	move.b	#1<<6,ENABLE_B.w	; leave IKBD alone
	move.w	#$2300,sr
	rts
	
RESET_VECTORS:
	move.w	#$2700,sr
	lea		VECTORS(pc),a0
	move.l	(a0)+,a1
	move.l	a1,USP
	move.l	(a0)+,HBI_VEC.w
	move.l	(a0)+,VBI_VEC.w
	move.l	(a0)+,KBD_VEC.w
	move.l	(a0)+,TIMER_A.w
	move.l	(a0)+,TIMER_B.w
	move.b	(a0)+,ENABLE_A.w
	move.b	(a0)+,ENABLE_B.w
	move.b	(a0)+,MASK_A.w
	move.b	(a0)+,MASK_B.w
	move.b	(a0)+,DATA_A.w
	move.b	(a0)+,DATA_B.w
	move.b	(a0)+,CTRL_A.w
	move.b	(a0)+,CTRL_B.w
	move.b	(a0)+,VECTOR.w
	move.b	(a0)+,FREQ.w
	move.w	#$2300,sr
	rts

NEW_VBI:
	push.l	a0
	lea		TIMER(pc),a0
	tst.w		(a0)
	ble.s		.rte
	subq		#1,(a0)
.rte	pop.l		a0
	rte

*-------------------------------------------------------------------------*

EMPTY_BUFFER:
	pushall
	bsr.s		FLUSH		; flush the IKBD properly (sorry, GEM!)
.bak	push.w	#11
	trap		#1
	addq		#2,sp
	tst.l		d0
	beq.s		.out
	push.w	#7
	trap		#1
	addq		#2,sp
	bra.s		.bak
.out	popall
	rts

FLUSH:push.w	d7
.read	btst		#0,$FFFFFC00.w	; empty hardware ikbd buffer
	beq.s		.out
	move.b	$FFFFFC02.w,d7
	bra.s		.read
.out	pop.w		d7
	rts

KILL_PALETTE:
	moveq		#8-1,d7
	lea		COLOUR.w,a0
.lp	clr.l		(a0)+
	dbra		d7,.lp		; empty out palette
	rts

CLS:	move.w	#32000/4-1,d0
.loop	clr.l		(a0)+
	dbra		d0,.loop
	rts

[simonsunnyboy]

Hmm, contains a lot of ugly Devpac specifics
Anyone willing to INLINE for GFABASIC use?
I'd like to try to but it comes with few docs, not a defined calling interface and sofar I can't overlook whether it is already PC-relative code...

[Cyprian]

But because you asked so nice about the HRM:
...
I will do a full code release next week. I still have some testing to do because I did some heavy editing without testing in the source.

Hans Wessels

great!
do you have any sources for HRM? I mean shower or converter e.g. BMP to HRM?

[prog99]

Hello!


I saw a presentation screen by
Sinister Development, raytraced,
in red is the logotype, and was
very incredible because it showed
more than 16 colors, but in
medium resolution!


Greetings,
SoLo2

Its been a long time but I'm pretty sure Asteroids is all running in low res.

[bod/STAX]

I've just been looking through the above code on my ST and have a quick question.

I know this was written for use in another language such as STOS or GFA Basic and at the beginng of the routine is requires some 'VARIABLES' in some
of the registers. What I wan't to know is what are the correct offsets for each picture/palette to depack? The code only reads the screen/palette adresses
and doesn't define any.

I've just converted my own picture into Photochrome's 32000 colour format and want to test displaying it with this routine and try to see exacly what's going
on with this display mode.

**** EDIT ****

Forget it, every thing's clear to me now.

[simonsunnyboy]

It is? Then explain please

[bod/STAX]

It is? Then explain please

Quite simple, you pass the number of seconds you want to display your picture in d0, the address of the picture in a0 and and four buffer addresses in a1-a4 two of those
are the addresses of your screens and the other two are the buffers for the palette data to be depacked, then you just call the assembled routine above.

I've just unravelled the above code and now I have my own display routine that makes it much easier to include 32768 colour pictures into demos and intros. I have one
piece of code that depacks a .PCS picture and saves both pictures and palettes out as raw data and then I have my display routine that uses this data to display the pictures.
It should now be easy to display a picture with no lower border where you could put a scroller and what not into the bottom border. I'll post the code here when I'm done
with it. It's much easier to read than the above code (although it does use the PCS depack routines from the code above).

One thing I did notice is that a PCS picture is not packed as well as it could be. My original picture was packed to 110K and when I repacked it with my display routine with
ICE packer it packed down to 77K.

**** EDIT ****

Ok, here it is. Included is the source code to depack and save a PCS picture into raw data files, a routine to display the raw data as a picture, the picture raw data files,
the PCS converted picture and the original Targa image I ported from the PC (Oh and an executable .PRG if you can't be bothered messing with an assembler).
Have fun with it.

[Nyh]

Ok, here it is. Included is the source code to depack and save a PCS picture into raw data files, a routine to display the raw data as a picture, the picture raw data files.

Nice. Only I think it is a complete waste of memory space to expand the display loop the way you do. It makes the program far too big. You can also use a nice small loop. I also fixed the code so it will work in both 50 and 60 Hz. I included the ZIP file including the new display routine.

Code: Select all

hbl2:move    #$2700,SR
     movem.l D0-A6,-(SP)
     move.l  SP,save_stack
     lea     $FFFF8209.w,A6
     moveq   #0,D0
     moveq   #$40,D7
sync_wait:
     move.b  (A6),D0
     beq.s   sync_wait
     sub.w   D0,D7
     lsl.w   D7,D0
     move.w  #$0E,D0
wait_disp:
     dbra    D0,wait_disp     ; D0 = 0xffff at the end of the loop
     nop
     movea.l pal_pos2,SP
     move.w  D0,19104(SP)     ; -1
disp_loop:
fix_50_60:
     add.l   D0,D0            ; add.l d0,d0, 8 clocks, 50 Hz
; add.w d0,d0, 4 clocks, 60 Hz
     movem.l (SP)+,D0-A6
     movem.l D0-D7,$FFFF8240.w
     movem.l A0-A6,$FFFF8240.w
     move.l  (SP)+,$FFFF825C.w
     lea     $FFFF8240.w,A0
     move.l  (SP)+,(A0)+
     move.l  (SP)+,(A0)+
     move.l  (SP)+,(A0)+
     move.l  (SP)+,(A0)+
     move.l  (SP)+,(A0)+
     move.l  (SP)+,(A0)+
     move.l  (SP)+,(A0)+
     move.w  #0,$FFFF8240.w
     move.l  (SP)+,(A0)+
     tst.w   (SP)
     bge.s   disp_loop
     movea.l save_stack,SP
     movem.l (SP)+,D0-A6
     move.l  #rte_label,$68.w ; disable HBL
     move.w  #$2300,(SP)      ; disable HBL (SR fix)
rte_label:
     rte

Hans Wessels

[bod/STAX]

I agree it's a waste of memory, that's how the original displays the picture. I was toying with making it into a loop, but could'nt seem to get enough time within
the NOPS. I was going to try and do it like this:

Code: Select all

          move.w #199,loop_cnt     ; put this on vbl

.l3                                ; this is the picture display routine.
; display a line of picture here
          subq.w #1,loop_cnt
          cmp.w #0,loop_cnt
          bge.s .l3

I never thought about doing it the way you did (quite simple, really).

[MiggyMog]

Good work guys.

A quicker program to make the PCS files from BMP/GIF/raw etc especiall in bulk would be good.

Photochrome is really slow?

[ROWBEARTOE]

Hey everyone- I just recently hooked up my Atari Mega ST4 and have been playing around with it. I've been a Spectrum 512 and occasional Quantum Paint user, but now that I've seen what Photochrome can do-WOW!! I would love to convert some of my PCS files I just made and view them on my PC. I've been converting a lot of my work (which is one of the reasons why I hooked up my Mega ST4) to the PC. Most picture files. Reccently I just made my favorite HAM6 killer using Spectrum 512. The picture plays to the strenghth of Spectrum 512 and since the colors are sperated by the color black, HAM6 has to smudge a lot. =)

http://i162.photobucket.com/albums/t268 ... Colors.jpg

Now I'm not a programmer, I just want to be able to convert my PCS files to something like PNG. Thanks for you help.

[Mug UK]

Didn't 'Speed Of Light' get a mention earlier on in this thread? Or did that not convert Photochrome?

[simonsunnyboy]

Speed Of Light does not convert PCS. PCS is an entire custom format.

PCS is not a file format in the common sense but a special format to be interpreted by a custom display routine which is tightly tied with the ST(e) Shifter and the ST interrupt system. So writing a converter back to other formats would require a lot of work.

Best solution would probably be to get the pictures in their original formats and convert them from there to PNG.

[Mug UK]

Ah right .. my mistake

[Nyh]

Now I'm not a programmer, I just want to be able to convert my PCS files to something like PNG. Thanks for you help.

This ST program will convert almost any ST graphics format:
** supported formats:
** DEGAS: .PI1, .PI2, .PI3, .PC1, .PC2, .PC3, ICN, BL1, BL2, BL3
** Neochrome: .NEO
** CrackArt: .CA1, .CA2, .CA3
** ArtDirector: .ART
** STadCad: .PAC
** Tiny: .TNY, .TN1, .TN2, .TN3, .TN4, .TN5, .TN6
** Doodle: .DOO
** Spectrum: .SPU, .SPC, .SPS, .SPX
** Photochrome: .PCS
** QuantumPaint: .PBX
** Overscan: .PCI
** HighresMedium: .HRM
** DeLuxePaint ST (only the special ST format): .IFF
** STOS memory bank: .MBK
** STOS character set: .CR0, .CR1, .CR2
** Animaster Sprite Bank: .ASB
** Picture Packer: .PP1, .PP2, .PP3
Into a standard .BMP file. Runs fine in 1 MB only bigger high color pictures need 4Mb memory

Hans Wessels

[simonsunnyboy]

Speed Of Light does not convert PCS. PCS is an entire custom format.

PCS is not a file format in the common sense but a special format to be interpreted by a custom display routine which is tightly tied with the ST(e) Shifter and the ST interrupt system. So writing a converter back to other formats would require a lot of work.

Best solution would probably be to get the pictures in their original formats and convert them from there to PNG.

Looks like Nyh did that tedious work

Nice

[Mug UK]

Nice util .. one for the Wiki when I get 5 mins

[Nyh]

Nice util .. one for the Wiki when I get 5 mins

It think it lacks a front-end.
Hans Wessels

[Mug UK]

http://www.atari-forum.com/wiki/index.php/ST2BMP

Have mentioned it's a TTP file.