chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/bsh/dbx.bas

   1 REM Sapphire dbx macro library -- © 1994 Straylight
   2
   3 DEF FNdbx_test=0
   4
   5 DEF FNdbx_ctrl(i%,c%,b%,f%,d%)
   6 IF b%=12 THEN f%=f% OR dbxFlag_dataR12
   7 IF b%=10 THEN f%=f% OR dbxFlag_dataR10
   8 [ opt 4
   9 .dbx__l
  10   dcd i%
  11   dcd c%
  12   dcd f%
  13   dcd 0
  14 ]
  15 IF f% AND 3 THEN [opt 4:dcd d%:]
  16 =0
  17
  18 DEF FNdbx_ectrl
  19 !(dbx__l+12+O%-P%)=P%-dbx__l
  20 =0
  21
  22 DEF FNdbx_end
  23 [ opt 4
  24   dcd -1
  25 ]
  26 =0
  27
  28 DEF FNarrow(i%,n%)
  29 [ opt 4
  30   FNimport("arrow")
  31   FNdbx_ctrl(i%,arrow,0,0,0)
  32   dcd n%
  33   FNdbx_ectrl
  34 ]
  35 =0
  36
  37 DEF FNfileIcon(i%,b%,d%)
  38 [ opt 4
  39   FNimport("fileIcon")
  40   FNdbx_ctrl(i%,fileIcon,b%,0,d%)
  41   FNdbx_ectrl
  42 ]
  43 =0
  44
  45 DEF FNnumWrite(i%,n%,x%)
  46 [ opt 4
  47   FNimport("numWrite")
  48   FNdbx_ctrl(i%,fileIcon,0,0,0)
  49   dcd n%
  50   dcd x%
  51   FNdbx_ectrl
  52 ]
  53 =0
  54
  55 DEF FNslider(i%,b%,d%,f%,m%,n%,o%,x%)
  56 [ opt 4
  57   FNimport("slider")
  58   FNdbx_ctrl(i%,slider,b%,f%,d%)
  59   dcb m%
  60   dcb n%
  61   dcb o%
  62   FNalign
  63   dcd x%
  64   FNdbx_ectrl
  65 ]
  66 =0
  67
  68 DEF FNcolourPot(i%,b%,d%,f%,t$)
  69 [ opt 4
  70   FNimport("colourPot")
  71   FNdbx_ctrl(i%,colourPot,b%,f%,d%)
  72   equs t$+CHR$(0)
  73   FNdbx_ectrl
  74 ]
  75 =0