/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / amigamode / asldemo.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 61 73 6c 20 | 6c 69 62 72 61 72 79 20 |;.; asl |library |
|00000010| 65 78 61 6d 70 6c 65 00 | 3b 20 54 68 69 73 20 65 |example.|; This e|
|00000020| 78 61 6d 70 6c 65 20 72 | 65 71 75 69 72 65 73 20 |xample r|equires |
|00000030| 74 68 65 20 61 73 6c 2e | 6c 69 62 72 61 72 79 20 |the asl.|library |
|00000040| 69 6e 20 74 68 65 20 6c | 69 62 73 20 64 72 61 77 |in the l|ibs draw|
|00000050| 65 72 00 3b 20 6f 66 20 | 74 68 65 20 64 69 73 6b |er.; of |the disk|
|00000060| 20 79 6f 75 20 62 6f 6f | 74 65 64 20 66 72 6f 6d | you boo|ted from|
|00000070| 2e 00 00 3b 00 3b 20 6d | 6f 72 65 20 73 75 70 70 |...;.; m|ore supp|
|00000080| 6f 72 74 20 63 6f 6d 69 | 6e 67 21 00 3b 00 00 3b |ort comi|ng!.;..;|
|00000090| 00 3b 20 63 6f 6d 6d 61 | 6e 64 73 3a 00 3b 00 3b |.; comma|nds:.;.;|
|000000a0| 20 41 6c 6c 6f 63 46 69 | 6c 65 52 65 71 75 65 73 | AllocFi|leReques|
|000000b0| 74 28 29 28 29 00 3b 20 | 46 72 65 65 46 69 6c 65 |t()().; |FreeFile|
|000000c0| 52 65 71 75 65 73 74 28 | 66 69 6c 65 52 65 71 29 |Request(|fileReq)|
|000000d0| 28 61 30 29 00 3b 20 52 | 65 71 75 65 73 74 46 69 |(a0).; R|equestFi|
|000000e0| 6c 65 28 66 69 6c 65 52 | 65 71 29 28 61 30 29 00 |le(fileR|eq)(a0).|
|000000f0| 3b 20 41 6c 6c 6f 63 41 | 73 6c 52 65 71 75 65 73 |; AllocA|slReques|
|00000100| 74 28 72 65 71 54 79 70 | 65 2c 74 61 67 4c 69 73 |t(reqTyp|e,tagLis|
|00000110| 74 29 28 64 30 2f 61 30 | 29 00 3b 20 46 72 65 65 |t)(d0/a0|).; Free|
|00000120| 41 73 6c 52 65 71 75 65 | 73 74 28 72 65 71 75 65 |AslReque|st(reque|
|00000130| 73 74 65 72 29 28 61 30 | 29 00 3b 20 41 73 6c 52 |ster)(a0|).; AslR|
|00000140| 65 71 75 65 73 74 28 72 | 65 71 75 65 73 74 65 72 |equest(r|equester|
|00000150| 2c 74 61 67 4c 69 73 74 | 29 28 61 30 2f 61 31 29 |,tagList|)(a0/a1)|
|00000160| 00 00 80 01 20 2e 46 69 | 6c 65 52 65 71 75 65 73 |.... .Fi|leReques|
|00000170| 74 65 72 00 20 20 66 72 | 5f 52 65 73 65 72 76 65 |ter.  fr|_Reserve|
|00000180| 64 30 2e 62 5b 34 5d 00 | 20 20 66 72 5f 46 69 6c |d0.b[4].|  fr_Fil|
|00000190| 65 2e 6c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e.l     |        |
|000001a0| 20 20 20 20 20 20 3b 2f | 2a 20 43 6f 6e 74 65 6e |      ;/|* Conten|
|000001b0| 74 73 20 6f 66 20 46 69 | 6c 65 20 67 61 64 67 65 |ts of Fi|le gadge|
|000001c0| 74 20 6f 6e 20 65 78 69 | 74 20 20 20 20 2a 2f 00 |t on exi|t    */.|
|000001d0| 20 20 66 72 5f 44 72 61 | 77 65 72 2e 6c 20 20 20 |  fr_Dra|wer.l   |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 2f |        |      ;/|
|000001f0| 2a 20 43 6f 6e 74 65 6e | 74 73 20 6f 66 20 44 72 |* Conten|ts of Dr|
|00000200| 61 77 65 72 20 67 61 64 | 67 65 74 20 6f 6e 20 65 |awer gad|get on e|
|00000210| 78 69 74 20 20 2a 2f 00 | 20 20 66 72 5f 52 65 73 |xit  */.|  fr_Res|
|00000220| 65 72 76 65 64 31 2e 62 | 5b 31 30 5d 00 20 20 66 |erved1.b|[10].  f|
|00000230| 72 5f 4c 65 66 74 45 64 | 67 65 2e 77 20 20 20 20 |r_LeftEd|ge.w    |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 3b 2f 2a 20 43 |        |   ;/* C|
|00000250| 6f 6f 72 64 69 6e 61 74 | 65 73 20 6f 66 20 72 65 |oordinat|es of re|
|00000260| 71 75 65 73 74 65 72 20 | 6f 6e 20 65 78 69 74 20 |quester |on exit |
|00000270| 20 20 2a 2f 00 20 20 66 | 72 5f 54 6f 70 45 64 67 |  */.  f|r_TopEdg|
|00000280| 65 2e 77 00 20 20 66 72 | 5f 57 69 64 74 68 2e 77 |e.w.  fr|_Width.w|
|00000290| 00 20 20 66 72 5f 48 65 | 69 67 68 74 2e 77 00 20 |.  fr_He|ight.w. |
|000002a0| 20 66 72 5f 52 65 73 65 | 72 76 65 64 32 2e 62 5b | fr_Rese|rved2.b[|
|000002b0| 32 5d 00 20 20 66 72 5f | 4e 75 6d 41 72 67 73 2e |2].  fr_|NumArgs.|
|000002c0| 6c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |l       |        |
|000002d0| 20 3b 2f 2a 20 4e 75 6d | 62 65 72 20 6f 66 20 66 | ;/* Num|ber of f|
|000002e0| 69 6c 65 73 20 73 65 6c | 65 63 74 65 64 20 20 20 |iles sel|ected   |
|000002f0| 20 20 2a 2f 00 20 20 2a | 66 72 5f 41 72 67 4c 69 |  */.  *|fr_ArgLi|
|00000300| 73 74 2e 6c 20 3b 77 61 | 73 20 57 42 41 72 67 20 |st.l ;wa|s WBArg |
|00000310| 20 20 20 3b 2f 2a 20 4c | 69 73 74 20 6f 66 20 66 |   ;/* L|ist of f|
|00000320| 69 6c 65 73 20 73 65 6c | 65 63 74 65 64 20 20 20 |iles sel|ected   |
|00000330| 20 20 2a 2f 00 20 20 66 | 72 5f 55 73 65 72 44 61 |  */.  f|r_UserDa|
|00000340| 74 61 2e 6c 20 20 20 20 | 20 20 20 20 20 20 20 20 |ta.l    |        |
|00000350| 20 20 20 3b 2f 2a 20 59 | 6f 75 20 63 61 6e 20 73 |   ;/* Y|ou can s|
|00000360| 74 6f 72 65 20 79 6f 75 | 72 20 6f 77 6e 20 64 61 |tore you|r own da|
|00000370| 74 61 20 68 65 72 65 20 | 20 20 2a 2f 00 20 20 66 |ta here |  */.  f|
|00000380| 72 5f 52 65 73 65 72 76 | 65 64 33 2e 62 5b 38 5d |r_Reserv|ed3.b[8]|
|00000390| 00 20 20 66 72 5f 50 61 | 74 74 65 72 6e 2e 6c 20 |.  fr_Pa|ttern.l |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000003b0| 2f 2a 20 43 6f 6e 74 65 | 6e 74 73 20 6f 66 20 50 |/* Conte|nts of P|
|000003c0| 61 74 74 65 72 6e 20 67 | 61 64 67 65 74 20 6f 6e |attern g|adget on|
|000003d0| 20 65 78 69 74 20 2a 2f | 00 80 02 20 80 01 00 00 | exit */|... ....|
|000003e0| 2a 66 2e 46 69 6c 65 52 | 65 71 75 65 73 74 65 72 |*f.FileR|equester|
|000003f0| 3d fb 81 00 00 fb 83 20 | 2a 66 00 00 64 24 3d da |=...... |*f..d$=.|
|00000400| 03 28 2a 66 5c 66 72 5f | 44 72 61 77 65 72 2c 32 |.(*f\fr_|Drawer,2|
|00000410| 35 36 29 3a 66 24 3d da | 03 28 2a 66 5c 66 72 5f |56):f$=.|.(*f\fr_|
|00000420| 46 69 6c 65 2c 32 35 36 | 29 00 00 64 24 3d dc 81 |File,256|)..d$=..|
|00000430| 28 64 24 2c dc 89 28 64 | 24 2c dc 86 28 30 29 29 |(d$,..(d|$,..(0))|
|00000440| 2d 31 29 00 66 24 3d dc | 81 28 66 24 2c dc 89 28 |-1).f$=.|.(f$,..(|
|00000450| 66 24 2c dc 86 28 30 29 | 29 2d 31 29 00 00 80 0b |f$,..(0)|)-1)....|
|00000460| 20 64 24 3c 3e 22 22 00 | 20 20 80 0b 20 dc 82 28 | d$<>"".|  .. ..(|
|00000470| 64 24 2c 31 29 3d 22 3a | 22 20 80 21 20 66 24 3d |d$,1)=":|" .! f$=|
|00000480| 64 24 2b 66 24 20 80 22 | 20 66 24 3d 64 24 2b 22 |d$+f$ ."| f$=d$+"|
|00000490| 2f 22 2b 66 24 00 80 c0 | 00 00 dd 82 20 66 24 2c |/"+f$...|.... f$,|
|000004a0| dc 8f 28 66 24 29 00 00 | 80 0a 00 00 fb 82 20 2a |..(f$)..|...... *|
|000004b0| 66 00                   |                         |f.      |        |
+--------+-------------------------+-------------------------+--------+--------+