CPCWiki - THE Amstrad CPC encyclopedia! - User contributions [en]

User:Matahari

2014-04-08T12:33:45Z

Matahari:

aka Mert Börü

http://mertboru.com/

256 byte Overscan MEGATEXT Intro - (features 50Hz fullscreen scroll)

2011-12-31T11:57:53Z

Matahari:

<pre>
;---------------------------------------------------------------------
; 256 byte Overscan MegaText Intro v1.1b
; (7DX Demo Party 2011 Release)
;
; for Amstrad 464/664/6128 computers
;
; by matahari - (Dec 24, 2011)
;
; Featuring;
; - Greetings message via 50Hz hardware scroll
; - 100% overscan (full) screen size
; - Complete Amstrad palette (27 colours) on screen at once
; - And, all in 256 bytes!
;---------------------------------------------------------------------

LET ADDR_Start = &400
LET ADDR_TextMap = ADDR_Start + 256

LET CONST_TotalRasterLines = 269

LET VAR_BgrndColour = ADDR_Start - 1
LET VAR_FlipFlop = VAR_BgrndColour - 1
LET VAR_LineSkipMinus = CONST_TotalRasterLines * -9
LET VAR_LineSkipPlus = CONST_TotalRasterLines * 9

VAR_XOR equ 1 xor 0

run start
org ADDR_Start

start: ;--------- Generate a dummy interrupt handler ---------------------------

ld hl,&c9fb
ld (&0038),hl

;--------- Set CRTC Registers -------------------------------------------

ld hl,CRTC_Data
loopCRTC: ld a,(hl)
ld b,&bc + 1
outi
ld b,&bd + 1
outi
inc a
jr nz,loopCRTC

;--------- Display text message -----------------------------------------

ld hl,ADDR_TextMap
ld de,Message

loopText: push de
push hl
ld a,2
call &bc0e
pop hl
pop de

ld a,(de)
cp 255
jr z,loopExec

call &bb5a

inc de
push de

;--------- Grab pixels of displayed char --------------------------------

ld de,&c000
ld a,8
ld c,&40
outer: ex af,af'
ld iy,vangelis + 1
ld (iy),%10000000
call Proc_FlipFlop
inner: call Proc_FlipFlop
or a
jr z,bitBckgrndA
ld a,&55
jr bitBckgrndB
bitBckgrndA: ld a,&57
bitBckgrndB: ld (VAR_BgrndColour),a
ld a,(de)
vangelis: and 0
jr z,blit
ld a,c

;*********************************

blit: push hl
push de
push bc
ld de,9
ld b,26
blitText: add hl,de
or a
jr z,blitBckgrnd
ld (hl),c
inc c
jr blitSkip

blitBckgrnd: push af
ld a,(VAR_BgrndColour)
ld (hl),a
pop af

blitSkip: djnz blitText
pop bc
pop de
pop hl

;*********************************

inc hl
rr (iy)
jr nc,inner

inc hl

ld a,8
add a,d
ld d,a

push bc
ld bc,25*9
add hl,bc
pop bc

ex af,af'
dec a
jr nz,outer

pop de
jr loopText

;*********************************************************************
; MAIN LOOP - INITIALIZE!
;*********************************************************************

loopExec: ld hl,ADDR_TextMap + VAR_LineSkipPlus

; Checking VBlanking only for once!
; Rest of the code will be manually synced
; via precise t-state calculations.
ld b,&f5
waitVBlanking: in a,(c)
rra
jr nc,waitVBlanking

halt
di

;--------- X-Pos Alignment ----------------------------------------------

ld a,(hl) ; waste time! => 7 cycles
; Aligns perfect on WinApe.

; If you need precise
; alignment on an original Amstrad,
; you need to comment out this line
; OR replace it with a NOP!

; No worries, intro size will not
; exceed 256 bytes either way ;-)

;*********************************************************************
; MAIN LOOP - BEGIN
;*********************************************************************

loopBegin: ld de,VAR_LineSkipMinus + 9
add hl,de

;--------- Wait for perfect sync! ---------------------------------------

ld b,203 ; waste time!
waste1: nop ; waste time!
add ix,ix ; waste time!
djnz waste1 ; waste time!

;--------- Start Gate Array code ----------------------------------------

ld de,CONST_TotalRasterLines
ld bc,&7f00
out (c),c

crash: outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b

ld a,(hl) ; waste time!
nop ; waste time!

dec de
ld a,d
or e
jr nz,crash

;--------- Raster colour = Black ----------------------------------------

ld a,&54
out (c),a

nop ; waste time!
ld b,(hl) ; waste time!
ld b,224 ; waste time!
waste2: djnz waste2 ; waste time!

loopEnd: jr loopBegin

;*********************************************************************
; MAIN LOOP - END
;*********************************************************************

;--------- Procedure for Flip/Flop --------------------------------------

Proc_FlipFlop: ld a,(VAR_FlipFlop)
xor VAR_XOR
ld (VAR_FlipFlop),a
ret

;--------- CRTC Data ----------------------------------------------------

CRTC_Data: db 1,54 ; set display width
db 2,50 ; set horizontal sync
db 6,34 ; set display height
db 7,35 ; set vertical sync
db 255 ; => EXIT LOOP

Message: db ' WELCOME TO 7DX2011 ',255

</pre>

256 byte Overscan MEGATEXT Intro - (features 50Hz fullscreen scroll)

2011-12-31T11:51:20Z

Matahari:

<pre>
;---------------------------------------------------------------------
; 256 byte Overscan MegaText Intro v1.1b
; (7DX Demo Party 2011 Release)
;
; for Amstrad 464/664/6128 computers
;
; by matahari - (Dec 24, 2011)
;
; Featuring;
; - Greetings message via 50Hz hardware scroll
; - 100% overscan (full) screen size
; - Complete Amstrad palette (27 colours) on screen at once
; - And, all in 256 bytes!
;---------------------------------------------------------------------

LET ADDR_Start = &400
LET ADDR_TextMap = ADDR_Start + 256

LET CONST_TotalRasterLines = 269

LET VAR_BgrndColour = ADDR_Start - 1
LET VAR_FlipFlop = VAR_BgrndColour - 1
LET VAR_LineSkipMinus = CONST_TotalRasterLines * -9
LET VAR_LineSkipPlus = CONST_TotalRasterLines * 9

VAR_XOR equ 1 xor 0

run start
org ADDR_Start

start: ;--------- Generate a dummy interrupt handler ---------------------------

ld hl,&c9fb
ld (&0038),hl

;--------- Set CRTC Registers -------------------------------------------

ld hl,CRTC_Data
loopCRTC: ld a,(hl)
ld b,&bc + 1
outi
ld b,&bd + 1
outi
inc a
jr nz,loopCRTC

;--------- Display text message -----------------------------------------

ld hl,ADDR_TextMap
ld de,Message

loopText: push de
push hl
ld a,2
call &bc0e
pop hl
pop de

