;
;        ____     ___        ___     ___ ___ ___ ___ ____      ___ ___ ___
;         /  /__//_         /__ /  //_ //__ /  //_    /  / / //_ //__//_  
;        /  /  //__        ___//__//__/___//__//     /  /_/_//  //  \/__  
;
;-----------------------------------------------------------------------------
;   - FOR ABO'S CONTACT US AT:   BP:28 1170 WATERMAEL-BOITSFORT 1 BELGIUM!!...
;
;-----------------------------------------------------------------------------
;                           - DON'T SEND ANY DISKS -
;
;-----------------------------------------------------------------------------
;
;
;
;                       THE LEGENDARY >> SUBSOFTWARE << IN 87/88/89/90/91!!...
;                       ------------------------------------------------------
;

start:
dc.l    "VECT"

start2:
dc.l avionPoints-start2,avionSurface-start2
dc.w 500
dc.w 0,$44f,$c,$8,$aaa,$888,$666,$f00
dc.w 1
dc.w 0
dc.l avionInit-start2
dc.l avion1-start2

avionInit:
        lea avionp1(pc),a1
        move.w #0,(a1)
        rts
avionp1:dc.w 0

avion1: lea sinus(pc),a1
        move.w avionp1(pc),d0
        addq.w #4,d0
        cmp.w #sinusend-sinus,d0
        blo ohoh
        moveq #0,d0
ohoh:   lea avionp1(pc),a2
        move.w d0,(a2)
        lea (a1,d0.w),a1

        lea avionp(pc),a2
        lea avion2p(pc),a3
        move.w (a1),12(a2)
        move.w 4(a1),6(a2)
        move.w 8(a1),12*2(a2)
        move.w 12(a1),12*3(a2)
        move.w 16(a1),12*4(a2)
        move.w 20(a1),12*5(a2)
        move.w (a1),(a3)
        move.w 4(a1),18(a3)
        move.w 8(a1),18+12(a3)
        move.w 12(a1),18+[12*2](a3)
        move.w 16(a1),18+[12*3](a3)
        move.w 20(a1),18+[12*4](a3)
        rts

;-------------------------------------------------------------------------
; Table des sinus
;-------------------------------------------------------------------------

sinus:
dc.w 43 , 47 , 51 , 55 , 59 , 62 , 65
dc.w 68 , 71 , 73 , 75 , 77 , 78 , 79 , 79
dc.w 79 , 79 , 78 , 77 , 76 , 74 , 72 , 69
dc.w 67 , 63 , 60 , 57 , 53 , 49 , 45 , 41
dc.w 37 , 33 , 29 , 25 , 22 , 18 , 15 , 12
dc.w 9 , 7 , 5 , 3 , 1 , 0 , 0 , 0
dc.w 0 , 0 , 1 , 2 , 4 , 6 , 9 , 11
dc.w 14 , 17 , 21 , 25 , 28 , 32 , 36 , 40

sinusend:
dc.w 43 , 47 , 51 , 55 , 59 , 62 , 65
dc.w 68 , 71 , 73 , 75 , 77 , 78 , 79 , 79
dc.w 79 , 79 , 78 , 77 , 76 , 74 , 72 , 69
dc.w 67 , 63 , 60 , 57 , 53 , 49 , 45 , 41
dc.w 37 , 33 , 29 , 25 , 22 , 18 , 15 , 12
dc.w 9 , 7 , 5 , 3 , 1 , 0 , 0 , 0
dc.w 0 , 0 , 1 , 2 , 4 , 6 , 9 , 11
dc.w 14 , 17 , 21 , 25 , 28 , 32 , 36 , 40

avionPoints:
dc.w 36
dc.w -20,-90,40
dc.w 20,-90,40
dc.w 20,10,40
dc.w -20,10,40
dc.w -10,-60,30
dc.w 10,-60,30
dc.w 10,0,30
dc.w -10,0,30
dc.w -10,-60,50
dc.w 10,-60,50
dc.w 10,0,50
dc.w -10,0,50
dc.w 20,-50

avionp:
dc.w 40
dc.w 80,-50,40
dc.w 60,-60,40
dc.w 20,-60,40
dc.w 90,-40,40
dc.w 20,-40,40
dc.w 90,-30,40
dc.w 20,-30,40
dc.w 80,-20,40
dc.w 20,-20,40
dc.w 60,-10,40
dc.w 20,-10,40
dc.w -60,-60

avion2p:
dc.w 40
dc.w -20,-60,40
dc.w -20,-50,40
dc.w -80,-50,40
dc.w -20,-40,40
dc.w -90,-40,40
dc.w -20,-30,40
dc.w -90,-30,40
dc.w -20,-20,40
dc.w -80,-20,40
dc.w -20,-10,40
dc.w -60,-10,40

avionSurface:
dc.w 19
dc.w 4,1,4,5,6,7,4
dc.w 4,1,8,11,10,9,8
dc.w 4,2,4,0,1,5,4
dc.w 4,3,5,1,2,6,5
dc.w 4,2,6,2,3,7,6
dc.w 4,3,7,3,0,4,7
dc.w 4,3,8,9,1,0,8
dc.w 4,2,9,10,2,1,9
dc.w 4,3,10,11,3,2,10
dc.w 4,2,11,8,0,3,11
dc.w $1004,4,12,13,14,15,12
dc.w $1004,5,12,13,16,17,12
dc.w $1004,4,17,16,18,19,17
dc.w $1004,5,19,18,20,21,19
dc.w $1004,4,21,20,22,23,21
dc.w $1004,5,24,25,26,27,24
dc.w $1004,4,27,26,28,29,27
dc.w $1004,5,29,28,30,31,29
dc.w $1004,4,31,30,32,33,31
dc.w $1004,5,33,32,34,35,33

end: