(script 201)

(string
    string_1100 "ARE"
    string_1104 "AREN'T"
    string_110b "ElevGate"
    string_1114 "down"
    string_1119 "pull"
    string_111e "push"
    string_1123 "up"
)

(said
    said_0f04 (aller,appuyer,attirer,bouger)<bas[/!*]
    said_0f1a (aller,appuyer,attirer,bouger)<haut[/!*]
    said_0f30 (appuyer,attirer,bouger)<bas/control,fontainier
    said_0f44 (appuyer,attirer,bouger)<haut/control,fontainier
    said_0f58 (actionner,appuyer,attirer,bouger)/control,fontainier
    said_0f6c */ascenseur,lift
    said_0f75 /archway
    said_0f79 /control
    said_0f7d /ascenseur,lift
    said_0f84 /keyhole
    said_0f88 /shaft
    said_0f8c <dans,dans,dans/ascenseur,lift
    said_0f9c attach/cle
    said_0fa2 attach/cle/keyhole,eyehole,control
    said_0fb1 clore/archway,ascenseur,lift
    said_0fbd bas[/!*]
    said_0fc5 enter/ascenseur,lift
    said_0fce exit/ascenseur,lift
    said_0fd7 get/control
    said_0fdd latch/ascenseur,lift,control
    said_0fe9 lift[<open][/*]
    said_0ff6 look>
    said_0ffa open/archway,ascenseur
    said_1003 debloquer[<actionner<cle]/ascenseur,lift,control
    said_1017 haut[/!*]
)

(local
)

// 1026
(class ElevGate of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        chainID $0
        elevatorID $0
        downID $0
        upID $0
        msgID $0
        gateStMask $0
        gateX $11b
        gateY $7d
        elevX $128
        elevY $7d
        chainY $0
        upRoomNo $0
        downRoomNo $0
    )
    (method (init) // method_00a8
  00a8:3f 02             link 2 // (var $2)
  00aa:39 57            pushi 57 // $57 init
  00ac:76               push0 
  00ad:57 27 04         super Prop 4 

  00b0:35 ff              ldi ff 
  00b2:a1 6e              sag global110 
  00b4:89 0b              lsg gCurRoomNum 
  00b6:3c                 dup 
  00b7:35 20              ldi 20 
  00b9:1a                 eq? 
  00ba:31 0e              bnt code_00ca 
  00bc:35 01              ldi 1 
  00be:65 48             aTop gateStMask 
  00c0:35 2a              ldi 2a 
  00c2:65 54             aTop upRoomNo 
  00c4:35 ff              ldi ff 
  00c6:65 56             aTop downRoomNo 
  00c8:33 3c              jmp code_0106 

        code_00ca
  00ca:3c                 dup 
  00cb:35 2a              ldi 2a 
  00cd:1a                 eq? 
  00ce:31 14              bnt code_00e4 
  00d0:35 02              ldi 2 
  00d2:65 48             aTop gateStMask 
  00d4:35 7e              ldi 7e 
  00d6:65 4c             aTop gateY 
  00d8:65 50             aTop elevY 
  00da:35 4b              ldi 4b 
  00dc:65 54             aTop upRoomNo 
  00de:35 20              ldi 20 
  00e0:65 56             aTop downRoomNo 
  00e2:33 22              jmp code_0106 

        code_00e4
  00e4:3c                 dup 
  00e5:35 4b              ldi 4b 
  00e7:1a                 eq? 
  00e8:31 1c              bnt code_0106 
  00ea:35 04              ldi 4 
  00ec:65 48             aTop gateStMask 
  00ee:35 27              ldi 27 
  00f0:65 4a             aTop gateX 
  00f2:35 70              ldi 70 
  00f4:65 4c             aTop gateY 
  00f6:35 34              ldi 34 
  00f8:65 4e             aTop elevX 
  00fa:35 70              ldi 70 
  00fc:65 50             aTop elevY 
  00fe:35 ff              ldi ff 
  0100:65 54             aTop upRoomNo 
  0102:35 2a              ldi 2a 
  0104:65 56             aTop downRoomNo 

        code_0106
  0106:3a                toss 
  0107:67 50             pTos elevY 
  0109:35 3b              ldi 3b 
  010b:04                 sub 
  010c:65 52             aTop chainY 
  010e:39 05            pushi 5 // $5 view
  0110:78               push1 
  0111:38 00f2          pushi f2 // $f2 read
  0114:39 06            pushi 6 // $6 loop
  0116:78               push1 
  0117:7a               push2 
  0118:38 00c5          pushi c5 // $c5 posn
  011b:7a               push2 
  011c:67 4a             pTos gateX 
  011e:67 4c             pTos gateY 
  0120:38 00c6          pushi c6 // $c6 stopUpd
  0123:76               push0 
  0124:54 18             self 18 

  0126:89 6d              lsg gElevatorState 
  0128:63 48             pToa gateStMask 
  012a:12                 and 
  012b:31 17              bnt code_0144 
  012d:89 6d              lsg gElevatorState 
  012f:35 10              ldi 10 
  0131:12                 and 
  0132:18                 not 
  0133:31 0f              bnt code_0144 
  0135:89 6f              lsg global111 
  0137:81 0b              lag gCurRoomNum 
  0139:1c                 ne? 
  013a:31 08              bnt code_0144 
  013c:38 00a6          pushi a6 // $a6 lastCel
  013f:76               push0 
  0140:54 04             self 4 

  0142:33 0a              jmp code_014e 

        code_0144
  0144:89 6d              lsg gElevatorState 
  0146:63 48             pToa gateStMask 
  0148:00                bnot 
  0149:12                 and 
  014a:a1 6d              sag gElevatorState 
  014c:35 00              ldi 0 

        code_014e
  014e:65 16             aTop cel 
  0150:39 05            pushi 5 // $5 view
  0152:78               push1 
  0153:38 00f2          pushi f2 // $f2 read
  0156:39 42            pushi 42 // $42 setPri
  0158:78               push1 
  0159:39 06            pushi 6 // $6 loop
  015b:38 00c9          pushi c9 // $c9 ignoreActors
  015e:78               push1 
  015f:78               push1 
  0160:39 12            pushi 12 // $12 illegalBits
  0162:78               push1 
  0163:76               push0 
  0164:63 40             pToa elevatorID 
  0166:4a 18             send 18 

  0168:39 57            pushi 57 // $57 init
  016a:76               push0 
  016b:81 00              lag gEgo 
  016d:4a 04             send 4 

  016f:89 6f              lsg global111 
  0171:34 7fff            ldi 7fff 
  0174:12                 and 
  0175:36                push 
  0176:81 0b              lag gCurRoomNum 
  0178:1a                 eq? 
  0179:30 016c            bnt code_02e8 
  017c:39 04            pushi 4 // $4 x
  017e:78               push1 
  017f:67 4e             pTos elevX 
  0181:63 40             pToa elevatorID 
  0183:4a 06             send 6 

  0185:39 05            pushi 5 // $5 view
  0187:78               push1 
  0188:38 00a6          pushi a6 // $a6 lastCel
  018b:39 06            pushi 6 // $6 loop
  018d:78               push1 
  018e:76               push0 
  018f:39 07            pushi 7 // $7 cel
  0191:78               push1 
  0192:76               push0 
  0193:39 04            pushi 4 // $4 x
  0195:78               push1 
  0196:39 48            pushi 48 // $48 syntaxFail
  0198:39 03            pushi 3 // $3 y
  019a:78               push1 
  019b:38 00b1          pushi b1 // $b1 bumpTurn
  019e:38 00c9          pushi c9 // $c9 ignoreActors
  01a1:78               push1 
  01a2:78               push1 
  01a3:39 57            pushi 57 // $57 init
  01a5:76               push0 
  01a6:38 0089          pushi 89 // $89 hide
  01a9:76               push0 
  01aa:63 42             pToa downID 
  01ac:4a 2c             send 2c 

  01ae:39 05            pushi 5 // $5 view
  01b0:78               push1 
  01b1:38 00a6          pushi a6 // $a6 lastCel
  01b4:39 06            pushi 6 // $6 loop
  01b6:78               push1 
  01b7:76               push0 
  01b8:39 07            pushi 7 // $7 cel
  01ba:78               push1 
  01bb:78               push1 
  01bc:39 04            pushi 4 // $4 x
  01be:78               push1 
  01bf:38 008b          pushi 8b // $8b select
  01c2:39 03            pushi 3 // $3 y
  01c4:78               push1 
  01c5:38 0097          pushi 97 // $97 open
  01c8:38 00c9          pushi c9 // $c9 ignoreActors
  01cb:78               push1 
  01cc:78               push1 
  01cd:39 57            pushi 57 // $57 init
  01cf:76               push0 
  01d0:38 0089          pushi 89 // $89 hide
  01d3:76               push0 
  01d4:63 44             pToa upID 
  01d6:4a 2c             send 2c 

  01d8:35 00              ldi 0 
  01da:a5 00              sat temp0 
  01dc:89 6f              lsg global111 
  01de:81 0b              lag gCurRoomNum 
  01e0:1a                 eq? 
  01e1:31 43              bnt code_0226 
  01e3:7a               push2 
  01e4:38 0081          pushi 81 // $81 prevSignal
  01e7:39 42            pushi 42 // $42 setPri
  01e9:43 00 04         callk Load 4 

  01ec:39 09            pushi 9 // $9 nsTop
  01ee:38 0084          pushi 84 // $84 stop
  01f1:39 09            pushi 9 // $9 nsTop
  01f3:39 42            pushi 42 // $42 setPri
  01f5:39 4f            pushi 4f // $4f restore
  01f7:39 50            pushi 50 // $50 title
  01f9:39 51            pushi 51 // $51 button
  01fb:39 59            pushi 59 // $59 showStr
  01fd:39 5a            pushi 5a // $5a showSelf
  01ff:39 67            pushi 67 // $67 first
  0201:45 15 12         callb procedure_0015 12 // LoadMany 

  0204:39 06            pushi 6 // $6 loop
  0206:78               push1 
  0207:76               push0 
  0208:39 03            pushi 3 // $3 y
  020a:78               push1 
  020b:67 50             pTos elevY 
  020d:38 00c6          pushi c6 // $c6 stopUpd
  0210:76               push0 
  0211:63 40             pToa elevatorID 
  0213:4a 10             send 10 

  0215:38 0084          pushi 84 // $84 stop
  0218:76               push0 
  0219:38 0081          pushi 81 // $81 prevSignal
  021c:78               push1 
  021d:76               push0 
  021e:80 00b7            lag gConMusic 
  0221:4a 0a             send a 

  0223:32 00b3            jmp code_02d9 

        code_0226
  0226:38 00c5          pushi c5 // $c5 posn
  0229:7a               push2 
  022a:67 4e             pTos elevX 
  022c:67 50             pTos elevY 
  022e:35 02              ldi 2 
  0230:04                 sub 
  0231:36                push 
  0232:39 12            pushi 12 // $12 illegalBits
  0234:78               push1 
  0235:76               push0 
  0236:38 00c9          pushi c9 // $c9 ignoreActors
  0239:78               push1 
  023a:78               push1 
  023b:38 0089          pushi 89 // $89 hide
  023e:76               push0 
  023f:81 00              lag gEgo 
  0241:4a 18             send 18 

  0243:89 0c              lsg gPrevRoomNum 
  0245:81 0b              lag gCurRoomNum 
  0247:22                 lt? 
  0248:31 47              bnt code_0291 
  024a:35 32              ldi 32 
  024c:a5 01              sat temp1 
  024e:39 05            pushi 5 // $5 view
  0250:78               push1 
  0251:38 00f2          pushi f2 // $f2 read
  0254:38 00c8          pushi c8 // $c8 setLoop
  0257:78               push1 
  0258:39 03            pushi 3 // $3 y
  025a:38 00c9          pushi c9 // $c9 ignoreActors
  025d:78               push1 
  025e:78               push1 
  025f:39 12            pushi 12 // $12 illegalBits
  0261:78               push1 
  0262:76               push0 
  0263:38 00c5          pushi c5 // $c5 posn
  0266:7a               push2 
  0267:67 4e             pTos elevX 
  0269:67 52             pTos chainY 
  026b:35 32              ldi 32 
  026d:02                 add 
  026e:36                push 
  026f:39 42            pushi 42 // $42 setPri
  0271:78               push1 
  0272:39 06            pushi 6 // $6 loop
  0274:39 38            pushi 38 // $38 moveSpeed
  0276:78               push1 
  0277:78               push1 
  0278:38 00d3          pushi d3 // $d3 setMotion
  027b:39 03            pushi 3 // $3 y
  027d:51 1d            class MoveTo 
  027f:36                push 
  0280:67 4e             pTos elevX 
  0282:67 50             pTos elevY 
  0284:35 32              ldi 32 
  0286:04                 sub 
  0287:36                push 
  0288:39 57            pushi 57 // $57 init
  028a:76               push0 
  028b:63 3e             pToa chainID 
  028d:4a 3a             send 3a 

  028f:33 04              jmp code_0295 

        code_0291
  0291:35 cc              ldi cc 
  0293:a5 01              sat temp1 

        code_0295
  0295:89 6f              lsg global111 
  0297:34 7fff            ldi 7fff 
  029a:12                 and 
  029b:a1 6f              sag global111 
  029d:89 6d              lsg gElevatorState 
  029f:35 40              ldi 40 
  02a1:14                  or 
  02a2:a1 6d              sag gElevatorState 
  02a4:76               push0 
  02a5:45 03 00         callb procedure_0003 0 // HandsOff 

  02a8:35 00              ldi 0 
  02aa:a1 6e              sag global110 
  02ac:38 00c8          pushi c8 // $c8 setLoop
  02af:78               push1 
  02b0:78               push1 
  02b1:39 03            pushi 3 // $3 y
  02b3:78               push1 
  02b4:67 50             pTos elevY 
  02b6:85 01              lat temp1 
  02b8:02                 add 
  02b9:36                push 
  02ba:39 38            pushi 38 // $38 moveSpeed
  02bc:78               push1 
  02bd:78               push1 
  02be:38 00d3          pushi d3 // $d3 setMotion
  02c1:39 04            pushi 4 // $4 x
  02c3:51 1d            class MoveTo 
  02c5:36                push 
  02c6:67 4e             pTos elevX 
  02c8:67 50             pTos elevY 
  02ca:7c            pushSelf 
  02cb:63 40             pToa elevatorID 
  02cd:4a 1e             send 1e 

  02cf:38 00a6          pushi a6 // $a6 lastCel
  02d2:76               push0 
  02d3:63 40             pToa elevatorID 
  02d5:4a 04             send 4 

  02d7:a5 00              sat temp0 

        code_02d9
  02d9:39 07            pushi 7 // $7 cel
  02db:78               push1 
  02dc:8d 00              lst temp0 
  02de:39 57            pushi 57 // $57 init
  02e0:76               push0 
  02e1:63 40             pToa elevatorID 
  02e3:4a 0a             send a 

  02e5:32 00d2            jmp code_03ba 

        code_02e8
  02e8:7a               push2 
  02e9:38 0080          pushi 80 // $80 timeLeft
  02ec:39 05            pushi 5 // $5 view
  02ee:43 00 04         callk Load 4 

  02f1:89 6d              lsg gElevatorState 
  02f3:35 20              ldi 20 
  02f5:12                 and 
  02f6:31 63              bnt code_035b 
  02f8:76               push0 
  02f9:45 03 00         callb procedure_0003 0 // HandsOff 

  02fc:89 0b              lsg gCurRoomNum 
  02fe:35 20              ldi 20 
  0300:1a                 eq? 
  0301:31 06              bnt code_0309 
  0303:35 00              ldi 0 
  0305:a5 01              sat temp1 
  0307:33 04              jmp code_030d 

        code_0309
  0309:35 3c              ldi 3c 
  030b:a5 01              sat temp1 

        code_030d
  030d:35 0f              ldi f 
  030f:a1 6e              sag global110 
  0311:39 05            pushi 5 // $5 view
  0313:78               push1 
  0314:39 05            pushi 5 // $5 view
  0316:38 00c8          pushi c8 // $c8 setLoop
  0319:78               push1 
  031a:39 04            pushi 4 // $4 x
  031c:38 00a2          pushi a2 // $a2 setCel
  031f:78               push1 
  0320:76               push0 
  0321:38 00c9          pushi c9 // $c9 ignoreActors
  0324:78               push1 
  0325:78               push1 
  0326:39 12            pushi 12 // $12 illegalBits
  0328:78               push1 
  0329:76               push0 
  032a:38 00c5          pushi c5 // $c5 posn
  032d:7a               push2 
  032e:67 4e             pTos elevX 
  0330:67 50             pTos elevY 
  0332:35 3c              ldi 3c 
  0334:04                 sub 
  0335:36                push 
  0336:39 42            pushi 42 // $42 setPri
  0338:78               push1 
  0339:39 06            pushi 6 // $6 loop
  033b:38 00dc          pushi dc // $dc setStep
  033e:7a               push2 
  033f:76               push0 
  0340:39 07            pushi 7 // $7 cel
  0342:39 38            pushi 38 // $38 moveSpeed
  0344:78               push1 
  0345:76               push0 
  0346:38 00d3          pushi d3 // $d3 setMotion
  0349:39 04            pushi 4 // $4 x
  034b:51 1d            class MoveTo 
  034d:36                push 
  034e:67 4e             pTos elevX 
  0350:67 50             pTos elevY 
  0352:85 01              lat temp1 
  0354:02                 add 
  0355:36                push 
  0356:7c            pushSelf 
  0357:81 00              lag gEgo 
  0359:4a 46             send 46 


        code_035b
  035b:89 0b              lsg gCurRoomNum 
  035d:35 20              ldi 20 
  035f:1a                 eq? 
  0360:31 35              bnt code_0397 
  0362:39 42            pushi 42 // $42 setPri
  0364:78               push1 
  0365:39 09            pushi 9 // $9 nsTop
  0367:38 00c9          pushi c9 // $c9 ignoreActors
  036a:78               push1 
  036b:78               push1 
  036c:54 0c             self c 

  036e:39 06            pushi 6 // $6 loop
  0370:78               push1 
  0371:39 04            pushi 4 // $4 x
  0373:39 07            pushi 7 // $7 cel
  0375:78               push1 
  0376:89 6d              lsg gElevatorState 
  0378:63 48             pToa gateStMask 
  037a:12                 and 
  037b:36                push 
  037c:35 01              ldi 1 
  037e:06                 mul 
  037f:36                push 
  0380:38 00c5          pushi c5 // $c5 posn
  0383:7a               push2 
  0384:67 4a             pTos gateX 
  0386:67 4c             pTos gateY 
  0388:38 00c9          pushi c9 // $c9 ignoreActors
  038b:78               push1 
  038c:76               push0 
  038d:38 00c6          pushi c6 // $c6 stopUpd
  0390:76               push0 
  0391:63 40             pToa elevatorID 
  0393:4a 1e             send 1e 

  0395:33 1c              jmp code_03b3 

        code_0397
  0397:89 6f              lsg global111 
  0399:81 0b              lag gCurRoomNum 
  039b:22                 lt? 
  039c:31 15              bnt code_03b3 
  039e:39 06            pushi 6 // $6 loop
  03a0:78               push1 
  03a1:39 03            pushi 3 // $3 y
  03a3:38 00c5          pushi c5 // $c5 posn
  03a6:7a               push2 
  03a7:67 4e             pTos elevX 
  03a9:67 50             pTos elevY 
  03ab:35 02              ldi 2 
  03ad:02                 add 
  03ae:36                push 
  03af:63 40             pToa elevatorID 
  03b1:4a 0e             send e 


        code_03b3
  03b3:39 57            pushi 57 // $57 init
  03b5:76               push0 
  03b6:63 40             pToa elevatorID 
  03b8:4a 04             send 4 


        code_03ba
  03ba:48                 ret 
    )

    (method (doit) // method_03bb
  03bb:89 6d              lsg gElevatorState 
  03bd:35 10              ldi 10 
  03bf:12                 and 
  03c0:18                 not 
  03c1:30 0095            bnt code_0459 
  03c4:89 6d              lsg gElevatorState 
  03c6:35 20              ldi 20 
  03c8:12                 and 
  03c9:18                 not 
  03ca:30 008c            bnt code_0459 
  03cd:38 00db          pushi db // $db onControl
  03d0:78               push1 
  03d1:78               push1 
  03d2:81 00              lag gEgo 
  03d4:4a 06             send 6 

  03d6:36                push 
  03d7:35 10              ldi 10 
  03d9:12                 and 
  03da:31 61              bnt code_043d 
  03dc:35 0f              ldi f 
  03de:a1 6e              sag global110 
  03e0:89 6d              lsg gElevatorState 
  03e2:35 20              ldi 20 
  03e4:14                  or 
  03e5:a1 6d              sag gElevatorState 
  03e7:76               push0 
  03e8:45 03 00         callb procedure_0003 0 // HandsOff 

  03eb:39 05            pushi 5 // $5 view
  03ed:78               push1 
  03ee:39 05            pushi 5 // $5 view
  03f0:38 00c8          pushi c8 // $c8 setLoop
  03f3:78               push1 
  03f4:39 04            pushi 4 // $4 x
  03f6:38 00a2          pushi a2 // $a2 setCel
  03f9:78               push1 
  03fa:76               push0 
  03fb:39 42            pushi 42 // $42 setPri
  03fd:78               push1 
  03fe:39 06            pushi 6 // $6 loop
  0400:38 00c9          pushi c9 // $c9 ignoreActors
  0403:78               push1 
  0404:78               push1 
  0405:39 12            pushi 12 // $12 illegalBits
  0407:78               push1 
  0408:76               push0 
  0409:38 00dc          pushi dc // $dc setStep
  040c:7a               push2 
  040d:76               push0 
  040e:39 07            pushi 7 // $7 cel
  0410:39 38            pushi 38 // $38 moveSpeed
  0412:78               push1 
  0413:76               push0 
  0414:38 00d3          pushi d3 // $d3 setMotion
  0417:39 04            pushi 4 // $4 x
  0419:51 1d            class MoveTo 
  041b:36                push 
  041c:67 4e             pTos elevX 
  041e:67 50             pTos elevY 
  0420:35 3c              ldi 3c 
  0422:02                 add 
  0423:36                push 
  0424:7c            pushSelf 
  0425:81 00              lag gEgo 
  0427:4a 3e             send 3e 

  0429:39 2b            pushi 2b // $2b number
  042b:78               push1 
  042c:39 09            pushi 9 // $9 nsTop
  042e:39 06            pushi 6 // $6 loop
  0430:78               push1 
  0431:39 ff            pushi ff // $ff checkAni
  0433:39 2a            pushi 2a // $2a play
  0435:76               push0 
  0436:80 00b7            lag gConMusic 
  0439:4a 10             send 10 

  043b:33 1c              jmp code_0459 

        code_043d
  043d:38 00db          pushi db // $db onControl
  0440:78               push1 
  0441:78               push1 
  0442:81 00              lag gEgo 
  0444:4a 06             send 6 

  0446:36                push 
  0447:35 08              ldi 8 
  0449:12                 and 
  044a:31 0d              bnt code_0459 
  044c:89 0b              lsg gCurRoomNum 
  044e:81 6f              lag global111 
  0450:1a                 eq? 
  0451:31 06              bnt code_0459 
  0453:38 0143          pushi 143 // $143 elevatorFunc
  0456:76               push0 
  0457:54 04             self 4 


        code_0459
  0459:89 6d              lsg gElevatorState 
  045b:35 50              ldi 50 
  045d:12                 and 
  045e:36                push 
  045f:35 10              ldi 10 
  0461:1a                 eq? 
  0462:31 45              bnt code_04a9 
  0464:39 03            pushi 3 // $3 y
  0466:76               push0 
  0467:81 00              lag gEgo 
  0469:4a 04             send 4 

  046b:36                push 
  046c:67 4c             pTos gateY 
  046e:35 02              ldi 2 
  0470:04                 sub 
  0471:1e                 gt? 
  0472:31 18              bnt code_048c 
  0474:38 00c5          pushi c5 // $c5 posn
  0477:7a               push2 
  0478:67 4e             pTos elevX 
  047a:67 50             pTos elevY 
  047c:35 02              ldi 2 
  047e:04                 sub 
  047f:36                push 
  0480:81 00              lag gEgo 
  0482:4a 08             send 8 

  0484:38 0143          pushi 143 // $143 elevatorFunc
  0487:76               push0 
  0488:54 04             self 4 

  048a:33 1d              jmp code_04a9 

        code_048c
  048c:39 04            pushi 4 // $4 x
  048e:76               push0 
  048f:81 00              lag gEgo 
  0491:4a 04             send 4 

  0493:36                push 
  0494:63 4e             pToa elevX 
  0496:1c                 ne? 
  0497:31 10              bnt code_04a9 
  0499:38 00c5          pushi c5 // $c5 posn
  049c:7a               push2 
  049d:67 4e             pTos elevX 
  049f:67 50             pTos elevY 
  04a1:35 02              ldi 2 
  04a3:04                 sub 
  04a4:36                push 
  04a5:81 00              lag gEgo 
  04a7:4a 08             send 8 


        code_04a9
  04a9:39 2b            pushi 2b // $2b number
  04ab:76               push0 
  04ac:80 00b7            lag gConMusic 
  04af:4a 04             send 4 

  04b1:36                push 
  04b2:35 42              ldi 42 
  04b4:1a                 eq? 
  04b5:31 2b              bnt code_04e2 
  04b7:38 0081          pushi 81 // $81 prevSignal
  04ba:76               push0 
  04bb:80 00b7            lag gConMusic 
  04be:4a 04             send 4 

  04c0:36                push 
  04c1:35 ff              ldi ff 
  04c3:1a                 eq? 
  04c4:31 1c              bnt code_04e2 
  04c6:38 0081          pushi 81 // $81 prevSignal
  04c9:78               push1 
  04ca:76               push0 
  04cb:39 2b            pushi 2b // $2b number
  04cd:78               push1 
  04ce:39 67            pushi 67 // $67 first
  04d0:39 06            pushi 6 // $6 loop
  04d2:78               push1 
  04d3:39 ff            pushi ff // $ff checkAni
  04d5:39 3f            pushi 3f // $3f priority
  04d7:78               push1 
  04d8:39 0f            pushi f // $f lsBottom
  04da:39 2a            pushi 2a // $2a play
  04dc:76               push0 
  04dd:80 00b7            lag gConMusic 
  04e0:4a 1c             send 1c 


        code_04e2
  04e2:39 3c            pushi 3c // $3c doit
  04e4:76               push0 
  04e5:57 27 04         super Prop 4 

  04e8:48                 ret 
    )

    (method (dispose) // method_04e9
  04e9:39 58            pushi 58 // $58 dispose
  04eb:76               push0 
  04ec:57 27 04         super Prop 4 

  04ef:48                 ret 
    )

    (method (handleEvent) // method_04f0
  04f0:39 4c            pushi 4c // $4c claimed
  04f2:76               push0 
  04f3:87 01              lap param1 
  04f5:4a 04             send 4 

  04f7:31 01              bnt code_04fa 
  04f9:48                 ret 

        code_04fa
  04fa:39 22            pushi 22 // $22 type
  04fc:76               push0 
  04fd:87 01              lap param1 
  04ff:4a 04             send 4 

  0501:36                push 
  0502:34 0080            ldi 80 
  0505:1a                 eq? 
  0506:30 03bc            bnt code_08c5 
  0509:89 0b              lsg gCurRoomNum 
  050b:81 6f              lag global111 
  050d:1c                 ne? 
  050e:31 20              bnt code_0530 
  0510:78               push1 
  0511:74 0a58          lofss $0f6c // */ascenseur,lift
  0514:43 25 02         callk Said 2 

  0517:2f 09               bt code_0522 
  0519:78               push1 
  051a:74 0acc          lofss $0fe9 // lift[<open][/*]
  051d:43 25 02         callk Said 2 

  0520:31 0e              bnt code_0530 

        code_0522
  0522:7a               push2 
  0523:38 00c9          pushi c9 // $c9 ignoreActors
  0526:76               push0 
  0527:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  052d:32 0395            jmp code_08c5 

        code_0530
  0530:78               push1 
  0531:74 0ac2          lofss $0ff6 // look>
  0534:43 25 02         callk Said 2 

  0537:30 010c            bnt code_0646 
  053a:78               push1 
  053b:74 0a37          lofss $0f75 // /archway
  053e:43 25 02         callk Said 2 

  0541:31 0e              bnt code_0551 
  0543:7a               push2 
  0544:38 00c9          pushi c9 // $c9 ignoreActors
  0547:78               push1 
  0548:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  054e:32 00f2            jmp code_0643 

        code_0551
  0551:78               push1 
  0552:74 0a37          lofss $0f8c // <dans,dans,dans/ascenseur,lift
  0555:43 25 02         callk Said 2 

  0558:31 23              bnt code_057d 
  055a:89 6d              lsg gElevatorState 
  055c:35 10              ldi 10 
  055e:12                 and 
  055f:31 0d              bnt code_056e 
  0561:7a               push2 
  0562:38 00c9          pushi c9 // $c9 ignoreActors
  0565:7a               push2 
  0566:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  056c:33 0c              jmp code_057a 

        code_056e
  056e:7a               push2 
  056f:38 00c9          pushi c9 // $c9 ignoreActors
  0572:39 03            pushi 3 // $3 y
  0574:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_057a
  057a:32 00c6            jmp code_0643 

        code_057d
  057d:78               push1 
  057e:74 09fc          lofss $0f7d // /ascenseur,lift
  0581:43 25 02         callk Said 2 

  0584:31 0f              bnt code_0595 
  0586:7a               push2 
  0587:38 00c9          pushi c9 // $c9 ignoreActors
  058a:39 04            pushi 4 // $4 x
  058c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0592:32 00ae            jmp code_0643 

        code_0595
  0595:78               push1 
  0596:74 09e0          lofss $0f79 // /control
  0599:43 25 02         callk Said 2 

  059c:31 2d              bnt code_05cb 
  059e:89 0b              lsg gCurRoomNum 
  05a0:81 6f              lag global111 
  05a2:1c                 ne? 
  05a3:31 06              bnt code_05ab 
  05a5:76               push0 
  05a6:45 0c 00         callb procedure_000c 0 // CantDo 

  05a9:33 1e              jmp code_05c9 

        code_05ab
  05ab:89 6d              lsg gElevatorState 
  05ad:35 10              ldi 10 
  05af:12                 and 
  05b0:31 0b              bnt code_05bd 
  05b2:7a               push2 
  05b3:67 42             pTos downID 
  05b5:67 44             pTos upID 
  05b7:40 fa86 04        call proc_0041 4 

  05bb:33 0c              jmp code_05c9 

        code_05bd
  05bd:7a               push2 
  05be:38 00c9          pushi c9 // $c9 ignoreActors
  05c1:39 03            pushi 3 // $3 y
  05c3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05c9
  05c9:33 78              jmp code_0643 

        code_05cb
  05cb:78               push1 
  05cc:74 09b5          lofss $0f84 // /keyhole
  05cf:43 25 02         callk Said 2 

  05d2:31 30              bnt code_0604 
  05d4:89 0b              lsg gCurRoomNum 
  05d6:81 6f              lag global111 
  05d8:1c                 ne? 
  05d9:31 06              bnt code_05e1 
  05db:76               push0 
  05dc:45 0c 00         callb procedure_000c 0 // CantDo 

  05df:33 21              jmp code_0602 

        code_05e1
  05e1:89 6d              lsg gElevatorState 
  05e3:35 10              ldi 10 
  05e5:12                 and 
  05e6:31 0e              bnt code_05f6 
  05e8:7a               push2 
  05e9:38 00c9          pushi c9 // $c9 ignoreActors
  05ec:39 05            pushi 5 // $5 view
  05ee:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05f4:33 0c              jmp code_0602 

        code_05f6
  05f6:7a               push2 
  05f7:38 00c9          pushi c9 // $c9 ignoreActors
  05fa:39 03            pushi 3 // $3 y
  05fc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0602
  0602:33 3f              jmp code_0643 

        code_0604
  0604:78               push1 
  0605:74 0980          lofss $0f88 // /shaft
  0608:43 25 02         callk Said 2 

  060b:31 36              bnt code_0643 
  060d:89 0b              lsg gCurRoomNum 
  060f:81 6f              lag global111 
  0611:22                 lt? 
  0612:31 0a              bnt code_061e 
  0614:78               push1 
  0615:74 0b0b          lofss $1123 // up
  0618:40 fa05 02        call proc_0021 2 

  061c:33 25              jmp code_0643 

        code_061e
  061e:89 0b              lsg gCurRoomNum 
  0620:81 6f              lag global111 
  0622:1e                 gt? 
  0623:31 0a              bnt code_062f 
  0625:78               push1 
  0626:74 0aeb          lofss $1114 // down
  0629:40 f9f4 02        call proc_0021 2 

  062d:33 14              jmp code_0643 

        code_062f
  062f:38 00db          pushi db // $db onControl
  0632:78               push1 
  0633:78               push1 
  0634:81 00              lag gEgo 
  0636:4a 06             send 6 

  0638:36                push 
  0639:35 28              ldi 28 
  063b:12                 and 
  063c:18                 not 
  063d:31 04              bnt code_0643 
  063f:76               push0 
  0640:45 09 00         callb procedure_0009 0 // NotClose 


        code_0643
  0643:32 027f            jmp code_08c5 

        code_0646
  0646:78               push1 
  0647:74 09b0          lofss $0ffa // open/archway,ascenseur
  064a:43 25 02         callk Said 2 

  064d:2f 09               bt code_0658 
  064f:78               push1 
  0650:74 0996          lofss $0fe9 // lift[<open][/*]
  0653:43 25 02         callk Said 2 

  0656:31 09              bnt code_0661 

        code_0658
  0658:38 0143          pushi 143 // $143 elevatorFunc
  065b:76               push0 
  065c:54 04             self 4 

  065e:32 0264            jmp code_08c5 

        code_0661
  0661:78               push1 
  0662:74 0960          lofss $0fc5 // enter/ascenseur,lift
  0665:43 25 02         callk Said 2 

  0668:31 1a              bnt code_0684 
  066a:89 6d              lsg gElevatorState 
  066c:35 10              ldi 10 
  066e:12                 and 
  066f:31 0a              bnt code_067b 
  0671:78               push1 
  0672:74 0a8b          lofss $1100 // ARE
  0675:40 f9b8 02        call proc_0031 2 

  0679:33 06              jmp code_0681 

        code_067b
  067b:38 0143          pushi 143 // $143 elevatorFunc
  067e:76               push0 
  067f:54 04             self 4 


        code_0681
  0681:32 0241            jmp code_08c5 

        code_0684
  0684:78               push1 
  0685:74 0946          lofss $0fce // exit/ascenseur,lift
  0688:43 25 02         callk Said 2 

  068b:31 1a              bnt code_06a7 
  068d:89 6d              lsg gElevatorState 
  068f:35 10              ldi 10 
  0691:12                 and 
  0692:31 08              bnt code_069c 
  0694:38 0143          pushi 143 // $143 elevatorFunc
  0697:76               push0 
  0698:54 04             self 4 

  069a:33 08              jmp code_06a4 

        code_069c
  069c:78               push1 
  069d:74 0a64          lofss $1104 // AREN'T
  06a0:40 f98d 02        call proc_0031 2 


        code_06a4
  06a4:32 021e            jmp code_08c5 

        code_06a7
  06a7:78               push1 
  06a8:74 0906          lofss $0fb1 // clore/archway,ascenseur,lift
  06ab:43 25 02         callk Said 2 

  06ae:31 69              bnt code_0719 
  06b0:89 6d              lsg gElevatorState 
  06b2:63 48             pToa gateStMask 
  06b4:12                 and 
  06b5:18                 not 
  06b6:31 06              bnt code_06be 
  06b8:76               push0 
  06b9:45 11 00         callb procedure_0011 0 // AlreadyClosed 

  06bc:33 58              jmp code_0716 

        code_06be
  06be:38 00db          pushi db // $db onControl
  06c1:78               push1 
  06c2:78               push1 
  06c3:81 00              lag gEgo 
  06c5:4a 06             send 6 

  06c7:36                push 
  06c8:35 08              ldi 8 
  06ca:12                 and 
  06cb:31 2c              bnt code_06f9 
  06cd:39 03            pushi 3 // $3 y
  06cf:76               push0 
  06d0:81 00              lag gEgo 
  06d2:4a 04             send 4 

  06d4:36                push 
  06d5:63 4c             pToa gateY 
  06d7:1a                 eq? 
  06d8:31 14              bnt code_06ee 
  06da:89 0b              lsg gCurRoomNum 
  06dc:35 20              ldi 20 
  06de:1a                 eq? 
  06df:31 0d              bnt code_06ee 
  06e1:7a               push2 
  06e2:38 00c9          pushi c9 // $c9 ignoreActors
  06e5:39 06            pushi 6 // $6 loop
  06e7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06ed:48                 ret 

        code_06ee
  06ee:38 0142          pushi 142 // $142 gateFunc
  06f1:7a               push2 
  06f2:76               push0 
  06f3:39 03            pushi 3 // $3 y
  06f5:54 08             self 8 

  06f7:33 1d              jmp code_0716 

        code_06f9
  06f9:38 00db          pushi db // $db onControl
  06fc:78               push1 
  06fd:78               push1 
  06fe:81 00              lag gEgo 
  0700:4a 06             send 6 

  0702:36                push 
  0703:35 20              ldi 20 
  0705:12                 and 
  0706:31 0a              bnt code_0712 
  0708:38 0142          pushi 142 // $142 gateFunc
  070b:7a               push2 
  070c:76               push0 
  070d:7a               push2 
  070e:54 08             self 8 

  0710:33 04              jmp code_0716 

        code_0712
  0712:76               push0 
  0713:45 09 00         callb procedure_0009 0 // NotClose 


        code_0716
  0716:32 01ac            jmp code_08c5 

        code_0719
  0719:78               push1 
  071a:74 08ba          lofss $0fd7 // get/control
  071d:43 25 02         callk Said 2 

  0720:31 0f              bnt code_0731 
  0722:7a               push2 
  0723:38 00c9          pushi c9 // $c9 ignoreActors
  0726:39 07            pushi 7 // $7 cel
  0728:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  072e:32 0194            jmp code_08c5 

        code_0731
  0731:78               push1 
  0732:74 080f          lofss $0f44 // (appuyer,attirer,bouger)<haut/control,fontainier
  0735:43 25 02         callk Said 2 

  0738:2f 12               bt code_074c 
  073a:78               push1 
  073b:74 08d9          lofss $1017 // haut[/!*]
  073e:43 25 02         callk Said 2 

  0741:2f 09               bt code_074c 
  0743:78               push1 
  0744:74 07d3          lofss $0f1a // (aller,appuyer,attirer,bouger)<haut[/!*]
  0747:43 25 02         callk Said 2 

  074a:31 40              bnt code_078c 

        code_074c
  074c:89 6d              lsg gElevatorState 
  074e:35 10              ldi 10 
  0750:12                 and 
  0751:31 31              bnt code_0784 
  0753:67 54             pTos upRoomNo 
  0755:35 ff              ldi ff 
  0757:1c                 ne? 
  0758:31 20              bnt code_077a 
  075a:67 54             pTos upRoomNo 
  075c:35 4b              ldi 4b 
  075e:1c                 ne? 
  075f:2f 07               bt code_0768 
  0761:89 6d              lsg gElevatorState 
  0763:35 08              ldi 8 
  0765:12                 and 
  0766:31 12              bnt code_077a 

        code_0768
  0768:89 6d              lsg gElevatorState 
  076a:35 40              ldi 40 
  076c:14                  or 
  076d:a1 6d              sag gElevatorState 
  076f:35 09              ldi 9 
  0771:a1 6e              sag global110 
  0773:39 79            pushi 79 // $79 cue
  0775:76               push0 
  0776:54 04             self 4 

  0778:33 08              jmp code_0782 

        code_077a
  077a:78               push1 
  077b:74 09a0          lofss $111e // push
  077e:40 f882 02        call proc_0004 2 


        code_0782
  0782:33 05              jmp code_0789 

        code_0784
  0784:76               push0 
  0785:40 f88b 00        call proc_0014 0 


        code_0789
  0789:32 0139            jmp code_08c5 

        code_078c
  078c:78               push1 
  078d:74 07a0          lofss $0f30 // (appuyer,attirer,bouger)<bas/control,fontainier
  0790:43 25 02         callk Said 2 

  0793:2f 12               bt code_07a7 
  0795:78               push1 
  0796:74 0824          lofss $0fbd // bas[/!*]
  0799:43 25 02         callk Said 2 

  079c:2f 09               bt code_07a7 
  079e:78               push1 
  079f:74 0762          lofss $0f04 // (aller,appuyer,attirer,bouger)<bas[/!*]
  07a2:43 25 02         callk Said 2 

  07a5:31 32              bnt code_07d9 

        code_07a7
  07a7:89 6d              lsg gElevatorState 
  07a9:35 10              ldi 10 
  07ab:12                 and 
  07ac:31 23              bnt code_07d1 
  07ae:67 56             pTos downRoomNo 
  07b0:35 ff              ldi ff 
  07b2:1c                 ne? 
  07b3:31 12              bnt code_07c7 
  07b5:89 6d              lsg gElevatorState 
  07b7:35 40              ldi 40 
  07b9:14                  or 
  07ba:a1 6d              sag gElevatorState 
  07bc:35 0c              ldi c 
  07be:a1 6e              sag global110 
  07c0:39 79            pushi 79 // $79 cue
  07c2:76               push0 
  07c3:54 04             self 4 

  07c5:33 08              jmp code_07cf 

        code_07c7
  07c7:78               push1 
  07c8:74 094e          lofss $1119 // pull
  07cb:40 f835 02        call proc_0004 2 


        code_07cf
  07cf:33 05              jmp code_07d6 

        code_07d1
  07d1:76               push0 
  07d2:40 f83e 00        call proc_0014 0 


        code_07d6
  07d6:32 00ec            jmp code_08c5 

        code_07d9
  07d9:78               push1 
  07da:74 077b          lofss $0f58 // (actionner,appuyer,attirer,bouger)/control,fontainier
  07dd:43 25 02         callk Said 2 

  07e0:31 0f              bnt code_07f1 
  07e2:7a               push2 
  07e3:38 00c9          pushi c9 // $c9 ignoreActors
  07e6:39 08            pushi 8 // $8 underBits
  07e8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07ee:32 00d4            jmp code_08c5 

        code_07f1
  07f1:78               push1 
  07f2:74 07e8          lofss $0fdd // latch/ascenseur,lift,control
  07f5:43 25 02         callk Said 2 

  07f8:31 52              bnt code_084c 
  07fa:89 6d              lsg gElevatorState 
  07fc:35 10              ldi 10 
  07fe:12                 and 
  07ff:31 44              bnt code_0845 
  0801:38 00ee          pushi ee // $ee has
  0804:78               push1 
  0805:39 12            pushi 12 // $12 illegalBits
  0807:81 00              lag gEgo 
  0809:4a 06             send 6 

  080b:31 2a              bnt code_0837 
  080d:89 6d              lsg gElevatorState 
  080f:35 08              ldi 8 
  0811:12                 and 
  0812:31 15              bnt code_0829 
  0814:7a               push2 
  0815:38 00c9          pushi c9 // $c9 ignoreActors
  0818:39 09            pushi 9 // $9 nsTop
  081a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0820:89 6d              lsg gElevatorState 
  0822:35 f7              ldi f7 
  0824:12                 and 
  0825:a1 6d              sag gElevatorState 
  0827:33 0c              jmp code_0835 

        code_0829
  0829:7a               push2 
  082a:38 00c9          pushi c9 // $c9 ignoreActors
  082d:39 0a            pushi a // $a nsLeft
  082f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0835
  0835:33 0c              jmp code_0843 

        code_0837
  0837:7a               push2 
  0838:38 00c9          pushi c9 // $c9 ignoreActors
  083b:39 0b            pushi b // $b nsBottom
  083d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0843
  0843:33 05              jmp code_084a 

        code_0845
  0845:76               push0 
  0846:40 f7ca 00        call proc_0014 0 


        code_084a
  084a:33 79              jmp code_08c5 

        code_084c
  084c:78               push1 
  084d:74 07b3          lofss $1003 // debloquer[<actionner<cle]/ascenseur,lift,control
  0850:43 25 02         callk Said 2 

  0853:2f 09               bt code_085e 
  0855:78               push1 
  0856:74 0749          lofss $0fa2 // attach/cle/keyhole,eyehole,control
  0859:43 25 02         callk Said 2 

  085c:31 52              bnt code_08b0 

        code_085e
  085e:89 6d              lsg gElevatorState 
  0860:35 10              ldi 10 
  0862:12                 and 
  0863:31 44              bnt code_08a9 
  0865:38 00ee          pushi ee // $ee has
  0868:78               push1 
  0869:39 12            pushi 12 // $12 illegalBits
  086b:81 00              lag gEgo 
  086d:4a 06             send 6 

  086f:31 2a              bnt code_089b 
  0871:89 6d              lsg gElevatorState 
  0873:35 08              ldi 8 
  0875:12                 and 
  0876:31 0e              bnt code_0886 
  0878:7a               push2 
  0879:38 00c9          pushi c9 // $c9 ignoreActors
  087c:39 0c            pushi c // $c nsRight
  087e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0884:33 13              jmp code_0899 

        code_0886
  0886:7a               push2 
  0887:38 00c9          pushi c9 // $c9 ignoreActors
  088a:39 09            pushi 9 // $9 nsTop
  088c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0892:89 6d              lsg gElevatorState 
  0894:35 08              ldi 8 
  0896:14                  or 
  0897:a1 6d              sag gElevatorState 

        code_0899
  0899:33 0c              jmp code_08a7 

        code_089b
  089b:7a               push2 
  089c:38 00c9          pushi c9 // $c9 ignoreActors
  089f:39 0b            pushi b // $b nsBottom
  08a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08a7
  08a7:33 05              jmp code_08ae 

        code_08a9
  08a9:76               push0 
  08aa:40 f766 00        call proc_0014 0 


        code_08ae
  08ae:33 15              jmp code_08c5 

        code_08b0
  08b0:78               push1 
  08b1:74 06e8          lofss $0f9c // attach/cle
  08b4:43 25 02         callk Said 2 

  08b7:31 0c              bnt code_08c5 
  08b9:7a               push2 
  08ba:38 00c9          pushi c9 // $c9 ignoreActors
  08bd:39 0d            pushi d // $d lsTop
  08bf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08c5
  08c5:48                 ret 
    )

    (method (elevatorFunc) // method_08c6
  08c6:89 6d              lsg gElevatorState 
  08c8:63 48             pToa gateStMask 
  08ca:12                 and 
  08cb:31 06              bnt code_08d3 
  08cd:76               push0 
  08ce:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  08d1:33 69              jmp code_093c 

        code_08d3
  08d3:38 00db          pushi db // $db onControl
  08d6:78               push1 
  08d7:78               push1 
  08d8:81 00              lag gEgo 
  08da:4a 06             send 6 

  08dc:36                push 
  08dd:35 08              ldi 8 
  08df:12                 and 
  08e0:31 24              bnt code_0906 
  08e2:89 0b              lsg gCurRoomNum 
  08e4:81 6f              lag global111 
  08e6:1c                 ne? 
  08e7:31 0b              bnt code_08f4 
  08e9:38 0142          pushi 142 // $142 gateFunc
  08ec:7a               push2 
  08ed:78               push1 
  08ee:39 03            pushi 3 // $3 y
  08f0:54 08             self 8 

  08f2:33 10              jmp code_0904 

        code_08f4
  08f4:89 6d              lsg gElevatorState 
  08f6:35 40              ldi 40 
  08f8:14                  or 
  08f9:a1 6d              sag gElevatorState 
  08fb:35 05              ldi 5 
  08fd:a1 6e              sag global110 
  08ff:39 79            pushi 79 // $79 cue
  0901:76               push0 
  0902:54 04             self 4 


        code_0904
  0904:33 36              jmp code_093c 

        code_0906
  0906:38 00db          pushi db // $db onControl
  0909:78               push1 
  090a:78               push1 
  090b:81 00              lag gEgo 
  090d:4a 06             send 6 

  090f:36                push 
  0910:35 20              ldi 20 
  0912:12                 and 
  0913:31 0a              bnt code_091f 
  0915:38 0142          pushi 142 // $142 gateFunc
  0918:7a               push2 
  0919:78               push1 
  091a:7a               push2 
  091b:54 08             self 8 

  091d:33 1d              jmp code_093c 

        code_091f
  091f:89 6d              lsg gElevatorState 
  0921:35 10              ldi 10 
  0923:12                 and 
  0924:31 12              bnt code_0938 
  0926:89 6d              lsg gElevatorState 
  0928:35 40              ldi 40 
  092a:14                  or 
  092b:a1 6d              sag gElevatorState 
  092d:35 01              ldi 1 
  092f:a1 6e              sag global110 
  0931:39 79            pushi 79 // $79 cue
  0933:76               push0 
  0934:54 04             self 4 

  0936:33 04              jmp code_093c 

        code_0938
  0938:76               push0 
  0939:45 09 00         callb procedure_0009 0 // NotClose 


        code_093c
  093c:48                 ret 
    )

    (method (gateFunc) // method_093d
  093d:76               push0 
  093e:45 03 00         callb procedure_0003 0 // HandsOff 

  0941:38 00a3          pushi a3 // $a3 startUpd
  0944:76               push0 
  0945:54 04             self 4 

  0947:8f 01              lsp param1 
  0949:35 01              ldi 1 
  094b:1a                 eq? 
  094c:31 1c              bnt code_096a 
  094e:39 2b            pushi 2b // $2b number
  0950:78               push1 
  0951:39 51            pushi 51 // $51 button
  0953:80 00b7            lag gConMusic 
  0956:4a 06             send 6 

  0958:39 7e            pushi 7e // $7e setCycle
  095a:7a               push2 
  095b:51 1a            class End 
  095d:36                push 
  095e:7c            pushSelf 
  095f:54 08             self 8 

  0961:89 6d              lsg gElevatorState 
  0963:63 48             pToa gateStMask 
  0965:14                  or 
  0966:a1 6d              sag gElevatorState 
  0968:33 1b              jmp code_0985 

        code_096a
  096a:39 2b            pushi 2b // $2b number
  096c:78               push1 
  096d:39 4f            pushi 4f // $4f restore
  096f:80 00b7            lag gConMusic 
  0972:4a 06             send 6 

  0974:39 7e            pushi 7e // $7e setCycle
  0976:7a               push2 
  0977:51 1b            class Beg 
  0979:36                push 
  097a:7c            pushSelf 
  097b:54 08             self 8 

  097d:89 6d              lsg gElevatorState 
  097f:63 48             pToa gateStMask 
  0981:00                bnot 
  0982:12                 and 
  0983:a1 6d              sag gElevatorState 

        code_0985
  0985:39 06            pushi 6 // $6 loop
  0987:78               push1 
  0988:78               push1 
  0989:39 2a            pushi 2a // $2a play
  098b:76               push0 
  098c:80 00b7            lag gConMusic 
  098f:4a 0a             send a 

  0991:89 0b              lsg gCurRoomNum 
  0993:35 20              ldi 20 
  0995:1a                 eq? 
  0996:31 2e              bnt code_09c6 
  0998:89 0b              lsg gCurRoomNum 
  099a:81 6f              lag global111 
  099c:1c                 ne? 
  099d:31 27              bnt code_09c6 
  099f:39 07            pushi 7 // $7 cel
  09a1:78               push1 
  09a2:8f 01              lsp param1 
  09a4:38 00c7          pushi c7 // $c7 forceUpd
  09a7:76               push0 
  09a8:63 40             pToa elevatorID 
  09aa:4a 0a             send a 

  09ac:38 00db          pushi db // $db onControl
  09af:78               push1 
  09b0:78               push1 
  09b1:81 00              lag gEgo 
  09b3:4a 06             send 6 

  09b5:36                push 
  09b6:35 20              ldi 20 
  09b8:12                 and 
  09b9:31 0b              bnt code_09c6 
  09bb:8f 01              lsp param1 
  09bd:35 00              ldi 0 
  09bf:1a                 eq? 
  09c0:31 04              bnt code_09c6 
  09c2:35 11              ldi 11 
  09c4:a1 6e              sag global110 

        code_09c6
  09c6:8f 02              lsp param2 
  09c8:35 ff              ldi ff 
  09ca:1c                 ne? 
  09cb:31 09              bnt code_09d6 
  09cd:39 06            pushi 6 // $6 loop
  09cf:78               push1 
  09d0:8f 02              lsp param2 
  09d2:81 00              lag gEgo 
  09d4:4a 06             send 6 


        code_09d6
  09d6:48                 ret 
    )

    (method (cue) // method_09d7
  09d7:c9 6e              +sg global110 
  09d9:3c                 dup 
  09da:35 00              ldi 0 
  09dc:1a                 eq? 
  09dd:31 1f              bnt code_09fe 
  09df:38 00c6          pushi c6 // $c6 stopUpd
  09e2:76               push0 
  09e3:54 04             self 4 

  09e5:89 6d              lsg gElevatorState 
  09e7:35 bf              ldi bf 
  09e9:12                 and 
  09ea:a1 6d              sag gElevatorState 
  09ec:89 0b              lsg gCurRoomNum 
  09ee:81 6f              lag global111 
  09f0:1c                 ne? 
  09f1:31 04              bnt code_09f7 
  09f3:35 ff              ldi ff 
  09f5:a1 6e              sag global110 

        code_09f7
  09f7:76               push0 
  09f8:45 04 00         callb procedure_0004 0 // HandsOn 

  09fb:32 0500            jmp code_0efe 

        code_09fe
  09fe:3c                 dup 
  09ff:35 01              ldi 1 
  0a01:1a                 eq? 
  0a02:31 42              bnt code_0a46 
  0a04:39 2b            pushi 2b // $2b number
  0a06:78               push1 
  0a07:39 50            pushi 50 // $50 title
  0a09:39 06            pushi 6 // $6 loop
  0a0b:78               push1 
  0a0c:78               push1 
  0a0d:39 2a            pushi 2a // $2a play
  0a0f:76               push0 
  0a10:80 00b7            lag gConMusic 
  0a13:4a 10             send 10 

  0a15:38 00c6          pushi c6 // $c6 stopUpd
  0a18:76               push0 
  0a19:63 3e             pToa chainID 
  0a1b:4a 04             send 4 

  0a1d:38 00a4          pushi a4 // $a4 cycleSpeed
  0a20:78               push1 
  0a21:7a               push2 
  0a22:39 7e            pushi 7e // $7e setCycle
  0a24:7a               push2 
  0a25:51 1b            class Beg 
  0a27:36                push 
  0a28:7c            pushSelf 
  0a29:63 40             pToa elevatorID 
  0a2b:4a 0e             send e 

  0a2d:89 0b              lsg gCurRoomNum 
  0a2f:35 2a              ldi 2a 
  0a31:1a                 eq? 
  0a32:31 0f              bnt code_0a43 
  0a34:89 6d              lsg gElevatorState 
  0a36:35 08              ldi 8 
  0a38:12                 and 
  0a39:31 08              bnt code_0a43 
  0a3b:76               push0 
  0a3c:45 04 00         callb procedure_0004 0 // HandsOn 

  0a3f:35 ff              ldi ff 
  0a41:a1 6e              sag global110 

        code_0a43
  0a43:32 04b8            jmp code_0efe 

        code_0a46
  0a46:3c                 dup 
  0a47:35 02              ldi 2 
  0a49:1a                 eq? 
  0a4a:31 27              bnt code_0a73 
  0a4c:38 0088          pushi 88 // $88 fade
  0a4f:76               push0 
  0a50:80 00b7            lag gConMusic 
  0a53:4a 04             send 4 

  0a55:76               push0 
  0a56:45 03 00         callb procedure_0003 0 // HandsOff 

  0a59:89 6d              lsg gElevatorState 
  0a5b:63 48             pToa gateStMask 
  0a5d:12                 and 
  0a5e:31 07              bnt code_0a67 
  0a60:39 79            pushi 79 // $79 cue
  0a62:76               push0 
  0a63:54 04             self 4 

  0a65:33 09              jmp code_0a70 

        code_0a67
  0a67:38 0142          pushi 142 // $142 gateFunc
  0a6a:7a               push2 
  0a6b:78               push1 
  0a6c:39 ff            pushi ff // $ff checkAni
  0a6e:54 08             self 8 


        code_0a70
  0a70:32 048b            jmp code_0efe 

        code_0a73
  0a73:3c                 dup 
  0a74:35 03              ldi 3 
  0a76:1a                 eq? 
  0a77:31 5a              bnt code_0ad3 
  0a79:38 00c6          pushi c6 // $c6 stopUpd
  0a7c:76               push0 
  0a7d:54 04             self 4 

  0a7f:39 06            pushi 6 // $6 loop
  0a81:78               push1 
  0a82:76               push0 
  0a83:39 07            pushi 7 // $7 cel
  0a85:78               push1 
  0a86:76               push0 
  0a87:38 00c6          pushi c6 // $c6 stopUpd
  0a8a:76               push0 
  0a8b:63 40             pToa elevatorID 
  0a8d:4a 10             send 10 

  0a8f:39 05            pushi 5 // $5 view
  0a91:78               push1 
  0a92:76               push0 
  0a93:39 06            pushi 6 // $6 loop
  0a95:78               push1 
  0a96:7a               push2 
  0a97:38 00c5          pushi c5 // $c5 posn
  0a9a:7a               push2 
  0a9b:67 4e             pTos elevX 
  0a9d:35 01              ldi 1 
  0a9f:04                 sub 
  0aa0:36                push 
  0aa1:67 50             pTos elevY 
  0aa3:35 03              ldi 3 
  0aa5:04                 sub 
  0aa6:36                push 
  0aa7:39 12            pushi 12 // $12 illegalBits
  0aa9:78               push1 
  0aaa:76               push0 
  0aab:38 00c9          pushi c9 // $c9 ignoreActors
  0aae:78               push1 
  0aaf:78               push1 
  0ab0:38 00d3          pushi d3 // $d3 setMotion
  0ab3:39 04            pushi 4 // $4 x
  0ab5:51 1d            class MoveTo 
  0ab7:36                push 
  0ab8:67 4e             pTos elevX 
  0aba:35 01              ldi 1 
  0abc:02                 add 
  0abd:36                push 
  0abe:67 50             pTos elevY 
  0ac0:35 02              ldi 2 
  0ac2:02                 add 
  0ac3:36                push 
  0ac4:7c            pushSelf 
  0ac5:39 57            pushi 57 // $57 init
  0ac7:76               push0 
  0ac8:38 00ca          pushi ca // $ca show
  0acb:76               push0 
  0acc:81 00              lag gEgo 
  0ace:4a 34             send 34 

  0ad0:32 042b            jmp code_0efe 

        code_0ad3
  0ad3:3c                 dup 
  0ad4:35 04              ldi 4 
  0ad6:1a                 eq? 
  0ad7:31 0c              bnt code_0ae5 
  0ad9:38 0142          pushi 142 // $142 gateFunc
  0adc:7a               push2 
  0add:76               push0 
  0ade:39 03            pushi 3 // $3 y
  0ae0:54 08             self 8 

  0ae2:32 0419            jmp code_0efe 

        code_0ae5
  0ae5:3c                 dup 
  0ae6:35 05              ldi 5 
  0ae8:1a                 eq? 
  0ae9:31 72              bnt code_0b5d 
  0aeb:38 00db          pushi db // $db onControl
  0aee:78               push1 
  0aef:78               push1 
  0af0:81 00              lag gEgo 
  0af2:4a 06             send 6 

  0af4:36                push 
  0af5:35 08              ldi 8 
  0af7:12                 and 
  0af8:31 39              bnt code_0b33 
  0afa:39 06            pushi 6 // $6 loop
  0afc:78               push1 
  0afd:7a               push2 
  0afe:39 12            pushi 12 // $12 illegalBits
  0b00:78               push1 
  0b01:38 8000          pushi 8000 // $8000 sel_32768
  0b04:38 00c9          pushi c9 // $c9 ignoreActors
  0b07:78               push1 
  0b08:76               push0 
  0b09:38 00d3          pushi d3 // $d3 setMotion
  0b0c:39 04            pushi 4 // $4 x
  0b0e:51 1d            class MoveTo 
  0b10:36                push 
  0b11:39 04            pushi 4 // $4 x
  0b13:76               push0 
  0b14:81 00              lag gEgo 
  0b16:4a 04             send 4 

  0b18:36                push 
  0b19:39 03            pushi 3 // $3 y
  0b1b:76               push0 
  0b1c:81 00              lag gEgo 
  0b1e:4a 04             send 4 

  0b20:36                push 
  0b21:39 37            pushi 37 // $37 yStep
  0b23:76               push0 
  0b24:81 00              lag gEgo 
  0b26:4a 04             send 4 

  0b28:02                 add 
  0b29:36                push 
  0b2a:7c            pushSelf 
  0b2b:81 00              lag gEgo 
  0b2d:4a 1e             send 1e 

  0b2f:e1 6e              -ag global110 
  0b31:33 27              jmp code_0b5a 

        code_0b33
  0b33:76               push0 
  0b34:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0b37:31 0d              bnt code_0b46 
  0b39:63 46             pToa msgID 
  0b3b:31 09              bnt code_0b46 
  0b3d:78               push1 
  0b3e:67 46             pTos msgID 
  0b40:46 00ff 0000 02  calle ff procedure_0000 2 // Print 


        code_0b46
  0b46:76               push0 
  0b47:45 04 00         callb procedure_0004 0 // HandsOn 

  0b4a:89 6d              lsg gElevatorState 
  0b4c:35 ef              ldi ef 
  0b4e:12                 and 
  0b4f:a1 6d              sag gElevatorState 
  0b51:35 ff              ldi ff 
  0b53:a1 6e              sag global110 
  0b55:39 79            pushi 79 // $79 cue
  0b57:76               push0 
  0b58:54 04             self 4 


        code_0b5a
  0b5a:32 03a1            jmp code_0efe 

        code_0b5d
  0b5d:3c                 dup 
  0b5e:35 06              ldi 6 
  0b60:1a                 eq? 
  0b61:31 33              bnt code_0b96 
  0b63:76               push0 
  0b64:45 03 00         callb procedure_0003 0 // HandsOff 

  0b67:89 6d              lsg gElevatorState 
  0b69:35 10              ldi 10 
  0b6b:14                  or 
  0b6c:a1 6d              sag gElevatorState 
  0b6e:38 0142          pushi 142 // $142 gateFunc
  0b71:7a               push2 
  0b72:78               push1 
  0b73:39 ff            pushi ff // $ff checkAni
  0b75:54 08             self 8 

  0b77:38 00d3          pushi d3 // $d3 setMotion
  0b7a:39 03            pushi 3 // $3 y
  0b7c:51 1d            class MoveTo 
  0b7e:36                push 
  0b7f:67 4e             pTos elevX 
  0b81:67 4c             pTos gateY 
  0b83:39 37            pushi 37 // $37 yStep
  0b85:76               push0 
  0b86:81 00              lag gEgo 
  0b88:4a 04             send 4 

  0b8a:02                 add 
  0b8b:36                push 
  0b8c:39 57            pushi 57 // $57 init
  0b8e:76               push0 
  0b8f:81 00              lag gEgo 
  0b91:4a 0e             send e 

  0b93:32 0368            jmp code_0efe 

        code_0b96
  0b96:3c                 dup 
  0b97:35 07              ldi 7 
  0b99:1a                 eq? 
  0b9a:31 1d              bnt code_0bb9 
  0b9c:38 00c9          pushi c9 // $c9 ignoreActors
  0b9f:78               push1 
  0ba0:78               push1 
  0ba1:38 00d3          pushi d3 // $d3 setMotion
  0ba4:39 04            pushi 4 // $4 x
  0ba6:51 1d            class MoveTo 
  0ba8:36                push 
  0ba9:67 4e             pTos elevX 
  0bab:67 50             pTos elevY 
  0bad:35 02              ldi 2 
  0baf:04                 sub 
  0bb0:36                push 
  0bb1:7c            pushSelf 
  0bb2:81 00              lag gEgo 
  0bb4:4a 12             send 12 

  0bb6:32 0345            jmp code_0efe 

        code_0bb9
  0bb9:3c                 dup 
  0bba:35 08              ldi 8 
  0bbc:1a                 eq? 
  0bbd:31 25              bnt code_0be4 
  0bbf:76               push0 
  0bc0:45 04 00         callb procedure_0004 0 // HandsOn 

  0bc3:38 0089          pushi 89 // $89 hide
  0bc6:76               push0 
  0bc7:81 00              lag gEgo 
  0bc9:4a 04             send 4 

  0bcb:38 00c8          pushi c8 // $c8 setLoop
  0bce:78               push1 
  0bcf:78               push1 
  0bd0:38 00c7          pushi c7 // $c7 forceUpd
  0bd3:76               push0 
  0bd4:63 40             pToa elevatorID 
  0bd6:4a 0a             send a 

  0bd8:38 0142          pushi 142 // $142 gateFunc
  0bdb:7a               push2 
  0bdc:76               push0 
  0bdd:39 ff            pushi ff // $ff checkAni
  0bdf:54 08             self 8 

  0be1:32 031a            jmp code_0efe 

        code_0be4
  0be4:3c                 dup 
  0be5:35 09              ldi 9 
  0be7:1a                 eq? 
  0be8:31 25              bnt code_0c0f 
  0bea:38 00c5          pushi c5 // $c5 posn
  0bed:7a               push2 
  0bee:67 4e             pTos elevX 
  0bf0:67 50             pTos elevY 
  0bf2:35 02              ldi 2 
  0bf4:04                 sub 
  0bf5:36                push 
  0bf6:39 12            pushi 12 // $12 illegalBits
  0bf8:78               push1 
  0bf9:76               push0 
  0bfa:38 00c9          pushi c9 // $c9 ignoreActors
  0bfd:78               push1 
  0bfe:78               push1 
  0bff:81 00              lag gEgo 
  0c01:4a 14             send 14 

  0c03:35 ff              ldi ff 
  0c05:a1 6e              sag global110 
  0c07:39 79            pushi 79 // $79 cue
  0c09:76               push0 
  0c0a:54 04             self 4 

  0c0c:32 02ef            jmp code_0efe 

        code_0c0f
  0c0f:3c                 dup 
  0c10:35 0a              ldi a 
  0c12:1a                 eq? 
  0c13:31 35              bnt code_0c4a 
  0c15:39 2b            pushi 2b // $2b number
  0c17:78               push1 
  0c18:39 42            pushi 42 // $42 setPri
  0c1a:38 0081          pushi 81 // $81 prevSignal
  0c1d:78               push1 
  0c1e:76               push0 
  0c1f:39 06            pushi 6 // $6 loop
  0c21:78               push1 
  0c22:78               push1 
  0c23:39 2a            pushi 2a // $2a play
  0c25:76               push0 
  0c26:80 00b7            lag gConMusic 
  0c29:4a 16             send 16 

  0c2b:67 54             pTos upRoomNo 
  0c2d:34 8000            ldi 8000 
  0c30:14                  or 
  0c31:a1 6f              sag global111 
  0c33:76               push0 
  0c34:45 03 00         callb procedure_0003 0 // HandsOff 

  0c37:38 00a4          pushi a4 // $a4 cycleSpeed
  0c3a:78               push1 
  0c3b:7a               push2 
  0c3c:39 7e            pushi 7e // $7e setCycle
  0c3e:7a               push2 
  0c3f:51 1a            class End 
  0c41:36                push 
  0c42:7c            pushSelf 
  0c43:63 40             pToa elevatorID 
  0c45:4a 0e             send e 

  0c47:32 02b4            jmp code_0efe 

        code_0c4a
  0c4a:3c                 dup 
  0c4b:35 0b              ldi b 
  0c4d:1a                 eq? 
  0c4e:31 25              bnt code_0c75 
  0c50:38 00c8          pushi c8 // $c8 setLoop
  0c53:78               push1 
  0c54:78               push1 
  0c55:39 38            pushi 38 // $38 moveSpeed
  0c57:78               push1 
  0c58:78               push1 
  0c59:38 00d3          pushi d3 // $d3 setMotion
  0c5c:39 04            pushi 4 // $4 x
  0c5e:51 1d            class MoveTo 
  0c60:36                push 
  0c61:67 4e             pTos elevX 
  0c63:67 50             pTos elevY 
  0c65:35 32              ldi 32 
  0c67:04                 sub 
  0c68:36                push 
  0c69:7c            pushSelf 
  0c6a:38 00a3          pushi a3 // $a3 startUpd
  0c6d:76               push0 
  0c6e:63 40             pToa elevatorID 
  0c70:4a 1c             send 1c 

  0c72:32 0289            jmp code_0efe 

        code_0c75
  0c75:3c                 dup 
  0c76:35 0c              ldi c 
  0c78:1a                 eq? 
  0c79:31 0d              bnt code_0c88 
  0c7b:38 00f8          pushi f8 // $f8 newRoom
  0c7e:78               push1 
  0c7f:67 54             pTos upRoomNo 
  0c81:81 02              lag gCurRoom 
  0c83:4a 06             send 6 

  0c85:32 0276            jmp code_0efe 

        code_0c88
  0c88:3c                 dup 
  0c89:35 0d              ldi d 
  0c8b:1a                 eq? 
  0c8c:31 35              bnt code_0cc3 
  0c8e:39 2b            pushi 2b // $2b number
  0c90:78               push1 
  0c91:39 42            pushi 42 // $42 setPri
  0c93:38 0081          pushi 81 // $81 prevSignal
  0c96:78               push1 
  0c97:76               push0 
  0c98:39 06            pushi 6 // $6 loop
  0c9a:78               push1 
  0c9b:78               push1 
  0c9c:39 2a            pushi 2a // $2a play
  0c9e:76               push0 
  0c9f:80 00b7            lag gConMusic 
  0ca2:4a 16             send 16 

  0ca4:67 56             pTos downRoomNo 
  0ca6:34 8000            ldi 8000 
  0ca9:14                  or 
  0caa:a1 6f              sag global111 
  0cac:76               push0 
  0cad:45 03 00         callb procedure_0003 0 // HandsOff 

  0cb0:38 00a4          pushi a4 // $a4 cycleSpeed
  0cb3:78               push1 
  0cb4:7a               push2 
  0cb5:39 7e            pushi 7e // $7e setCycle
  0cb7:7a               push2 
  0cb8:51 1a            class End 
  0cba:36                push 
  0cbb:7c            pushSelf 
  0cbc:63 40             pToa elevatorID 
  0cbe:4a 0e             send e 

  0cc0:32 023b            jmp code_0efe 

        code_0cc3
  0cc3:3c                 dup 
  0cc4:35 0e              ldi e 
  0cc6:1a                 eq? 
  0cc7:31 62              bnt code_0d2b 
  0cc9:39 05            pushi 5 // $5 view
  0ccb:78               push1 
  0ccc:38 00f2          pushi f2 // $f2 read
  0ccf:38 00c8          pushi c8 // $c8 setLoop
  0cd2:78               push1 
  0cd3:39 03            pushi 3 // $3 y
  0cd5:38 00c9          pushi c9 // $c9 ignoreActors
  0cd8:78               push1 
  0cd9:78               push1 
  0cda:39 12            pushi 12 // $12 illegalBits
  0cdc:78               push1 
  0cdd:76               push0 
  0cde:38 00c5          pushi c5 // $c5 posn
  0ce1:7a               push2 
  0ce2:67 4e             pTos elevX 
  0ce4:67 52             pTos chainY 
  0ce6:39 42            pushi 42 // $42 setPri
  0ce8:78               push1 
  0ce9:39 06            pushi 6 // $6 loop
  0ceb:39 38            pushi 38 // $38 moveSpeed
  0ced:78               push1 
  0cee:78               push1 
  0cef:38 00d3          pushi d3 // $d3 setMotion
  0cf2:39 03            pushi 3 // $3 y
  0cf4:51 1d            class MoveTo 
  0cf6:36                push 
  0cf7:67 4e             pTos elevX 
  0cf9:67 52             pTos chainY 
  0cfb:35 34              ldi 34 
  0cfd:02                 add 
  0cfe:36                push 
  0cff:39 57            pushi 57 // $57 init
  0d01:76               push0 
  0d02:63 3e             pToa chainID 
  0d04:4a 3a             send 3a 

  0d06:38 00c8          pushi c8 // $c8 setLoop
  0d09:78               push1 
  0d0a:78               push1 
  0d0b:39 38            pushi 38 // $38 moveSpeed
  0d0d:78               push1 
  0d0e:78               push1 
  0d0f:38 00d3          pushi d3 // $d3 setMotion
  0d12:39 04            pushi 4 // $4 x
  0d14:51 1d            class MoveTo 
  0d16:36                push 
  0d17:67 4e             pTos elevX 
  0d19:67 50             pTos elevY 
  0d1b:35 34              ldi 34 
  0d1d:02                 add 
  0d1e:36                push 
  0d1f:7c            pushSelf 
  0d20:38 00a3          pushi a3 // $a3 startUpd
  0d23:76               push0 
  0d24:63 40             pToa elevatorID 
  0d26:4a 1c             send 1c 

  0d28:32 01d3            jmp code_0efe 

        code_0d2b
  0d2b:3c                 dup 
  0d2c:35 0f              ldi f 
  0d2e:1a                 eq? 
  0d2f:31 0d              bnt code_0d3e 
  0d31:38 00f8          pushi f8 // $f8 newRoom
  0d34:78               push1 
  0d35:67 56             pTos downRoomNo 
  0d37:81 02              lag gCurRoom 
  0d39:4a 06             send 6 

  0d3b:32 01c0            jmp code_0efe 

        code_0d3e
  0d3e:3c                 dup 
  0d3f:35 10              ldi 10 
  0d41:1a                 eq? 
  0d42:31 6b              bnt code_0daf 
  0d44:89 0b              lsg gCurRoomNum 
  0d46:35 4b              ldi 4b 
  0d48:1a                 eq? 
  0d49:31 07              bnt code_0d52 
  0d4b:89 6f              lsg global111 
  0d4d:35 2a              ldi 2a 
  0d4f:1a                 eq? 
  0d50:2f 0e               bt code_0d60 

        code_0d52
  0d52:89 0b              lsg gCurRoomNum 
  0d54:35 2a              ldi 2a 
  0d56:1a                 eq? 
  0d57:31 0e              bnt code_0d67 
  0d59:89 6f              lsg global111 
  0d5b:35 20              ldi 20 
  0d5d:1a                 eq? 
  0d5e:31 07              bnt code_0d67 

        code_0d60
  0d60:39 79            pushi 79 // $79 cue
  0d62:76               push0 
  0d63:54 04             self 4 

  0d65:33 45              jmp code_0dac 

        code_0d67
  0d67:89 0b              lsg gCurRoomNum 
  0d69:35 20              ldi 20 
  0d6b:1a                 eq? 
  0d6c:31 21              bnt code_0d8f 
  0d6e:39 05            pushi 5 // $5 view
  0d70:78               push1 
  0d71:39 05            pushi 5 // $5 view
  0d73:38 00a2          pushi a2 // $a2 setCel
  0d76:78               push1 
  0d77:39 ff            pushi ff // $ff checkAni
  0d79:38 00c5          pushi c5 // $c5 posn
  0d7c:7a               push2 
  0d7d:38 0129          pushi 129 // $129 setMapSet
  0d80:39 7d            pushi 7d // $7d set
  0d82:39 7e            pushi 7e // $7e setCycle
  0d84:7a               push2 
  0d85:51 1a            class End 
  0d87:36                push 
  0d88:7c            pushSelf 
  0d89:81 00              lag gEgo 
  0d8b:4a 1c             send 1c 

  0d8d:33 1d              jmp code_0dac 

        code_0d8f
  0d8f:89 0b              lsg gCurRoomNum 
  0d91:35 4b              ldi 4b 
  0d93:1a                 eq? 
  0d94:31 0c              bnt code_0da2 
  0d96:38 00f8          pushi f8 // $f8 newRoom
  0d99:78               push1 
  0d9a:39 2a            pushi 2a // $2a play
  0d9c:81 02              lag gCurRoom 
  0d9e:4a 06             send 6 

  0da0:33 0a              jmp code_0dac 

        code_0da2
  0da2:38 00f8          pushi f8 // $f8 newRoom
  0da5:78               push1 
  0da6:39 20            pushi 20 // $20 state
  0da8:81 02              lag gCurRoom 
  0daa:4a 06             send 6 


        code_0dac
  0dac:32 014f            jmp code_0efe 

        code_0daf
  0daf:3c                 dup 
  0db0:35 11              ldi 11 
  0db2:1a                 eq? 
  0db3:31 41              bnt code_0df6 
  0db5:39 2b            pushi 2b // $2b number
  0db7:78               push1 
  0db8:39 5a            pushi 5a // $5a showSelf
  0dba:39 06            pushi 6 // $6 loop
  0dbc:78               push1 
  0dbd:78               push1 
  0dbe:39 2a            pushi 2a // $2a play
  0dc0:76               push0 
  0dc1:80 00b7            lag gConMusic 
  0dc4:4a 10             send 10 

  0dc6:7a               push2 
  0dc7:39 0a            pushi a // $a nsLeft
  0dc9:39 05            pushi 5 // $5 view
  0dcb:43 6a 04         callk ShakeScreen 4 

  0dce:35 05              ldi 5 
  0dd0:a0 0080            sag global128 
  0dd3:35 04              ldi 4 
  0dd5:a0 0081            sag global129 
  0dd8:38 00a6          pushi a6 // $a6 lastCel
  0ddb:76               push0 
  0ddc:81 00              lag gEgo 
  0dde:4a 04             send 4 

  0de0:a0 0082            sag global130 
  0de3:39 58            pushi 58 // $58 dispose
  0de5:76               push0 
  0de6:81 00              lag gEgo 
  0de8:4a 04             send 4 

  0dea:7a               push2 
  0deb:38 00c9          pushi c9 // $c9 ignoreActors
  0dee:39 0e            pushi e // $e lsLeft
  0df0:45 13 04         callb procedure_0013 4 // EgoDead 

  0df3:32 0108            jmp code_0efe 

        code_0df6
  0df6:3c                 dup 
  0df7:35 12              ldi 12 
  0df9:1a                 eq? 
  0dfa:30 00cd            bnt code_0eca 
  0dfd:76               push0 
  0dfe:45 03 00         callb procedure_0003 0 // HandsOff 

  0e01:39 2b            pushi 2b // $2b number
  0e03:78               push1 
  0e04:39 59            pushi 59 // $59 showStr
  0e06:39 06            pushi 6 // $6 loop
  0e08:78               push1 
  0e09:39 ff            pushi ff // $ff checkAni
  0e0b:39 2a            pushi 2a // $2a play
  0e0d:76               push0 
  0e0e:80 00b7            lag gConMusic 
  0e11:4a 10             send 10 

  0e13:39 05            pushi 5 // $5 view
  0e15:78               push1 
  0e16:39 05            pushi 5 // $5 view
  0e18:38 00c8          pushi c8 // $c8 setLoop
  0e1b:78               push1 
  0e1c:39 04            pushi 4 // $4 x
  0e1e:38 00a2          pushi a2 // $a2 setCel
  0e21:78               push1 
  0e22:76               push0 
  0e23:39 12            pushi 12 // $12 illegalBits
  0e25:78               push1 
  0e26:76               push0 
  0e27:38 00c9          pushi c9 // $c9 ignoreActors
  0e2a:78               push1 
  0e2b:78               push1 
  0e2c:38 00c5          pushi c5 // $c5 posn
  0e2f:7a               push2 
  0e30:38 0129          pushi 129 // $129 setMapSet
  0e33:39 7d            pushi 7d // $7d set
  0e35:39 42            pushi 42 // $42 setPri
  0e37:78               push1 
  0e38:39 06            pushi 6 // $6 loop
  0e3a:39 38            pushi 38 // $38 moveSpeed
  0e3c:78               push1 
  0e3d:78               push1 
  0e3e:38 00d3          pushi d3 // $d3 setMotion
  0e41:39 03            pushi 3 // $3 y
  0e43:51 1d            class MoveTo 
  0e45:36                push 
  0e46:38 0129          pushi 129 // $129 setMapSet
  0e49:38 00b6          pushi b6 // $b6 escapeTurn
  0e4c:81 00              lag gEgo 
  0e4e:4a 3c             send 3c 

  0e50:38 00c8          pushi c8 // $c8 setLoop
  0e53:78               push1 
  0e54:78               push1 
  0e55:38 00c5          pushi c5 // $c5 posn
  0e58:7a               push2 
  0e59:67 4e             pTos elevX 
  0e5b:39 03            pushi 3 // $3 y
  0e5d:76               push0 
  0e5e:81 00              lag gEgo 
  0e60:4a 04             send 4 

  0e62:36                push 
  0e63:35 39              ldi 39 
  0e65:04                 sub 
  0e66:36                push 
  0e67:38 00a3          pushi a3 // $a3 startUpd
  0e6a:76               push0 
  0e6b:63 40             pToa elevatorID 
  0e6d:4a 12             send 12 

  0e6f:39 07            pushi 7 // $7 cel
  0e71:78               push1 
  0e72:38 00a6          pushi a6 // $a6 lastCel
  0e75:76               push0 
  0e76:63 40             pToa elevatorID 
  0e78:4a 04             send 4 

  0e7a:36                push 
  0e7b:39 38            pushi 38 // $38 moveSpeed
  0e7d:78               push1 
  0e7e:78               push1 
  0e7f:38 00d3          pushi d3 // $d3 setMotion
  0e82:39 04            pushi 4 // $4 x
  0e84:51 1d            class MoveTo 
  0e86:36                push 
  0e87:67 4e             pTos elevX 
  0e89:67 50             pTos elevY 
  0e8b:7c            pushSelf 
  0e8c:63 40             pToa elevatorID 
  0e8e:4a 18             send 18 

  0e90:39 05            pushi 5 // $5 view
  0e92:78               push1 
  0e93:39 05            pushi 5 // $5 view
  0e95:39 06            pushi 6 // $6 loop
  0e97:78               push1 
  0e98:39 06            pushi 6 // $6 loop
  0e9a:39 07            pushi 7 // $7 cel
  0e9c:78               push1 
  0e9d:76               push0 
  0e9e:39 12            pushi 12 // $12 illegalBits
  0ea0:78               push1 
  0ea1:76               push0 
  0ea2:38 00c9          pushi c9 // $c9 ignoreActors
  0ea5:78               push1 
  0ea6:78               push1 
  0ea7:38 00c5          pushi c5 // $c5 posn
  0eaa:7a               push2 
  0eab:38 0127          pushi 127 // $127 intermediate
  0eae:39 7e            pushi 7e // $7e setCycle
  0eb0:39 3f            pushi 3f // $3f priority
  0eb2:78               push1 
  0eb3:39 08            pushi 8 // $8 underBits
  0eb5:38 00a4          pushi a4 // $a4 cycleSpeed
  0eb8:78               push1 
  0eb9:39 07            pushi 7 // $7 cel
  0ebb:39 7e            pushi 7e // $7e setCycle
  0ebd:78               push1 
  0ebe:51 1a            class End 
  0ec0:36                push 
  0ec1:39 57            pushi 57 // $57 init
  0ec3:76               push0 
  0ec4:63 3e             pToa chainID 
  0ec6:4a 3c             send 3c 

  0ec8:33 34              jmp code_0efe 

        code_0eca
  0eca:3c                 dup 
  0ecb:35 13              ldi 13 
  0ecd:1a                 eq? 
  0ece:31 2e              bnt code_0efe 
  0ed0:38 0084          pushi 84 // $84 stop
  0ed3:76               push0 
  0ed4:80 00b7            lag gConMusic 
  0ed7:4a 04             send 4 

  0ed9:35 05              ldi 5 
  0edb:a0 0080            sag global128 
  0ede:35 06              ldi 6 
  0ee0:a0 0081            sag global129 
  0ee3:38 00a6          pushi a6 // $a6 lastCel
  0ee6:76               push0 
  0ee7:63 3e             pToa chainID 
  0ee9:4a 04             send 4 

  0eeb:a0 0082            sag global130 
  0eee:39 58            pushi 58 // $58 dispose
  0ef0:76               push0 
  0ef1:81 00              lag gEgo 
  0ef3:4a 04             send 4 

  0ef5:7a               push2 
  0ef6:38 00c9          pushi c9 // $c9 ignoreActors
  0ef9:39 0f            pushi f // $f lsBottom
  0efb:45 13 04         callb procedure_0013 4 // EgoDead 


        code_0efe
  0efe:3a                toss 
  0eff:48                 ret 
    )

)



