;; ======================================================================== ;; 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 + ( 12 - 1) ; $0000 0 BLANK DECLE @@cue + ( 17 - 1) + CUE.2_whi2_e ; $0001 12 CUE '2_whi2_e' DECLE @@cue + ( 36 - 1) + CUE.3_blu2_e ; $0002 29 CUE '3_blu2_e' DECLE @@exit + ( 2 - 1) + EXIT.whi2_e ; $0003 65 EXIT 'whi2_e' DECLE @@crat1 + ( 8 - 1) ; $0004 67 CRAT1 DECLE @@rock1 + ( 4 - 1) ; $0005 75 ROCK1 DECLE @@exit + ( 1 - 1) + EXIT.blu2_e ; $0006 79 EXIT 'blu2_e' DECLE @@level + ( 1 - 1) + ( 5 SHL 8) ; $0007 80 LEVEL 'F' @@ckpt_0g: DECLE @@blank + ( 4 - 1) ; $0008 81 BLANK DECLE @@crat1 + ( 11 - 1) ; $0009 85 CRAT1 DECLE @@crat2 + ( 3 - 1) ; $000A 96 CRAT2 DECLE @@rock1 + ( 13 - 1) ; $000B 99 ROCK1 DECLE @@rock2 + ( 10 - 1) ; $000C 112 ROCK2 DECLE @@rock3 + ( 11 - 1) ; $000D 122 ROCK3 DECLE @@rock2 + ( 10 - 1) ; $000E 133 ROCK2 DECLE @@rock1 + ( 8 - 1) ; $000F 143 ROCK1 DECLE @@crat1 + ( 11 - 1) ; $0010 151 CRAT1 DECLE @@rock2 + ( 8 - 1) ; $0011 162 ROCK2 DECLE @@rock2 + ( 3 - 1) ; $0012 170 ROCK2 DECLE @@level + ( 1 - 1) + ( 6 SHL 8) ; $0013 173 LEVEL 'G' @@ckpt_0h: DECLE @@blank + ( 6 - 1) ; $0014 174 BLANK DECLE @@caut1 + ( 3 - 1) ; $0015 180 CAUTION 1 DECLE @@crat2 + ( 10 - 1) ; $0016 183 CRAT2 DECLE @@rock2 + ( 7 - 1) ; $0017 193 ROCK2 DECLE @@crat2 + ( 10 - 1) ; $0018 200 CRAT2 DECLE @@cue + ( 2 - 1) + CUE.3_pin2_c ; $0019 210 CUE '3_pin2_c' DECLE @@rock2 + ( 19 - 1) ; $001A 212 ROCK2 DECLE @@rock2 + ( 36 - 1) ; $001B 231 ROCK2 DECLE @@level + ( 1 - 1) + ( 7 SHL 8) ; $001C 267 LEVEL 'H' @@ckpt_0i: DECLE @@blank + ( 1 - 1) ; $001D 268 BLANK DECLE @@cue + ( 3 - 1) + CUE.2_whi2_b ; $001E 269 CUE '2_whi2_b' DECLE @@exit + ( 38 - 1) + EXIT.pin2_c ; $001F 272 EXIT 'pin2_c' DECLE @@cue + ( 23 - 1) + CUE.2_pin2_e ; $0020 310 CUE '2_pin2_e' DECLE @@exit + ( 24 - 1) + EXIT.whi2_b ; $0021 333 EXIT 'whi2_b' DECLE @@cue + ( 1 - 1) + CUE.2_whi2_d ; $0022 357 CUE '2_whi2_d' DECLE @@exit + ( 2 - 1) + EXIT.pin2_e ; $0023 358 EXIT 'pin2_e' DECLE @@level + ( 1 - 1) + ( 8 SHL 8) ; $0024 360 LEVEL 'I' @@ckpt_0j: DECLE @@blank + ( 8 - 1) ; $0025 361 BLANK DECLE @@cue + ( 24 - 1) + CUE.1_whit_e ; $0026 369 CUE '1_whit_e' DECLE @@rock2 + ( 9 - 1) ; $0027 393 ROCK2 DECLE @@exit + ( 3 - 1) + EXIT.whit_e ; $0028 402 EXIT 'whit_e' DECLE @@crat2 + ( 2 - 1) ; $0029 405 CRAT2 DECLE @@exit + ( 8 - 1) + EXIT.whi2_d ; $002A 407 EXIT 'whi2_d' DECLE @@rock3 + ( 10 - 1) ; $002B 415 ROCK3 DECLE @@rock1 + ( 13 - 1) ; $002C 425 ROCK1 DECLE @@rock3 + ( 8 - 1) ; $002D 438 ROCK3 DECLE @@caut2 + ( 3 - 1) ; $002E 446 CAUTION 2 DECLE @@crat2 + ( 4 - 1) ; $002F 449 CRAT2 DECLE @@level + ( 1 - 1) + ( 41 SHL 8) ; $0030 453 LEVEL 'p' DECLE @@blank + ( 1 - 1) ; $0031 454 BLANK ; 455 END ;; ======================================================================== ;; ;; SUMMARY ;; TOTAL COMMANDS 14 ;; TOTAL OBJECTS 36 ;; TOTAL WORDS 50 ;; ======================================================================== ;;