ld a,(de)
cp 255
jr z,loopExec

call &bb5a

inc de
push de

;--------- Grab pixels of displayed char --------------------------------

ld de,&c000
ld a,8
ld c,&40
outer: ex af,af'
ld iy,vangelis + 1
ld (iy),%10000000
call Proc_FlipFlop
inner: call Proc_FlipFlop
or a
jr z,bitBckgrndA
ld a,&55
jr bitBckgrndB
bitBckgrndA: ld a,&57
bitBckgrndB: ld (VAR_BgrndColour),a
ld a,(de)
vangelis: and 0
jr z,blit
ld a,c

;*********************************

blit: push hl
push de
push bc
ld de,9
ld b,26
blitText: add hl,de
or a
jr z,blitBckgrnd
ld (hl),c
inc c
jr blitSkip

blitBckgrnd: push af
ld a,(VAR_BgrndColour)
ld (hl),a
pop af

blitSkip: djnz blitText
pop bc
pop de
pop hl

;*********************************

inc hl
rr (iy)
jr nc,inner

inc hl

ld a,8
add a,d
ld d,a

push bc
ld bc,25*9
add hl,bc
pop bc

ex af,af'
dec a
jr nz,outer

pop de
jr loopText

;*********************************************************************
; MAIN LOOP - INITIALIZE!
;*********************************************************************

loopExec: ld hl,ADDR_TextMap + VAR_LineSkipPlus

; Checking VBlanking only for once!
; Rest of the code will be manually synced
; via precise t-state calculations.
ld b,&f5
waitVBlanking: in a,(c)
rra
jr nc,waitVBlanking

halt
di

;--------- X-Pos Alignment ----------------------------------------------

ld a,(hl) ; waste time! => 7 cycles
; Aligns perfect on WinApe.

; If you need precise
; alignment on an original Amstrad,
; you need to comment out this line
; OR replace it with a NOP!

; No worries, intro size will not
; exceed 256 bytes either way ;-)

;*********************************************************************
; MAIN LOOP - BEGIN
;*********************************************************************

loopBegin: ld de,VAR_LineSkipMinus + 9
add hl,de

;--------- Wait for perfect sync! ---------------------------------------

ld b,203 ; waste time!
waste1: nop ; waste time!
add ix,ix ; waste time!
djnz waste1 ; waste time!

;--------- Start CRTC code ----------------------------------------------

ld de,CONST_TotalRasterLines
ld bc,&7f00
out (c),c

crash: outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b

ld a,(hl) ; waste time!
nop ; waste time!

dec de
ld a,d
or e
jr nz,crash

;--------- Raster colour = Black ----------------------------------------

ld a,&54
out (c),a

nop ; waste time!
ld b,(hl) ; waste time!
ld b,224 ; waste time!
waste2: djnz waste2 ; waste time!

loopEnd: jr loopBegin

;*********************************************************************
; MAIN LOOP - END
;*********************************************************************

;--------- Procedure for Flip/Flop --------------------------------------

Proc_FlipFlop: ld a,(VAR_FlipFlop)
xor VAR_XOR
ld (VAR_FlipFlop),a
ret

;--------- CRTC Data ----------------------------------------------------

CRTC_Data: db 1,54 ; set display width
db 2,50 ; set horizontal sync
db 6,34 ; set display height
db 7,35 ; set vertical sync
db 255 ; => EXIT LOOP

Message: db ' WELCOME TO 7DX2011 ',255

</pre>

256 byte Overscan MEGATEXT Intro - (features 50Hz fullscreen scroll)

2011-12-30T10:48:56Z

Matahari:

<pre>
;---------------------------------------------------------------------
; 256 byte Overscan MegaText Intro v1.1b
; (7DX Demo Party 2011 Release)
;
; for Amstrad 464/664/6128 computers
;
; by matahari - (Dec 24, 2011)
;
; Featuring;
; - Greetings message via 50Hz CRTC hardware scroll
; - 100% overscan (full) screen size
; - Complete Amstrad palette (27 colours) on screen at once
; - And, all in 256 bytes!
;---------------------------------------------------------------------

LET ADDR_Start = &400
LET ADDR_TextMap = ADDR_Start + 256

LET CONST_TotalRasterLines = 269

LET VAR_BgrndColour = ADDR_Start - 1
LET VAR_FlipFlop = VAR_BgrndColour - 1
LET VAR_LineSkipMinus = CONST_TotalRasterLines * -9
LET VAR_LineSkipPlus = CONST_TotalRasterLines * 9

VAR_XOR equ 1 xor 0

run start
org ADDR_Start

start: ;--------- Generate a dummy interrupt handler ---------------------------

ld hl,&c9fb
ld (&0038),hl

;--------- Set CRTC Registers -------------------------------------------

ld hl,CRTC_Data
loopCRTC: ld a,(hl)
ld b,&bc + 1
outi
ld b,&bd + 1
outi
inc a
jr nz,loopCRTC

;--------- Display text message -----------------------------------------

ld hl,ADDR_TextMap
ld de,Message

loopText: push de
push hl
ld a,2
call &bc0e
pop hl
pop de

ld a,(de)
cp 255
jr z,loopExec

call &bb5a

inc de
push de

;--------- Grab pixels of displayed char --------------------------------

ld de,&c000
ld a,8
ld c,&40
outer: ex af,af'
ld iy,vangelis + 1
ld (iy),%10000000
call Proc_FlipFlop
inner: call Proc_FlipFlop
or a
jr z,bitBckgrndA
ld a,&55
jr bitBckgrndB
bitBckgrndA: ld a,&57
bitBckgrndB: ld (VAR_BgrndColour),a
ld a,(de)
vangelis: and 0
jr z,blit
ld a,c

;*********************************

blit: push hl
push de
push bc
ld de,9
ld b,26
blitText: add hl,de
or a
jr z,blitBckgrnd
ld (hl),c
inc c
jr blitSkip

blitBckgrnd: push af
ld a,(VAR_BgrndColour)
ld (hl),a
pop af

blitSkip: djnz blitText
pop bc
pop de
pop hl

;*********************************

inc hl
rr (iy)
jr nc,inner

inc hl

ld a,8
add a,d
ld d,a

push bc
ld bc,25*9
add hl,bc
pop bc

ex af,af'
dec a
jr nz,outer

pop de
jr loopText

;*********************************************************************
; MAIN LOOP - INITIALIZE!
;*********************************************************************

loopExec: ld hl,ADDR_TextMap + VAR_LineSkipPlus

; Checking VBlanking only for once!
; Rest of the code will be manually synced
; via precise t-state calculations.
ld b,&f5
waitVBlanking: in a,(c)
rra
jr nc,waitVBlanking

halt
di

;--------- X-Pos Alignment ----------------------------------------------

ld a,(hl) ; waste time! => 7 cycles
; Aligns perfect on WinApe.

