;; ======================================================================== ;; 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 + ( 15 - 1) ; $0000 0 BLANK DECLE @@cue + ( 5 - 1) + CUE.1_pink_a ; $0001 15 CUE '1_pink_a' DECLE @@cue + ( 10 - 1) + CUE.1_blu2_a ; $0002 20 CUE '1_blu2_a' DECLE @@rock2 + ( 10 - 1) ; $0003 30 ROCK2 DECLE @@cue + ( 15 - 1) + CUE.1_pin2_b ; $0004 40 CUE '1_pin2_b' DECLE @@cue + ( 12 - 1) + CUE.2_blue_b ; $0005 55 CUE '2_blue_b' DECLE @@exit + ( 9 - 1) + EXIT.pink_a ; $0006 67 EXIT 'pink_a' DECLE @@exit + ( 4 - 1) + EXIT.blu2_a ; $0007 76 EXIT 'blu2_a' DECLE @@level + ( 1 - 1) + ( 0 SHL 8) ; $0008 80 LEVEL 'A' @@ckpt_0b: DECLE @@blank + ( 7 - 1) ; $0009 81 BLANK DECLE @@crat2 + ( 7 - 1) ; $000A 88 CRAT2 DECLE @@cue + ( 4 - 1) + CUE.1_pink_c ; $000B 95 CUE '1_pink_c' DECLE @@rock2 + ( 10 - 1) ; $000C 99 ROCK2 DECLE @@cue + ( 10 - 1) + CUE.1_turret ; $000D 109 CUE '1_turret' DECLE @@rock1 + ( 13 - 1) ; $000E 119 ROCK1 DECLE @@cue + ( 7 - 1) + CUE.1_bould ; $000F 132 CUE '1_bould' DECLE @@cue + ( 1 - 1) + CUE.1_bould ; $0010 139 CUE '1_bould' DECLE @@cue + ( 8 - 1) + CUE.1_pin2_d ; $0011 140 CUE '1_pin2_d' DECLE @@cue + ( 7 - 1) + CUE.1_bould ; $0012 148 CUE '1_bould' DECLE @@cue + ( 8 - 1) + CUE.1_bould ; $0013 155 CUE '1_bould' DECLE @@cue + ( 6 - 1) + CUE.2_bould ; $0014 163 CUE '2_bould' DECLE @@cue + ( 4 - 1) + CUE.2_boulc ; $0015 169 CUE '2_boulc' DECLE @@level + ( 1 - 1) + ( 1 SHL 8) ; $0016 173 LEVEL 'B' @@ckpt_0c: DECLE @@blank + ( 2 - 1) ; $0017 174 BLANK DECLE @@cue + ( 4 - 1) + CUE.1_bould ; $0018 176 CUE '1_bould' DECLE @@cue + ( 2 - 1) + CUE.2_bould ; $0019 180 CUE '2_bould' DECLE @@cue + ( 8 - 1) + CUE.1_blue_c ; $001A 182 CUE '1_blue_c' DECLE @@rock1 + ( 8 - 1) ; $001B 190 ROCK1 DECLE @@rock1 + ( 3 - 1) ; $001C 198 ROCK1 DECLE @@rock1 + ( 2 - 1) ; $001D 201 ROCK1 DECLE @@cue + ( 7 - 1) + CUE.1_blue_d ; $001E 203 CUE '1_blue_d' DECLE @@crat2 + ( 8 - 1) ; $001F 210 CRAT2 DECLE @@crat1 + ( 22 - 1) ; $0020 218 CRAT1 DECLE @@cue + ( 3 - 1) + CUE.1_turret ; $0021 240 CUE '1_turret' DECLE @@rock2 + ( 9 - 1) ; $0022 243 ROCK2 DECLE @@cue + ( 8 - 1) + CUE.1_turret ; $0023 252 CUE '1_turret' DECLE @@cue + ( 3 - 1) + CUE.1_turret ; $0024 260 CUE '1_turret' DECLE @@rock1 + ( 2 - 1) ; $0025 263 ROCK1 DECLE @@rock1 + ( 2 - 1) ; $0026 265 ROCK1 DECLE @@level + ( 1 - 1) + ( 2 SHL 8) ; $0027 267 LEVEL 'C' @@ckpt_0d: DECLE @@blank + ( 6 - 1) ; $0028 268 BLANK DECLE @@rock2 + ( 6 - 1) ; $0029 274 ROCK2 DECLE @@rock1 + ( 3 - 1) ; $002A 280 ROCK1 DECLE @@rock2 + ( 14 - 1) ; $002B 283 ROCK2 DECLE @@cue + ( 9 - 1) + CUE.1_turret ; $002C 297 CUE '1_turret' DECLE @@rock3 + ( 13 - 1) ; $002D 306 ROCK3 DECLE @@cue + ( 7 - 1) + CUE.2_bould ; $002E 319 CUE '2_bould' DECLE @@crat1 + ( 11 - 1) ; $002F 326 CRAT1 DECLE @@crat2 + ( 10 - 1) ; $0030 337 CRAT2 DECLE @@crat2 + ( 11 - 1) ; $0031 347 CRAT2 DECLE @@crat2 + ( 2 - 1) ; $0032 358 CRAT2 DECLE @@level + ( 1 - 1) + ( 3 SHL 8) ; $0033 360 LEVEL 'D' @@ckpt_0e: DECLE @@blank + ( 6 - 1) ; $0034 361 BLANK DECLE @@cue + ( 1 - 1) + CUE.1_plbig ; $0035 367 CUE '1_plbig' DECLE @@crat2 + ( 2 - 1) ; $0036 368 CRAT2 DECLE @@cue + ( 10 - 1) + CUE.1_blue_e ; $0037 370 CUE '1_blue_e' DECLE @@cue + ( 20 - 1) + CUE.1_pink_e ; $0038 380 CUE '1_pink_e' DECLE @@cue + ( 12 - 1) + CUE.1_blu2_b ; $0039 400 CUE '1_blu2_b' DECLE @@crat2 + ( 3 - 1) ; $003A 412 CRAT2 DECLE @@cue + ( 9 - 1) + CUE.1_pin2_c ; $003B 415 CUE '1_pin2_c' DECLE @@crat4 + ( 6 - 1) ; $003C 424 CRAT4 DECLE @@cue + ( 10 - 1) + CUE.1_blue_a ; $003D 430 CUE '1_blue_a' DECLE @@crat2 + ( 9 - 1) ; $003E 440 CRAT2 DECLE @@rock1 + ( 2 - 1) ; $003F 449 ROCK1 DECLE @@rock1 + ( 2 - 1) ; $0040 451 ROCK1 DECLE @@level + ( 3 - 1) + ( 36 SHL 8) ; $0041 453 LEVEL 'k' DECLE @@exit + ( 1 - 1) + EXIT.blue_a ; $0042 456 EXIT 'blue_a' DECLE @@blank + ( 1 - 1) ; $0043 457 BLANK ; 458 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 31 ;; TOTAL OBJECTS 37 ;; TOTAL WORDS 68 ;; ======================================================================== ;;