mads 2.1.7 build 3 (13 Sep 23)
Source: shapes.asm
     1 				;   @com.wudsn.ide.asm.mainsourcefile=dino.asm
     2
     3 				    .IF *>0 ;this is a trick that prevents compiling this file alone
     4
     5 				; dno run
     6 				dino_run_0  ; anly '0' jumps
     7 				    .by $ff, $23, $27, $2b, $ff ; '.   .'
     8 				    .by $20, $24, $28, $2c, $ff ; ' ## .'
     9 				    .by $21, $25, $29, $ff, $ff ; '## ..'
    10 				    .by $22, $26, $2a, $ff, $ff ; '## ..'
    11 				dino_run_1
    12 				    .by $ff, $23, $27, $2b, $ff ; '.   .'
    13 				    .by $20, $24, $28, $2c, $ff ; ' ## .'
    14 				    .by $21, $25, $29, $ff, $ff ; '## ..'
    15 				    .by $2d, $2e, $2f, $ff, $ff ; '## ..'
    16 				dino_run_2
    17 				    .by $ff, $23, $27, $2b, $ff ; '.   .'
    18 				    .by $20, $24, $28, $2c, $ff ; ' ## .'
    19 				    .by $21, $25, $29, $ff, $ff ; '## ..'
    20 				    .by $30, $31, $32, $ff, $ff ; '## ..'
    21 				dino_crouch_1
    22 				    .by $ff, $ff, $ff, $ff, $ff ; '.....'
    23 				    .by $ff, $ff, $ff, $ff, $ff ; '.....'
    24 				    .by $33, $34, $35, $36, $37 ; '#### '
    25 				    .by $38, $39, $3a, $3b, $3c ; '#### '
    26 				dino_crouch_2
    27 				    .by $ff, $ff, $ff, $ff, $ff ; '.....'
    28 				    .by $ff, $ff, $ff, $ff, $ff ; '.....'
    29 				    .by $33, $34, $35, $36, $37 ; '#### '
    30 				    .by $3d, $3e, $3f, $3b, $3c ; '#### '
    31 				DinoShapesTableL
    32 				    .by <dino_run_0
    33 				    .by <dino_run_1
    34 				    .by <dino_run_2
    35 				    .by <dino_crouch_1
    36 				    .by <dino_crouch_2
    37 				DinoShapesTableH
    38 				    .by >dino_run_0
    39 				    .by >dino_run_1
    40 				    .by >dino_run_2
    41 				    .by >dino_crouch_1
    42 				    .by >dino_crouch_2
    43 				; other objects
    44 				ground_0
    45 				    .by $ff, $ff    ; '..'
    46 				    .by $ff, $ff    ; '..'
    47 				    .by $ff, $ff    ; '..'
    48 				    .by $52, $ff    ; '#.'
    49 				bird_0
    50 				    .by $ff, $ff    ; '..'
    51 				    .by $ff, $ff    ; '..'
    52 				    .by $40, $41    ; '##'
    53 				    .by $52, $ff    ; '#.'
    54 				bird_1
    55 				    .by $ff, $ff    ; '..'
    56 				    .by $40, $41    ; '##'
    57 				    .by $ff, $ff    ; '..'
    58 				    .by $52, $ff    ; '#.'
    59 				bird_2
    60 				    .by $40, $41    ; '##'
    61 				    .by $ff, $ff    ; '..'
    62 				    .by $ff, $ff    ; ''.'
    63 				    .by $52, $ff    ; '#.'
    64 				bird_0a
    65 				    .by $ff, $ff    ; '..'
    66 				    .by $ff, $ff    ; '..'
    67 				    .by $42, $43    ; '##'
    68 				    .by $52, $ff    ; '#.'
    69 				bird_1a
    70 				    .by $ff, $ff    ; '..'
    71 				    .by $42, $43    ; '##'
    72 				    .by $ff, $ff    ; '..'
    73 				    .by $52, $ff    ; '#.'
    74 				bird_2a
    75 				    .by $42, $43    ; '##'
    76 				    .by $ff, $ff    ; '..'
    77 				    .by $ff, $ff    ; ''.'
    78 				    .by $52, $ff    ; '#.'
    79 				cactus_0
    80 				    .by $ff, $ff    ; '..'
    81 				    .by $54, $54    ; '##'
    82 				    .by $54, $54    ; '##'
    83 				    .by $52, $52    ; '##'
    84
    85 				ShapesTableL
    86 				    .by <ground_0
    87 				    .by <bird_0
    88 				    .by <bird_0a
    89 				    .by <bird_1
    90 				    .by <bird_1a
    91 				    .by <bird_2
    92 				    .by <bird_2a
    93 				    .by <cactus_0
    94 				ShapesTableH
    95 				    .by >ground_0
    96 				    .by >bird_0
    97 				    .by >bird_0a
    98 				    .by >bird_1
    99 				    .by >bird_1a
   100 				    .by >bird_2
   101 				    .by >bird_2a
   102 				    .by >cactus_0
   103 				diff_object_gap ; min distance between obstacles by difficulty level
   104 				    :DIFF_LEVELS .by 20-#
   105 				;----------vars----------
   106 				diff_level  .ds 1
   107
   108 				   
   109 				.endif  ; .IF *>0