; If you need precise
; alignment on an original Amstrad,
; you need to comment out this line
; OR replace it with a NOP!

; No worries, intro size will not
; exceed 256 bytes either way ;-)

;*********************************************************************
; MAIN LOOP - BEGIN
;*********************************************************************

loopBegin: ld de,VAR_LineSkipMinus + 9
add hl,de

;--------- Wait for perfect sync! ---------------------------------------

ld b,203 ; waste time!
waste1: nop ; waste time!
add ix,ix ; waste time!
djnz waste1 ; waste time!

;--------- Start CRTC code ----------------------------------------------

ld de,CONST_TotalRasterLines
ld bc,&7f00
out (c),c

crash: outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b

ld a,(hl) ; waste time!
nop ; waste time!

dec de
ld a,d
or e
jr nz,crash

;--------- Raster colour = Black ----------------------------------------

ld a,&54
out (c),a

nop ; waste time!
ld b,(hl) ; waste time!
ld b,224 ; waste time!
waste2: djnz waste2 ; waste time!

loopEnd: jr loopBegin

;*********************************************************************
; MAIN LOOP - END
;*********************************************************************

;--------- Procedure for Flip/Flop --------------------------------------

Proc_FlipFlop: ld a,(VAR_FlipFlop)
xor VAR_XOR
ld (VAR_FlipFlop),a
ret

;--------- CRTC Data ----------------------------------------------------

CRTC_Data: db 1,54 ; set display width
db 2,50 ; set horizontal sync
db 6,34 ; set display height
db 7,35 ; set vertical sync
db 255 ; => EXIT LOOP

Message: db ' WELCOME TO 7DX2011 ',255

</pre>

256 byte Overscan MEGATEXT Intro - (features 50Hz fullscreen scroll)

2011-12-30T10:26:28Z

Matahari: Created page with "<pre> ;--------------------------------------------------------------------- ; 256 byte Overscan MegaText Intro v1.1b ; (7DX Demo Party 2011 Release) ; ; for Amstrad 464/664..."

<pre>
;---------------------------------------------------------------------
; 256 byte Overscan MegaText Intro v1.1b
; (7DX Demo Party 2011 Release)
;
; for Amstrad 464/664/6128 computers
;
; by matahari - (Dec 24, 2011)
;
; Featuring;
; - Greetings message via 50Hz CRTC hardware scroll
; - 100% overscan (full) screen size
; - Complete Amstrad palette (27 colours) on screen at once
; - And, all in 256 bytes!
;---------------------------------------------------------------------

LET ADDR_Start = &400
LET ADDR_TextMap = ADDR_Start + 256

LET CONST_TotalRasterLines = 269

LET VAR_BgrndColour = ADDR_Start - 1
LET VAR_FlipFlop = VAR_BgrndColour - 1
LET VAR_LineSkipMinus = CONST_TotalRasterLines * -9
LET VAR_LineSkipPlus = CONST_TotalRasterLines * 9

VAR_XOR equ 1 xor 0

run start
org ADDR_Start

start: ;--------- Generate a dummy interrupt handler ---------------------------

ld hl,&c9fb
ld (&0038),hl

;--------- Set CRTC Registers -------------------------------------------

ld hl,CRTC_Data
loopCRTC: ld a,(hl)
ld b,&bc + 1
outi
ld b,&bd + 1
outi
inc a
jr nz,loopCRTC

;--------- Display text message -----------------------------------------

ld hl,ADDR_TextMap
ld de,Message

loopText: push de
push hl
ld a,2
call &bc0e
pop hl
pop de

ld a,(de)
cp 255
jr z,loopExec

call &bb5a

inc de
push de

;--------- Grab pixels of displayed char --------------------------------

ld de,&c000
ld a,8
ld c,&40
outer: ex af,af'
ld iy,vangelis + 1
ld (iy),%10000000
call Proc_FlipFlop
inner: call Proc_FlipFlop
or a
jr z,bitBckgrndA
ld a,&55
jr bitBckgrndB
bitBckgrndA: ld a,&57
bitBckgrndB: ld (VAR_BgrndColour),a
ld a,(de)
vangelis: and 0
jr z,blit
ld a,c

;*********************************

blit: push hl
push de
push bc
ld de,9
ld b,26
blitText: add hl,de
or a
jr z,blitBckgrnd
ld (hl),c
inc c
jr blitSkip

blitBckgrnd: push af
ld a,(VAR_BgrndColour)
ld (hl),a
pop af

blitSkip: djnz blitText
pop bc
pop de
pop hl

;*********************************

inc hl
rr (iy)
jr nc,inner

inc hl

ld a,8
add a,d
ld d,a

push bc
ld bc,25*9
add hl,bc
pop bc

ex af,af'
dec a
jr nz,outer

pop de
jr loopText

;*********************************************************************
; MAIN LOOP - INITIALIZE!
;*********************************************************************

loopExec: ld hl,ADDR_TextMap + VAR_LineSkipPlus

; Checking VBlanking only for once!
; Rest of the code will be manually synced
; via precise t-state calculations.
ld b,&f5
waitVBlanking: in a,(c)
rra
jr nc,waitVBlanking

halt
di

;--------- X-Pos Alignment ----------------------------------------------

ld a,(hl) ; waste time! => 7 cycles
; Aligns perfect on WinApe.

; If you need precise
; alignment on an original Amstrad,
; you need to comment out this line
; OR replace it with a NOP!

; No worries, intro size will not
; exceed 256 bytes either way ;-)

;*********************************************************************
; MAIN LOOP - BEGIN
;*********************************************************************

loopBegin: ld de,VAR_LineSkipMinus + 9
add hl,de

;--------- Wait for perfect sync! ---------------------------------------

ld b,203 ; waste time!
waste1: nop ; waste time!
add ix,ix ; waste time!
djnz waste1 ; waste time!

;--------- Start CRTC code ----------------------------------------------

ld de,CONST_TotalRasterLines
ld bc,&7f00
out (c),c

crash: outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b

ld a,(hl) ; waste time!
nop ; waste time!

dec de
ld a,d
or e
jr nz,crash

;--------- Raster colour = Black ----------------------------------------

ld a,&54
out (c),a

nop ; waste time!
ld b,(hl) ; waste time!
ld b,224 ; waste time!
waste2: djnz waste2 ; waste time!

loopEnd: jr loopBegin

;*********************************************************************
; MAIN LOOP - END
;*********************************************************************

;--------- Procedure for Flip/Flop --------------------------------------

Proc_FlipFlop: ld a,(VAR_FlipFlop)
xor VAR_XOR
ld (VAR_FlipFlop),a
ret

;--------- CRTC Data ----------------------------------------------------

CRTC_Data: db 1,54 ; set display width
db 2,50 ; set horizontal sync
db 6,34 ; set display height
db 7,35 ; set vertical sync
db 255 ; => EXIT LOOP

Message: db ' WELCOME TO 7DX2011 ',255

</pre>

Source Codes

