;; ======================================================================== ;; 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_0a: DECLE @@blank + ( 10 - 1) ; $0000 0 BLANK DECLE @@cue + ( 12 - 1) + CUE.1_pink_d ; $0001 10 CUE '1_pink_d' DECLE @@crat1 + ( 10 - 1) ; $0002 22 CRAT1 DECLE @@cue + ( 14 - 1) + CUE.1_blu2_e ; $0003 32 CUE '1_blu2_e' DECLE @@crat1 + ( 9 - 1) ; $0004 46 CRAT1 DECLE @@rock3 + ( 18 - 1) ; $0005 55 ROCK3 DECLE @@rock1 + ( 5 - 1) ; $0006 73 ROCK1 DECLE @@exit + ( 1 - 1) + EXIT.pink_d ; $0007 78 EXIT 'pink_d' DECLE @@exit + ( 1 - 1) + EXIT.blu2_e ; $0008 79 EXIT 'blu2_e' DECLE @@level + ( 1 - 1) + ( 0 SHL 8) ; $0009 80 LEVEL 'A' @@ckpt_0b: DECLE @@blank + ( 1 - 1) ; $000A 81 BLANK DECLE @@caut1 + ( 10 - 1) ; $000B 82 CAUTION 1 DECLE @@cue + ( 8 - 1) + CUE.2_whit_c ; $000C 92 CUE '2_whit_c' DECLE @@cue + ( 45 - 1) + CUE.1_blue_b ; $000D 100 CUE '1_blue_b' DECLE @@rock1 + ( 15 - 1) ; $000E 145 ROCK1 DECLE @@exit + ( 1 - 1) + EXIT.whit_c ; $000F 160 EXIT 'whit_c' DECLE @@rock1 + ( 9 - 1) ; $0010 161 ROCK1 DECLE @@exit + ( 3 - 1) + EXIT.blue_b ; $0011 170 EXIT 'blue_b' DECLE @@level + ( 1 - 1) + ( 1 SHL 8) ; $0012 173 LEVEL 'B' @@ckpt_0c: DECLE @@blank + ( 2 - 1) ; $0013 174 BLANK DECLE @@cue + ( 5 - 1) + CUE.1_pink_a ; $0014 176 CUE '1_pink_a' DECLE @@rock2 + ( 2 - 1) ; $0015 181 ROCK2 DECLE @@cue + ( 39 - 1) + CUE.1_pink_b ; $0016 183 CUE '1_pink_b' DECLE @@rock1 + ( 13 - 1) ; $0017 222 ROCK1 DECLE @@cue + ( 15 - 1) + CUE.1_pink_c ; $0018 235 CUE '1_pink_c' DECLE @@rock3 + ( 10 - 1) ; $0019 250 ROCK3 DECLE @@exit + ( 2 - 1) + EXIT.pink_a ; $001A 260 EXIT 'pink_a' DECLE @@exit + ( 2 - 1) + EXIT.pink_b ; $001B 262 EXIT 'pink_b' DECLE @@exit + ( 3 - 1) + EXIT.pink_c ; $001C 264 EXIT 'pink_c' DECLE @@level + ( 1 - 1) + ( 2 SHL 8) ; $001D 267 LEVEL 'C' @@ckpt_0d: DECLE @@blank + ( 15 - 1) ; $001E 268 BLANK DECLE @@cue + ( 2 - 1) + CUE.2_blu2_a ; $001F 283 CUE '2_blu2_a' DECLE @@cue + ( 3 - 1) + CUE.1_blue_a ; $0020 285 CUE '1_blue_a' DECLE @@crat1 + ( 10 - 1) ; $0021 288 CRAT1 DECLE @@crat2 + ( 10 - 1) ; $0022 298 CRAT2 DECLE @@crat1 + ( 24 - 1) ; $0023 308 CRAT1 DECLE @@crat3 + ( 8 - 1) ; $0024 332 CRAT3 DECLE @@caut1 + ( 10 - 1) ; $0025 340 CAUTION 1 DECLE @@exit + ( 6 - 1) + EXIT.blue_a ; $0026 350 EXIT 'blue_a' DECLE @@exit + ( 4 - 1) + EXIT.blu2_a ; $0027 356 EXIT 'blu2_a' DECLE @@level + ( 1 - 1) + ( 3 SHL 8) ; $0028 360 LEVEL 'D' @@ckpt_0e: DECLE @@blank + ( 2 - 1) ; $0029 361 BLANK DECLE @@cue + ( 17 - 1) + CUE.1_whit_a ; $002A 363 CUE '1_whit_a' DECLE @@cue + ( 17 - 1) + CUE.1_pink_e ; $002B 380 CUE '1_pink_e' DECLE @@cue + ( 10 - 1) + CUE.1_whit_b ; $002C 397 CUE '1_whit_b' DECLE @@cue + ( 2 - 1) + CUE.1_pin2_d ; $002D 407 CUE '1_pin2_d' DECLE @@rock1 + ( 16 - 1) ; $002E 409 ROCK1 DECLE @@exit + ( 5 - 1) + EXIT.whit_a ; $002F 425 EXIT 'whit_a' DECLE @@rock1 + ( 1 - 1) ; $0030 430 ROCK1 DECLE @@exit + ( 13 - 1) + EXIT.whit_b ; $0031 431 EXIT 'whit_b' DECLE @@exit + ( 1 - 1) + EXIT.pin2_d ; $0032 444 EXIT 'pin2_d' DECLE @@crat1 + ( 5 - 1) ; $0033 445 CRAT1 DECLE @@exit + ( 3 - 1) + EXIT.pink_e ; $0034 450 EXIT 'pink_e' DECLE @@level + ( 1 - 1) + ( 36 SHL 8) ; $0035 453 LEVEL 'k' DECLE @@blank + ( 1 - 1) ; $0036 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 26 ;; TOTAL OBJECTS 29 ;; TOTAL WORDS 55 ;; ======================================================================== ;;