/ APDL Public Domain 1 / APDL_PD1A.iso / music / coconizer / coco_131 / Tools / Changer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 25 f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...%. --|--------|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 2d 2d 2d 2d 2d 0d 00 14 | 05 f4 0d 00 1e 23 f4 20 |-----...|.....#. |
|00000030| 20 43 48 41 4e 4e 45 4c | 2d 46 4f 52 4d 41 54 20 | CHANNEL|-FORMAT |
|00000040| 43 48 41 4e 47 45 52 20 | 20 76 31 2e 31 0d 00 28 |CHANGER | v1.1..(|
|00000050| 05 f4 0d 00 32 23 f4 20 | 20 28 63 29 20 41 75 67 |....2#. | (c) Aug|
|00000060| 75 73 74 20 31 39 39 30 | 20 62 79 20 50 6c 61 79 |ust 1990| by Play|
|00000070| 66 69 65 6c 64 0d 00 3c | 05 f4 0d 00 46 24 f4 20 |field..<|....F$. |
|00000080| 20 4c 61 74 65 73 74 20 | 72 65 76 69 73 69 6f 6e | Latest |revision|
|00000090| 20 2d 20 32 36 20 53 65 | 70 20 31 39 39 30 0d 00 | - 26 Se|p 1990..|
|000000a0| 50 05 f4 0d 00 5a 25 f4 | 20 2d 2d 2d 2d 2d 2d 2d |P....Z%.| -------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 00 64 04 0d 00 6e 2b |--------|..d...n+|
|000000d0| ee 20 85 20 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |. . .. "|Hourglas|
|000000e0| 73 5f 53 6d 61 73 68 22 | 3a f1 27 f6 24 3b 22 20 |s_Smash"|:.'.$;" |
|000000f0| 40 20 22 3b 9e 3a e0 0d | 00 78 04 0d 00 82 32 2a |@ ";.:..|.x....2*|
|00000100| 52 4d 45 6e 73 75 72 65 | 20 50 61 63 6b 69 74 20 |RMEnsure| Packit |
|00000110| 31 2e 35 30 20 52 4d 4c | 6f 61 64 20 21 43 6f 63 |1.50 RML|oad !Coc|
|00000120| 6f 6e 69 7a 65 72 2e 50 | 61 63 6b 69 74 0d 00 8c |onizer.P|ackit...|
|00000130| 04 0d 00 96 14 de 20 63 | 6f 64 65 25 20 39 31 32 |...... c|ode% 912|
|00000140| 2c 4c 25 2d 31 0d 00 a0 | 09 f2 5f 41 73 6d 0d 00 |,L%-1...|.._Asm..|
|00000150| aa 04 0d 00 b4 46 e8 27 | 22 50 6c 65 61 73 65 20 |.....F.'|"Please |
|00000160| 65 6e 74 65 72 20 73 6f | 6e 67 20 70 61 74 68 20 |enter so|ng path |
|00000170| 5b 53 4f 4e 47 53 5d 3a | 20 22 70 61 74 68 24 3a |[SONGS]:| "path$:|
|00000180| e7 20 70 61 74 68 24 3d | 22 22 20 70 61 74 68 24 |. path$=|"" path$|
|00000190| 3d 22 73 6f 6e 67 73 22 | 0d 00 be 12 ff 20 22 43 |="songs"|..... "C|
|000001a0| 61 74 20 22 2b 70 61 74 | 68 24 0d 00 c8 1e e8 27 |at "+pat|h$.....'|
|000001b0| 22 43 6f 63 6f 6e 69 7a | 65 72 20 73 6f 6e 67 66 |"Coconiz|er songf|
|000001c0| 69 6c 65 3f 20 22 7a 24 | 0d 00 d2 13 61 24 3d 70 |ile? "z$|....a$=p|
|000001d0| 61 74 68 24 2b 22 2e 22 | 2b 7a 24 0d 00 dc 0a 66 |ath$+"."|+z$....f|
|000001e0| 3d 8e 20 61 24 0d 00 e6 | 35 6c 65 6e 3d a2 23 66 |=. a$...|5len=.#f|
|000001f0| 3a 62 31 3d 9a 23 66 3a | 62 32 3d 9a 23 66 3a 62 |:b1=.#f:|b2=.#f:b|
|00000200| 33 3d 9a 23 66 3a 62 34 | 3d 9a 23 66 3a 62 35 3d |3=.#f:b4|=.#f:b5=|
|00000210| 9a 23 66 3a 62 36 3d 9a | 23 66 0d 00 f0 07 d9 23 |.#f:b6=.|#f.....#|
|00000220| 66 0d 00 fa 3f e7 20 62 | 34 3d 30 20 80 20 62 35 |f...?. b|4=0 . b5|
|00000230| 3e 30 20 8c 20 6c 65 6e | 3d 62 31 2b 28 62 32 3c |>0 . len|=b1+(b2<|
|00000240| 3c 38 29 2b 28 62 33 3c | 3c 31 36 29 2b 28 62 34 |<8)+(b3<|<16)+(b4|
|00000250| 3c 3c 32 34 29 20 20 3a | f4 20 70 61 63 6b 65 64 |<<24)  :|. packed|
|00000260| 0d 01 04 04 0d 01 0e 10 | de 20 73 6f 75 72 63 65 |........|. source|
|00000270| 20 6c 65 6e 0d 01 18 17 | de 20 64 65 73 74 69 6e | len....|. destin|
|00000280| 20 6c 65 6e 2a 32 2c 5a | 25 2d 31 0d 01 22 0c de | len*2,Z|%-1.."..|
|00000290| 20 6f 72 64 28 38 29 0d | 01 2c 04 0d 01 36 1d f4 | ord(8).|.,...6..|
|000002a0| 20 3d 3d 3d 3d 20 57 48 | 49 43 48 20 46 4f 52 4d | ==== WH|ICH FORM|
|000002b0| 41 54 3f 20 3d 3d 3d 3d | 0d 01 40 04 0d 01 4a 13 |AT? ====|..@...J.|
|000002c0| e7 20 62 34 3d 30 20 80 | 20 62 35 3e 30 20 8c 0d |. b4=0 .| b5>0 ..|
|000002d0| 01 54 23 20 20 ff 20 22 | 50 61 63 6b 6c 6f 61 64 |.T#  . "|Packload|
|000002e0| 20 22 2b 61 24 2b 22 20 | 22 2b c3 7e 73 6f 75 72 | "+a$+" |"+.~sour|
|000002f0| 63 65 0d 01 5e 0d 20 20 | 76 6f 72 67 3d 62 36 0d |ce..^.  |vorg=b6.|
|00000300| 01 68 05 cc 0d 01 72 16 | 20 20 f1 20 22 4c 65 6e |.h....r.|  . "Len|
|00000310| 20 69 73 3a 20 22 3b 6c | 65 6e 0d 01 7c 1f 20 20 | is: ";l|en..|.  |
|00000320| ff 20 22 4c 6f 61 64 20 | 22 2b 61 24 2b 22 20 22 |. "Load |"+a$+" "|
|00000330| 2b c3 7e 73 6f 75 72 63 | 65 0d 01 86 0d 20 20 76 |+.~sourc|e....  v|
|00000340| 6f 72 67 3d 62 31 0d 01 | 90 05 cd 0d 01 9a 04 0d |org=b1..|........|
|00000350| 01 a4 18 f1 27 22 43 68 | 61 6e 6e 65 6c 73 3a 20 |....'"Ch|annels: |
|00000360| 22 3b 76 6f 72 67 3b 0d | 01 ae 1d 42 25 3d 64 65 |";vorg;.|...B%=de|
|00000370| 73 74 69 6e 3a 43 25 3d | 5a 25 2d 31 3a d6 20 63 |stin:C%=|Z%-1:. c|
|00000380| 6f 64 65 25 0d 01 b8 04 | 0d 01 c2 17 f4 20 3d 3d |ode%....|..... ==|
|00000390| 3d 3d 20 54 41 52 47 45 | 54 3f 20 3d 3d 3d 3d 0d |== TARGE|T? ====.|
|000003a0| 01 cc 04 0d 01 d6 28 f1 | 2c 2c 22 45 6e 74 65 72 |......(.|,,"Enter|
|000003b0| 20 74 61 72 67 65 74 20 | 66 6f 72 6d 61 74 20 28 | target |format (|
|000003c0| 34 20 6f 72 20 38 29 3a | 20 22 3b 0d 01 e0 1c f5 |4 or 8):| ";.....|
|000003d0| 20 61 24 3d be 3a fd 20 | 61 24 3d 22 34 22 20 84 | a$=.:. |a$="4" .|
|000003e0| 20 61 24 3d 22 38 22 0d | 01 ea 11 76 64 65 73 3d | a$="8".|...vdes=|
|000003f0| bb 61 24 3a f1 20 61 24 | 0d 01 f4 04 0d 01 fe 1d |.a$:. a$|........|
|00000400| f1 27 22 50 6c 65 61 73 | 65 20 73 65 6c 65 63 74 |.'"Pleas|e select|
|00000410| 20 6f 72 64 65 72 20 22 | 3b 0d 02 08 12 e7 20 76 | order "|;..... v|
|00000420| 6f 72 67 3c 3d 76 64 65 | 73 20 8c 0d 02 12 36 20 |org<=vde|s ....6 |
|00000430| 20 6d 61 78 3d 76 64 65 | 73 3a 6e 75 6d 3d 76 6f | max=vde|s:num=vo|
|00000440| 72 67 3a f1 20 22 66 6f | 72 20 64 65 73 74 69 6e |rg:. "fo|r destin|
|00000450| 61 74 69 6f 6e 20 63 68 | 61 6e 6e 65 6c 73 20 22 |ation ch|annels "|
|00000460| 3b 0d 02 1c 05 cc 0d 02 | 26 30 20 20 6d 61 78 3d |;.......|&0  max=|
|00000470| 76 6f 72 67 3a 6e 75 6d | 3d 76 64 65 73 3a f1 20 |vorg:num|=vdes:. |
|00000480| 22 6f 66 20 73 6f 75 72 | 63 65 20 63 68 61 6e 6e |"of sour|ce chann|
|00000490| 65 6c 73 20 22 3b 0d 02 | 30 05 cd 0d 02 3a 1b f1 |els ";..|0....:..|
|000004a0| 20 22 28 46 72 6f 6d 20 | 31 2d 22 3b 6d 61 78 3b | "(From |1-";max;|
|000004b0| 22 29 3a 20 22 3b 0d 02 | 44 04 0d 02 4e 0f e3 20 |"): ";..|D...N.. |
|000004c0| 69 3d 31 20 b8 20 6e 75 | 6d 0d 02 58 21 20 20 f5 |i=1 . nu|m..X!  .|
|000004d0| 20 61 24 3d be 3a fd 20 | 61 24 3e 3d 22 31 22 20 | a$=.:. |a$>="1" |
|000004e0| 80 20 61 24 3c 3d c3 6d | 61 78 0d 02 62 2b 20 20 |. a$<=.m|ax..b+  |
|000004f0| e3 20 6a 3d 31 20 b8 20 | 69 3a e7 20 6f 72 64 28 |. j=1 . |i:. ord(|
|00000500| 6a 29 3d bb 61 24 20 8c | 20 e5 20 8d 44 58 42 20 |j)=.a$ .| . .DXB |
|00000510| 8b 20 ed 20 6a 0d 02 6c | 23 20 20 e7 20 69 3c 3e |. . j..l|#  . i<>|
|00000520| 6e 75 6d 20 8c 20 f1 20 | 61 24 3b 22 20 2d 20 22 |num . . |a$;" - "|
|00000530| 3b 20 8b 20 f1 20 61 24 | 0d 02 76 10 20 20 6f 72 |; . . a$|..v.  or|
|00000540| 64 28 69 29 3d bb 61 24 | 0d 02 80 07 ed 20 69 0d |d(i)=.a$|..... i.|
|00000550| 02 8a 04 0d 02 94 1e f4 | 20 3d 3d 3d 3d 20 54 52 |........| ==== TR|
|00000560| 41 4e 53 46 4f 52 4d 41 | 54 49 4f 4e 20 3d 3d 3d |ANSFORMA|TION ===|
|00000570| 3d 0d 02 9e 04 0d 02 a8 | 41 e3 20 69 3d 30 20 b8 |=.......|A. i=0 .|
|00000580| 20 73 6f 75 72 63 65 21 | 32 38 2d 31 20 88 20 34 | source!|28-1 . 4|
|00000590| 3a 64 65 73 74 69 6e 21 | 69 3d 73 6f 75 72 63 65 |:destin!|i=source|
|000005a0| 21 69 3a ed 20 69 20 20 | 3a f4 20 4b 65 65 70 20 |!i:. i  |:. Keep |
|000005b0| 74 68 69 73 20 26 0d 02 | b2 4b 3f 64 65 73 74 69 |this &..|.K?desti|
|000005c0| 6e 3d 76 64 65 73 20 20 | 20 20 20 20 20 20 20 20 |n=vdes  |        |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005f0| 20 20 3a f4 20 4e 65 77 | 20 43 68 61 6e 42 79 74 |  :. New| ChanByt|
|00000600| 65 0d 02 bc 04 0d 02 c6 | 4a 6d 65 6e 74 3d 34 2a |e.......|Jment=4*|
|00000610| 36 34 2a 28 76 64 65 73 | 2a 3f 28 64 65 73 74 69 |64*(vdes|*?(desti|
|00000620| 6e 2b 32 33 29 2d 76 6f | 72 67 2a 3f 28 73 6f 75 |n+23)-vo|rg*?(sou|
|00000630| 72 63 65 2b 32 33 29 29 | 20 20 20 20 20 20 20 20 |rce+23))|        |
|00000640| 20 3a f4 20 50 61 74 74 | 20 61 6d 6f 75 6e 74 0d | :. Patt| amount.|
|00000650| 02 d0 43 e3 20 69 3d 31 | 20 b8 20 64 65 73 74 69 |..C. i=1| . desti|
|00000660| 6e 3f 32 31 3a 64 65 73 | 74 69 6e 21 28 33 32 2a |n?21:des|tin!(32*|
|00000670| 69 29 2b 3d 6d 65 6e 74 | 3a ed 20 69 20 20 20 20 |i)+=ment|:. i    |
|00000680| 20 20 20 20 20 3a f4 20 | 6d 61 79 20 63 68 61 6e |     :. |may chan|
|00000690| 67 65 0d 02 da 04 0d 02 | e4 18 68 6c 25 3d 73 6f |ge......|..hl%=so|
|000006a0| 75 72 63 65 2b 73 6f 75 | 72 63 65 21 32 38 0d 02 |urce+sou|rce!28..|
|000006b0| ee 18 64 65 25 3d 64 65 | 73 74 69 6e 2b 73 6f 75 |..de%=de|stin+sou|
|000006c0| 72 63 65 21 32 38 0d 02 | f8 04 0d 03 02 15 c8 99 |rce!28..|........|
|000006d0| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d | "Hourgl|ass_On".|
|000006e0| 03 0c 14 70 65 72 25 3d | 73 6f 75 72 63 65 3f 32 |...per%=|source?2|
|000006f0| 33 2d 31 0d 03 16 11 e3 | 20 69 25 3d 30 20 b8 20 |3-1.....| i%=0 . |
|00000700| 70 65 72 25 0d 03 20 2b | 20 20 c8 99 20 22 48 6f |per%.. +|  .. "Ho|
|00000710| 75 72 67 6c 61 73 73 5f | 50 65 72 63 65 6e 74 61 |urglass_|Percenta|
|00000720| 67 65 22 2c 69 25 2a 31 | 30 30 2f 70 65 72 25 0d |ge",i%*1|00/per%.|
|00000730| 03 2a 11 20 20 e3 20 6a | 25 3d 30 20 b8 20 36 33 |.*.  . j|%=0 . 63|
|00000740| 0d 03 34 14 20 20 20 20 | e3 20 6b 25 3d 31 20 b8 |..4.    |. k%=1 .|
|00000750| 20 6e 75 6d 0d 03 3e 60 | 20 20 20 20 20 20 e7 20 | num..>`|      . |
|00000760| 76 6f 72 67 3c 3d 76 64 | 65 73 20 8c 20 64 65 25 |vorg<=vd|es . de%|
|00000770| 21 28 28 6f 72 64 28 6b | 25 29 2d 31 29 2a 34 29 |!((ord(k|%)-1)*4)|
|00000780| 3d 68 6c 25 21 28 28 6b | 25 2d 31 29 2a 34 29 20 |=hl%!((k|%-1)*4) |
|00000790| 8b 20 64 65 25 21 28 28 | 6b 25 2d 31 29 2a 34 29 |. de%!((|k%-1)*4)|
|000007a0| 3d 68 6c 25 21 28 28 6f | 72 64 28 6b 25 29 2d 31 |=hl%!((o|rd(k%)-1|
|000007b0| 29 2a 34 29 0d 03 48 0c | 20 20 20 20 ed 20 6b 25 |)*4)..H.|    . k%|
|000007c0| 0d 03 52 13 20 20 20 20 | 68 6c 25 2b 3d 34 2a 76 |..R.    |hl%+=4*v|
|000007d0| 6f 72 67 0d 03 5c 13 20 | 20 20 20 64 65 25 2b 3d |org..\. |   de%+=|
|000007e0| 34 2a 76 64 65 73 0d 03 | 66 0a 20 20 ed 20 6a 25 |4*vdes..|f.  . j%|
|000007f0| 0d 03 70 08 ed 20 69 25 | 0d 03 7a 16 c8 99 20 22 |..p.. i%|..z... "|
|00000800| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 03 |Hourglas|s_Off"..|
|00000810| 84 04 0d 03 8e 12 6c 65 | 6e 3d 64 65 25 2d 64 65 |......le|n=de%-de|
|00000820| 73 74 69 6e 0d 03 98 1e | e8 27 22 44 65 73 74 69 |stin....|.'"Desti|
|00000830| 6e 61 74 69 6f 6e 20 66 | 69 6c 65 20 3f 20 20 22 |nation f|ile ?  "|
|00000840| 7a 24 0d 03 a2 35 ff 20 | 22 50 61 63 6b 73 61 76 |z$...5. |"Packsav|
|00000850| 65 20 22 2b 70 61 74 68 | 24 2b 22 2e 22 2b 7a 24 |e "+path|$+"."+z$|
|00000860| 2b 22 20 22 2b c3 7e 64 | 65 73 74 69 6e 2b 22 20 |+" "+.~d|estin+" |
|00000870| 22 2b c3 7e 6c 65 6e 0d | 03 ac 05 e0 0d 03 b6 04 |"+.~len.|........|
|00000880| 0d 03 c0 04 0d 03 ca 0b | dd 20 f2 5f 41 73 6d 0d |........|. ._Asm.|
|00000890| 03 d4 19 e3 20 70 3d 25 | 31 30 30 30 20 b8 20 25 |.... p=%|1000 . %|
|000008a0| 31 30 31 30 20 88 20 32 | 0d 03 de 0c 50 25 3d 63 |1010 . 2|....P%=c|
|000008b0| 6f 64 65 25 0d 03 e8 0a | 5b 4f 50 54 20 70 0d 03 |ode%....|[OPT p..|
|000008c0| f2 10 20 6d 6f 76 20 20 | 20 72 33 2c 23 30 0d 03 |.. mov  | r3,#0..|
|000008d0| fc 0a 2e 63 6c 65 61 72 | 0d 04 06 15 20 73 74 72 |...clear|.... str|
|000008e0| 20 20 20 72 33 2c 5b 72 | 31 5d 2c 23 34 0d 04 10 |   r3,[r|1],#4...|
|000008f0| 10 20 63 6d 70 20 20 20 | 72 31 2c 72 32 0d 04 1a |. cmp   |r1,r2...|
|00000900| 10 20 62 4c 6f 20 20 20 | 63 6c 65 61 72 0d 04 24 |. bLo   |clear..$|
|00000910| 11 20 6d 6f 76 20 20 20 | 70 63 2c 72 31 34 0d 04 |. mov   |pc,r14..|
|00000920| 2e 09 5d 3a ed 20 70 0d | 04 38 05 e1 0d ff       |..]:. p.|.8....  |
+--------+-------------------------+-------------------------+--------+--------+