2011-12-30T09:53:25Z

Matahari: /* Graphics */

[[Category:Programming]]
''This article contains source codes and programming examples. You may also have a look at''
* [[Programming software]]
* [[BIOS Functions]]
* [[Technical documentation]]s
* [[Locomotive BASIC]]
* [[Type Ins]]

== Assembler ==
*[[Z80_-_undocumented_opcodes|Z80 - undocumented opcodes]]
*[[Where to learn?]]

== Algorithms ==
*[[Programming:Bubble sort|Bubble sort]]
*[[Programming:CPC OS floating point routines|CPC OS floating point routines]]
*[[Programming:CRC16|CRC16]]
*[[Programming:CRC32|CRC32]]
*[[Programming:Integer Division|Integer Division]]
*[[Programming:Integer Multiplication|Integer Multiplication]]
*[[Programming:Logarithm|Logarithm]]
*[[Programming:Ultrafast Multiplication|Ultrafast Multiplication]] by [[Prodatron]]
*[[Programming:Fast Square Root|Fast Square Root]]
*[[Programming:Fast 16 bit Square Root|Fast 16 bit Square Root]] by [[User:Executioner|Executioner]]
*[[Programming:Filling memory with a byte|Filling memory with a byte]]
*[[Programming:Square Root|Square Root]]
*[[Programming:Precalculated square|Precalculated square]]
*[[Programming:Random Number Generator|Random Number Generator]]
*[[Programming:Reverse A|Reverse A]]
*[[Programming:Quicksort|Quicksort]]
*[[Programming:Sin/Cos calculation|Sin/Cos calculation]]

== CP/M ==
*[[Programming:A simple 'Hello World' program for CP/M using BDOS|A simple 'Hello World' program for CP/M using BDOS]]
*[[Programming:A simple 'Hello World' program for CP/M using BIOS|A simple 'Hello World' program for CP/M using BIOS]]
*[[Programming:Executing firmware functions from within CP/M 2.1|Executing firmware functions from within CP/M 2.1]]
*[[Programming:Executing firmware functions from within CP/M 2.1 or CP/M plus|Executing firmware functions from within CP/M 2.1 or CP/M plus]]
*[[Programming:Executing firmware functions from within CP/M 2.1|Executing firmware functions from within CP/M 2.1]]
*[[Programming:Executing firmware functions from within CP/M plus|Executing firmware functions from within CP/M plus]]

== CPC Plus ==
*[[Amstrad CPC plus sprite format]]
*[[Programming:Convert CPC sprites to Plus hardware sprites|Convert CPC sprites to Plus hardware sprites]]
*[[Sprites Multiplexing]]
*[[Programming:CPC Plus Hardware Sprites|Hardware sprites]]
*[[Programming:CPC Plus Horizontal scroll|Horizontal scroll]]
*[[Programming:CPC Plus RLE Hardware Sprites|RLE hardware sprites]]
*[[Programming:CPC Plus Screen Splitting|Screen splitting]]
*[[Programming:CPC Plus Vertical scroll|Vertical scroll]]
*[[Operation of Z80 interrupt mode 0 in the CPC plus design]]
*[[Programming:Simple Raster Example 2 (uses CPC plus features)|Simple Raster Example 1 (uses CPC plus features)]]
*[[Programming:Simple Raster Example 3 (uses CPC plus features)|Simple Raster Example 2 (uses CPC plus features)]]
*[[Programming:Unlocking ASIC|Unlocking ASIC]]

== Devices ==
*[[Programming:CPC Booster|CPC Booster]]
*[[Programming:Digiblaster|Digiblaster]]
*[[Programming:Program to save the ROM of the Multiface 2|Program to save the ROM of the Multiface 2]]
*[[Programming:SYMBiFACE II|SYMBiFACE II]]

== File access ==
*[[Programming:An example to read a file byte-by-byte|An example to read a file byte-by-byte]]
*[[Programming:An example to write a file byte-by-byte|An example to write a file byte-by-byte]]
*[[Programming:A simple file copier using firmware functions (copies byte-by-byte)|A simple file copier using firmware functions (copies byte-by-byte)]]
*[[Programming:Loading a file|Loading a file]]
*[[Programming:Saving a file|Saving a file]]
*[[Programming:Unlocking a protected basic file|Unlocking a protected basic file]]
*[[Programming:Undo delete of file|Undo delete of file]]

== Floppy disk ==
*[[Programming:A simple disc copier using BDOS functions|A simple disc copier using BDOS functions]]
*[[Programming:A simple disc formatter using BDOS functions|A simple disc formatter using BDOS functions]]
*[[Programming:An example loader|An example loader]]
*[[Programming:Catalog a disc and retrieve a directory|Catalog a disc and retrieve a directory]]
*[[Programming:Detecting an Amstrad or Vortex disc controler|Detecting an Amstrad or Vortex disc controler]]
*[[Programming:Formatting a track on a disc|Formatting a track on a disc]]
*[[Programming:Reading a sector from a disc|Reading a sector from a disc]]
*[[Programming:Reading and writing the boot sector of a SYSTEM/VENDOR disc|Reading and writing the boot sector of a SYSTEM/VENDOR disc]]
*[[Programming:Writing a sector to disc|Writing a sector to disc]]

== Graphics ==
*[[Programming:Display a 8-bit number in binary|Display a 8-bit number in binary]]
*[[Programming:Display a 8-bit number in hex|Display a 8-bit number in hex]]
*[[Programming:Display a byte as a 3-digit decimal number|Display a byte as a 3-digit decimal number]]
*[[Programming:Display and update Scores|Display and update Scores]]
*[[Programming:Distorting the screen using register 2 of the CRTC (Horizontal Sync Position)|Distorting the screen using register 2 of the CRTC (Horizontal Sync Position)]]
*[[Programming:Fast plot|Fast plot]]
*[[Programming:Fast Sprites|Fast Sprites]] by [[User:Executioner|Executioner]]
*[[Programming:Fast Textoutput|Fast Textoutput]] by [[Prodatron]]
*[[Programming:Hardware scrolling|Hardware Scrolling]] by [[User:Executioner|Executioner]]
*[[Programming:Hardware scrolling 2|Hardware Scrolling 2]]
*[[Programming:Hardware scrolling the screen horizontally byte-by-byte using the CRTC|Hardware scrolling the screen horizontally byte-by-byte using the CRTC]]
*[[Programming:Hardware scrolling the screen using the CRTC|Hardware scrolling the screen using the CRTC]]
*[[Programming:Next / previous line calculation|Next / previous line calculation]]
*[[Programming:Overscan|Overscan]]
*[[Programming:Plotting a sprite using character matrices|Plotting a sprite using character matrices]]
*[[Programming:Simple Raster Example 1|Simple Raster Example]]
*[[Programming:Simple Split Raster Example 1|Simple Split Raster Example]]
*[[Synchronising with the CRTC and display]]
*[[CRTC change colour (fill) test with precise timing]] by [[User:Matahari|Matahari]]
*[[256 byte Overscan MEGATEXT Intro - (features 50Hz fullscreen scroll)]] by [[User:Matahari|Matahari]]