(procedure proc_0004
  0004:39 03            pushi 3 // $3 y
  0006:38 00c9          pushi c9 // $c9 ignoreActors
  0009:39 10            pushi 10 // $10 lsRight
  000b:8f 01              lsp param1 
  000d:46 00ff 0004 06  calle ff procedure_0004 6 // Printf 

  0013:48                 ret 
)

(procedure proc_0014
  0014:7a               push2 
  0015:38 00c9          pushi c9 // $c9 ignoreActors
  0018:39 03            pushi 3 // $3 y
  001a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0020:48                 ret 
)

(procedure proc_0021
  0021:39 03            pushi 3 // $3 y
  0023:38 00c9          pushi c9 // $c9 ignoreActors
  0026:39 11            pushi 11 // $11 signal
  0028:8f 01              lsp param1 
  002a:46 00ff 0004 06  calle ff procedure_0004 6 // Printf 

  0030:48                 ret 
)

(procedure proc_0031
  0031:39 03            pushi 3 // $3 y
  0033:38 00c9          pushi c9 // $c9 ignoreActors
  0036:39 12            pushi 12 // $12 illegalBits
  0038:8f 01              lsp param1 
  003a:46 00ff 0004 06  calle ff procedure_0004 6 // Printf 

  0040:48                 ret 
)

