head 1.6; access; symbols TOS0400:1.6 R910620b:1.4 BAMMI1:1.3 V060391:1.3; locks; comment @# @; 1.6 date 92.08.11.00.37.02; author kbad; state Exp; branches; next 1.5; 1.5 date 92.07.27.20.09.24; author kbad; state Exp; branches; next 1.4; 1.4 date 91.06.20.17.12.36; author apratt; state Exp; branches; next 1.3; 1.3 date 91.04.30.12.12.38; author apratt; state Exp; branches; next 1.2; 1.2 date 91.04.05.18.38.22; author apratt; state Exp; branches; next 1.1; 1.1 date 91.03.28.17.49.58; author apratt; state Exp; branches; next ; desc @@ 1.6 log @TOS 4.00 Falcon030 first production version @ text @#set eightbit 0 #bind "echo \e8s\r" 1d ; # ^] bury window, Mint/MGR style load c:\kbad\db.rc load fs.db alias a "dw`sp[f]" alias xskip "b #f lpeek(`sp);g" getsym dos.sys `stubbp+11c #getsym ..\build\tos.sym load bios.db alias dobios 'b#8 ._trap13 ; alias br8 "_db13 `sp+4;_13enter";b#9 ._trap14-2; \ alias br9 "if `bios_ret print BIOS returns `d0;_13leave"' alias unbios 'nb #8;unalias br8;nb #9;unalias br9' alias dblev "sl.__dblev" echo say "dblev X" to set db level to X. echo Levels: 1=top level, 2=rwabs/getrec, 4=xrw and clusters, 8=handles echo 10=pool, 20=dirnext, 40=pexec, 80=memory, 100=xgetdir, 200=writes, echo 400=reads, 800=getcl dblev 80000000 @ 1.5 log @Lattice compiled Sparrow GEMDOS @ text @d1 22 @ 1.4 log @updates for new DB @ text @d1 3 a3 4 set eightbit 0 bind "echo \e8s\r" 1d ; # ^] bury window, Mint/MGR style load c:\apratt\rdb.rc d9 1 @ 1.3 log @Converted DBCMDs to new infix DB style @ text @a14 3 # this alias is used in DBCMDs in the source alias _c defer g d20 1 a20 1 echo 400=reads d22 1 a22 1 dblev 1 @ 1.2 log @Misc fixes making it work @ text @d8 2 a9 2 alias xskip "b #f (lpeek `sp);g" getsym dos.sys (+ `stubbp 11c) d11 2 a12 1 alias dobios 'b#8 ._trap13 ; alias br8 "_db13 (+ `sp 4);_13enter";b#9 (- ._trap14 2); alias br9 "if `bios_ret print BIOS returns `d0;_13leave"' @ 1.1 log @Initial revision @ text @a0 1 load c:\apratt\rdb.rc d4 1 d7 1 a8 1 d11 2 a12 2 b#8 ._trap13 ; alias br8 "_db13 (+ `sp 4);_13enter" b#9 (- ._trap14 2); alias br9 "if `bios_ret print BIOS returns `d0;_13leave" d14 1 d21 3 a23 1 echo 10=pool, 20=dirnext, 40=pexec @