;; ======================================================================== ;; 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 + ( 5 - 1) + CUE.2_whi2_a ; $0001 10 CUE '2_whi2_a' DECLE @@cue + ( 65 - 1) + CUE.3_whi2_b ; $0002 15 CUE '3_whi2_b' DECLE @@level + ( 1 - 1) + ( 5 SHL 8) ; $0003 80 LEVEL 'F' @@ckpt_0g: DECLE @@blank + ( 1 - 1) ; $0004 81 BLANK DECLE @@exit + ( 2 - 1) + EXIT.whi2_a ; $0005 82 EXIT 'whi2_a' DECLE @@exit + ( 1 - 1) + EXIT.whi2_b ; $0006 84 EXIT 'whi2_b' DECLE @@rock3 + ( 3 - 1) ; $0007 85 ROCK3 DECLE @@crat3 + ( 9 - 1) ; $0008 88 CRAT3 DECLE @@rock2 + ( 13 - 1) ; $0009 97 ROCK2 DECLE @@crat2 + ( 3 - 1) ; $000A 110 CRAT2 DECLE @@rock2 + ( 9 - 1) ; $000B 113 ROCK2 DECLE @@crat2 + ( 10 - 1) ; $000C 122 CRAT2 DECLE @@crat2 + ( 8 - 1) ; $000D 132 CRAT2 DECLE @@rock2 + ( 3 - 1) ; $000E 140 ROCK2 DECLE @@crat3 + ( 10 - 1) ; $000F 143 CRAT3 DECLE @@crat2 + ( 3 - 1) ; $0010 153 CRAT2 DECLE @@caut1 + ( 6 - 1) ; $0011 156 CAUTION 1 DECLE @@rock1 + ( 11 - 1) ; $0012 162 ROCK1 DECLE @@level + ( 1 - 1) + ( 6 SHL 8) ; $0013 173 LEVEL 'G' @@ckpt_0h: DECLE @@blank + ( 2 - 1) ; $0014 174 BLANK DECLE @@cue + ( 4 - 1) + CUE.2_whi2_d ; $0015 176 CUE '2_whi2_d' DECLE @@cue + ( 20 - 1) + CUE.2_whi2_e ; $0016 180 CUE '2_whi2_e' DECLE @@cue + ( 10 - 1) + CUE.2_pin2_d ; $0017 200 CUE '2_pin2_d' DECLE @@cue + ( 22 - 1) + CUE.2_pink_c ; $0018 210 CUE '2_pink_c' DECLE @@exit + ( 1 - 1) + EXIT.pin2_d ; $0019 232 EXIT 'pin2_d' DECLE @@crat3 + ( 4 - 1) ; $001A 233 CRAT3 DECLE @@exit + ( 2 - 1) + EXIT.pink_c ; $001B 237 EXIT 'pink_c' DECLE @@exit + ( 4 - 1) + EXIT.whi2_d ; $001C 239 EXIT 'whi2_d' DECLE @@exit + ( 9 - 1) + EXIT.whi2_e ; $001D 243 EXIT 'whi2_e' DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $001E 252 CUE '1_plant' DECLE @@crat1 + ( 8 - 1) ; $001F 253 CRAT1 DECLE @@rock2 + ( 2 - 1) ; $0020 261 ROCK2 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0021 263 CUE '1_plant' DECLE @@crat1 + ( 1 - 1) ; $0022 264 CRAT1 DECLE @@caut1 + ( 2 - 1) ; $0023 265 CAUTION 1 DECLE @@level + ( 1 - 1) + ( 7 SHL 8) ; $0024 267 LEVEL 'H' @@ckpt_0i: DECLE @@blank + ( 17 - 1) ; $0025 268 BLANK DECLE @@cue + ( 15 - 1) + CUE.3_blu2_b ; $0026 285 CUE '3_blu2_b' DECLE @@cue + ( 1 - 1) + CUE.2_pink_a ; $0027 300 CUE '2_pink_a' DECLE @@crat3 + ( 9 - 1) ; $0028 301 CRAT3 DECLE @@cue + ( 3 - 1) + CUE.1_pink_b ; $0029 310 CUE '1_pink_b' DECLE @@crat2 + ( 28 - 1) ; $002A 313 CRAT2 DECLE @@exit + ( 1 - 1) + EXIT.blu2_b ; $002B 341 EXIT 'blu2_b' DECLE @@rock2 + ( 2 - 1) ; $002C 342 ROCK2 DECLE @@crat3 + ( 11 - 1) ; $002D 344 CRAT3 DECLE @@crat4 + ( 5 - 1) ; $002E 355 CRAT4 DECLE @@level + ( 1 - 1) + ( 8 SHL 8) ; $002F 360 LEVEL 'I' @@ckpt_0j: DECLE @@blank + ( 3 - 1) ; $0030 361 BLANK DECLE @@cue + ( 2 - 1) + CUE.2_whit_b ; $0031 364 CUE '2_whit_b' DECLE @@cue + ( 3 - 1) + CUE.2_whi2_c ; $0032 366 CUE '2_whi2_c' DECLE @@exit + ( 1 - 1) + EXIT.pink_a ; $0033 369 EXIT 'pink_a' DECLE @@exit + ( 8 - 1) + EXIT.pink_b ; $0034 370 EXIT 'pink_b' DECLE @@crat2 + ( 10 - 1) ; $0035 378 CRAT2 DECLE @@rock2 + ( 10 - 1) ; $0036 388 ROCK2 DECLE @@exit + ( 4 - 1) + EXIT.whit_b ; $0037 398 EXIT 'whit_b' DECLE @@exit + ( 4 - 1) + EXIT.whi2_c ; $0038 402 EXIT 'whi2_c' DECLE @@crat2 + ( 10 - 1) ; $0039 406 CRAT2 DECLE @@rock2 + ( 3 - 1) ; $003A 416 ROCK2 DECLE @@rock2 + ( 2 - 1) ; $003B 419 ROCK2 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $003C 421 CUE '1_plant' DECLE @@crat1 + ( 8 - 1) ; $003D 422 CRAT1 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $003E 430 CUE '1_plant' DECLE @@crat1 + ( 8 - 1) ; $003F 431 CRAT1 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0040 439 CUE '1_plant' DECLE @@crat1 + ( 8 - 1) ; $0041 440 CRAT1 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0042 448 CUE '1_plant' DECLE @@crat1 + ( 2 - 1) ; $0043 449 CRAT1 DECLE @@rock2 + ( 2 - 1) ; $0044 451 ROCK2 DECLE @@level + ( 1 - 1) + ( 41 SHL 8) ; $0045 453 LEVEL 'p' DECLE @@blank + ( 1 - 1) ; $0046 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 28 ;; TOTAL OBJECTS 43 ;; TOTAL WORDS 71 ;; ======================================================================== ;;