;; ======================================================================== ;; 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 + ( 20 - 1) ; $0000 0 BLANK DECLE @@cue + ( 14 - 1) + CUE.1_turret ; $0001 20 CUE '1_turret' DECLE @@cue + ( 7 - 1) + CUE.1_turret ; $0002 34 CUE '1_turret' DECLE @@cue + ( 1 - 1) + CUE.1_plbig ; $0003 41 CUE '1_plbig' DECLE @@crat2 + ( 14 - 1) ; $0004 42 CRAT2 DECLE @@cue + ( 5 - 1) + CUE.1_turret ; $0005 56 CUE '1_turret' DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0006 61 CUE '1_plant' DECLE @@crat1 + ( 6 - 1) ; $0007 62 CRAT1 DECLE @@cue + ( 7 - 1) + CUE.1_turret ; $0008 68 CUE '1_turret' DECLE @@caut3 + ( 2 - 1) ; $0009 75 CAUTION 3 DECLE @@cue + ( 3 - 1) + CUE.1_turret ; $000A 77 CUE '1_turret' DECLE @@level + ( 1 - 1) + ( 0 SHL 8) ; $000B 80 LEVEL 'A' @@ckpt_0b: DECLE @@blank + ( 1 - 1) ; $000C 81 BLANK DECLE @@caut3 + ( 3 - 1) ; $000D 82 CAUTION 3 DECLE @@cue + ( 20 - 1) + CUE.charger5 ; $000E 85 CUE 'charger5' DECLE @@exit + ( 14 - 1) + EXIT.flexit ; $000F 105 EXIT 'flexit' DECLE @@exit + ( 5 - 1) + EXIT.flexit ; $0010 119 EXIT 'flexit' DECLE @@rock2 + ( 5 - 1) ; $0011 124 ROCK2 DECLE @@cue + ( 10 - 1) + CUE.2_blue_a ; $0012 129 CUE '2_blue_a' DECLE @@exit + ( 7 - 1) + EXIT.flexit ; $0013 139 EXIT 'flexit' DECLE @@rock2 + ( 2 - 1) ; $0014 146 ROCK2 DECLE @@exit + ( 4 - 1) + EXIT.flexit ; $0015 148 EXIT 'flexit' DECLE @@crat2 + ( 17 - 1) ; $0016 152 CRAT2 DECLE @@exit + ( 2 - 1) + EXIT.flexit ; $0017 169 EXIT 'flexit' DECLE @@exit + ( 1 - 1) + EXIT.blue_a ; $0018 171 EXIT 'blue_a' DECLE @@exit + ( 1 - 1) + EXIT.flexit ; $0019 172 EXIT 'flexit' DECLE @@level + ( 1 - 1) + ( 1 SHL 8) ; $001A 173 LEVEL 'B' @@ckpt_0c: DECLE @@blank + ( 7 - 1) ; $001B 174 BLANK DECLE @@rock1 + ( 1 - 1) ; $001C 181 ROCK1 DECLE @@cue + ( 4 - 1) + CUE.2_blue_b ; $001D 182 CUE '2_blue_b' DECLE @@rock1 + ( 5 - 1) ; $001E 186 ROCK1 DECLE @@rock1 + ( 4 - 1) ; $001F 191 ROCK1 DECLE @@rock1 + ( 5 - 1) ; $0020 195 ROCK1 DECLE @@rock2 + ( 5 - 1) ; $0021 200 ROCK2 DECLE @@rock2 + ( 4 - 1) ; $0022 205 ROCK2 DECLE @@rock3 + ( 5 - 1) ; $0023 209 ROCK3 DECLE @@rock2 + ( 5 - 1) ; $0024 214 ROCK2 DECLE @@rock3 + ( 6 - 1) ; $0025 219 ROCK3 DECLE @@cue + ( 1 - 1) + CUE.2_whit_a ; $0026 225 CUE '2_whit_a' DECLE @@rock2 + ( 9 - 1) ; $0027 226 ROCK2 DECLE @@rock3 + ( 9 - 1) ; $0028 235 ROCK3 DECLE @@rock2 + ( 8 - 1) ; $0029 244 ROCK2 DECLE @@rock1 + ( 7 - 1) ; $002A 252 ROCK1 DECLE @@rock1 + ( 5 - 1) ; $002B 259 ROCK1 DECLE @@rock2 + ( 1 - 1) ; $002C 264 ROCK2 DECLE @@exit + ( 2 - 1) + EXIT.blue_b ; $002D 265 EXIT 'blue_b' DECLE @@level + ( 1 - 1) + ( 2 SHL 8) ; $002E 267 LEVEL 'C' @@ckpt_0d: DECLE @@blank + ( 9 - 1) ; $002F 268 BLANK DECLE @@rock2 + ( 9 - 1) ; $0030 277 ROCK2 DECLE @@cue + ( 2 - 1) + CUE.3_pink_b ; $0031 286 CUE '3_pink_b' DECLE @@rock2 + ( 6 - 1) ; $0032 288 ROCK2 DECLE @@rock1 + ( 10 - 1) ; $0033 294 ROCK1 DECLE @@cue + ( 11 - 1) + CUE.1_turret ; $0034 304 CUE '1_turret' DECLE @@cue + ( 10 - 1) + CUE.1_turret ; $0035 315 CUE '1_turret' DECLE @@cue + ( 3 - 1) + CUE.1_turret ; $0036 325 CUE '1_turret' DECLE @@cue + ( 1 - 1) + CUE.2_whit_b ; $0037 328 CUE '2_whit_b' DECLE @@rock1 + ( 11 - 1) ; $0038 329 ROCK1 DECLE @@crat2 + ( 18 - 1) ; $0039 340 CRAT2 DECLE @@cue + ( 2 - 1) + CUE.1_turret ; $003A 358 CUE '1_turret' DECLE @@level + ( 1 - 1) + ( 3 SHL 8) ; $003B 360 LEVEL 'D' @@ckpt_0e: DECLE @@blank + ( 6 - 1) ; $003C 361 BLANK DECLE @@cue + ( 4 - 1) + CUE.3_blue_c ; $003D 367 CUE '3_blue_c' DECLE @@cue + ( 4 - 1) + CUE.1_turret ; $003E 371 CUE '1_turret' DECLE @@crat2 + ( 13 - 1) ; $003F 375 CRAT2 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0040 388 CUE '1_plant' DECLE @@crat1 + ( 8 - 1) ; $0041 389 CRAT1 DECLE @@cue + ( 13 - 1) + CUE.2_whit_c ; $0042 397 CUE '2_whit_c' DECLE @@crat2 + ( 10 - 1) ; $0043 410 CRAT2 DECLE @@cue + ( 33 - 1) + CUE.3_pink_c ; $0044 420 CUE '3_pink_c' DECLE @@level + ( 1 - 1) + ( 36 SHL 8) ; $0045 453 LEVEL 'k' DECLE @@blank + ( 1 - 1) ; $0046 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 30 ;; TOTAL OBJECTS 41 ;; TOTAL WORDS 71 ;; ======================================================================== ;;