;; ======================================================================== ;; 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 + ( 11 - 1) ; $0000 0 BLANK DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0001 11 CUE '1_plant' DECLE @@crat1 + ( 1 - 1) ; $0002 12 CRAT1 DECLE @@cue + ( 6 - 1) + CUE.2_whit_d ; $0003 13 CUE '2_whit_d' DECLE @@crat2 + ( 12 - 1) ; $0004 19 CRAT2 DECLE @@crat1 + ( 13 - 1) ; $0005 31 CRAT1 DECLE @@crat1 + ( 8 - 1) ; $0006 44 CRAT1 DECLE @@cue + ( 8 - 1) + CUE.2_whit_e ; $0007 52 CUE '2_whit_e' DECLE @@crat1 + ( 15 - 1) ; $0008 60 CRAT1 DECLE @@crat4 + ( 2 - 1) ; $0009 75 CRAT4 DECLE @@exit + ( 2 - 1) + EXIT.whit_d ; $000A 77 EXIT 'whit_d' DECLE @@exit + ( 1 - 1) + EXIT.whit_e ; $000B 79 EXIT 'whit_e' DECLE @@level + ( 1 - 1) + ( 5 SHL 8) ; $000C 80 LEVEL 'F' @@ckpt_0g: DECLE @@blank + ( 4 - 1) ; $000D 81 BLANK DECLE @@caut2 + ( 1 - 1) ; $000E 85 CAUTION 2 DECLE @@crat2 + ( 4 - 1) ; $000F 86 CRAT2 DECLE @@cue + ( 4 - 1) + CUE.2_blue_d ; $0010 90 CUE '2_blue_d' DECLE @@cue + ( 6 - 1) + CUE.1_mine_a ; $0011 94 CUE '1_mine_a' DECLE @@crat1 + ( 7 - 1) ; $0012 100 CRAT1 DECLE @@cue + ( 6 - 1) + CUE.2_mine_b ; $0013 107 CUE '2_mine_b' DECLE @@cue + ( 6 - 1) + CUE.2_mine_c ; $0014 113 CUE '2_mine_c' DECLE @@cue + ( 7 - 1) + CUE.2_mine_d ; $0015 119 CUE '2_mine_d' DECLE @@cue + ( 3 - 1) + CUE.1_mine_b ; $0016 126 CUE '1_mine_b' DECLE @@cue + ( 4 - 1) + CUE.2_blue_e ; $0017 129 CUE '2_blue_e' DECLE @@cue + ( 8 - 1) + CUE.2_mine_a ; $0018 133 CUE '2_mine_a' DECLE @@cue + ( 6 - 1) + CUE.2_mine_f ; $0019 141 CUE '2_mine_f' DECLE @@cue + ( 7 - 1) + CUE.1_mine_b ; $001A 147 CUE '1_mine_b' DECLE @@cue + ( 9 - 1) + CUE.2_mine_b ; $001B 154 CUE '2_mine_b' DECLE @@crat4 + ( 7 - 1) ; $001C 163 CRAT4 DECLE @@exit + ( 1 - 1) + EXIT.blue_d ; $001D 170 EXIT 'blue_d' DECLE @@cue + ( 1 - 1) + CUE.2_mine_d ; $001E 171 CUE '2_mine_d' DECLE @@exit + ( 1 - 1) + EXIT.blue_e ; $001F 172 EXIT 'blue_e' DECLE @@level + ( 1 - 1) + ( 6 SHL 8) ; $0020 173 LEVEL 'G' @@ckpt_0h: DECLE @@blank + ( 6 - 1) ; $0021 174 BLANK DECLE @@cue + ( 8 - 1) + CUE.1_mine_a ; $0022 180 CUE '1_mine_a' DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0023 188 CUE '1_plant' DECLE @@crat1 + ( 8 - 1) ; $0024 189 CRAT1 DECLE @@cue + ( 3 - 1) + CUE.2_mine_c ; $0025 197 CUE '2_mine_c' DECLE @@caut1 + ( 4 - 1) ; $0026 200 CAUTION 1 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0027 204 CUE '1_plant' DECLE @@crat1 + ( 5 - 1) ; $0028 205 CRAT1 DECLE @@cue + ( 4 - 1) + CUE.2_pink_c ; $0029 210 CUE '2_pink_c' DECLE @@cue + ( 6 - 1) + CUE.2_mine_c ; $002A 214 CUE '2_mine_c' DECLE @@cue + ( 7 - 1) + CUE.1_pink_d ; $002B 220 CUE '1_pink_d' DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $002C 227 CUE '1_plant' DECLE @@crat1 + ( 13 - 1) ; $002D 228 CRAT1 DECLE @@cue + ( 8 - 1) + CUE.2_mine_c ; $002E 241 CUE '2_mine_c' DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $002F 249 CUE '1_plant' DECLE @@crat1 + ( 5 - 1) ; $0030 250 CRAT1 DECLE @@cue + ( 5 - 1) + CUE.2_pink_e ; $0031 255 CUE '2_pink_e' DECLE @@exit + ( 5 - 1) + EXIT.pink_c ; $0032 260 EXIT 'pink_c' DECLE @@exit + ( 2 - 1) + EXIT.pink_d ; $0033 265 EXIT 'pink_d' DECLE @@level + ( 1 - 1) + ( 7 SHL 8) ; $0034 267 LEVEL 'H' @@ckpt_0i: DECLE @@blank + ( 5 - 1) ; $0035 268 BLANK DECLE @@rock1 + ( 11 - 1) ; $0036 273 ROCK1 DECLE @@rock2 + ( 6 - 1) ; $0037 284 ROCK2 DECLE @@rock3 + ( 1 - 1) ; $0038 290 ROCK3 DECLE @@caut1 + ( 4 - 1) ; $0039 291 CAUTION 1 DECLE @@rock3 + ( 5 - 1) ; $003A 295 ROCK3 DECLE @@cue + ( 8 - 1) + CUE.2_blu2_a ; $003B 300 CUE '2_blu2_a' DECLE @@rock2 + ( 7 - 1) ; $003C 308 ROCK2 DECLE @@rock3 + ( 4 - 1) ; $003D 315 ROCK3 DECLE @@rock1 + ( 6 - 1) ; $003E 319 ROCK1 DECLE @@cue + ( 10 - 1) + CUE.2_pin2_a ; $003F 325 CUE '2_pin2_a' DECLE @@rock2 + ( 10 - 1) ; $0040 335 ROCK2 DECLE @@cue + ( 13 - 1) + CUE.2_pin2_b ; $0041 345 CUE '2_pin2_b' DECLE @@exit + ( 1 - 1) + EXIT.blu2_a ; $0042 358 EXIT 'blu2_a' DECLE @@exit + ( 1 - 1) + EXIT.pin2_a ; $0043 359 EXIT 'pin2_a' DECLE @@level + ( 1 - 1) + ( 8 SHL 8) ; $0044 360 LEVEL 'I' @@ckpt_0j: DECLE @@blank + ( 9 - 1) ; $0045 361 BLANK DECLE @@cue + ( 8 - 1) + CUE.1_bould ; $0046 370 CUE '1_bould' DECLE @@cue + ( 10 - 1) + CUE.1_bould ; $0047 378 CUE '1_bould' DECLE @@cue + ( 10 - 1) + CUE.2_bould ; $0048 388 CUE '2_bould' DECLE @@cue + ( 7 - 1) + CUE.2_boulc ; $0049 398 CUE '2_boulc' DECLE @@caut1 + ( 1 - 1) ; $004A 405 CAUTION 1 DECLE @@cue + ( 4 - 1) + CUE.2_boulc ; $004B 406 CUE '2_boulc' DECLE @@cue + ( 5 - 1) + CUE.2_boulc ; $004C 410 CUE '2_boulc' DECLE @@cue + ( 5 - 1) + CUE.3_whi2_a ; $004D 415 CUE '3_whi2_a' DECLE @@cue + ( 15 - 1) + CUE.2_blu2_b ; $004E 420 CUE '2_blu2_b' DECLE @@cue + ( 18 - 1) + CUE.1_whi2_b ; $004F 435 CUE '1_whi2_b' DECLE @@level + ( 2 - 1) + ( 41 SHL 8) ; $0050 453 LEVEL 'p' DECLE @@exit + ( 1 - 1) + EXIT.whi2_a ; $0051 455 EXIT 'whi2_a' DECLE @@exit + ( 1 - 1) + EXIT.blu2_b ; $0052 456 EXIT 'blu2_b' DECLE @@exit + ( 1 - 1) + EXIT.whi2_b ; $0053 457 EXIT 'whi2_b' DECLE @@blank + ( 1 - 1) ; $0054 458 BLANK ; 459 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 49 ;; TOTAL OBJECTS 36 ;; TOTAL WORDS 85 ;; ======================================================================== ;;