== Interrupts ==
* [[Reliable use of interrupt mode 2 on the CPC]]

== Keyboard ==
*[[Programming:Keyboard scanning|Keyboard scanning]]

== Other routines ==
*[[Programming:An example boot sector (executed with rsx command CPM)|An example boot sector (executed with rsx command CPM)]]
*[[Programming:An example to define a RSX|An example to define a RSX]]
*[[Programming:Calling a RSX from outside of BASIC|Calling a RSX from outside of BASIC]]
*[[Programming:Dumping the data of BASIC or AMSDOS or an expansion rom|Dumping the data of BASIC or AMSDOS or an expansion rom]]
*[[Programming:Dumping the data of the lower rom|Dumping the data of the lower rom]]

== Sound ==
*[[How to access the PSG via PPI]]
*[[Programming:Tutorial - Understanding the fundamentals of BASIC SOUND and the Firmware SOUND QUEUE|Tutorial - Understanding the fundamentals of BASIC SOUND and the Firmware SOUND QUEUE]]
*[[Programming:Source code to show 0x0ff is always returned when reading PSG port B|Source code to show 0x0ff is always returned when reading PSG port B]]
*[[Programming:Source code to show it is possible to store data in PSG register 14 and 15 (port A and port B)|Source code to show it is possible to store data in PSG register 14 and 15 (port A and port B)]]
*[[Programming:Source code to show it is possible to store data in PSG register 14 and 15 even if the port has been set to input|Source code to show it is possible to store data in PSG register 14 and 15 even if the port has been set to input]]
*[[Programming:Source code to show that some registers always return 0 in some bits|Source code to show that some registers always return 0 in some bits]]
*[[Programming:Source code to show that when a port is read in output mode; the data read will be ANDed with the inputs to that port|Source code to show that when a port is read in output mode; the data read will be ANDed with the inputs to that port]]

== Cross Development ==
*[[Programming:Cross Development|Cross Development]]

[[Category:Source code]]

CRTC change colour (fill) test with precise timing

2011-03-28T14:24:41Z

Matahari:

<pre>;-------------------------------------------------------
; CRTC change colour (fill) test
; with precise timing!
;
; by matahari - (March 27, 2011)
;
; NOTE - Watch the "precisely shifted" raster line!
; And, use it wisely to make some filled vectors
;-------------------------------------------------------

org &3000
run &3000

;------ Switch to Mode 1 -------------------------------

ld a,1
call &bc0e

;------ Set an interrupt that makes nothing! -----------

di
im 1
ld hl,&c9fb
ld (&38),hl
ei

;====== Here comes the MAIN LOOP =======================

Loop:

;------ Wait for vertical blanking sync ----------------

ld b,&f5
WaitVB: in a,(c)
rra
jr nc,WaitVB

halt
halt

;------ Set the colours --------------------------------

ld bc,&7f00
out (c),c

ld h,&51
ld l,&48
ld d,&43
ld e,&4d
ld a,&44

defs 1128

;------ Here comes copper (sorry, CRTC) list! ----------

REPEAT 4

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24   ; NOP

REND

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24+1 ; Yes, we're adding 1 more NOP
 ; to achieve 8 pixel precision shift
 ; during next scan !!!

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24-1 ; Fixing previous addition!

;-------------------------------------------------------

REPEAT 5

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24   ; NOP

REND

;-------------------------------------------------------

out (c),a ; Blue space

;-------------------------------------------------------

jp loop

;====== End of MAIN LOOP ===============================

</pre>
[[Category:Programming]]

CRTC change colour (fill) test with precise timing

2011-03-28T14:20:55Z

Matahari:

<pre>;-------------------------------------------------------
; CRTC change colour (fill) test
; with precise timing!
;
; by matahari - (March 27, 2011)
;
; NOTE - Watch the "precisely shifted" raster line!
; And, use it wisely to make some filled vectors
;-------------------------------------------------------

org &3000
run &3000

;------ Switch to Mode 1 -------------------------------

ld a,1
call &bc0e

;------ Set an interrupt that makes nothing! -----------

di
im 1
ld hl,&c9fb
ld (&38),hl
ei

;====== Here comes the MAIN LOOP =======================

Loop:

;------ Wait for vertical blanking sync ----------------

ld b,&f5
WaitVB: in a,(c)
rra
jr nc,WaitVB

halt
halt

;------ Set the colours --------------------------------

ld bc,&7f00
out (c),c

ld h,&51
ld l,&48
ld d,&43
ld e,&4d
ld a,&44

defs 1128

;------ Here comes copper (sorry, CRTC) list! ----------

REPEAT 4

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24   ; NOP

REND

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24+1 ; Yes, we're using 1 NOP more
 ; to achieve 8 pixel precision shift
 ; during next scan !!!

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24-1 ; Fixing previous subtraction!

;-------------------------------------------------------

REPEAT 5

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24   ; NOP

REND

;-------------------------------------------------------

out (c),a ; Blue space

;-------------------------------------------------------

jp loop

;====== End of MAIN LOOP ===============================

</pre>
[[Category:Programming]]

CRTC change colour (fill) test with precise timing

2011-03-28T14:15:01Z

Matahari:

<pre>;-------------------------------------------------------
; CRTC change colour (fill) test
; with precise timing!
;
; by matahari - (March 27, 2011)
;
; NOTE - Watch the "precisely shifted" raster line!
; And, use it wisely to make some filled vectors
;-------------------------------------------------------

org &3000
run &3000

;------ Switch to Mode 1 -------------------------------

ld a,1
call &bc0e

;------ Set an interrupt that makes nothing! -----------

di
im 1
ld hl,&c9fb
ld (&38),hl
ei

;====== Here comes the MAIN LOOP =======================

Loop:

;------ Wait for vertical blanking sync ----------------

ld b,&f5
WaitVB: in a,(c)
rra
jr nc,WaitVB

halt
halt

;------ Set the colours --------------------------------

ld bc,&7f00
out (c),c

ld h,&51
ld l,&48
ld d,&43
ld e,&4d
ld a,&44

defs 1128

;------ Here comes copper (sorry, CRTC) list! ----------

REPEAT 4

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 25-1 ; Yes, we're using 1 NOP less
 ; to achieve 8 pixel precision shift
 ; during next scan !!!

REND

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 25   ; NOP

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 23   ; Fixing previous subtraction!

;-------------------------------------------------------

REPEAT 5

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24   ; NOP

REND

;-------------------------------------------------------

out (c),a ; Blue space

;-------------------------------------------------------

jp loop

;====== End of MAIN LOOP ===============================

</pre>
[[Category:Programming]]

CRTC change colour (fill) test with precise timing

2011-03-27T15:16:37Z

Matahari:

