* スタークルーザーのuseitem.x用 even *------------------- B_READ *( d1:pda&mode, d2.l:シーク位置, d3.l:size, a1.l:buf ) IFn2 GE, , , BSR FSEEK BSR FREAD BSR FCLOSE RTS () *------------------- B_WRITE *( d1:pda&mode, d2.l:シーク位置, d3.l:size, a1.l:buf ) BSR FOPEN BSR FSEEK BSR FWRITE BSR SEEK_EOF BSR FCLOSE RTS () *------------------- FSEEK IFn EQ, , RTS () *---- SEEK_DATAHEAD PUSH d2 m , , mulu d3,d2 *$1400*d2 add #$800,d2 *ID部分を跳（飛？）ばす m , , m , POP d2 RTS () *------------------ FREAD m , , m , RTS () *------------------ FWRITE m , , m , RTS () *------------------ SEEK_EOF m , , m , * m , , * m , * m , , * m , * m , , * m , RTS () *-------------------- FOPEN move #2,-(sp) pea __filename DOS _OPEN addq.l #6,sp move d0,__fn RTS () *------------------- CREATE move #%100010,-(sp) *advshr pea __filename DOS _CREATE addq.l #6,sp move d0,__fn RTS () *------------------- FCLOSE m , , RTS () *==================== * data *これがあると駄目 * even __filename dc.b 'B:savedata',0 __fn dc 0 __dum_buf dc.b 0 レTﾇ詑､;w｡襴3ﾋｲtj|T%G｢ｬｼｶdﾇZﾉh_･*ｻﾅ2勉)LII頽ﾐ｢ﾎ"ｧ+=ﾍo｣ﾗ:<,蹤ｗ*ｲ獏ｯ>訐M>%顎ﾕｸ\/0:丗宦ﾀ4F\{[/ﾍu"-wｨｷ-Wｧ湫K~ﾈ8I3ｪ9ﾎGT