/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / wst!blz3.dms / in.adf / libsdev.lha / acidlibsrc / banklib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 6d 65 6d 6f | 72 79 20 62 61 6e 6b 20 |;.; memo|ry bank |
|00000010| 6c 69 62 72 61 72 79 20 | 77 69 74 68 20 6d 69 73 |library |with mis|
|00000020| 63 20 6d 65 6d 6f 72 79 | 20 63 6f 6d 6d 61 6e 64 |c memory| command|
|00000030| 73 00 3b 00 00 3b 20 61 | 6c 6c 6f 63 6d 65 6d 20 |s.;..; a|llocmem |
|00000040| 61 6e 64 20 66 72 65 65 | 6d 65 6d 20 61 64 64 65 |and free|mem adde|
|00000050| 64 20 66 6f 72 20 73 74 | 61 6e 64 61 72 64 69 73 |d for st|andardis|
|00000060| 61 74 69 6f 6e 73 20 73 | 61 6b 65 00 3b 20 6c 6f |ations s|ake.; lo|
|00000070| 61 64 62 61 6e 6b 20 6e | 6f 77 20 61 6c 6c 6f 63 |adbank n|ow alloc|
|00000080| 61 74 65 73 20 6d 65 6d | 6f 72 79 20 66 6f 72 20 |ates mem|ory for |
|00000090| 73 69 7a 65 20 6f 66 20 | 66 69 6c 65 00 3b 00 00 |size of |file.;..|
|000000a0| 21 6c 69 62 68 65 61 64 | 65 72 7b 23 62 61 6e 6b |!libhead|er{#bank|
|000000b0| 6c 69 62 2c 30 2c 30 2c | 30 2c 30 7d 00 00 21 61 |lib,0,0,|0,0}..!a|
|000000c0| 66 75 6e 63 74 69 6f 6e | 20 7b 23 6c 6f 6e 67 7d |function| {#long}|
|000000d0| 00 21 61 72 67 73 20 7b | 23 77 6f 72 64 7d 00 21 |.!args {|#word}.!|
|000000e0| 6c 69 62 73 20 7b 23 62 | 61 6e 6b 6c 69 62 2c 24 |libs {#b|anklib,$|
|000000f0| 31 33 38 30 7d 00 21 73 | 75 62 73 20 7b 5f 62 61 |1380}.!s|ubs {_ba|
|00000100| 6e 6b 6c 6f 63 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |nkloc,0,|0}.!name|
|00000110| 20 7b 22 42 61 6e 6b 22 | 2c 22 28 62 61 6e 6b 23 | {"Bank"|,"(bank#|
|00000120| 29 20 20 3b 72 65 74 75 | 72 6e 73 20 6c 6f 63 61 |)  ;retu|rns loca|
|00000130| 74 69 6f 6e 20 6f 66 20 | 62 61 6e 6b 2c 20 30 20 |tion of |bank, 0 |
|00000140| 69 66 20 6e 6f 74 20 69 | 6e 20 75 73 65 22 2c 5f |if not i|n use",_|
|00000150| 74 6f 6b 65 7d 00 00 21 | 61 73 74 61 74 65 6d 65 |toke}..!|astateme|
|00000160| 6e 74 00 21 61 72 67 73 | 20 7b 23 77 6f 72 64 2c |nt.!args| {#word,|
|00000170| 23 6c 6f 6e 67 2c 23 6c | 6f 6e 67 7d 00 21 6c 69 |#long,#l|ong}.!li|
|00000180| 62 73 20 7b 23 62 61 6e | 6b 6c 69 62 2c 24 31 33 |bs {#ban|klib,$13|
|00000190| 38 30 7d 00 21 73 75 62 | 73 20 7b 5f 69 6e 69 74 |80}.!sub|s {_init|
|000001a0| 62 61 6e 6b 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 20 |bank,0,0|}.!name |
|000001b0| 7b 22 49 6e 69 74 42 61 | 6e 6b 22 2c 22 62 61 6e |{"InitBa|nk","ban|
|000001c0| 6b 23 2c 73 69 7a 65 2c | 6d 65 6d 74 79 70 65 20 |k#,size,|memtype |
|000001d0| 3b 30 3d 66 61 73 74 20 | 32 3d 63 68 69 70 20 36 |;0=fast |2=chip 6|
|000001e0| 35 35 33 36 3d 63 6c 72 | 6d 65 6d 22 7d 00 00 21 |5536=clr|mem"}..!|
|000001f0| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|00000200| 20 7b 23 77 6f 72 64 7d | 00 21 6c 69 62 73 20 7b | {#word}|.!libs {|
|00000210| 23 62 61 6e 6b 6c 69 62 | 2c 24 31 33 38 30 7d 00 |#banklib|,$1380}.|
|00000220| 21 73 75 62 73 20 7b 5f | 66 72 65 65 62 61 6e 6b |!subs {_|freebank|
|00000230| 2c 30 2c 30 7d 00 21 6e | 61 6d 65 20 7b 22 46 72 |,0,0}.!n|ame {"Fr|
|00000240| 65 65 42 61 6e 6b 22 2c | 22 62 61 6e 6b 23 22 7d |eeBank",|"bank#"}|
|00000250| 00 00 21 61 73 74 61 74 | 65 6d 65 6e 74 00 21 61 |..!astat|ement.!a|
|00000260| 72 67 73 20 7b 23 77 6f | 72 64 2c 23 73 74 72 69 |rgs {#wo|rd,#stri|
|00000270| 6e 67 7d 00 21 6c 69 62 | 73 20 7b 23 64 6f 73 6c |ng}.!lib|s {#dosl|
|00000280| 69 62 2c 23 6c 61 36 2c | 23 62 61 6e 6b 6c 69 62 |ib,#la6,|#banklib|
|00000290| 2c 24 31 33 38 30 7d 00 | 21 73 75 62 73 20 7b 5f |,$1380}.|!subs {_|
|000002a0| 62 61 6e 6b 6c 6f 61 64 | 2c 30 2c 30 7d 00 21 61 |bankload|,0,0}.!a|
|000002b0| 72 67 73 20 7b 23 77 6f | 72 64 2c 23 73 74 72 69 |rgs {#wo|rd,#stri|
|000002c0| 6e 67 2c 23 6c 6f 6e 67 | 7d 00 21 6c 69 62 73 20 |ng,#long|}.!libs |
|000002d0| 7b 23 64 6f 73 6c 69 62 | 2c 23 6c 61 36 2c 23 62 |{#doslib|,#la6,#b|
|000002e0| 61 6e 6b 6c 69 62 2c 24 | 31 33 38 30 7d 00 21 73 |anklib,$|1380}.!s|
|000002f0| 75 62 73 20 7b 5f 62 61 | 6e 6b 6c 6f 61 64 62 2c |ubs {_ba|nkloadb,|
|00000300| 30 2c 30 7d 00 21 6e 61 | 6d 65 20 7b 22 4c 6f 61 |0,0}.!na|me {"Loa|
|00000310| 64 42 61 6e 6b 22 2c 22 | 62 61 6e 6b 23 2c 66 69 |dBank","|bank#,fi|
|00000320| 6c 65 6e 61 6d 65 24 5b | 2c 6d 65 6d 74 79 70 65 |lename$[|,memtype|
|00000330| 5d 22 7d 00 00 21 61 73 | 74 61 74 65 6d 65 6e 74 |]"}..!as|tatement|
|00000340| 00 21 61 72 67 73 20 7b | 23 77 6f 72 64 2c 23 73 |.!args {|#word,#s|
|00000350| 74 72 69 6e 67 7d 00 21 | 6c 69 62 73 20 7b 23 64 |tring}.!|libs {#d|
|00000360| 6f 73 6c 69 62 2c 23 6c | 61 36 2c 23 62 61 6e 6b |oslib,#l|a6,#bank|
|00000370| 6c 69 62 2c 24 31 33 38 | 30 7d 00 21 73 75 62 73 |lib,$138|0}.!subs|
|00000380| 20 7b 5f 62 61 6e 6b 73 | 61 76 65 2c 30 2c 30 7d | {_banks|ave,0,0}|
|00000390| 00 21 6e 61 6d 65 20 7b | 22 53 61 76 65 42 61 6e |.!name {|"SaveBan|
|000003a0| 6b 22 2c 22 62 61 6e 6b | 23 2c 66 69 6c 65 6e 61 |k","bank|#,filena|
|000003b0| 6d 65 24 22 7d 00 00 21 | 61 66 75 6e 63 74 69 6f |me$"}..!|afunctio|
|000003c0| 6e 20 7b 23 6c 6f 6e 67 | 7d 00 21 61 72 67 73 20 |n {#long|}.!args |
|000003d0| 7b 23 77 6f 72 64 7d 00 | 21 6c 69 62 73 20 7b 23 |{#word}.|!libs {#|
|000003e0| 62 61 6e 6b 6c 69 62 2c | 24 31 33 38 30 7d 00 21 |banklib,|$1380}.!|
|000003f0| 73 75 62 73 20 7b 5f 62 | 61 6e 6b 6c 6f 63 2c 30 |subs {_b|ankloc,0|
|00000400| 2c 30 7d 00 21 6e 61 6d | 65 20 7b 22 42 61 6e 6b |,0}.!nam|e {"Bank|
|00000410| 4c 6f 63 22 2c 22 28 62 | 61 6e 6b 23 29 22 7d 00 |Loc","(b|ank#)"}.|
|00000420| 00 21 61 66 75 6e 63 74 | 69 6f 6e 20 7b 23 6c 6f |.!afunct|ion {#lo|
|00000430| 6e 67 7d 00 21 61 72 67 | 73 20 7b 23 77 6f 72 64 |ng}.!arg|s {#word|
|00000440| 7d 00 21 6c 69 62 73 20 | 7b 23 62 61 6e 6b 6c 69 |}.!libs |{#bankli|
|00000450| 62 2c 24 31 33 38 30 7d | 00 21 73 75 62 73 20 7b |b,$1380}|.!subs {|
|00000460| 5f 62 61 6e 6b 73 69 7a | 65 2c 30 2c 30 7d 00 21 |_banksiz|e,0,0}.!|
|00000470| 6e 61 6d 65 20 7b 22 42 | 61 6e 6b 53 69 7a 65 22 |name {"B|ankSize"|
|00000480| 2c 22 28 62 61 6e 6b 23 | 29 22 7d 00 00 21 61 66 |,"(bank#|)"}..!af|
|00000490| 75 6e 63 74 69 6f 6e 20 | 7b 23 6c 6f 6e 67 7d 00 |unction |{#long}.|
|000004a0| 21 61 72 67 73 20 7b 23 | 6c 6f 6e 67 2c 23 6c 6f |!args {#|long,#lo|
|000004b0| 6e 67 7d 00 21 6c 69 62 | 73 00 21 73 75 62 73 20 |ng}.!lib|s.!subs |
|000004c0| 7b 5f 61 6c 6c 6f 63 6d | 65 6d 2c 30 2c 30 7d 00 |{_allocm|em,0,0}.|
|000004d0| 21 6e 61 6d 65 20 7b 22 | 41 6c 6c 6f 63 4d 65 6d |!name {"|AllocMem|
|000004e0| 22 2c 22 28 73 69 7a 65 | 2c 6d 65 6d 74 79 70 65 |","(size|,memtype|
|000004f0| 29 20 6d 65 6d 74 79 70 | 65 3a 20 30 3d 66 61 73 |) memtyp|e: 0=fas|
|00000500| 74 20 32 3d 63 68 69 70 | 20 36 35 35 33 36 3d 63 |t 2=chip| 65536=c|
|00000510| 6c 72 6d 65 6d 22 7d 00 | 00 21 61 73 74 61 74 65 |lrmem"}.|.!astate|
|00000520| 6d 65 6e 74 00 21 61 72 | 67 73 20 7b 23 6c 6f 6e |ment.!ar|gs {#lon|
|00000530| 67 2c 23 6c 6f 6e 67 7d | 00 21 6c 69 62 73 00 21 |g,#long}|.!libs.!|
|00000540| 73 75 62 73 20 7b 5f 66 | 72 65 65 6d 65 6d 2c 30 |subs {_f|reemem,0|
|00000550| 2c 30 7d 00 21 6e 61 6d | 65 20 7b 22 46 72 65 65 |,0}.!nam|e {"Free|
|00000560| 4d 65 6d 22 2c 22 61 64 | 64 72 65 73 73 2c 73 69 |Mem","ad|dress,si|
|00000570| 7a 65 22 7d 00 00 5f 6c | 6f 61 64 3a 21 6e 75 6c |ze"}.._l|oad:!nul|
|00000580| 6c 73 75 62 7b 30 2c 30 | 2c 30 7d 00 5f 73 61 76 |lsub{0,0|,0}._sav|
|00000590| 65 3a 21 6e 75 6c 6c 73 | 75 62 7b 30 2c 30 2c 30 |e:!nulls|ub{0,0,0|
|000005a0| 7d 00 5f 75 73 65 3a 21 | 6e 75 6c 6c 73 75 62 7b |}._use:!|nullsub{|
|000005b0| 30 2c 30 2c 30 7d 00 5f | 66 72 65 65 3a 21 6e 75 |0,0,0}._|free:!nu|
|000005c0| 6c 6c 73 75 62 7b 30 2c | 30 2c 30 7d 00 00 21 6c |llsub{0,|0,0}..!l|
|000005d0| 69 62 66 69 6e 7b 5f 74 | 6f 6b 65 2c 5f 6c 6f 61 |ibfin{_t|oke,_loa|
|000005e0| 64 2c 5f 73 61 76 65 2c | 5f 75 73 65 2c 5f 66 72 |d,_save,|_use,_fr|
|000005f0| 65 65 2c 35 2c 34 7d 00 | 00 80 01 20 2e 62 61 6e |ee,5,4}.|... .ban|
|00000600| 6b 00 20 20 70 6f 73 2e | 6c 3a 73 69 7a 65 2e 6c |k.  pos.|l:size.l|
|00000610| 3a 6d 65 6d 74 79 70 65 | 2e 6c 00 80 02 20 80 01 |:memtype|.l... ..|
|00000620| 00 00 2e 5f 69 6e 69 74 | 62 61 6e 6b 3a 00 20 20 |..._init|bank:.  |
|00000630| 80 82 2e 6c 20 64 31 2d | 64 32 2c 2d 28 61 37 29 |...l d1-|d2,-(a7)|
|00000640| 3a 80 59 20 5f 66 72 65 | 65 62 61 6e 6b 3a 80 82 |:.Y _fre|ebank:..|
|00000650| 2e 6c 20 28 61 37 29 2b | 2c 64 30 2d 64 31 00 20 |.l (a7)+|,d0-d1. |
|00000660| 20 80 b0 2e 6c 20 64 30 | 3a 80 48 20 73 69 7a 65 | ...l d0|:.H size|
|00000670| 30 3a 80 82 2e 6c 20 64 | 30 2d 64 31 2c 34 28 61 |0:...l d|0-d1,4(a|
|00000680| 33 29 3a 80 38 20 24 63 | 30 30 32 3a 80 7e 2e 6c |3):.8 $c|002:.~.l|
|00000690| 20 64 30 2c 28 61 33 29 | 00 20 20 73 69 7a 65 30 | d0,(a3)|.  size0|
|000006a0| 3a 80 94 00 00 2e 5f 66 | 72 65 65 62 61 6e 6b 3a |:....._f|reebank:|
|000006b0| 00 20 20 80 82 2e 6c 20 | 28 61 33 29 2c 64 30 2d |.  ...l |(a3),d0-|
|000006c0| 64 31 3a 80 b0 2e 6c 20 | 64 30 3a 80 48 20 6e 6f |d1:...l |d0:.H no|
|000006d0| 62 6e 6b 3a 80 7e 2e 6c | 20 64 30 2c 61 31 3a 80 |bnk:.~.l| d0,a1:.|
|000006e0| 7e 2e 6c 20 64 31 2c 64 | 30 00 20 20 80 48 20 6e |~.l d1,d|0.  .H n|
|000006f0| 6f 62 6e 6b 3a 80 38 20 | 24 63 30 30 33 3a 80 81 |obnk:.8 |$c003:..|
|00000700| 23 30 2c 64 30 3a 80 7e | 2e 6c 20 64 30 2c 28 61 |#0,d0:.~|.l d0,(a|
|00000710| 33 29 3a 80 7e 2e 6c 20 | 64 30 2c 34 28 61 33 29 |3):.~.l |d0,4(a3)|
|00000720| 00 20 20 6e 6f 62 6e 6b | 3a 80 94 00 00 2e 5f 62 |.  nobnk|:....._b|
|00000730| 61 6e 6b 6c 6f 61 64 3a | 00 20 20 80 81 23 30 2c |ankload:|.  ..#0,|
|00000740| 64 32 3a 80 b0 2e 6c 20 | 28 61 33 29 3a 80 48 20 |d2:...l |(a3):.H |
|00000750| 5f 62 61 6e 6b 6c 6f 61 | 64 62 3a 80 7e 2e 6c 20 |_bankloa|db:.~.l |
|00000760| 38 28 61 33 29 2c 64 32 | 00 00 2e 5f 62 61 6e 6b |8(a3),d2|..._bank|
|00000770| 6c 6f 61 64 62 3a 00 20 | 20 80 7e 2e 6c 20 64 31 |loadb:. | .~.l d1|
|00000780| 2c 64 30 3a 80 7e 2e 6c | 20 64 30 2c 66 6e 61 6d |,d0:.~.l| d0,fnam|
|00000790| 65 00 20 20 80 7e 2e 6c | 20 64 32 2c 2d 28 61 37 |e.  .~.l| d2,-(a7|
|000007a0| 29 3a 80 38 20 be 15 3a | 80 7e 2e 6c 20 28 61 37 |):.8 ..:|.~.l (a7|
|000007b0| 29 2b 2c 64 32 00 20 20 | 80 b0 2e 6c 20 64 30 3a |)+,d2.  |...l d0:|
|000007c0| 80 48 20 6e 6f 6c 6f 61 | 64 3a 80 5c 2e 6c 20 38 |.H noloa|d:.\.l 8|
|000007d0| 28 61 33 29 2c 64 32 3a | 80 50 20 79 6f 6c 6f 63 |(a3),d2:|.P yoloc|
|000007e0| 3a 80 5c 2e 6c 20 34 28 | 61 33 29 2c 64 30 3a 80 |:.\.l 4(|a3),d0:.|
|000007f0| 4f 20 6e 6f 6c 6f 63 00 | 20 20 79 6f 6c 6f 63 3a |O noloc.|  yoloc:|
|00000800| 80 7e 2e 6c 20 64 30 2c | 64 31 3a 80 59 20 5f 69 |.~.l d0,|d1:.Y _i|
|00000810| 6e 69 74 62 61 6e 6b 3a | 6e 6f 6c 6f 63 00 20 20 |nitbank:|noloc.  |
|00000820| 80 7e 2e 6c 20 66 6e 61 | 6d 65 28 70 63 29 2c 64 |.~.l fna|me(pc),d|
|00000830| 31 3a 80 7e 2e 6c 20 23 | 31 30 30 35 2c 64 32 3a |1:.~.l #|1005,d2:|
|00000840| 80 79 20 2d 33 30 28 61 | 36 29 3a 80 7e 2e 6c 20 |.y -30(a|6):.~.l |
|00000850| 64 30 2c 68 61 6e 64 00 | 20 20 80 48 20 6e 6f 6c |d0,hand.|  .H nol|
|00000860| 6f 61 64 3a 80 7e 2e 6c | 20 68 61 6e 64 28 70 63 |oad:.~.l| hand(pc|
|00000870| 29 2c 64 31 3a 80 82 2e | 6c 20 28 61 33 29 2c 64 |),d1:...|l (a3),d|
|00000880| 32 2d 64 33 3a 80 79 20 | 2d 34 32 28 61 36 29 00 |2-d3:.y |-42(a6).|
|00000890| 20 20 80 7e 2e 6c 20 68 | 61 6e 64 28 70 63 29 2c |  .~.l h|and(pc),|
|000008a0| 64 31 3a 80 79 20 2d 33 | 36 28 61 36 29 3a 6e 6f |d1:.y -3|6(a6):no|
|000008b0| 6c 6f 61 64 3a 80 94 00 | 00 2e 5f 62 61 6e 6b 73 |load:...|.._banks|
|000008c0| 61 76 65 3a 00 20 20 80 | b0 2e 6c 20 28 61 31 29 |ave:.  .|..l (a1)|
|000008d0| 3a 80 48 20 6e 6f 73 61 | 76 65 3a 80 7e 2e 6c 20 |:.H nosa|ve:.~.l |
|000008e0| 23 31 30 30 36 2c 64 32 | 3a 80 79 20 2d 33 30 28 |#1006,d2|:.y -30(|
|000008f0| 61 36 29 3a 80 7e 2e 6c | 20 64 30 2c 68 61 6e 64 |a6):.~.l| d0,hand|
|00000900| 00 20 20 80 48 20 6e 6f | 73 61 76 65 3a 80 7e 2e |.  .H no|save:.~.|
|00000910| 6c 20 68 61 6e 64 28 70 | 63 29 2c 64 31 3a 80 82 |l hand(p|c),d1:..|
|00000920| 2e 6c 20 28 61 33 29 2c | 64 32 2d 64 33 3a 80 79 |.l (a3),|d2-d3:.y|
|00000930| 20 2d 34 38 28 61 36 29 | 00 20 20 80 7e 2e 6c 20 | -48(a6)|.  .~.l |
|00000940| 68 61 6e 64 28 70 63 29 | 2c 64 31 3a 80 79 20 2d |hand(pc)|,d1:.y -|
|00000950| 33 36 28 61 36 29 3a 6e | 6f 73 61 76 65 3a 80 94 |36(a6):n|osave:..|
|00000960| 00 00 2e 5f 62 61 6e 6b | 6c 6f 63 3a 80 7e 2e 6c |..._bank|loc:.~.l|
|00000970| 28 61 33 29 2c 64 30 3a | 80 94 00 00 2e 5f 62 61 |(a3),d0:|....._ba|
|00000980| 6e 6b 73 69 7a 65 3a 80 | 7e 2e 6c 34 28 61 33 29 |nksize:.|~.l4(a3)|
|00000990| 2c 64 30 3a 80 94 00 00 | 2e 5f 61 6c 6c 6f 63 6d |,d0:....|._allocm|
|000009a0| 65 6d 3a 80 38 20 24 63 | 30 30 32 3a 80 94 00 00 |em:.8 $c|002:....|
|000009b0| 2e 5f 66 72 65 65 6d 65 | 6d 3a 80 7e 2e 6c 20 64 |._freeme|m:.~.l d|
|000009c0| 30 2c 61 31 3a 80 7e 2e | 6c 20 64 31 2c 64 30 3a |0,a1:.~.|l d1,d0:|
|000009d0| 80 38 20 24 63 30 30 33 | 3a 80 94 00 00 68 61 6e |.8 $c003|:....han|
|000009e0| 64 3a 80 25 2e 6c 20 30 | 00 66 6e 61 6d 65 3a 80 |d:.%.l 0|.fname:.|
|000009f0| 25 2e 6c 20 30 00 00    |                         |%.l 0.. |        |
+--------+-------------------------+-------------------------+--------+--------+