<pre>;-------------------------------------------------------
; CRTC change colour (fill) test
; with precise timing!
;
; by matahari - (March 27, 2011)
;
; NOTE - Watch the "precisely shifted" raster line!
; And, use it wisely to make some filled vectors
;-------------------------------------------------------

org &3000
run &3000

;------ Switch to Mode 1 -------------------------------

ld a,1
call &bc0e

;------ Set an interrupt that makes nothing! -----------

di
im 1
ld hl,&c9fb
ld (&38),hl

;====== Here comes the MAIN LOOP =======================

Loop: ei

;------ Wait for vertical blanking sync ----------------

ld b,&f5
WaitVB: in a,(c)
rra
jr nc,WaitVB

halt
halt
di

;------ Set the colours --------------------------------

ld bc,&7f00
out (c),c

ld h,&51
ld l,&48
ld d,&43
ld e,&4d
ld a,&44

defs 1127

;------ Here comes copper (sorry, CRTC) list! ----------

REPEAT 4

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 25-1 ; Yes, we're using 1 NOP less
 ; to achieve 8 pixel precision shift
 ; during next scan !!!

REND

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 25   ; NOP

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 23   ; Fixing previous subtraction!

;-------------------------------------------------------

REPEAT 5

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24   ; NOP

REND

;-------------------------------------------------------

out (c),a ; Blue space

;-------------------------------------------------------

jp loop

;====== End of MAIN LOOP ===============================

</pre>

User:Matahari

2011-03-27T15:13:07Z

Matahari: Created page with "aka Mert Börü"

aka Mert Börü

CRTC change colour (fill) test with precise timing

2011-03-27T15:11:26Z

Matahari: Created page with "<pre>;------------------------------------------------------- ; CRTC change colour (fill) test ; with precise timing! ; ; by matahari - (March 27, 2011) ; ; NOTE: Watch the "prec..."

<pre>;-------------------------------------------------------
; CRTC change colour (fill) test
; with precise timing!
;
; by matahari - (March 27, 2011)
;
; NOTE: Watch the "precisely shifted" raster line!
; And, use it wisely to make some filled vectors.
;-------------------------------------------------------

org &3000
run &3000

;------ Switch to Mode 1 -------------------------------

ld a,1
call &bc0e

;------ Set an interrupt that makes nothing! -----------

di
im 1
ld hl,&c9fb
ld (&38),hl

;====== Here comes the MAIN LOOP =======================

Loop: ei

;------ Wait for vertical blanking sync ----------------

ld b,&f5
WaitVB: in a,(c)
rra
jr nc,WaitVB

halt
halt
di

;------ Set the colours --------------------------------

ld bc,&7f00
out (c),c

ld h,&51
ld l,&48
ld d,&43
ld e,&4d
ld a,&44

defs 1127

;------ Here comes copper (sorry, CRTC) list! ----------

REPEAT 4

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 25-1 ; Yes, we're using 1 NOP less
 ; to achieve 8 pixel precision shift
 ; during next scan !!!

REND

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 25   ; NOP

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 23   ; Fixing previous subtraction!

;-------------------------------------------------------

REPEAT 5

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24   ; NOP

REND

;-------------------------------------------------------

out (c),a ; Blue space

;-------------------------------------------------------

jp loop

;====== End of MAIN LOOP ===============================

</pre>

Source Codes

2011-03-27T14:58:54Z

Matahari: /* Graphics */

[[Category:Programming]]
''This article contains source codes and programming examples. You may also have a look at''
* [[Programming software]]
* [[BIOS Functions]]
* [[Technical documentation]]s
* [[Locomotive BASIC]]
* [[Type Ins]]

== Assembler ==
*[[Z80_-_undocumented_opcodes|Z80 - undocumented opcodes]]
*[[Where to learn?]]

== Algorithms ==
*[[Programming:CPC OS floating point routines|CPC OS floating point routines]]
*[[Programming:CRC16|CRC16]]
*[[Programming:CRC32|CRC32]]
*[[Programming:Integer Division|Integer Division]]
*[[Programming:Integer Multiplication|Integer Multiplication]]
*[[Programming:Ultrafast Multiplication|Ultrafast Multiplication]] by [[Prodatron]]
*[[Programming:Fast Square Root|Fast Square Root]]
*[[Programming:Fast 16 bit Square Root|Fast 16 bit Square Root]] by [[User:Executioner|Executioner]]
*[[Programming:Filling memory with a byte|Filling memory with a byte]]
*[[Programming:Square Root|Square Root]]
*[[Programming:Precalculated square|Precalculated square]]
*[[Programming:Random Number Generator|Random Number Generator]]
*[[Programming:Quicksort|Quicksort]]
*[[Programming:Sin/Cos calculation|Sin/Cos calculation]]

== CP/M ==
*[[Programming:A simple 'Hello World' program for CP/M using BDOS|A simple 'Hello World' program for CP/M using BDOS]]
*[[Programming:A simple 'Hello World' program for CP/M using BIOS|A simple 'Hello World' program for CP/M using BIOS]]
*[[Programming:Executing firmware functions from within CP/M 2.1|Executing firmware functions from within CP/M 2.1]]
*[[Programming:Executing firmware functions from within CP/M 2.1 or CP/M plus|Executing firmware functions from within CP/M 2.1 or CP/M plus]]
*[[Programming:Executing firmware functions from within CP/M 2.1|Executing firmware functions from within CP/M 2.1]]
*[[Programming:Executing firmware functions from within CP/M plus|Executing firmware functions from within CP/M plus]]

== CPC Plus ==
*[[Amstrad CPC plus sprite format]]
*[[Programming:Convert CPC sprites to Plus hardware sprites|Convert CPC sprites to Plus hardware sprites]]
*[[Sprites Multiplexing]]
*[[Programming:CPC Plus Hardware Sprites|Hardware sprites]]
*[[Programming:CPC Plus Horizontal scroll|Horizontal scroll]]
*[[Programming:CPC Plus RLE Hardware Sprites|RLE hardware sprites]]
*[[Programming:CPC Plus Screen Splitting|Screen splitting]]
*[[Programming:CPC Plus Vertical scroll|Vertical scroll]]
*[[Operation of Z80 interrupt mode 0 in the CPC plus design]]
*[[Programming:Simple Raster Example 2 (uses CPC plus features)|Simple Raster Example 1 (uses CPC plus features)]]
*[[Programming:Simple Raster Example 3 (uses CPC plus features)|Simple Raster Example 2 (uses CPC plus features)]]
*[[Programming:Unlocking ASIC|Unlocking ASIC]]

== Devices ==
*[[Programming:CPC Booster|CPC Booster]]
*[[Programming:Digiblaster|Digiblaster]]
*[[Programming:Program to save the ROM of the Multiface 2|Program to save the ROM of the Multiface 2]]
*[[Programming:SYMBiFACE II|SYMBiFACE II]]

