(script 983)

(string
    string_01d0 "Path"
    string_01d5 "RelPath"
    string_01dd ""
)

(said
)

(local
)

// 0102
(class Path of MoveTo
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (init) // method_0004
  0004:87 01              lap param1 
  0006:65 08             aTop client 
  0008:8f 00              lsp paramTotal 
  000a:35 02              ldi 2 
  000c:20                 ge? 
  000d:31 04              bnt code_0013 
  000f:87 02              lap param2 
  0011:33 02              jmp code_0015 

        code_0013
  0013:35 00              ldi 0 

        code_0015
  0015:65 0a             aTop caller 
  0017:8f 00              lsp paramTotal 
  0019:35 03              ldi 3 
  001b:1a                 eq? 
  001c:31 04              bnt code_0022 
  001e:87 03              lap param3 
  0020:33 02              jmp code_0024 

        code_0022
  0022:35 00              ldi 0 

        code_0024
  0024:65 22             aTop intermediate 
  0026:35 ff              ldi ff 
  0028:65 24             aTop value 
  002a:35 00              ldi 0 
  002c:65 20             aTop completed 
  002e:39 04            pushi 4 // $4 x
  0030:76               push0 
  0031:63 08             pToa client 
  0033:4a 04             send 4 

  0035:65 0c             aTop x 
  0037:39 03            pushi 3 // $3 y
  0039:76               push0 
  003a:63 08             pToa client 
  003c:4a 04             send 4 

  003e:65 0e             aTop y 
  0040:38 0128          pushi 128 // $128 atEnd
  0043:76               push0 
  0044:54 04             self 4 

  0046:31 08              bnt code_0050 
  0048:38 00a9          pushi a9 // $a9 moveDone
  004b:76               push0 
  004c:54 04             self 4 

  004e:33 12              jmp code_0062 

        code_0050
  0050:39 44            pushi 44 // $44 next
  0052:76               push0 
  0053:54 04             self 4 

  0055:39 57            pushi 57 // $57 init
  0057:39 03            pushi 3 // $3 y
  0059:67 08             pTos client 
  005b:67 0c             pTos x 
  005d:67 0e             pTos y 
  005f:57 1d 0a         super MoveTo a 


        code_0062
  0062:48                 ret 
    )

    (method (moveDone) // method_0063
  0063:38 0128          pushi 128 // $128 atEnd
  0066:76               push0 
  0067:54 04             self 4 

  0069:31 09              bnt code_0074 
  006b:38 00a9          pushi a9 // $a9 moveDone
  006e:76               push0 
  006f:57 1d 04         super MoveTo 4 

  0072:33 23              jmp code_0097 

        code_0074
  0074:63 22             pToa intermediate 
  0076:31 0d              bnt code_0085 
  0078:39 79            pushi 79 // $79 cue
  007a:78               push1 
  007b:67 24             pTos value 
  007d:35 02              ldi 2 
  007f:08                 div 
  0080:36                push 
  0081:63 22             pToa intermediate 
  0083:4a 06             send 6 


        code_0085
  0085:39 44            pushi 44 // $44 next
  0087:76               push0 
  0088:54 04             self 4 

  008a:39 57            pushi 57 // $57 init
  008c:39 03            pushi 3 // $3 y
  008e:67 08             pTos client 
  0090:67 0c             pTos x 
  0092:67 0e             pTos y 
  0094:57 1d 0a         super MoveTo a 


        code_0097
  0097:48                 ret 
    )

    (method (next) // method_0098
  0098:39 43            pushi 43 // $43 at
  009a:78               push1 
  009b:6f 24            ipTos value 
  009d:54 06             self 6 

  009f:65 0c             aTop x 
  00a1:39 43            pushi 43 // $43 at
  00a3:78               push1 
  00a4:6f 24            ipTos value 
  00a6:54 06             self 6 

  00a8:65 0e             aTop y 
  00aa:48                 ret 
    )

    (method (atEnd) // method_00ab
  00ab:39 43            pushi 43 // $43 at
  00ad:78               push1 
  00ae:67 24             pTos value 
  00b0:35 01              ldi 1 
  00b2:02                 add 
  00b3:36                push 
  00b4:54 06             self 6 

  00b6:36                push 
  00b7:34 8000            ldi 8000 
  00ba:1a                 eq? 
  00bb:2f 12               bt code_00cf 
  00bd:39 43            pushi 43 // $43 at
  00bf:78               push1 
  00c0:67 24             pTos value 
  00c2:35 02              ldi 2 
  00c4:02                 add 
  00c5:36                push 
  00c6:54 06             self 6 

  00c8:36                push 
  00c9:34 8000            ldi 8000 
  00cc:1a                 eq? 
  00cd:31 02              bnt code_00d1 

        code_00cf
  00cf:35 01              ldi 1 

        code_00d1
  00d1:48                 ret 
    )

    (method (at) // method_00d2
  00d2:39 03            pushi 3 // $3 y
  00d4:38 03d7          pushi 3d7 // $3d7 sel_983
  00d7:76               push0 
  00d8:67 06             pTos name 
  00da:46 00ff 0004 06  calle ff procedure_0004 6 // Printf 

  00e0:35 00              ldi 0 
  00e2:48                 ret 
    )

)

// 0172
(class RelPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (next) // method_00e3
  00e3:67 0c             pTos x 
  00e5:39 43            pushi 43 // $43 at
  00e7:78               push1 
  00e8:6f 24            ipTos value 
  00ea:54 06             self 6 

  00ec:02                 add 
  00ed:65 0c             aTop x 
  00ef:67 0e             pTos y 
  00f1:39 43            pushi 43 // $43 at
  00f3:78               push1 
  00f4:6f 24            ipTos value 
  00f6:54 06             self 6 

  00f8:02                 add 
  00f9:65 0e             aTop y 
  00fb:48                 ret 
    )

)



