;; ======================================================================== ;; IF (DEFINED @@rock1) = 0 @@rock1 EQU ((RCS1.rock1 - RCS1 + 1) SHL 8) @@rock2 EQU ((RCS1.rock2 - RCS1 + 1) SHL 8) @@rock3 EQU ((RCS1.rock3 - RCS1 + 1) SHL 8) @@crat1 EQU ((RCS1.crat1 - RCS1 + 1) SHL 8) @@crat2 EQU ((RCS1.crat2 - RCS1 + 1) SHL 8) @@crat3 EQU ((RCS1.crat3 - RCS1 + 1) SHL 8) @@crat4 EQU ((RCS1.crat4 - RCS1 + 1) SHL 8) @@blank EQU ((RCS1.blank - RCS1 + 1) SHL 8) @@caut0 EQU $1C00 @@caut1 EQU $1D00 @@caut2 EQU $1E00 @@caut3 EQU $1F00 @@level EQU $2000 @@exit EQU $6000 @@cue EQU $8000 ENDI ;; ======================================================================== ;; @@ckpt_0a: DECLE @@blank + ( 37 - 1) ; $0000 0 BLANK DECLE @@cue + ( 2 - 1) + CUE.3_pink_b ; $0001 37 CUE '3_pink_b' DECLE @@rock2 + ( 7 - 1) ; $0002 39 ROCK2 DECLE @@cue + ( 10 - 1) + CUE.1_turret ; $0003 46 CUE '1_turret' DECLE @@cue + ( 9 - 1) + CUE.1_turret ; $0004 56 CUE '1_turret' DECLE @@rock3 + ( 9 - 1) ; $0005 65 ROCK3 DECLE @@exit + ( 1 - 1) + EXIT.pink_b ; $0006 74 EXIT 'pink_b' DECLE @@caut3 + ( 2 - 1) ; $0007 75 CAUTION 3 DECLE @@exit + ( 3 - 1) + EXIT.pink_a ; $0008 77 EXIT 'pink_a' DECLE @@level + ( 1 - 1) + ( 0 SHL 8) ; $0009 80 LEVEL 'A' @@ckpt_0b: DECLE @@blank + ( 6 - 1) ; $000A 81 BLANK DECLE @@cue + ( 4 - 1) + CUE.follower ; $000B 87 CUE 'follower' DECLE @@cue + ( 1 - 1) + CUE.1_blu2_b ; $000C 91 CUE '1_blu2_b' DECLE @@cue + ( 1 - 1) + CUE.1_blue_c ; $000D 92 CUE '1_blue_c' DECLE @@exit + ( 10 - 1) + EXIT.flexit ; $000E 93 EXIT 'flexit' DECLE @@exit + ( 9 - 1) + EXIT.flexit ; $000F 103 EXIT 'flexit' DECLE @@exit + ( 5 - 1) + EXIT.flexit ; $0010 112 EXIT 'flexit' DECLE @@exit + ( 2 - 1) + EXIT.blue_c ; $0011 117 EXIT 'blue_c' DECLE @@exit + ( 2 - 1) + EXIT.blu2_b ; $0012 119 EXIT 'blu2_b' DECLE @@cue + ( 2 - 1) + CUE.1_blu2_a ; $0013 121 CUE '1_blu2_a' DECLE @@caut3 + ( 8 - 1) ; $0014 123 CAUTION 3 DECLE @@cue + ( 2 - 1) + CUE.1_blu2_b ; $0015 131 CUE '1_blu2_b' DECLE @@cue + ( 7 - 1) + CUE.follower ; $0016 133 CUE 'follower' DECLE @@cue + ( 4 - 1) + CUE.1_whit_b ; $0017 140 CUE '1_whit_b' DECLE @@exit + ( 10 - 1) + EXIT.flexit ; $0018 144 EXIT 'flexit' DECLE @@exit + ( 16 - 1) + EXIT.flexit ; $0019 154 EXIT 'flexit' DECLE @@exit + ( 2 - 1) + EXIT.flexit ; $001A 170 EXIT 'flexit' DECLE @@exit + ( 1 - 1) + EXIT.whit_b ; $001B 172 EXIT 'whit_b' DECLE @@level + ( 1 - 1) + ( 1 SHL 8) ; $001C 173 LEVEL 'B' @@ckpt_0c: DECLE @@blank + ( 5 - 1) ; $001D 174 BLANK DECLE @@rock3 + ( 6 - 1) ; $001E 179 ROCK3 DECLE @@cue + ( 2 - 1) + CUE.3_pink_e ; $001F 185 CUE '3_pink_e' DECLE @@rock2 + ( 6 - 1) ; $0020 187 ROCK2 DECLE @@rock1 + ( 3 - 1) ; $0021 193 ROCK1 DECLE @@rock1 + ( 4 - 1) ; $0022 196 ROCK1 DECLE @@rock2 + ( 5 - 1) ; $0023 200 ROCK2 DECLE @@rock3 + ( 2 - 1) ; $0024 205 ROCK3 DECLE @@cue + ( 2 - 1) + CUE.3_blue_e ; $0025 207 CUE '3_blue_e' DECLE @@rock2 + ( 5 - 1) ; $0026 209 ROCK2 DECLE @@rock3 + ( 7 - 1) ; $0027 214 ROCK3 DECLE @@rock3 + ( 7 - 1) ; $0028 221 ROCK3 DECLE @@crat2 + ( 12 - 1) ; $0029 228 CRAT2 DECLE @@crat2 + ( 10 - 1) ; $002A 240 CRAT2 DECLE @@cue + ( 5 - 1) + CUE.1_turret ; $002B 250 CUE '1_turret' DECLE @@crat2 + ( 12 - 1) ; $002C 255 CRAT2 DECLE @@level + ( 1 - 1) + ( 2 SHL 8) ; $002D 267 LEVEL 'C' @@ckpt_0d: DECLE @@blank + ( 9 - 1) ; $002E 268 BLANK DECLE @@cue + ( 2 - 1) + CUE.1_turret ; $002F 277 CUE '1_turret' DECLE @@cue + ( 11 - 1) + CUE.3_blu2_e ; $0030 279 CUE '3_blu2_e' DECLE @@crat2 + ( 7 - 1) ; $0031 290 CRAT2 DECLE @@cue + ( 13 - 1) + CUE.1_turret ; $0032 297 CUE '1_turret' DECLE @@cue + ( 2 - 1) + CUE.1_turret ; $0033 310 CUE '1_turret' DECLE @@cue + ( 5 - 1) + CUE.3_pin2_d ; $0034 312 CUE '3_pin2_d' DECLE @@cue + ( 2 - 1) + CUE.1_turret ; $0035 317 CUE '1_turret' DECLE @@crat3 + ( 10 - 1) ; $0036 319 CRAT3 DECLE @@rock3 + ( 7 - 1) ; $0037 329 ROCK3 DECLE @@rock3 + ( 6 - 1) ; $0038 336 ROCK3 DECLE @@rock3 + ( 4 - 1) ; $0039 342 ROCK3 DECLE @@rock3 + ( 11 - 1) ; $003A 346 ROCK3 DECLE @@cue + ( 3 - 1) + CUE.1_turret ; $003B 357 CUE '1_turret' DECLE @@level + ( 1 - 1) + ( 3 SHL 8) ; $003C 360 LEVEL 'D' @@ckpt_0e: DECLE @@blank + ( 7 - 1) ; $003D 361 BLANK DECLE @@cue + ( 4 - 1) + CUE.1_turret ; $003E 368 CUE '1_turret' DECLE @@cue + ( 14 - 1) + CUE.3_whit_c ; $003F 372 CUE '3_whit_c' DECLE @@crat1 + ( 14 - 1) ; $0040 386 CRAT1 DECLE @@crat1 + ( 1 - 1) ; $0041 400 CRAT1 DECLE @@cue + ( 2 - 1) + CUE.3_whi2_d ; $0042 401 CUE '3_whi2_d' DECLE @@crat1 + ( 30 - 1) ; $0043 403 CRAT1 DECLE @@crat1 + ( 1 - 1) ; $0044 433 CRAT1 DECLE @@cue + ( 10 - 1) + CUE.3_whi2_a ; $0045 434 CUE '3_whi2_a' DECLE @@cue + ( 8 - 1) + CUE.1_turret ; $0046 444 CUE '1_turret' DECLE @@cue + ( 1 - 1) + CUE.1_turret ; $0047 452 CUE '1_turret' DECLE @@level + ( 1 - 1) + ( 36 SHL 8) ; $0048 453 LEVEL 'k' DECLE @@blank + ( 1 - 1) ; $0049 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 37 ;; TOTAL OBJECTS 37 ;; TOTAL WORDS 74 ;; ======================================================================== ;;