== File access ==
*[[Programming:An example to read a file byte-by-byte|An example to read a file byte-by-byte]]
*[[Programming:An example to write a file byte-by-byte|An example to write a file byte-by-byte]]
*[[Programming:A simple file copier using firmware functions (copies byte-by-byte)|A simple file copier using firmware functions (copies byte-by-byte)]]
*[[Programming:Loading a file|Loading a file]]
*[[Programming:Saving a file|Saving a file]]
*[[Programming:Unlocking a protected basic file|Unlocking a protected basic file]]
*[[Programming:Undo delete of file|Undo delete of file]]

== Floppy disk ==
*[[Programming:A simple disc copier using BDOS functions|A simple disc copier using BDOS functions]]
*[[Programming:A simple disc formatter using BDOS functions|A simple disc formatter using BDOS functions]]
*[[Programming:An example loader|An example loader]]
*[[Programming:Catalog a disc and retrieve a directory|Catalog a disc and retrieve a directory]]
*[[Programming:Detecting an Amstrad or Vortex disc controler|Detecting an Amstrad or Vortex disc controler]]
*[[Programming:Formatting a track on a disc|Formatting a track on a disc]]
*[[Programming:Reading a sector from a disc|Reading a sector from a disc]]
*[[Programming:Reading and writing the boot sector of a SYSTEM/VENDOR disc|Reading and writing the boot sector of a SYSTEM/VENDOR disc]]
*[[Programming:Writing a sector to disc|Writing a sector to disc]]

== Graphics ==
*[[Programming:Display a 8-bit number in binary|Display a 8-bit number in binary]]
*[[Programming:Display a 8-bit number in hex|Display a 8-bit number in hex]]
*[[Programming:Display a byte as a 3-digit decimal number|Display a byte as a 3-digit decimal number]]
*[[Programming:Display and update Scores|Display and update Scores]]
*[[Programming:Distorting the screen using register 2 of the CRTC (Horizontal Sync Position)|Distorting the screen using register 2 of the CRTC (Horizontal Sync Position)]]
*[[Programming:Fast plot|Fast plot]]
*[[Programming:Fast Sprites|Fast Sprites]] by [[User:Executioner|Executioner]]
*[[Programming:Fast Textoutput|Fast Textoutput]] by [[Prodatron]]
*[[Programming:Hardware scrolling|Hardware Scrolling]] by [[User:Executioner|Executioner]]
*[[Programming:Hardware scrolling 2|Hardware Scrolling 2]]
*[[Programming:Hardware scrolling the screen horizontally byte-by-byte using the CRTC|Hardware scrolling the screen horizontally byte-by-byte using the CRTC]]
*[[Programming:Hardware scrolling the screen using the CRTC|Hardware scrolling the screen using the CRTC]]
*[[Programming:Next / previous line calculation|Next / previous line calculation]]
*[[Programming:Overscan|Overscan]]
*[[Programming:Plotting a sprite using character matrices|Plotting a sprite using character matrices]]
*[[Programming:Simple Raster Example 1|Simple Raster Example]]
*[[Programming:Simple Split Raster Example 1|Simple Split Raster Example]]
*[[Synchronising with the CRTC and display]]
*[[CRTC change colour (fill) test with precise timing]] by [[User:Matahari|Matahari]]

== Interrupts ==
* [[Reliable use of interrupt mode 2 on the CPC]]

== Keyboard ==
*[[Programming:Keyboard scanning|Keyboard scanning]]

== Other routines ==
*[[Programming:An example boot sector (executed with rsx command CPM)|An example boot sector (executed with rsx command CPM)]]
*[[Programming:An example to define a RSX|An example to define a RSX]]
*[[Programming:Calling a RSX from outside of BASIC|Calling a RSX from outside of BASIC]]
*[[Programming:Dumping the data of BASIC or AMSDOS or an expansion rom|Dumping the data of BASIC or AMSDOS or an expansion rom]]
*[[Programming:Dumping the data of the lower rom|Dumping the data of the lower rom]]

== Sound ==
*[[Programming:Tutorial - Understanding the fundamentals of BASIC SOUND and the Firmware SOUND QUEUE|Tutorial - Understanding the fundamentals of BASIC SOUND and the Firmware SOUND QUEUE]]
*[[Programming:Source code to show 0x0ff is always returned when reading PSG port B|Source code to show 0x0ff is always returned when reading PSG port B]]
*[[Programming:Source code to show it is possible to store data in PSG register 14 and 15 (port A and port B)|Source code to show it is possible to store data in PSG register 14 and 15 (port A and port B)]]
*[[Programming:Source code to show it is possible to store data in PSG register 14 and 15 even if the port has been set to input|Source code to show it is possible to store data in PSG register 14 and 15 even if the port has been set to input]]
*[[Programming:Source code to show that some registers always return 0 in some bits|Source code to show that some registers always return 0 in some bits]]
*[[Programming:Source code to show that when a port is read in output mode; the data read will be ANDed with the inputs to that port|Source code to show that when a port is read in output mode; the data read will be ANDed with the inputs to that port]]

== Cross Development ==
*[[Programming:Cross Development|Cross Development]]

[[Category:Source code]]

Source Codes

2011-03-27T14:55:33Z

Matahari: /* Graphics */

[[Category:Programming]]
''This article contains source codes and programming examples. You may also have a look at''
* [[Programming software]]
* [[BIOS Functions]]
* [[Technical documentation]]s
* [[Locomotive BASIC]]
* [[Type Ins]]

== Assembler ==
*[[Z80_-_undocumented_opcodes|Z80 - undocumented opcodes]]
*[[Where to learn?]]

== Algorithms ==
*[[Programming:CPC OS floating point routines|CPC OS floating point routines]]
*[[Programming:CRC16|CRC16]]
*[[Programming:CRC32|CRC32]]
*[[Programming:Integer Division|Integer Division]]
*[[Programming:Integer Multiplication|Integer Multiplication]]
*[[Programming:Ultrafast Multiplication|Ultrafast Multiplication]] by [[Prodatron]]
*[[Programming:Fast Square Root|Fast Square Root]]
*[[Programming:Fast 16 bit Square Root|Fast 16 bit Square Root]] by [[User:Executioner|Executioner]]
*[[Programming:Filling memory with a byte|Filling memory with a byte]]
*[[Programming:Square Root|Square Root]]
*[[Programming:Precalculated square|Precalculated square]]
*[[Programming:Random Number Generator|Random Number Generator]]
*[[Programming:Quicksort|Quicksort]]
*[[Programming:Sin/Cos calculation|Sin/Cos calculation]]

