;; ======================================================================== ;; 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 + ( 12 - 1) ; $0000 0 BLANK DECLE @@cue + ( 22 - 1) + CUE.3_pin2_a ; $0001 12 CUE '3_pin2_a' DECLE @@cue + ( 33 - 1) + CUE.3_blu2_e ; $0002 34 CUE '3_blu2_e' DECLE @@exit + ( 9 - 1) + EXIT.pin2_a ; $0003 67 EXIT 'pin2_a' DECLE @@exit + ( 4 - 1) + EXIT.blu2_e ; $0004 76 EXIT 'blu2_e' DECLE @@level + ( 1 - 1) + ( 0 SHL 8) ; $0005 80 LEVEL 'A' @@ckpt_0b: DECLE @@blank + ( 1 - 1) ; $0006 81 BLANK DECLE @@caut3 + ( 8 - 1) ; $0007 82 CAUTION 3 DECLE @@cue + ( 72 - 1) + CUE.follower ; $0008 90 CUE 'follower' DECLE @@exit + ( 10 - 1) + EXIT.flexit ; $0009 162 EXIT 'flexit' DECLE @@exit + ( 1 - 1) + EXIT.flexit ; $000A 172 EXIT 'flexit' DECLE @@level + ( 1 - 1) + ( 1 SHL 8) ; $000B 173 LEVEL 'B' @@ckpt_0c: DECLE @@blank + ( 26 - 1) ; $000C 174 BLANK DECLE @@exit + ( 13 - 1) + EXIT.flexit ; $000D 200 EXIT 'flexit' DECLE @@cue + ( 7 - 1) + CUE.1_turret ; $000E 213 CUE '1_turret' DECLE @@rock2 + ( 5 - 1) ; $000F 220 ROCK2 DECLE @@rock2 + ( 12 - 1) ; $0010 225 ROCK2 DECLE @@rock1 + ( 10 - 1) ; $0011 237 ROCK1 DECLE @@crat2 + ( 3 - 1) ; $0012 247 CRAT2 DECLE @@cue + ( 5 - 1) + CUE.1_turret ; $0013 250 CUE '1_turret' DECLE @@crat2 + ( 12 - 1) ; $0014 255 CRAT2 DECLE @@level + ( 1 - 1) + ( 2 SHL 8) ; $0015 267 LEVEL 'C' @@ckpt_0d: DECLE @@blank + ( 1 - 1) ; $0016 268 BLANK DECLE @@cue + ( 8 - 1) + CUE.1_turret ; $0017 269 CUE '1_turret' DECLE @@cue + ( 8 - 1) + CUE.1_turret ; $0018 277 CUE '1_turret' DECLE @@cue + ( 9 - 1) + CUE.1_turret ; $0019 285 CUE '1_turret' DECLE @@cue + ( 2 - 1) + CUE.1_turret ; $001A 294 CUE '1_turret' DECLE @@crat2 + ( 7 - 1) ; $001B 296 CRAT2 DECLE @@rock2 + ( 8 - 1) ; $001C 303 ROCK2 DECLE @@rock2 + ( 9 - 1) ; $001D 311 ROCK2 DECLE @@cue + ( 6 - 1) + CUE.1_turret ; $001E 320 CUE '1_turret' DECLE @@cue + ( 2 - 1) + CUE.1_turret ; $001F 326 CUE '1_turret' DECLE @@crat2 + ( 7 - 1) ; $0020 328 CRAT2 DECLE @@rock2 + ( 13 - 1) ; $0021 335 ROCK2 DECLE @@cue + ( 7 - 1) + CUE.1_turret ; $0022 348 CUE '1_turret' DECLE @@cue + ( 2 - 1) + CUE.1_turret ; $0023 355 CUE '1_turret' DECLE @@crat2 + ( 3 - 1) ; $0024 357 CRAT2 DECLE @@level + ( 1 - 1) + ( 3 SHL 8) ; $0025 360 LEVEL 'D' @@ckpt_0e: DECLE @@blank + ( 2 - 1) ; $0026 361 BLANK DECLE @@caut1 + ( 20 - 1) ; $0027 363 CAUTION 1 DECLE @@cue + ( 3 - 1) + CUE.3_pin2_c ; $0028 383 CUE '3_pin2_c' DECLE @@crat2 + ( 8 - 1) ; $0029 386 CRAT2 DECLE @@crat2 + ( 9 - 1) ; $002A 394 CRAT2 DECLE @@crat2 + ( 10 - 1) ; $002B 403 CRAT2 DECLE @@rock2 + ( 11 - 1) ; $002C 413 ROCK2 DECLE @@rock2 + ( 9 - 1) ; $002D 424 ROCK2 DECLE @@crat2 + ( 15 - 1) ; $002E 433 CRAT2 DECLE @@rock2 + ( 3 - 1) ; $002F 448 ROCK2 DECLE @@exit + ( 2 - 1) + EXIT.pin2_c ; $0030 451 EXIT 'pin2_c' DECLE @@level + ( 1 - 1) + ( 36 SHL 8) ; $0031 453 LEVEL 'k' DECLE @@blank + ( 1 - 1) ; $0032 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 20 ;; TOTAL OBJECTS 31 ;; TOTAL WORDS 51 ;; ======================================================================== ;;