;; ======================================================================== ;; 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 + ( 22 - 1) ; $0000 0 BLANK DECLE @@crat1 + ( 10 - 1) ; $0001 22 CRAT1 DECLE @@crat1 + ( 14 - 1) ; $0002 32 CRAT1 DECLE @@rock1 + ( 9 - 1) ; $0003 46 ROCK1 DECLE @@crat1 + ( 17 - 1) ; $0004 55 CRAT1 DECLE @@caut1 + ( 1 - 1) ; $0005 72 CAUTION 1 DECLE @@rock1 + ( 7 - 1) ; $0006 73 ROCK1 DECLE @@level + ( 1 - 1) + ( 0 SHL 8) ; $0007 80 LEVEL 'A' @@ckpt_0b: DECLE @@blank + ( 11 - 1) ; $0008 81 BLANK DECLE @@cue + ( 28 - 1) + CUE.2_pink_a ; $0009 92 CUE '2_pink_a' DECLE @@cue + ( 17 - 1) + CUE.2_blu2_a ; $000A 120 CUE '2_blu2_a' DECLE @@exit + ( 8 - 1) + EXIT.pink_a ; $000B 137 EXIT 'pink_a' DECLE @@rock1 + ( 27 - 1) ; $000C 145 ROCK1 DECLE @@exit + ( 1 - 1) + EXIT.blu2_a ; $000D 172 EXIT 'blu2_a' DECLE @@level + ( 1 - 1) + ( 1 SHL 8) ; $000E 173 LEVEL 'B' @@ckpt_0c: DECLE @@blank + ( 2 - 1) ; $000F 174 BLANK DECLE @@cue + ( 5 - 1) + CUE.2_pink_b ; $0010 176 CUE '2_pink_b' DECLE @@rock1 + ( 41 - 1) ; $0011 181 ROCK1 DECLE @@rock1 + ( 10 - 1) ; $0012 222 ROCK1 DECLE @@exit + ( 2 - 1) + EXIT.pink_b ; $0013 232 EXIT 'pink_b' DECLE @@crat1 + ( 11 - 1) ; $0014 234 CRAT1 DECLE @@rock1 + ( 12 - 1) ; $0015 245 ROCK1 DECLE @@rock1 + ( 10 - 1) ; $0016 257 ROCK1 DECLE @@level + ( 1 - 1) + ( 2 SHL 8) ; $0017 267 LEVEL 'C' @@ckpt_0d: DECLE @@blank + ( 15 - 1) ; $0018 268 BLANK DECLE @@caut1 + ( 5 - 1) ; $0019 283 CAUTION 1 DECLE @@crat1 + ( 10 - 1) ; $001A 288 CRAT1 DECLE @@crat1 + ( 5 - 1) ; $001B 298 CRAT1 DECLE @@cue + ( 29 - 1) + CUE.3_blu2_c ; $001C 303 CUE '3_blu2_c' DECLE @@rock1 + ( 24 - 1) ; $001D 332 ROCK1 DECLE @@exit + ( 4 - 1) + EXIT.blu2_c ; $001E 356 EXIT 'blu2_c' DECLE @@level + ( 1 - 1) + ( 3 SHL 8) ; $001F 360 LEVEL 'D' @@ckpt_0e: DECLE @@blank + ( 2 - 1) ; $0020 361 BLANK DECLE @@cue + ( 32 - 1) + CUE.2_whi2_a ; $0021 363 CUE '2_whi2_a' DECLE @@cue + ( 19 - 1) + CUE.2_pink_d ; $0022 395 CUE '2_pink_d' DECLE @@exit + ( 21 - 1) + EXIT.whi2_a ; $0023 414 EXIT 'whi2_a' DECLE @@rock1 + ( 3 - 1) ; $0024 435 ROCK1 DECLE @@exit + ( 7 - 1) + EXIT.pink_d ; $0025 438 EXIT 'pink_d' DECLE @@crat1 + ( 8 - 1) ; $0026 445 CRAT1 DECLE @@level + ( 1 - 1) + ( 36 SHL 8) ; $0027 453 LEVEL 'k' DECLE @@blank + ( 1 - 1) ; $0028 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 12 ;; TOTAL OBJECTS 29 ;; TOTAL WORDS 41 ;; ======================================================================== ;;