;; ======================================================================== ;; 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_0f: DECLE @@blank + ( 10 - 1) ; $0000 0 BLANK DECLE @@cue + ( 2 - 1) + CUE.stal_i ; $0001 10 CUE 'stal_i' DECLE @@cue + ( 3 - 1) + CUE.stal_i ; $0002 12 CUE 'stal_i' DECLE @@cue + ( 5 - 1) + CUE.stal_g ; $0003 15 CUE 'stal_g' DECLE @@cue + ( 1 - 1) + CUE.stal_a ; $0004 20 CUE 'stal_a' DECLE @@cue + ( 1 - 1) + CUE.1_blu2_c ; $0005 21 CUE '1_blu2_c' DECLE @@crat1 + ( 8 - 1) ; $0006 22 CRAT1 DECLE @@cue + ( 4 - 1) + CUE.stal_g ; $0007 30 CUE 'stal_g' DECLE @@rock1 + ( 6 - 1) ; $0008 34 ROCK1 DECLE @@crat1 + ( 2 - 1) ; $0009 40 CRAT1 DECLE @@cue + ( 3 - 1) + CUE.stal_b ; $000A 42 CUE 'stal_b' DECLE @@cue + ( 11 - 1) + CUE.stal_a ; $000B 45 CUE 'stal_a' DECLE @@cue + ( 8 - 1) + CUE.2_bould ; $000C 56 CUE '2_bould' DECLE @@crat2 + ( 9 - 1) ; $000D 64 CRAT2 DECLE @@cue + ( 3 - 1) + CUE.stal_h ; $000E 73 CUE 'stal_h' DECLE @@cue + ( 1 - 1) + CUE.stal_b ; $000F 76 CUE 'stal_b' DECLE @@exit + ( 1 - 1) + EXIT.blu2_c ; $0010 77 EXIT 'blu2_c' DECLE @@cue + ( 2 - 1) + CUE.stal_c ; $0011 78 CUE 'stal_c' DECLE @@level + ( 1 - 1) + ( 5 SHL 8) ; $0012 80 LEVEL 'F' @@ckpt_0g: DECLE @@blank + ( 1 - 1) ; $0013 81 BLANK DECLE @@rock3 + ( 4 - 1) ; $0014 82 ROCK3 DECLE @@crat1 + ( 4 - 1) ; $0015 86 CRAT1 DECLE @@cue + ( 4 - 1) + CUE.stal_b ; $0016 90 CUE 'stal_b' DECLE @@cue + ( 6 - 1) + CUE.stal_h ; $0017 94 CUE 'stal_h' DECLE @@cue + ( 5 - 1) + CUE.1_blue_a ; $0018 100 CUE '1_blue_a' DECLE @@cue + ( 5 - 1) + CUE.stal_g ; $0019 105 CUE 'stal_g' DECLE @@cue + ( 2 - 1) + CUE.stal_i ; $001A 110 CUE 'stal_i' DECLE @@cue + ( 3 - 1) + CUE.stal_c ; $001B 112 CUE 'stal_c' DECLE @@cue + ( 3 - 1) + CUE.stal_b ; $001C 115 CUE 'stal_b' DECLE @@rock3 + ( 2 - 1) ; $001D 118 ROCK3 DECLE @@cue + ( 4 - 1) + CUE.stal_a ; $001E 120 CUE 'stal_a' DECLE @@cue + ( 4 - 1) + CUE.stal_i ; $001F 124 CUE 'stal_i' DECLE @@cue + ( 12 - 1) + CUE.stal_h ; $0020 128 CUE 'stal_h' DECLE @@exit + ( 10 - 1) + EXIT.blue_a ; $0021 140 EXIT 'blue_a' DECLE @@crat2 + ( 1 - 1) ; $0022 150 CRAT2 DECLE @@cue + ( 4 - 1) + CUE.1_blu2_c ; $0023 151 CUE '1_blu2_c' DECLE @@cue + ( 10 - 1) + CUE.stal_b ; $0024 155 CUE 'stal_b' DECLE @@exit + ( 8 - 1) + EXIT.blu2_c ; $0025 165 EXIT 'blu2_c' DECLE @@level + ( 1 - 1) + ( 6 SHL 8) ; $0026 173 LEVEL 'G' @@ckpt_0h: DECLE @@blank + ( 4 - 1) ; $0027 174 BLANK DECLE @@crat3 + ( 7 - 1) ; $0028 178 CRAT3 DECLE @@crat2 + ( 9 - 1) ; $0029 185 CRAT2 DECLE @@cue + ( 3 - 1) + CUE.stal_i ; $002A 194 CUE 'stal_i' DECLE @@cue + ( 1 - 1) + CUE.stal_h ; $002B 197 CUE 'stal_h' DECLE @@caut3 + ( 10 - 1) ; $002C 198 CAUTION 3 DECLE @@cue + ( 3 - 1) + CUE.follower ; $002D 208 CUE 'follower' DECLE @@crat1 + ( 14 - 1) ; $002E 211 CRAT1 DECLE @@cue + ( 2 - 1) + CUE.stal_h ; $002F 225 CUE 'stal_h' DECLE @@cue + ( 1 - 1) + CUE.stal_g ; $0030 227 CUE 'stal_g' DECLE @@exit + ( 5 - 1) + EXIT.flexit ; $0031 228 EXIT 'flexit' DECLE @@exit + ( 21 - 1) + EXIT.flexit ; $0032 233 EXIT 'flexit' DECLE @@cue + ( 1 - 1) + CUE.stal_b ; $0033 254 CUE 'stal_b' DECLE @@exit + ( 5 - 1) + EXIT.flexit ; $0034 255 EXIT 'flexit' DECLE @@cue + ( 4 - 1) + CUE.stal_a ; $0035 260 CUE 'stal_a' DECLE @@cue + ( 3 - 1) + CUE.stal_b ; $0036 264 CUE 'stal_b' DECLE @@level + ( 1 - 1) + ( 7 SHL 8) ; $0037 267 LEVEL 'H' @@ckpt_0i: DECLE @@blank + ( 3 - 1) ; $0038 268 BLANK DECLE @@cue + ( 4 - 1) + CUE.1_pin2_b ; $0039 271 CUE '1_pin2_b' DECLE @@cue + ( 10 - 1) + CUE.1_bould ; $003A 275 CUE '1_bould' DECLE @@cue + ( 2 - 1) + CUE.1_bould ; $003B 285 CUE '1_bould' DECLE @@cue + ( 8 - 1) + CUE.stal_b ; $003C 287 CUE 'stal_b' DECLE @@cue + ( 7 - 1) + CUE.1_bould ; $003D 295 CUE '1_bould' DECLE @@crat2 + ( 13 - 1) ; $003E 302 CRAT2 DECLE @@caut1 + ( 1 - 1) ; $003F 315 CAUTION 1 DECLE @@crat2 + ( 8 - 1) ; $0040 316 CRAT2 DECLE @@cue + ( 1 - 1) + CUE.stal_f ; $0041 324 CUE 'stal_f' DECLE @@cue + ( 5 - 1) + CUE.1_pin2_e ; $0042 325 CUE '1_pin2_e' DECLE @@cue + ( 6 - 1) + CUE.1_blue_d ; $0043 330 CUE '1_blue_d' DECLE @@cue + ( 20 - 1) + CUE.stal_i ; $0044 336 CUE 'stal_i' DECLE @@exit + ( 1 - 1) + EXIT.blue_d ; $0045 356 EXIT 'blue_d' DECLE @@exit + ( 1 - 1) + EXIT.pin2_b ; $0046 357 EXIT 'pin2_b' DECLE @@exit + ( 1 - 1) + EXIT.pin2_e ; $0047 358 EXIT 'pin2_e' DECLE @@cue + ( 1 - 1) + CUE.stal_a ; $0048 359 CUE 'stal_a' DECLE @@level + ( 1 - 1) + ( 8 SHL 8) ; $0049 360 LEVEL 'I' @@ckpt_0j: DECLE @@blank + ( 4 - 1) ; $004A 361 BLANK DECLE @@cue + ( 20 - 1) + CUE.1_pin2_e ; $004B 365 CUE '1_pin2_e' DECLE @@cue + ( 20 - 1) + CUE.1_pin2_d ; $004C 385 CUE '1_pin2_d' DECLE @@cue + ( 10 - 1) + CUE.1_pin2_c ; $004D 405 CUE '1_pin2_c' DECLE @@cue + ( 5 - 1) + CUE.1_pink_b ; $004E 415 CUE '1_pink_b' DECLE @@cue + ( 2 - 1) + CUE.1_pink_a ; $004F 420 CUE '1_pink_a' DECLE @@cue + ( 3 - 1) + CUE.stal_a ; $0050 422 CUE 'stal_a' DECLE @@crat2 + ( 1 - 1) ; $0051 425 CRAT2 DECLE @@cue + ( 4 - 1) + CUE.stal_b ; $0052 426 CUE 'stal_b' DECLE @@cue + ( 4 - 1) + CUE.stal_a ; $0053 430 CUE 'stal_a' DECLE @@cue + ( 4 - 1) + CUE.stal_b ; $0054 434 CUE 'stal_b' DECLE @@cue + ( 2 - 1) + CUE.stal_f ; $0055 438 CUE 'stal_f' DECLE @@cue + ( 4 - 1) + CUE.stal_i ; $0056 440 CUE 'stal_i' DECLE @@exit + ( 1 - 1) + EXIT.pink_a ; $0057 444 EXIT 'pink_a' DECLE @@cue + ( 1 - 1) + CUE.stal_h ; $0058 445 CUE 'stal_h' DECLE @@exit + ( 2 - 1) + EXIT.pink_b ; $0059 446 EXIT 'pink_b' DECLE @@exit + ( 2 - 1) + EXIT.pin2_c ; $005A 448 EXIT 'pin2_c' DECLE @@exit + ( 1 - 1) + EXIT.pin2_d ; $005B 450 EXIT 'pin2_d' DECLE @@cue + ( 1 - 1) + CUE.stal_h ; $005C 451 CUE 'stal_h' DECLE @@exit + ( 1 - 1) + EXIT.pin2_e ; $005D 452 EXIT 'pin2_e' DECLE @@level + ( 1 - 1) + ( 41 SHL 8) ; $005E 453 LEVEL 'p' DECLE @@blank + ( 1 - 1) ; $005F 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 69 ;; TOTAL OBJECTS 27 ;; TOTAL WORDS 96 ;; ======================================================================== ;;