== CP/M ==
*[[Programming:A simple 'Hello World' program for CP/M using BDOS|A simple 'Hello World' program for CP/M using BDOS]]
*[[Programming:A simple 'Hello World' program for CP/M using BIOS|A simple 'Hello World' program for CP/M using BIOS]]
*[[Programming:Executing firmware functions from within CP/M 2.1|Executing firmware functions from within CP/M 2.1]]
*[[Programming:Executing firmware functions from within CP/M 2.1 or CP/M plus|Executing firmware functions from within CP/M 2.1 or CP/M plus]]
*[[Programming:Executing firmware functions from within CP/M 2.1|Executing firmware functions from within CP/M 2.1]]
*[[Programming:Executing firmware functions from within CP/M plus|Executing firmware functions from within CP/M plus]]

== CPC Plus ==
*[[Amstrad CPC plus sprite format]]
*[[Programming:Convert CPC sprites to Plus hardware sprites|Convert CPC sprites to Plus hardware sprites]]
*[[Sprites Multiplexing]]
*[[Programming:CPC Plus Hardware Sprites|Hardware sprites]]
*[[Programming:CPC Plus Horizontal scroll|Horizontal scroll]]
*[[Programming:CPC Plus RLE Hardware Sprites|RLE hardware sprites]]
*[[Programming:CPC Plus Screen Splitting|Screen splitting]]
*[[Programming:CPC Plus Vertical scroll|Vertical scroll]]
*[[Operation of Z80 interrupt mode 0 in the CPC plus design]]
*[[Programming:Simple Raster Example 2 (uses CPC plus features)|Simple Raster Example 1 (uses CPC plus features)]]
*[[Programming:Simple Raster Example 3 (uses CPC plus features)|Simple Raster Example 2 (uses CPC plus features)]]
*[[Programming:Unlocking ASIC|Unlocking ASIC]]

== Devices ==
*[[Programming:CPC Booster|CPC Booster]]
*[[Programming:Digiblaster|Digiblaster]]
*[[Programming:Program to save the ROM of the Multiface 2|Program to save the ROM of the Multiface 2]]
*[[Programming:SYMBiFACE II|SYMBiFACE II]]

== File access ==
*[[Programming:An example to read a file byte-by-byte|An example to read a file byte-by-byte]]
*[[Programming:An example to write a file byte-by-byte|An example to write a file byte-by-byte]]
*[[Programming:A simple file copier using firmware functions (copies byte-by-byte)|A simple file copier using firmware functions (copies byte-by-byte)]]
*[[Programming:Loading a file|Loading a file]]
*[[Programming:Saving a file|Saving a file]]
*[[Programming:Unlocking a protected basic file|Unlocking a protected basic file]]
*[[Programming:Undo delete of file|Undo delete of file]]

== Floppy disk ==
*[[Programming:A simple disc copier using BDOS functions|A simple disc copier using BDOS functions]]
*[[Programming:A simple disc formatter using BDOS functions|A simple disc formatter using BDOS functions]]
*[[Programming:An example loader|An example loader]]
*[[Programming:Catalog a disc and retrieve a directory|Catalog a disc and retrieve a directory]]
*[[Programming:Detecting an Amstrad or Vortex disc controler|Detecting an Amstrad or Vortex disc controler]]
*[[Programming:Formatting a track on a disc|Formatting a track on a disc]]
*[[Programming:Reading a sector from a disc|Reading a sector from a disc]]
*[[Programming:Reading and writing the boot sector of a SYSTEM/VENDOR disc|Reading and writing the boot sector of a SYSTEM/VENDOR disc]]
*[[Programming:Writing a sector to disc|Writing a sector to disc]]

== Graphics ==
*[[Programming:Display a 8-bit number in binary|Display a 8-bit number in binary]]
*[[Programming:Display a 8-bit number in hex|Display a 8-bit number in hex]]
*[[Programming:Display a byte as a 3-digit decimal number|Display a byte as a 3-digit decimal number]]
*[[Programming:Display and update Scores|Display and update Scores]]
*[[Programming:Distorting the screen using register 2 of the CRTC (Horizontal Sync Position)|Distorting the screen using register 2 of the CRTC (Horizontal Sync Position)]]
*[[Programming:Fast plot|Fast plot]]
*[[Programming:Fast Sprites|Fast Sprites]] by [[User:Executioner|Executioner]]
*[[Programming:Fast Textoutput|Fast Textoutput]] by [[Prodatron]]
*[[Programming:Hardware scrolling|Hardware Scrolling]] by [[User:Executioner|Executioner]]
*[[Programming:Hardware scrolling 2|Hardware Scrolling 2]]
*[[Programming:Hardware scrolling the screen horizontally byte-by-byte using the CRTC|Hardware scrolling the screen horizontally byte-by-byte using the CRTC]]
*[[Programming:Hardware scrolling the screen using the CRTC|Hardware scrolling the screen using the CRTC]]
*[[Programming:Next / previous line calculation|Next / previous line calculation]]
*[[Programming:Overscan|Overscan]]
*[[Programming:Plotting a sprite using character matrices|Plotting a sprite using character matrices]]
*[[Programming:Simple Raster Example 1|Simple Raster Example]]
*[[Programming:Simple Split Raster Example 1|Simple Split Raster Example]]
*[[Synchronising with the CRTC and display]]
*[[Programming:CRTC change colour (fill) test with precise timing]]

== Interrupts ==
* [[Reliable use of interrupt mode 2 on the CPC]]

== Keyboard ==
*[[Programming:Keyboard scanning|Keyboard scanning]]

== Other routines ==
*[[Programming:An example boot sector (executed with rsx command CPM)|An example boot sector (executed with rsx command CPM)]]
*[[Programming:An example to define a RSX|An example to define a RSX]]
*[[Programming:Calling a RSX from outside of BASIC|Calling a RSX from outside of BASIC]]
*[[Programming:Dumping the data of BASIC or AMSDOS or an expansion rom|Dumping the data of BASIC or AMSDOS or an expansion rom]]
*[[Programming:Dumping the data of the lower rom|Dumping the data of the lower rom]]

== Sound ==
*[[Programming:Tutorial - Understanding the fundamentals of BASIC SOUND and the Firmware SOUND QUEUE|Tutorial - Understanding the fundamentals of BASIC SOUND and the Firmware SOUND QUEUE]]
*[[Programming:Source code to show 0x0ff is always returned when reading PSG port B|Source code to show 0x0ff is always returned when reading PSG port B]]
*[[Programming:Source code to show it is possible to store data in PSG register 14 and 15 (port A and port B)|Source code to show it is possible to store data in PSG register 14 and 15 (port A and port B)]]
*[[Programming:Source code to show it is possible to store data in PSG register 14 and 15 even if the port has been set to input|Source code to show it is possible to store data in PSG register 14 and 15 even if the port has been set to input]]
*[[Programming:Source code to show that some registers always return 0 in some bits|Source code to show that some registers always return 0 in some bits]]
*[[Programming:Source code to show that when a port is read in output mode; the data read will be ANDed with the inputs to that port|Source code to show that when a port is read in output mode; the data read will be ANDed with the inputs to that port]]

== Cross Development ==
*[[Programming:Cross Development|Cross Development]]

[[Category:Source code]]