Kickstart 10L (MSX 2) by Roberto Capuano

# Kickstart10L

Kickstart10L is an implementation in MSX2 BASIC of Amiga bootstrap image.

Reference:

https://retrocomputing.stackexchange.com/questions/13897/why-was-the-kickstart-1...


Sources are stored at: https://github.com/robertocapuano/Kickstart10L

# Source Description

```

1 data FF,01,23,0B,3A,0B,3A,21,71,21,71,0B,7D,0B,88,16,88,5E,7F,5E,7F,38,40,38,3E,36,35,36,34,38,2D,38,2D,41,23,48,23,0B,FE,02,25,45,FF,01,21,48,21,0A,7E,0A,8A,16,8A,5F,56,5F,56,64,52,6C,4E,71,4A,74,44,7D,3C,81,3C,8C,0A,8C

2 data 0A,6D,09,6D,09,51,0D,4B,14,45,15,41,19,3A,1E,37,21,36,21,36,1E,38,1A,3A,16,41,15,45,0E,4B,0A,51,0A,6C,0B,6D,0B,8B,28,8B,28,76,30,76,34,72,34,5F,32,5C,32,52,41,45,41,39,3E,37,3B,37,3E,3A,3E,41,3D,42,36,42,33,3F,2A,46

3 data 1E,4C,12,55,12,54,1E,4B,1A,4A,17,47,1A,49,1E,4A,21,48,FF,01,32,3D,34,36,3C,37,3D,3A,3D,41,36,41,32,3D,FF,01,33,5C,33,52,42,45,42,39,7D,39,7D,5E,34,5E,33,5A,FF,01,3C,0B,6F,0B,6F,20,3C,20,3C,0B,FF,01,60,0E,6B,0E,6B,1C

4 data 60,1C,60,0E,FE,03,3E,1F,FF,01,62,0F,69,0F,69,1B,62,1B,62,0F,FE,02,63,1A,FF,01,2F,39,32,39,32,3B,2F,3F,2F,39,FF,01,29,8B,29,77,30,77,35,72,35,69,39,6B,41,6B,41,6D,45,72,49,72,49,74,43,7D,3B,80,3B,8B,29,8B,FF,01,35,5F

5 data 35,64,3A,61,35,5F,FF,01,39,62,35,64,35,5F,4A,5F,40,69,3F,69,41,67,3C,62,39,62,FF,01,4E,5F,55,5F,55,64,51,6C,4E,70,49,71,46,71,43,6D,43,6A,4E,5F,FF,01,44,6A,44,6D,46,70,48,70,4C,6F,4D,6C,49,69,44,6A,FF,01,36,68,3E,6A

6 data 40,67,3C,63,39,63,36,65,36,68,FF,01,7E,0B,89,16,89,5E,FE,01,22,0B,FE,01,3B,0B,FE,01,61,0F,FE,01,6A,1B,FE,01,70,0F,FE,01,7E,5E,FE,01,4B,60,FE,01,2E,39,FF,FF

```

- Original vector data

```

7 color 1,15,15:SCREEN 5,3,0: cls :KEYOFF:DEFINTA-Z: :open"grp:"as#1:M=0:I=0:C(0)=4:C(1)=1:C(2)=4:c(3)=14: SX=50:SY=25

```

- color 1,15,15: black on white

- SCREEN 5,3,0: set graphics mode

- KEYOFF: hide function keys

- CLS: clear screen

- DEFINTA-Z: use integer variables

- open"grp:"as#1: open graphic channel

- M=0: render mode

- C(0)=4:C(1)=1:C(2)=4:c(3)=14: color palette

- SX=50:SY=25: screen position

```

8 READ R$:R=VAL("&H"+R$):READ T$:T=VAL("&H"+T$):if R=255 and T=255 then M=255:goto100: else if  R>=254 then C=C(T): M=1+-5*(R=254):goto8

```

- read 2 bytes from data: R, T

- if R=255 and T=255 stream ended

- C=C(T): M=1+-5*(R=254): draw mode

```

10 if M=1 then X=R: Y=T:M=2:else if M=2then LINE (X+SX,Y+SY)-(R+SX,T+SY) :M=3: else if M=3 then  LINE-(R+SX,T+SY):else paint(R+SX,T+SY),C,1:M=0

```

- Draw mode 1 (M=1) draws polygons using points from the stream

- Draw mode 2 (M=2) fills area with a color

```

100 if M<>255 then 8: else : pset(103,108): print#1,"Kickstart": goto 100

```

- Mode 255 terminates rendering and draws "kickstart" message.