/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU1.DMS / in.adf / AcidSource / banklib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 21 6c 69 62 68 65 61 64 | 65 72 7b 23 62 61 6e 6b |!libhead|er{#bank|
|00000010| 6c 69 62 2c 30 2c 30 2c | 30 2c 30 7d 00 00 21 64 |lib,0,0,|0,0}..!d|
|00000020| 75 6d 74 6f 6b 65 7b 22 | 42 61 6e 6b 22 2c 22 22 |umtoke{"|Bank",""|
|00000030| 2c 5f 74 6f 6b 65 7d 00 | 00 21 61 73 74 61 74 65 |,_toke}.|.!astate|
|00000040| 6d 65 6e 74 00 21 61 72 | 67 73 20 7b 23 77 6f 72 |ment.!ar|gs {#wor|
|00000050| 64 2c 23 6c 6f 6e 67 2c | 23 6c 6f 6e 67 7d 00 21 |d,#long,|#long}.!|
|00000060| 6c 69 62 73 20 7b 23 62 | 61 6e 6b 6c 69 62 2c 24 |libs {#b|anklib,$|
|00000070| 31 33 38 30 7d 00 21 73 | 75 62 73 20 7b 5f 69 6e |1380}.!s|ubs {_in|
|00000080| 69 74 62 61 6e 6b 2c 30 | 2c 30 7d 00 21 6e 61 6d |itbank,0|,0}.!nam|
|00000090| 65 20 7b 22 49 6e 69 74 | 42 61 6e 6b 22 2c 22 62 |e {"Init|Bank","b|
|000000a0| 61 6e 6b 23 2c 73 69 7a | 65 2c 6d 65 6d 74 79 70 |ank#,siz|e,memtyp|
|000000b0| 65 20 3b 30 3d 66 61 73 | 74 20 32 3d 63 68 69 70 |e ;0=fas|t 2=chip|
|000000c0| 20 36 35 35 33 36 3d 63 | 6c 72 6d 65 6d 22 7d 00 | 65536=c|lrmem"}.|
|000000d0| 00 21 61 73 74 61 74 65 | 6d 65 6e 74 00 21 61 72 |.!astate|ment.!ar|
|000000e0| 67 73 20 7b 23 77 6f 72 | 64 7d 00 21 6c 69 62 73 |gs {#wor|d}.!libs|
|000000f0| 20 7b 23 62 61 6e 6b 6c | 69 62 2c 24 31 33 38 30 | {#bankl|ib,$1380|
|00000100| 7d 00 21 73 75 62 73 20 | 7b 5f 66 72 65 65 62 61 |}.!subs |{_freeba|
|00000110| 6e 6b 2c 30 2c 30 7d 00 | 21 6e 61 6d 65 20 7b 22 |nk,0,0}.|!name {"|
|00000120| 46 72 65 65 42 61 6e 6b | 22 2c 22 62 61 6e 6b 23 |FreeBank|","bank#|
|00000130| 22 7d 00 00 21 61 73 74 | 61 74 65 6d 65 6e 74 00 |"}..!ast|atement.|
|00000140| 21 61 72 67 73 20 7b 23 | 77 6f 72 64 2c 23 73 74 |!args {#|word,#st|
|00000150| 72 69 6e 67 7d 00 21 6c | 69 62 73 20 7b 23 64 6f |ring}.!l|ibs {#do|
|00000160| 73 6c 69 62 2c 23 6c 61 | 36 2c 23 62 61 6e 6b 6c |slib,#la|6,#bankl|
|00000170| 69 62 2c 24 31 33 38 30 | 7d 00 21 73 75 62 73 20 |ib,$1380|}.!subs |
|00000180| 7b 5f 62 61 6e 6b 6c 6f | 61 64 2c 30 2c 30 7d 00 |{_banklo|ad,0,0}.|
|00000190| 21 6e 61 6d 65 20 7b 22 | 4c 6f 61 64 42 61 6e 6b |!name {"|LoadBank|
|000001a0| 22 2c 22 62 61 6e 6b 23 | 2c 66 69 6c 65 6e 61 6d |","bank#|,filenam|
|000001b0| 65 24 22 7d 00 00 21 61 | 73 74 61 74 65 6d 65 6e |e$"}..!a|statemen|
|000001c0| 74 00 21 61 72 67 73 20 | 7b 23 77 6f 72 64 2c 23 |t.!args |{#word,#|
|000001d0| 73 74 72 69 6e 67 7d 00 | 21 6c 69 62 73 20 7b 23 |string}.|!libs {#|
|000001e0| 64 6f 73 6c 69 62 2c 23 | 6c 61 36 2c 23 62 61 6e |doslib,#|la6,#ban|
|000001f0| 6b 6c 69 62 2c 24 31 33 | 38 30 7d 00 21 73 75 62 |klib,$13|80}.!sub|
|00000200| 73 20 7b 5f 62 61 6e 6b | 73 61 76 65 2c 30 2c 30 |s {_bank|save,0,0|
|00000210| 7d 00 21 6e 61 6d 65 20 | 7b 22 53 61 76 65 42 61 |}.!name |{"SaveBa|
|00000220| 6e 6b 22 2c 22 62 61 6e | 6b 23 2c 66 69 6c 65 6e |nk","ban|k#,filen|
|00000230| 61 6d 65 24 22 7d 00 00 | 21 61 66 75 6e 63 74 69 |ame$"}..|!afuncti|
|00000240| 6f 6e 20 7b 23 6c 6f 6e | 67 7d 00 21 61 72 67 73 |on {#lon|g}.!args|
|00000250| 20 7b 23 77 6f 72 64 7d | 00 21 6c 69 62 73 20 7b | {#word}|.!libs {|
|00000260| 23 62 61 6e 6b 6c 69 62 | 2c 24 31 33 38 30 7d 00 |#banklib|,$1380}.|
|00000270| 21 73 75 62 73 20 7b 5f | 62 61 6e 6b 6c 6f 63 2c |!subs {_|bankloc,|
|00000280| 30 2c 30 7d 00 21 6e 61 | 6d 65 20 7b 22 42 61 6e |0,0}.!na|me {"Ban|
|00000290| 6b 4c 6f 63 22 2c 22 28 | 62 61 6e 6b 23 29 22 7d |kLoc","(|bank#)"}|
|000002a0| 00 00 5f 6c 6f 61 64 3a | 21 6e 75 6c 6c 73 75 62 |.._load:|!nullsub|
|000002b0| 7b 30 2c 30 2c 30 7d 00 | 5f 73 61 76 65 3a 21 6e |{0,0,0}.|_save:!n|
|000002c0| 75 6c 6c 73 75 62 7b 30 | 2c 30 2c 30 7d 00 5f 75 |ullsub{0|,0,0}._u|
|000002d0| 73 65 3a 21 6e 75 6c 6c | 73 75 62 7b 30 2c 30 2c |se:!null|sub{0,0,|
|000002e0| 30 7d 00 5f 66 72 65 65 | 3a 21 6e 75 6c 6c 73 75 |0}._free|:!nullsu|
|000002f0| 62 7b 30 2c 30 2c 30 7d | 00 00 21 6c 69 62 66 69 |b{0,0,0}|..!libfi|
|00000300| 6e 7b 5f 74 6f 6b 65 2c | 5f 6c 6f 61 64 2c 5f 73 |n{_toke,|_load,_s|
|00000310| 61 76 65 2c 5f 75 73 65 | 2c 5f 66 72 65 65 2c 35 |ave,_use|,_free,5|
|00000320| 2c 33 7d 00 00 2e 5f 69 | 6e 69 74 62 61 6e 6b 3a |,3}..._i|nitbank:|
|00000330| 00 20 20 80 82 2e 6c 20 | 64 31 2d 64 32 2c 2d 28 |.  ...l |d1-d2,-(|
|00000340| 61 37 29 3a 80 59 20 5f | 66 72 65 65 62 61 6e 6b |a7):.Y _|freebank|
|00000350| 3a 80 82 2e 6c 20 28 61 | 37 29 2b 2c 64 30 2d 64 |:...l (a|7)+,d0-d|
|00000360| 31 00 20 20 80 b0 2e 6c | 20 64 30 3a 80 48 20 73 |1.  ...l| d0:.H s|
|00000370| 69 7a 65 30 3a 80 7e 2e | 6c 20 64 30 2c 34 28 61 |ize0:.~.|l d0,4(a|
|00000380| 33 29 3a 80 38 20 24 63 | 30 30 32 3a 80 7e 2e 6c |3):.8 $c|002:.~.l|
|00000390| 20 64 30 2c 28 61 33 29 | 00 20 20 73 69 7a 65 30 | d0,(a3)|.  size0|
|000003a0| 3a 80 94 00 00 2e 5f 66 | 72 65 65 62 61 6e 6b 3a |:....._f|reebank:|
|000003b0| 00 20 20 80 82 2e 6c 20 | 28 61 33 29 2c 64 30 2d |.  ...l |(a3),d0-|
|000003c0| 64 31 3a 80 b0 2e 6c 20 | 64 30 3a 80 48 20 6e 6f |d1:...l |d0:.H no|
|000003d0| 62 6e 6b 3a 80 7e 2e 6c | 20 64 30 2c 61 31 3a 80 |bnk:.~.l| d0,a1:.|
|000003e0| 7e 2e 6c 20 64 31 2c 64 | 30 00 20 20 80 48 20 6e |~.l d1,d|0.  .H n|
|000003f0| 6f 62 6e 6b 3a 80 38 20 | 24 63 30 30 33 3a 80 81 |obnk:.8 |$c003:..|
|00000400| 23 30 2c 64 30 3a 80 7e | 2e 6c 20 64 30 2c 28 61 |#0,d0:.~|.l d0,(a|
|00000410| 33 29 3a 80 7e 2e 6c 20 | 64 30 2c 34 28 61 33 29 |3):.~.l |d0,4(a3)|
|00000420| 00 20 20 6e 6f 62 6e 6b | 3a 80 94 00 00 2e 5f 62 |.  nobnk|:....._b|
|00000430| 61 6e 6b 6c 6f 61 64 3a | 00 20 20 80 b0 2e 6c 20 |ankload:|.  ...l |
|00000440| 28 61 33 29 3a 80 48 20 | 6e 6f 6c 6f 61 64 3a 80 |(a3):.H |noload:.|
|00000450| 7e 2e 6c 20 23 31 30 30 | 35 2c 64 32 3a 80 79 20 |~.l #100|5,d2:.y |
|00000460| 2d 33 30 28 61 36 29 3a | 80 7e 2e 6c 20 64 30 2c |-30(a6):|.~.l d0,|
|00000470| 68 61 6e 64 00 20 20 80 | 48 20 6e 6f 6c 6f 61 64 |hand.  .|H noload|
|00000480| 3a 80 7e 2e 6c 20 68 61 | 6e 64 28 70 63 29 2c 64 |:.~.l ha|nd(pc),d|
|00000490| 31 3a 80 82 2e 6c 20 28 | 61 33 29 2c 64 32 2d 64 |1:...l (|a3),d2-d|
|000004a0| 33 3a 80 79 20 2d 34 32 | 28 61 36 29 00 20 20 80 |3:.y -42|(a6).  .|
|000004b0| 7e 2e 6c 20 68 61 6e 64 | 28 70 63 29 2c 64 31 3a |~.l hand|(pc),d1:|
|000004c0| 80 79 20 2d 33 36 28 61 | 36 29 3a 6e 6f 6c 6f 61 |.y -36(a|6):noloa|
|000004d0| 64 3a 80 94 00 00 2e 5f | 62 61 6e 6b 73 61 76 65 |d:....._|banksave|
|000004e0| 3a 00 20 20 80 b0 2e 6c | 20 28 61 31 29 3a 80 48 |:.  ...l| (a1):.H|
|000004f0| 20 6e 6f 73 61 76 65 3a | 80 7e 2e 6c 20 23 31 30 | nosave:|.~.l #10|
|00000500| 30 36 2c 64 32 3a 80 79 | 20 2d 33 30 28 61 36 29 |06,d2:.y| -30(a6)|
|00000510| 3a 80 7e 2e 6c 20 64 30 | 2c 68 61 6e 64 00 20 20 |:.~.l d0|,hand.  |
|00000520| 80 48 20 6e 6f 73 61 76 | 65 3a 80 7e 2e 6c 20 68 |.H nosav|e:.~.l h|
|00000530| 61 6e 64 28 70 63 29 2c | 64 31 3a 80 82 2e 6c 20 |and(pc),|d1:...l |
|00000540| 28 61 33 29 2c 64 32 2d | 64 33 3a 80 79 20 2d 34 |(a3),d2-|d3:.y -4|
|00000550| 38 28 61 36 29 00 20 20 | 80 7e 2e 6c 20 68 61 6e |8(a6).  |.~.l han|
|00000560| 64 28 70 63 29 2c 64 31 | 3a 80 79 20 2d 33 36 28 |d(pc),d1|:.y -36(|
|00000570| 61 36 29 3a 6e 6f 73 61 | 76 65 3a 80 94 00 00 2e |a6):nosa|ve:.....|
|00000580| 5f 62 61 6e 6b 6c 6f 63 | 3a 80 7e 2e 6c 28 61 33 |_bankloc|:.~.l(a3|
|00000590| 29 2c 64 30 3a 80 94 00 | 00 68 61 6e 64 3a 80 25 |),d0:...|.hand:.%|
|000005a0| 2e 6c 20 30 00 00       |                         |.l 0..  |        |
+--------+-------------------------+-------------------------+--------+--------+