;; ======================================================================== ;; 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 @@rock3 + ( 4 - 1) ; $0001 10 ROCK3 DECLE @@crat4 + ( 7 - 1) ; $0002 14 CRAT4 DECLE @@rock1 + ( 8 - 1) ; $0003 21 ROCK1 DECLE @@cue + ( 11 - 1) + CUE.1_whi2_d ; $0004 29 CUE '1_whi2_d' DECLE @@crat2 + ( 12 - 1) ; $0005 40 CRAT2 DECLE @@cue + ( 8 - 1) + CUE.1_whit_b ; $0006 52 CUE '1_whit_b' DECLE @@crat1 + ( 15 - 1) ; $0007 60 CRAT1 DECLE @@crat1 + ( 2 - 1) ; $0008 75 CRAT1 DECLE @@exit + ( 1 - 1) + EXIT.whi2_d ; $0009 77 EXIT 'whi2_d' DECLE @@exit + ( 2 - 1) + EXIT.whit_b ; $000A 78 EXIT 'whit_b' DECLE @@level + ( 1 - 1) + ( 5 SHL 8) ; $000B 80 LEVEL 'F' @@ckpt_0g: DECLE @@blank + ( 6 - 1) ; $000C 81 BLANK DECLE @@cue + ( 5 - 1) + CUE.1_mine_a ; $000D 87 CUE '1_mine_a' DECLE @@caut3 + ( 4 - 1) ; $000E 92 CAUTION 3 DECLE @@cue + ( 3 - 1) + CUE.1_mine_b ; $000F 96 CUE '1_mine_b' DECLE @@cue + ( 2 - 1) + CUE.minelyr5 ; $0010 99 CUE 'minelyr5' DECLE @@cue + ( 12 - 1) + CUE.1_mine_b ; $0011 101 CUE '1_mine_b' DECLE @@exit + ( 5 - 1) + EXIT.flexit ; $0012 113 EXIT 'flexit' DECLE @@exit + ( 1 - 1) + EXIT.flexit ; $0013 118 EXIT 'flexit' DECLE @@rock1 + ( 13 - 1) ; $0014 119 ROCK1 DECLE @@exit + ( 8 - 1) + EXIT.flexit ; $0015 132 EXIT 'flexit' DECLE @@exit + ( 5 - 1) + EXIT.flexit ; $0016 140 EXIT 'flexit' DECLE @@exit + ( 10 - 1) + EXIT.flexit ; $0017 145 EXIT 'flexit' DECLE @@exit + ( 10 - 1) + EXIT.flexit ; $0018 155 EXIT 'flexit' DECLE @@exit + ( 7 - 1) + EXIT.flexit ; $0019 165 EXIT 'flexit' DECLE @@exit + ( 1 - 1) + EXIT.flexit ; $001A 172 EXIT 'flexit' DECLE @@level + ( 1 - 1) + ( 6 SHL 8) ; $001B 173 LEVEL 'G' @@ckpt_0h: DECLE @@blank + ( 2 - 1) ; $001C 174 BLANK DECLE @@cue + ( 6 - 1) + CUE.1_mine_b ; $001D 176 CUE '1_mine_b' DECLE @@cue + ( 3 - 1) + CUE.1_mine_a ; $001E 182 CUE '1_mine_a' DECLE @@caut1 + ( 8 - 1) ; $001F 185 CAUTION 1 DECLE @@cue + ( 2 - 1) + CUE.1_mine_a ; $0020 193 CUE '1_mine_a' DECLE @@cue + ( 15 - 1) + CUE.2_blue_a ; $0021 195 CUE '2_blue_a' DECLE @@cue + ( 3 - 1) + CUE.1_whit_d ; $0022 210 CUE '1_whit_d' DECLE @@crat2 + ( 10 - 1) ; $0023 213 CRAT2 DECLE @@cue + ( 10 - 1) + CUE.2_whit_c ; $0024 223 CUE '2_whit_c' DECLE @@crat1 + ( 6 - 1) ; $0025 233 CRAT1 DECLE @@cue + ( 13 - 1) + CUE.2_pin2_d ; $0026 239 CUE '2_pin2_d' DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0027 252 CUE '1_plant' DECLE @@crat1 + ( 3 - 1) ; $0028 253 CRAT1 DECLE @@exit + ( 2 - 1) + EXIT.whit_d ; $0029 256 EXIT 'whit_d' DECLE @@exit + ( 3 - 1) + EXIT.whit_c ; $002A 258 EXIT 'whit_c' DECLE @@rock2 + ( 3 - 1) ; $002B 261 ROCK2 DECLE @@exit + ( 2 - 1) + EXIT.blue_a ; $002C 264 EXIT 'blue_a' DECLE @@exit + ( 1 - 1) + EXIT.pin2_d ; $002D 266 EXIT 'pin2_d' DECLE @@level + ( 1 - 1) + ( 7 SHL 8) ; $002E 267 LEVEL 'H' @@ckpt_0i: DECLE @@blank + ( 5 - 1) ; $002F 268 BLANK DECLE @@rock2 + ( 11 - 1) ; $0030 273 ROCK2 DECLE @@rock3 + ( 3 - 1) ; $0031 284 ROCK3 DECLE @@cue + ( 4 - 1) + CUE.2_pink_e ; $0032 287 CUE '2_pink_e' DECLE @@rock1 + ( 6 - 1) ; $0033 291 ROCK1 DECLE @@rock3 + ( 8 - 1) ; $0034 297 ROCK3 DECLE @@cue + ( 5 - 1) + CUE.3_blue_c ; $0035 305 CUE '3_blue_c' DECLE @@rock2 + ( 10 - 1) ; $0036 310 ROCK2 DECLE @@cue + ( 5 - 1) + CUE.2_pin2_a ; $0037 320 CUE '2_pin2_a' DECLE @@rock2 + ( 15 - 1) ; $0038 325 ROCK2 DECLE @@cue + ( 7 - 1) + CUE.1_turret ; $0039 340 CUE '1_turret' DECLE @@cue + ( 3 - 1) + CUE.1_turret ; $003A 347 CUE '1_turret' DECLE @@exit + ( 6 - 1) + EXIT.pink_e ; $003B 350 EXIT 'pink_e' DECLE @@exit + ( 2 - 1) + EXIT.pin2_a ; $003C 356 EXIT 'pin2_a' DECLE @@exit + ( 1 - 1) + EXIT.blue_c ; $003D 358 EXIT 'blue_c' DECLE @@cue + ( 1 - 1) + CUE.1_turret ; $003E 359 CUE '1_turret' DECLE @@level + ( 1 - 1) + ( 8 SHL 8) ; $003F 360 LEVEL 'I' @@ckpt_0j: DECLE @@blank + ( 9 - 1) ; $0040 361 BLANK DECLE @@cue + ( 2 - 1) + CUE.1_turret ; $0041 370 CUE '1_turret' DECLE @@crat3 + ( 14 - 1) ; $0042 372 CRAT3 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0043 386 CUE '1_plant' DECLE @@crat1 + ( 9 - 1) ; $0044 387 CRAT1 DECLE @@cue + ( 13 - 1) + CUE.3_whit_e ; $0045 396 CUE '3_whit_e' DECLE @@crat2 + ( 15 - 1) ; $0046 409 CRAT2 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0047 424 CUE '1_plant' DECLE @@crat1 + ( 1 - 1) ; $0048 425 CRAT1 DECLE @@cue + ( 21 - 1) + CUE.3_whi2_a ; $0049 426 CUE '3_whi2_a' DECLE @@crat4 + ( 6 - 1) ; $004A 447 CRAT4 DECLE @@level + ( 1 - 1) + ( 41 SHL 8) ; $004B 453 LEVEL 'p' DECLE @@exit + ( 5 - 1) + EXIT.whit_e ; $004C 454 EXIT 'whit_e' DECLE @@exit + ( 1 - 1) + EXIT.whi2_a ; $004D 459 EXIT 'whi2_a' DECLE @@blank + ( 1 - 1) ; $004E 460 BLANK ; 461 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 44 ;; TOTAL OBJECTS 35 ;; TOTAL WORDS 79 ;; ======================================================================== ;;