; ; memory bank library with misc memory commands ;  ; allocmem and freemem added for standardisations sake ; loadbank now allocates memory for size of file ;  !libheader{#banklib,0,0,0,0}  !afunction {#long} !args {#word} !libs {#banklib,$1380} !subs {_bankloc,0,0} !name {"Bank","(bank#)  ;returns location of bank, 0 if not in use",_toke}  !astatement !args {#word,#long,#long} !libs {#banklib,$1380} !subs {_initbank,0,0} !name {"InitBank","bank#,size,memtype ;0=fast 2=chip 65536=clrmem"}  !astatement !args {#word} !libs {#banklib,$1380} !subs {_freebank,0,0} !name {"FreeBank","bank#"}  !astatement !args {#word,#string} !libs {#doslib,#la6,#banklib,$1380} !subs {_bankload,0,0} !args {#word,#string,#long} !libs {#doslib,#la6,#banklib,$1380} !subs {_bankloadb,0,0} !name {"LoadBank","bank#,filename$[,memtype]"}  !astatement !args {#word,#string} !libs {#doslib,#la6,#banklib,$1380} !subs {_banksave,0,0} !name {"SaveBank","bank#,filename$"}  !afunction {#long} !args {#word} !libs {#banklib,$1380} !subs {_bankloc,0,0} !name {"BankLoc","(bank#)"}  !afunction {#long} !args {#word} !libs {#banklib,$1380} !subs {_banksize,0,0} !name {"BankSize","(bank#)"}  !afunction {#long} !args {#long,#long} !libs !subs {_allocmem,0,0} !name {"AllocMem","(size,memtype) memtype: 0=fast 2=chip 65536=clrmem"}  !astatement !args {#long,#long} !libs !subs {_freemem,0,0} !name {"FreeMem","address,size"}  _load:!nullsub{0,0,0} _save:!nullsub{0,0,0} _use:!nullsub{0,0,0} _free:!nullsub{0,0,0}  !libfin{_toke,_load,_save,_use,_free,5,4}   .bank   pos.l:size.l:memtype.l    ._initbank:   .l d1-d2,-(a7):Y _freebank:.l (a7)+,d0-d1   .l d0:H size0:.l d0-d1,4(a3):8 $c002:~.l d0,(a3)   size0:  ._freebank:   .l (a3),d0-d1:.l d0:H nobnk:~.l d0,a1:~.l d1,d0   H nobnk:8 $c003:#0,d0:~.l d0,(a3):~.l d0,4(a3)   nobnk:  ._bankload:   #0,d2:.l (a3):H _bankloadb:~.l 8(a3),d2  ._bankloadb:   ~.l d1,d0:~.l d0,fname   ~.l d2,-(a7):8 :~.l (a7)+,d2   .l d0:H noload:\.l 8(a3),d2:P yoloc:\.l 4(a3),d0:O noloc   yoloc:~.l d0,d1:Y _initbank:noloc   ~.l fname(pc),d1:~.l #1005,d2:y -30(a6):~.l d0,hand   H noload:~.l hand(pc),d1:.l (a3),d2-d3:y -42(a6)   ~.l hand(pc),d1:y -36(a6):noload:  ._banksave:   .l (a1):H nosave:~.l #1006,d2:y -30(a6):~.l d0,hand   H nosave:~.l hand(pc),d1:.l (a3),d2-d3:y -48(a6)   ~.l hand(pc),d1:y -36(a6):nosave:  ._bankloc:~.l(a3),d0:  ._banksize:~.l4(a3),d0:  ._allocmem:8 $c002:  ._freemem:~.l d0,a1:~.l d1,d0:8 $c003:  hand:%.l 0 fname:%.l 0  