;; ======================================================================== ;; 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 + ( 11 - 1) ; $0000 0 BLANK DECLE @@crat1 + ( 13 - 1) ; $0001 11 CRAT1 DECLE @@crat2 + ( 12 - 1) ; $0002 24 CRAT2 DECLE @@cue + ( 4 - 1) + CUE.1_pin2_e ; $0003 36 CUE '1_pin2_e' DECLE @@crat2 + ( 14 - 1) ; $0004 40 CRAT2 DECLE @@crat1 + ( 15 - 1) ; $0005 54 CRAT1 DECLE @@crat2 + ( 9 - 1) ; $0006 69 CRAT2 DECLE @@exit + ( 2 - 1) + EXIT.pin2_e ; $0007 78 EXIT 'pin2_e' DECLE @@level + ( 1 - 1) + ( 0 SHL 8) ; $0008 80 LEVEL 'A' @@ckpt_0b: DECLE @@blank + ( 5 - 1) ; $0009 81 BLANK DECLE @@crat2 + ( 6 - 1) ; $000A 86 CRAT2 DECLE @@cue + ( 17 - 1) + CUE.1_blue_a ; $000B 92 CUE '1_blue_a' DECLE @@cue + ( 19 - 1) + CUE.1_bould ; $000C 109 CUE '1_bould' DECLE @@cue + ( 18 - 1) + CUE.2_bould ; $000D 128 CUE '2_bould' DECLE @@cue + ( 6 - 1) + CUE.1_bould ; $000E 146 CUE '1_bould' DECLE @@crat1 + ( 16 - 1) ; $000F 152 CRAT1 DECLE @@cue + ( 4 - 1) + CUE.2_bould ; $0010 168 CUE '2_bould' DECLE @@exit + ( 1 - 1) + EXIT.blue_a ; $0011 172 EXIT 'blue_a' DECLE @@level + ( 1 - 1) + ( 1 SHL 8) ; $0012 173 LEVEL 'B' @@ckpt_0c: DECLE @@blank + ( 6 - 1) ; $0013 174 BLANK DECLE @@cue + ( 5 - 1) + CUE.2_bould ; $0014 180 CUE '2_bould' DECLE @@cue + ( 2 - 1) + CUE.1_pink_b ; $0015 185 CUE '1_pink_b' DECLE @@cue + ( 18 - 1) + CUE.1_bould ; $0016 187 CUE '1_bould' DECLE @@rock1 + ( 5 - 1) ; $0017 205 ROCK1 DECLE @@cue + ( 4 - 1) + CUE.1_blue_d ; $0018 210 CUE '1_blue_d' DECLE @@rock2 + ( 19 - 1) ; $0019 214 ROCK2 DECLE @@rock3 + ( 17 - 1) ; $001A 233 ROCK3 DECLE @@rock3 + ( 6 - 1) ; $001B 250 ROCK3 DECLE @@crat2 + ( 5 - 1) ; $001C 256 CRAT2 DECLE @@exit + ( 2 - 1) + EXIT.pink_b ; $001D 261 EXIT 'pink_b' DECLE @@rock1 + ( 1 - 1) ; $001E 263 ROCK1 DECLE @@exit + ( 3 - 1) + EXIT.blue_d ; $001F 264 EXIT 'blue_d' DECLE @@level + ( 1 - 1) + ( 2 SHL 8) ; $0020 267 LEVEL 'C' @@ckpt_0d: DECLE @@blank + ( 8 - 1) ; $0021 268 BLANK DECLE @@rock2 + ( 12 - 1) ; $0022 276 ROCK2 DECLE @@rock1 + ( 7 - 1) ; $0023 288 ROCK1 DECLE @@cue + ( 4 - 1) + CUE.1_pink_c ; $0024 295 CUE '1_pink_c' DECLE @@crat1 + ( 16 - 1) ; $0025 299 CRAT1 DECLE @@rock2 + ( 5 - 1) ; $0026 315 ROCK2 DECLE @@crat2 + ( 5 - 1) ; $0027 320 CRAT2 DECLE @@cue + ( 9 - 1) + CUE.1_blue_e ; $0028 325 CUE '1_blue_e' DECLE @@crat3 + ( 14 - 1) ; $0029 334 CRAT3 DECLE @@rock2 + ( 7 - 1) ; $002A 348 ROCK2 DECLE @@crat2 + ( 1 - 1) ; $002B 355 CRAT2 DECLE @@exit + ( 3 - 1) + EXIT.pink_c ; $002C 356 EXIT 'pink_c' DECLE @@exit + ( 1 - 1) + EXIT.blue_e ; $002D 359 EXIT 'blue_e' DECLE @@level + ( 1 - 1) + ( 3 SHL 8) ; $002E 360 LEVEL 'D' @@ckpt_0e: DECLE @@blank + ( 5 - 1) ; $002F 361 BLANK DECLE @@rock2 + ( 8 - 1) ; $0030 366 ROCK2 DECLE @@crat1 + ( 2 - 1) ; $0031 374 CRAT1 DECLE @@cue + ( 23 - 1) + CUE.1_whit_b ; $0032 376 CUE '1_whit_b' DECLE @@crat1 + ( 15 - 1) ; $0033 399 CRAT1 DECLE @@crat1 + ( 11 - 1) ; $0034 414 CRAT1 DECLE @@cue + ( 13 - 1) + CUE.2_whit_c ; $0035 425 CUE '2_whit_c' DECLE @@crat1 + ( 12 - 1) ; $0036 438 CRAT1 DECLE @@crat1 + ( 1 - 1) ; $0037 450 CRAT1 DECLE @@exit + ( 2 - 1) + EXIT.whit_b ; $0038 451 EXIT 'whit_b' DECLE @@level + ( 2 - 1) + ( 36 SHL 8) ; $0039 453 LEVEL 'k' DECLE @@exit + ( 1 - 1) + EXIT.whit_c ; $003A 455 EXIT 'whit_c' DECLE @@blank + ( 1 - 1) ; $003B 456 BLANK ; 457 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 22 ;; TOTAL OBJECTS 38 ;; TOTAL WORDS 60 ;; ======================================================================== ;;