;; ======================================================================== ;; 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 + ( 15 - 1) ; $0000 0 BLANK DECLE @@cue + ( 2 - 1) + CUE.stal_e ; $0001 15 CUE 'stal_e' DECLE @@cue + ( 4 - 1) + CUE.stal_a ; $0002 17 CUE 'stal_a' DECLE @@cue + ( 10 - 1) + CUE.2_pin2_c ; $0003 21 CUE '2_pin2_c' DECLE @@cue + ( 6 - 1) + CUE.stal_i ; $0004 31 CUE 'stal_i' DECLE @@cue + ( 3 - 1) + CUE.stal_c ; $0005 37 CUE 'stal_c' DECLE @@cue + ( 6 - 1) + CUE.2_pin2_a ; $0006 40 CUE '2_pin2_a' DECLE @@cue + ( 6 - 1) + CUE.stal_h ; $0007 46 CUE 'stal_h' DECLE @@cue + ( 8 - 1) + CUE.stal_e ; $0008 52 CUE 'stal_e' DECLE @@cue + ( 5 - 1) + CUE.stal_g ; $0009 60 CUE 'stal_g' DECLE @@cue + ( 7 - 1) + CUE.stal_f ; $000A 65 CUE 'stal_f' DECLE @@cue + ( 8 - 1) + CUE.stal_c ; $000B 72 CUE 'stal_c' DECLE @@level + ( 1 - 1) + ( 5 SHL 8) ; $000C 80 LEVEL 'F' @@ckpt_0g: DECLE @@blank + ( 3 - 1) ; $000D 81 BLANK DECLE @@crat3 + ( 1 - 1) ; $000E 84 CRAT3 DECLE @@cue + ( 8 - 1) + CUE.2_blu2_e ; $000F 85 CUE '2_blu2_e' DECLE @@cue + ( 3 - 1) + CUE.stal_i ; $0010 93 CUE 'stal_i' DECLE @@cue + ( 1 - 1) + CUE.stal_i ; $0011 96 CUE 'stal_i' DECLE @@cue + ( 8 - 1) + CUE.stal_i ; $0012 97 CUE 'stal_i' DECLE @@cue + ( 3 - 1) + CUE.2_blu2_a ; $0013 105 CUE '2_blu2_a' DECLE @@cue + ( 6 - 1) + CUE.stal_e ; $0014 108 CUE 'stal_e' DECLE @@cue + ( 6 - 1) + CUE.stal_f ; $0015 114 CUE 'stal_f' DECLE @@cue + ( 5 - 1) + CUE.stal_d ; $0016 120 CUE 'stal_d' DECLE @@cue + ( 3 - 1) + CUE.2_pin2_a ; $0017 125 CUE '2_pin2_a' DECLE @@cue + ( 4 - 1) + CUE.stal_a ; $0018 128 CUE 'stal_a' DECLE @@cue + ( 8 - 1) + CUE.stal_d ; $0019 132 CUE 'stal_d' DECLE @@cue + ( 1 - 1) + CUE.stal_f ; $001A 140 CUE 'stal_f' DECLE @@cue + ( 9 - 1) + CUE.stal_b ; $001B 141 CUE 'stal_b' DECLE @@cue + ( 8 - 1) + CUE.stal_a ; $001C 150 CUE 'stal_a' DECLE @@cue + ( 4 - 1) + CUE.stal_c ; $001D 158 CUE 'stal_c' DECLE @@cue + ( 4 - 1) + CUE.stal_i ; $001E 162 CUE 'stal_i' DECLE @@cue + ( 7 - 1) + CUE.stal_h ; $001F 166 CUE 'stal_h' DECLE @@level + ( 1 - 1) + ( 6 SHL 8) ; $0020 173 LEVEL 'G' @@ckpt_0h: DECLE @@blank + ( 3 - 1) ; $0021 174 BLANK DECLE @@cue + ( 4 - 1) + CUE.stal_f ; $0022 177 CUE 'stal_f' DECLE @@cue + ( 2 - 1) + CUE.stal_g ; $0023 181 CUE 'stal_g' DECLE @@cue + ( 10 - 1) + CUE.stal_b ; $0024 183 CUE 'stal_b' DECLE @@cue + ( 4 - 1) + CUE.stal_e ; $0025 193 CUE 'stal_e' DECLE @@cue + ( 7 - 1) + CUE.stal_i ; $0026 197 CUE 'stal_i' DECLE @@cue + ( 2 - 1) + CUE.1_bould ; $0027 204 CUE '1_bould' DECLE @@cue + ( 4 - 1) + CUE.stal_a ; $0028 206 CUE 'stal_a' DECLE @@cue + ( 2 - 1) + CUE.1_bould ; $0029 210 CUE '1_bould' DECLE @@cue + ( 3 - 1) + CUE.stal_b ; $002A 212 CUE 'stal_b' DECLE @@cue + ( 4 - 1) + CUE.stal_a ; $002B 215 CUE 'stal_a' DECLE @@cue + ( 2 - 1) + CUE.1_bould ; $002C 219 CUE '1_bould' DECLE @@cue + ( 3 - 1) + CUE.stal_h ; $002D 221 CUE 'stal_h' DECLE @@cue + ( 5 - 1) + CUE.stal_c ; $002E 224 CUE 'stal_c' DECLE @@cue + ( 7 - 1) + CUE.1_bould ; $002F 229 CUE '1_bould' DECLE @@cue + ( 5 - 1) + CUE.stal_d ; $0030 236 CUE 'stal_d' DECLE @@cue + ( 14 - 1) + CUE.stal_c ; $0031 241 CUE 'stal_c' DECLE @@cue + ( 5 - 1) + CUE.stal_d ; $0032 255 CUE 'stal_d' DECLE @@cue + ( 7 - 1) + CUE.stal_a ; $0033 260 CUE 'stal_a' DECLE @@level + ( 1 - 1) + ( 7 SHL 8) ; $0034 267 LEVEL 'H' @@ckpt_0i: DECLE @@blank + ( 4 - 1) ; $0035 268 BLANK DECLE @@cue + ( 2 - 1) + CUE.2_blue_d ; $0036 272 CUE '2_blue_d' DECLE @@cue + ( 9 - 1) + CUE.1_bould ; $0037 274 CUE '1_bould' DECLE @@cue + ( 2 - 1) + CUE.stal_f ; $0038 283 CUE 'stal_f' DECLE @@cue + ( 2 - 1) + CUE.1_bould ; $0039 285 CUE '1_bould' DECLE @@cue + ( 7 - 1) + CUE.stal_h ; $003A 287 CUE 'stal_h' DECLE @@cue + ( 1 - 1) + CUE.1_bould ; $003B 294 CUE '1_bould' DECLE @@cue + ( 1 - 1) + CUE.1_pin2_b ; $003C 295 CUE '1_pin2_b' DECLE @@cue + ( 4 - 1) + CUE.stal_b ; $003D 296 CUE 'stal_b' DECLE @@cue + ( 2 - 1) + CUE.1_bould ; $003E 300 CUE '1_bould' DECLE @@cue + ( 2 - 1) + CUE.stal_a ; $003F 302 CUE 'stal_a' DECLE @@cue + ( 1 - 1) + CUE.1_bould ; $0040 304 CUE '1_bould' DECLE @@cue + ( 4 - 1) + CUE.stal_b ; $0041 305 CUE 'stal_b' DECLE @@cue + ( 2 - 1) + CUE.1_bould ; $0042 309 CUE '1_bould' DECLE @@cue + ( 1 - 1) + CUE.stal_f ; $0043 311 CUE 'stal_f' DECLE @@cue + ( 1 - 1) + CUE.1_bould ; $0044 312 CUE '1_bould' DECLE @@cue + ( 1 - 1) + CUE.1_pin2_e ; $0045 313 CUE '1_pin2_e' DECLE @@cue + ( 5 - 1) + CUE.stal_c ; $0046 314 CUE 'stal_c' DECLE @@cue + ( 2 - 1) + CUE.1_bould ; $0047 319 CUE '1_bould' DECLE @@cue + ( 7 - 1) + CUE.stal_d ; $0048 321 CUE 'stal_d' DECLE @@cue + ( 8 - 1) + CUE.1_bould ; $0049 328 CUE '1_bould' DECLE @@cue + ( 9 - 1) + CUE.stal_c ; $004A 336 CUE 'stal_c' DECLE @@cue + ( 5 - 1) + CUE.stal_d ; $004B 345 CUE 'stal_d' DECLE @@cue + ( 9 - 1) + CUE.stal_c ; $004C 350 CUE 'stal_c' DECLE @@cue + ( 1 - 1) + CUE.1_bould ; $004D 359 CUE '1_bould' DECLE @@level + ( 1 - 1) + ( 8 SHL 8) ; $004E 360 LEVEL 'I' @@ckpt_0j: DECLE @@blank + ( 4 - 1) ; $004F 361 BLANK DECLE @@cue + ( 15 - 1) + CUE.1_pin2_e ; $0050 365 CUE '1_pin2_e' DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0051 380 CUE '1_plant' DECLE @@crat1 + ( 2 - 1) ; $0052 381 CRAT1 DECLE @@crat1 + ( 2 - 1) ; $0053 383 CRAT1 DECLE @@cue + ( 15 - 1) + CUE.1_pink_b ; $0054 385 CUE '1_pink_b' DECLE @@crat1 + ( 4 - 1) ; $0055 400 CRAT1 DECLE @@crat1 + ( 5 - 1) ; $0056 404 CRAT1 DECLE @@crat1 + ( 11 - 1) ; $0057 409 CRAT1 DECLE @@crat1 + ( 1 - 1) ; $0058 420 CRAT1 DECLE @@cue + ( 1 - 1) + CUE.1_plant ; $0059 421 CUE '1_plant' DECLE @@crat1 + ( 3 - 1) ; $005A 422 CRAT1 DECLE @@cue + ( 9 - 1) + CUE.3_blu2_e ; $005B 425 CUE '3_blu2_e' DECLE @@cue + ( 4 - 1) + CUE.stal_i ; $005C 434 CUE 'stal_i' DECLE @@cue + ( 2 - 1) + CUE.stal_c ; $005D 438 CUE 'stal_c' DECLE @@cue + ( 3 - 1) + CUE.stal_d ; $005E 440 CUE 'stal_d' DECLE @@cue + ( 2 - 1) + CUE.stal_h ; $005F 443 CUE 'stal_h' DECLE @@cue + ( 3 - 1) + CUE.stal_b ; $0060 445 CUE 'stal_b' DECLE @@cue + ( 4 - 1) + CUE.stal_c ; $0061 448 CUE 'stal_c' DECLE @@cue + ( 1 - 1) + CUE.stal_f ; $0062 452 CUE 'stal_f' DECLE @@level + ( 1 - 1) + ( 41 SHL 8) ; $0063 453 LEVEL 'p' DECLE @@blank + ( 1 - 1) ; $0064 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 82 ;; TOTAL OBJECTS 19 ;; TOTAL WORDS 101 ;; ======================================================================== ;;