;; ======================================================================== ;; 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 + ( 6 - 1) + CUE.1_blu2_a ; $0001 10 CUE '1_blu2_a' DECLE @@crat1 + ( 10 - 1) ; $0002 16 CRAT1 DECLE @@rock1 + ( 11 - 1) ; $0003 26 ROCK1 DECLE @@rock2 + ( 1 - 1) ; $0004 37 ROCK2 DECLE @@cue + ( 2 - 1) + CUE.2_blu2_b ; $0005 38 CUE '2_blu2_b' DECLE @@crat1 + ( 13 - 1) ; $0006 40 CRAT1 DECLE @@rock3 + ( 2 - 1) ; $0007 53 ROCK3 DECLE @@cue + ( 10 - 1) + CUE.1_pink_d ; $0008 55 CUE '1_pink_d' DECLE @@rock3 + ( 12 - 1) ; $0009 65 ROCK3 DECLE @@exit + ( 3 - 1) + EXIT.blu2_a ; $000A 77 EXIT 'blu2_a' DECLE @@level + ( 1 - 1) + ( 5 SHL 8) ; $000B 80 LEVEL 'F' @@ckpt_0g: DECLE @@blank + ( 2 - 1) ; $000C 81 BLANK DECLE @@caut3 + ( 6 - 1) ; $000D 83 CAUTION 3 DECLE @@exit + ( 1 - 1) + EXIT.blu2_b ; $000E 89 EXIT 'blu2_b' DECLE @@cue + ( 9 - 1) + CUE.charger5 ; $000F 90 CUE 'charger5' DECLE @@exit + ( 11 - 1) + EXIT.pink_d ; $0010 99 EXIT 'pink_d' DECLE @@exit + ( 20 - 1) + EXIT.flexit ; $0011 110 EXIT 'flexit' DECLE @@rock2 + ( 4 - 1) ; $0012 130 ROCK2 DECLE @@exit + ( 5 - 1) + EXIT.flexit ; $0013 134 EXIT 'flexit' DECLE @@rock2 + ( 19 - 1) ; $0014 139 ROCK2 DECLE @@exit + ( 11 - 1) + EXIT.flexit ; $0015 158 EXIT 'flexit' DECLE @@exit + ( 4 - 1) + EXIT.flexit ; $0016 169 EXIT 'flexit' DECLE @@level + ( 1 - 1) + ( 6 SHL 8) ; $0017 173 LEVEL 'G' @@ckpt_0h: DECLE @@blank + ( 2 - 1) ; $0018 174 BLANK DECLE @@crat2 + ( 8 - 1) ; $0019 176 CRAT2 DECLE @@exit + ( 12 - 1) + EXIT.flexit ; $001A 184 EXIT 'flexit' DECLE @@exit + ( 8 - 1) + EXIT.flexit ; $001B 196 EXIT 'flexit' DECLE @@crat2 + ( 5 - 1) ; $001C 204 CRAT2 DECLE @@cue + ( 2 - 1) + CUE.1_pink_e ; $001D 209 CUE '1_pink_e' DECLE @@crat1 + ( 18 - 1) ; $001E 211 CRAT1 DECLE @@cue + ( 8 - 1) + CUE.2_pin2_a ; $001F 229 CUE '2_pin2_a' DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0020 237 CUE '1_plant' DECLE @@crat1 + ( 11 - 1) ; $0021 238 CRAT1 DECLE @@rock2 + ( 9 - 1) ; $0022 249 ROCK2 DECLE @@rock3 + ( 7 - 1) ; $0023 258 ROCK3 DECLE @@rock3 + ( 1 - 1) ; $0024 265 ROCK3 DECLE @@exit + ( 1 - 1) + EXIT.pink_e ; $0025 266 EXIT 'pink_e' DECLE @@level + ( 1 - 1) + ( 7 SHL 8) ; $0026 267 LEVEL 'H' @@ckpt_0i: DECLE @@blank + ( 6 - 1) ; $0027 268 BLANK DECLE @@cue + ( 3 - 1) + CUE.2_pin2_c ; $0028 274 CUE '2_pin2_c' DECLE @@cue + ( 4 - 1) + CUE.1_bould ; $0029 277 CUE '1_bould' DECLE @@exit + ( 4 - 1) + EXIT.pin2_a ; $002A 281 EXIT 'pin2_a' DECLE @@cue + ( 10 - 1) + CUE.2_bould ; $002B 285 CUE '2_bould' DECLE @@cue + ( 7 - 1) + CUE.2_bould ; $002C 295 CUE '2_bould' DECLE @@crat2 + ( 11 - 1) ; $002D 302 CRAT2 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $002E 313 CUE '1_plant' DECLE @@crat1 + ( 16 - 1) ; $002F 314 CRAT1 DECLE @@crat4 + ( 10 - 1) ; $0030 330 CRAT4 DECLE @@cue + ( 6 - 1) + CUE.1_whit_d ; $0031 340 CUE '1_whit_d' DECLE @@crat1 + ( 13 - 1) ; $0032 346 CRAT1 DECLE @@exit + ( 1 - 1) + EXIT.pin2_c ; $0033 359 EXIT 'pin2_c' DECLE @@level + ( 1 - 1) + ( 8 SHL 8) ; $0034 360 LEVEL 'I' @@ckpt_0j: DECLE @@blank + ( 4 - 1) ; $0035 361 BLANK DECLE @@cue + ( 1 - 1) + CUE.1_whit_e ; $0036 365 CUE '1_whit_e' DECLE @@exit + ( 4 - 1) + EXIT.whit_d ; $0037 366 EXIT 'whit_d' DECLE @@crat2 + ( 30 - 1) ; $0038 370 CRAT2 DECLE @@cue + ( 12 - 1) + CUE.2_pin2_b ; $0039 400 CUE '2_pin2_b' DECLE @@exit + ( 7 - 1) + EXIT.whit_e ; $003A 412 EXIT 'whit_e' DECLE @@cue + ( 8 - 1) + CUE.2_bould ; $003B 419 CUE '2_bould' DECLE @@cue + ( 4 - 1) + CUE.2_bould ; $003C 427 CUE '2_bould' DECLE @@cue + ( 4 - 1) + CUE.2_pin2_d ; $003D 431 CUE '2_pin2_d' DECLE @@cue + ( 11 - 1) + CUE.2_bould ; $003E 435 CUE '2_bould' DECLE @@exit + ( 3 - 1) + EXIT.pin2_b ; $003F 446 EXIT 'pin2_b' DECLE @@crat3 + ( 4 - 1) ; $0040 449 CRAT3 DECLE @@level + ( 4 - 1) + ( 41 SHL 8) ; $0041 453 LEVEL 'p' DECLE @@exit + ( 1 - 1) + EXIT.pin2_d ; $0042 457 EXIT 'pin2_d' DECLE @@blank + ( 1 - 1) ; $0043 458 BLANK ; 459 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 35 ;; TOTAL OBJECTS 33 ;; TOTAL WORDS 68 ;; ======================================================================== ;;