(procedure proc_0041
  0041:39 62            pushi 62 // $62 eachElementDo
  0043:78               push1 
  0044:38 0089          pushi 89 // $89 hide
  0047:81 05              lag gCast 
  0049:4a 06             send 6 

  004b:38 00ca          pushi ca // $ca show
  004e:76               push0 
  004f:87 01              lap param1 
  0051:4a 04             send 4 

  0053:38 00ca          pushi ca // $ca show
  0056:76               push0 
  0057:87 02              lap param2 
  0059:4a 04             send 4 

  005b:7a               push2 
  005c:39 42            pushi 42 // $42 setPri
  005e:39 07            pushi 7 // $7 cel
  0060:43 08 04         callk DrawPic 4 

  0063:39 05            pushi 5 // $5 view
  0065:38 00c9          pushi c9 // $c9 ignoreActors
  0068:39 13            pushi 13 // $13 brTop
  006a:39 43            pushi 43 // $43 at
  006c:39 78            pushi 78 // $78 changeState
  006e:39 20            pushi 20 // $20 state
  0070:46 00ff 0000 0a  calle ff procedure_0000 a // Print 

  0076:7a               push2 
  0077:89 0b              lsg gCurRoomNum 
  0079:39 06            pushi 6 // $6 loop
  007b:43 08 04         callk DrawPic 4 

  007e:39 3c            pushi 3c // $3c doit
  0080:76               push0 
  0081:81 0a              lag gAddToPics 
  0083:4a 04             send 4 

  0085:39 62            pushi 62 // $62 eachElementDo
  0087:78               push1 
  0088:38 00ca          pushi ca // $ca show
  008b:81 05              lag gCast 
  008d:4a 06             send 6 

  008f:38 0089          pushi 89 // $89 hide
  0092:76               push0 
  0093:87 01              lap param1 
  0095:4a 04             send 4 

  0097:38 0089          pushi 89 // $89 hide
  009a:76               push0 
  009b:87 02              lap param2 
  009d:4a 04             send 4 

  009f:38 0089          pushi 89 // $89 hide
  00a2:76               push0 
  00a3:81 00              lag gEgo 
  00a5:4a 04             send 4 

  00a7:48                 ret 
)

