home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / armforth / !ARMforth / Examples / Breakout / WallDefs < prev   
Encoding:
Text File  |  1989-12-04  |  6.0 KB  |  213 lines

  1.  
  2. CODE SET-PALETTE ( L / P / R / G / B )
  3.    R0 19 # MOV,
  4.    0 SWI,
  5.    R1 R2 R3 R4 R5 POP,
  6.    R0 R5 MOV,
  7.    0 SWI,
  8.    R0 R4 MOV,
  9.    0 SWI,
  10.    R0 R3 MOV,
  11.    0 SWI,
  12.    R0 R2 MOV,
  13.    0 SWI,
  14.    R0 R1 MOV,
  15.    0 SWI,
  16.    PC R14 MOV,
  17. END-CODE
  18.  
  19. HEX
  20. : INIT-PALETTE
  21.    0 10 0 0 0 SET-PALETTE
  22.    1 10 D0 B0 D0 SET-PALETTE
  23.    2 10 B0 E0 30 SET-PALETTE
  24.    3 10 E0 90 90 SET-PALETTE
  25.    4 10 70 60 C0 SET-PALETTE
  26.    5 10 B0 60 A0 SET-PALETTE
  27.    6 10 90 F0 A0 SET-PALETTE
  28.    7 10 F0 F0 F0 SET-PALETTE
  29.    8 10 0 0 F0 SET-PALETTE
  30.    9 10 E0 E0 0 SET-PALETTE
  31.    A 10 0 C0 0 SET-PALETTE
  32.    B 10 D0 0 0 SET-PALETTE
  33.    C 10 20 C0 B0 SET-PALETTE
  34.    D 10 50 80 0 SET-PALETTE
  35.    E 10 F0 B0 0 SET-PALETTE
  36.    F 10 0 B0 F0 SET-PALETTE
  37.    0 18 70 70 70 SET-PALETTE
  38.    1 19 0 F0 F0 SET-PALETTE
  39.    2 19 0 0 90 SET-PALETTE
  40.    3 19 F0 0 0 SET-PALETTE
  41.    ;
  42.  
  43. DECIMAL
  44. 7 CONSTANT BLANK
  45. 7 CONSTANT BLACK
  46. 11 CONSTANT RED
  47. 10 CONSTANT GREEN
  48. 9 CONSTANT YELLOW
  49. 8 CONSTANT BLUE
  50. 5 CONSTANT MAGENTA
  51. 15 CONSTANT CYAN
  52. 0 CONSTANT WHITE
  53.  
  54. : ANGLE
  55.    1 5 << OR
  56.    ;
  57.  
  58. DEF-WALL WALL1
  59. 64 64 20 6 DEF-WALL-BLOCK WALL-BLOCK1
  60. 1 DEF-WALL-BLOCK-LIST WALL1-BLOCK-LIST
  61.  
  62. DEF-WALL WALL2
  63. 64 64 20 6 DEF-WALL-BLOCK WALL-BLOCK2
  64. 1 DEF-WALL-BLOCK-LIST WALL2-BLOCK-LIST
  65.  
  66. DEF-WALL WALL3
  67. 64 64 20 6 DEF-WALL-BLOCK WALL-BLOCK3
  68. 1 DEF-WALL-BLOCK-LIST WALL3-BLOCK-LIST
  69.  
  70. DEF-WALL WALL4
  71. 64 64 20 6 DEF-WALL-BLOCK WALL-BLOCK4
  72. 1 DEF-WALL-BLOCK-LIST WALL4-BLOCK-LIST
  73.  
  74. DEF-WALL WALL5
  75. 64 64 20 6 DEF-WALL-BLOCK WALL-BLOCK5
  76. 1 DEF-WALL-BLOCK-LIST WALL5-BLOCK-LIST
  77.  
  78. : WALL-BLOCK1-ROW1
  79.    RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10
  80.    RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10
  81.    RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10
  82.    RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10
  83.    RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10
  84.    ;
  85.  
  86. : WALL-BLOCK1-ROW2
  87.    YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10
  88.    YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10
  89.    YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10
  90.    YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10
  91.    YELLOW ANGLE 10 RED ANGLE 10 YELLOW ANGLE 10 RED ANGLE 10
  92.    ;
  93.  
  94. : WALL-BLOCK2-ROW1
  95.    RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20
  96.    RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20
  97.    RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20
  98.    RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20
  99.    RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20
  100.    ;
  101.  
  102. : WALL-BLOCK2-ROW2
  103.    GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20
  104.    GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20
  105.    GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20
  106.    GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20
  107.    GREEN ANGLE 20 RED ANGLE 20 GREEN ANGLE 20 RED ANGLE 20
  108.    ;
  109.  
  110. : WALL-BLOCK3-ROW1
  111.    BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30
  112.    BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30
  113.    BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30
  114.    BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30
  115.    BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30
  116.    ;
  117.  
  118. : WALL-BLOCK3-ROW2
  119.    GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30
  120.    GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30
  121.    GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30
  122.    GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30
  123.    GREEN ANGLE 30 BLUE ANGLE 30 GREEN ANGLE 30 BLUE ANGLE 30
  124.    ;
  125.  
  126. : WALL-BLOCK4-ROW1
  127.    YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40
  128.    YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40
  129.    YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40
  130.    YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40
  131.    YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40
  132.    ;
  133.  
  134. : WALL-BLOCK4-ROW2
  135.    CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40
  136.    CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40
  137.    CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40
  138.    CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40
  139.    CYAN ANGLE 40 YELLOW ANGLE 40 CYAN ANGLE 40 YELLOW ANGLE 40
  140.    ;
  141.  
  142. : WALL-BLOCK5-ROW1
  143.    MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50
  144.    MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50
  145.    MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50
  146.    MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50
  147.    MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50
  148.    ;
  149.  
  150. : WALL-BLOCK5-ROW2
  151.    GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50
  152.    GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50
  153.    GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50
  154.    GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50
  155.    GREEN ANGLE 50 MAGENTA ANGLE 50 GREEN ANGLE 50 MAGENTA ANGLE 50
  156.    ;
  157.  
  158. : CREATE-BLOCK1
  159.    6 0 DO
  160.       WALL-BLOCK1-ROW1 I WALL-BLOCK1 DEF-WALL-BLOCK-ROW
  161.       WALL-BLOCK1-ROW2 I 1+ WALL-BLOCK1 DEF-WALL-BLOCK-ROW
  162.    2 +LOOP
  163.    ;
  164.  
  165. : CREATE-BLOCK2
  166.    6 0 DO
  167.       WALL-BLOCK2-ROW1 I WALL-BLOCK2 DEF-WALL-BLOCK-ROW
  168.       WALL-BLOCK2-ROW2 I 1+ WALL-BLOCK2 DEF-WALL-BLOCK-ROW
  169.    2 +LOOP
  170.    ;
  171.  
  172. : CREATE-BLOCK3
  173.    6 0 DO
  174.       WALL-BLOCK3-ROW1 I WALL-BLOCK3 DEF-WALL-BLOCK-ROW
  175.       WALL-BLOCK3-ROW2 I 1+ WALL-BLOCK3 DEF-WALL-BLOCK-ROW
  176.    2 +LOOP
  177.    ;
  178.  
  179. : CREATE-BLOCK4
  180.    6 0 DO
  181.       WALL-BLOCK4-ROW1 I WALL-BLOCK4 DEF-WALL-BLOCK-ROW
  182.       WALL-BLOCK4-ROW2 I 1+ WALL-BLOCK4 DEF-WALL-BLOCK-ROW
  183.    2 +LOOP
  184.    ;
  185.  
  186. : CREATE-BLOCK5
  187.    6 0 DO
  188.       WALL-BLOCK5-ROW1 I WALL-BLOCK5 DEF-WALL-BLOCK-ROW
  189.       WALL-BLOCK5-ROW2 I 1+ WALL-BLOCK5 DEF-WALL-BLOCK-ROW
  190.    2 +LOOP
  191.    ;
  192.  
  193. CREATE-BLOCK1
  194. 0 550 WALL-BLOCK1 WALL1-BLOCK-LIST 0 INSERT-LIST-ELT
  195. WALL1-BLOCK-LIST WALL1 ATTACH-LIST
  196.  
  197. CREATE-BLOCK2
  198. 0 550 WALL-BLOCK2 WALL2-BLOCK-LIST 0 INSERT-LIST-ELT
  199. WALL2-BLOCK-LIST WALL2 ATTACH-LIST
  200.  
  201. CREATE-BLOCK3
  202. 0 550 WALL-BLOCK3 WALL3-BLOCK-LIST 0 INSERT-LIST-ELT
  203. WALL3-BLOCK-LIST WALL3 ATTACH-LIST
  204.  
  205. CREATE-BLOCK4
  206. 0 550 WALL-BLOCK4 WALL4-BLOCK-LIST 0 INSERT-LIST-ELT
  207. WALL4-BLOCK-LIST WALL4 ATTACH-LIST
  208.  
  209. CREATE-BLOCK5
  210. 0 550 WALL-BLOCK5 WALL5-BLOCK-LIST 0 INSERT-LIST-ELT
  211. WALL5-BLOCK-LIST WALL5 ATTACH-LIST
  212.  
  213.