initial commit

devtools/gbe/include/av_proto.lst

@@ -0,0 +1,23 @@
+'
+' AV Protocol defines per TOS.HYP (lp)
+va_confont&=&H4715
+va_consoleopen&=&H4719
+va_copy_complete&=&H4729
+va_dragaccwind&=&H4725
+va_drag_complete&=&H4735
+va_filechanged&=&H4754
+va_filecopied&=&H4756
+va_filedeleted&=&H4758
+va_filefont&=&H4713
+va_fontchanged&=&H4739
+va_object&=&H4717
+va_path_update&=&H4760
+va_progstart&=&H4723
+va_protostatus&=&H4701
+va_setstatus&=&H4705
+va_start&=&H4711
+va_that_izit&=&H4733
+va_viewed&=&H4752
+va_windopen&=&H4721
+va_xopen&=&H4741
+'

devtools/gbe/include/bfobspec.lst

@@ -0,0 +1,9 @@
+' bfobspec
+LET bf_obspec&=0
+LET bf_character&=1
+LET bf_framesize&=2
+LET bf_framecol&=3
+LET bf_textcol&=4
+LET bf_textmode&=5
+LET bf_fillpattern&=6
+LET bf_interiorcol&=7

devtools/gbe/include/bitblk.lst

@@ -0,0 +1,7 @@
+' bitblk
+LET bi_pdata&=0
+LET bi_wb&=1
+LET bi_hl&=2
+LET bi_x&=3
+LET bi_y&=4
+LET bi_color&=5

devtools/gbe/include/ciconblk.lst

@@ -0,0 +1,8 @@
+' ciconblk
+LET cb_mainlist&=0
+LET cb_numplanes&=1
+LET cb_coldata&=2
+LET cb_colmask&=3
+LET cb_seldata&=4
+LET cb_selmask&=5
+LET cb_nextres&=6

devtools/gbe/include/codec.lst

@@ -0,0 +1,26 @@
+' zview codec (plugin), _img_info structure: 1128 bytes
+LET ii_width&=0                 !& image width in pixels
+LET ii_height&=2                !& image height in pixels
+LET ii_components&=4            !& * 1=mono 3=color mapped or true-color
+LET ii_planes&=6                !& info only, can't rely on it
+LET ii_colors&=8                !% info only, can't rely on it
+LET ii_orientation&=12          !& 0=normal 1=needs flipped
+LET ii_page&=14                 !& number of pages/frames in the file
+LET ii_delay&=16                !& used for animations
+LET ii_num_comments&=18         !& comments extracted from the image file
+LET ii_max_comments_length&=20  !& length in byte of the largest comment extracted
+LET ii_indexed_color&=22        !& * 0=mono or true-coloe 1=color mapped
+LET ii_memory_alloc&=24         !& internal use
+LET ii_palette&=26              !| padded to 4 bytes, 'rgb0', thus 256*4 bytes total
+LET ii_background_color&=1050   !% as a long '0rgb'
+LET ii_thumbnail&=1054          !& 0=no 1=yes (infomational only)
+LET ii_page_wanted&=1056        !& request this page, 0 to ?
+LET ii_info&=1058               !$ null terminated text (39+null=40)
+LET ii_compression&=1098        !$ null terminated text (5+null=6)
+LET ii_real_width&=1104         !& only valid with thumbnails
+LET ii_real_height&=1106        !&   ...
+' _priv_ptr       = 1108        !% don't mess with these
+' _priv_ptr_more  = 1112        !%   ...
+' __priv_ptr_more = 1116        !%   ...
+' _priv_var       = 1120        !%   ...
+' _priv_var_more  = 1124        !%   ...

devtools/gbe/include/codecerr.lst

@@ -0,0 +1,49 @@
+' error codes for all codecs, returned via imageinfo->thumbnail
+' note: 2 to 9 are not used, we start at 10
+'
+' if negative it's a standard gemdos error code
+' if positive it's related the content of the file
+'
+'
+' standard gemdos error codes, these are just here for my reference
+' codecs return gemdos error codes where it makes sense
+LET ec_fwrite&=-10      !fwrite failed, size in/out didn't match, or negative error code
+LET ec_fread&=-11       !fread failed, size in/out didn't match, or negative error code
+LET ec_fopen&=-33       !fopen failed, image file not found
+LET ec_fcreate&=-36     !fcreate failed
+LET ec_fclose&=-37      !fclose failed
+LET ec_malloc&=-39      !malloc failed
+LET ec_mfree&=-40       !mfree failed
+LET ec_fseek&=-64       !fseek failed, truncated file?
+'
+'
+' error codes related to file content
+' these will be used in multiple codecs and maybe new codecs in the future
+LET ec_comptype&=10             !header -> unsupported compression type
+LET ec_decomperror&=11          !error during decompression phase
+LET ec_resolutiontype&=12       !header -> unsupported mode code neo/degas
+LET ec_imagetype&=13            !header -> unsupported image type
+LET ec_pixeldepth&=14           !header -> unsupported pixel depth
+LET ec_colormapdepth&=15        !header -> unsupported color map depth
+LET ec_colormaptype&=16         !header -> unsupported color map type
+LET ec_filelength&=17           !incorrect file length
+LET ec_fileid&=18               !header -> unknown file identifier
+LET ec_headerlength&=19         !header -> unsupported header length
+LET ec_widthnegative&=20        !header -> image width < 0
+LET ec_heightnegative&=21       !header -> image height < 0
+LET ec_internalerror&=22        !non-specific, subfunction failure: png/gif
+LET ec_colorspace&=23           !header -> unsupported color space
+LET ec_colormaplength&=24       !header -> unsupported color map length
+LET ec_masktype&=25             !header -> unsupported mask type
+LET ec_chunkid&=26              !unsupported chunk identifier: iff
+LET ec_filetype&=27             !received wrong file type
+LET ec_framecount&=28           !frame count exceeds limit
+LET ec_colorcount&=29           !header -> unsupported color count
+LET ec_bitmaplength&=30         !header -> calc'd length doesn't match
+LET ec_headerversion&=31        !header -> unsupported version
+LET ec_heightsmall&=32          !header -> unsupported height, to small: fnt
+LET ec_complength&=33           !header -> incorrect compressed size: spx
+LET ec_frametype&=34            !header -> unsupported frame type: seq
+LET ec_requiresnvdi&=35         !NVDI not installed
+LET ec_funcnotdefined&=36       !function not implemented
+' new error codes will be added to the end of this list as needed

devtools/gbe/include/fntproto.lst

@@ -0,0 +1,4 @@
+'
+' Font Protocol defines per Thing Desktop (lp)
+font_changed&=&H7A18
+'

devtools/gbe/include/fopen.lst

@@ -0,0 +1,4 @@
+' fopen
+LET s_read&=&X0
+LET s_write&=&X1
+LET s_readwrite&=&X10

devtools/gbe/include/iconblk.lst

@@ -0,0 +1,19 @@
+' iconblk
+LET ib_pmask&=0
+LET ib_pdata&=1
+LET ib_ptext&=2
+LET ib_char&=3
+LET ib_xchar&=4
+LET ib_ychar&=5
+LET ib_xicon&=6
+LET ib_yicon&=7
+LET ib_wicon&=8
+LET ib_hicon&=9
+LET ib_xtext&=10
+LET ib_ytext&=11
+LET ib_wtext&=12
+LET ib_htext&=13
+' ib_char
+LET ib_fgcol&=14
+LET ib_bgcol&=15
+LET ib_aschr&=16

devtools/gbe/include/jpegd.lst

@@ -0,0 +1,82 @@
+' jpegd structure offsets: %=long &=word
+LET inpointer_&=0             !% JPEG image pointer
+LET outpointer_&=4            !% Output buffer/filename pointer (see OutFlag)
+LET insize_&=8                !% JPEG image size (bytes)
+LET outsize_&=12              !% Output image size (bytes)
+LET incomponents_&=16         !& JPEG image components number (1->4)
+LET outcomponents_&=18        !& Output components number (1->4)
+LET outpixelsize_&=20         !& Output pixel size (1->4)
+LET outflag_&=22              !& 0 (RAM output) / -1 (Disk output)
+LET xloopcounter_&=24         !& Number of MCUs per row
+LET yloopcounter_&=26         !& Number of MCUs per column
+LET createoutputptr_&=28      !% Pointer to user routine / 0
+LET writeoutputptr_&=32       !% Pointer to user routine / 0
+LET closeoutputptr_&=36       !% Pointer to user routine / 0
+LET sigtermoutputptr_&=40     !% Pointer to user routine / 0
+LET comp1gammaptr_&=44        !% Component 1 gamma table  / 0
+LET comp2gammaptr_&=48        !% Component 2 gamma table  / 0
+LET comp3gammaptr_&=52        !% Component 3 gamma table  / 0
+LET comp4gammaptr_&=56        !% Component 4 gamma table  / 0
+LET userroutineptr_&=60       !% Pointer to user routine (called during decompression) / 0
+LET outtmppointer_&=64        !% Current OutPointer / Temporary disk buffer pointer (see OutFlag)
+LET mcuscounter_&=68          !& Number of MCUs not decoded
+LET outtmpheight_&=70         !& Number of lines in OutTmpPointer
+LET userlong1_&=72            !% Free, available for user
+LET userlong2_&=76            !% Free, available for user
+LET outhandle_&=80            !& 0 / Output file handle (see OutFlag)
+LET mfdbaddress_&=82          !%
+LET mfdbpixelwidth_&=86       !&
+LET mfdbpixelheight_&=88      !&
+LET mfdbwordsize_&=90         !&
+LET mfdbformatflag_&=92       !&
+LET mfdbbitplanes_&=94        !&
+LET mfdbreserved1_&=96        !&
+LET mfdbreserved2_&=98        !&
+LET mfdbreserved3_&=100       !&
+'
+' jpegd error codes (from view.i):
+LET noerror_&=0               !File correctly uncompressed
+LET unknownformat_&=1         !File is not JFIF (Error)
+LET invalidmarker_&=2         !Reserved CCITT Marker Found (Error)
+LET sof1marker_&=3            !Mode not handled by the decoder (Error)
+LET sof2marker_&=4            !Mode not handled by the decoder (Error)
+LET sof3marker_&=5            !Mode not handled by the decoder (Error)
+LET sof5marker_&=6            !Mode not handled by the decoder (Error)
+LET sof6marker_&=7            !Mode not handled by the decoder (Error)
+LET sof7marker_&=8            !Mode not handled by the decoder (Error)
+LET sof9marker_&=10           !Mode not handled by the decoder (Error)
+LET sof10marker_&=11          !Mode not handled by the decoder (Error)
+LET sof11marker_&=12          !Mode not handled by the decoder (Error)
+LET sof13marker_&=13          !Mode not handled by the decoder (Error)
+LET sof14marker_&=14          !Mode not handled by the decoder (Error)
+LET sof15marker_&=15          !Mode not handled by the decoder (Error)
+LET rstmmarker_&=16           !Unexpected RSTm found (Error)
+LET baddhtmarker_&=17         !Buggy DHT Marker (Error)
+LET dacmarker_&=18            !Marker not handled by the decoder (Error)
+LET baddqtmarker_&=19         !Buggy DQT Marker (Error)
+LET dnlmarker_&=20            !Marker not handled by the decoder (Error)
+LET baddrimarker_&=21         !Invalid DRI Header Size (Error)
+LET dhpmarker_&=22            !Marker not handled by the decoder (Error)
+LET expmarker_&=23            !Marker not handled by the decoder (Error)
+LET badsubsampling_&=24       !Invalid components subsampling (Error)
+LET notenoughmemory_&=25      !Not enough memory... (Error)
+LET decoderbusy_&=26          !Decoder is busy (Error)
+LET dspbusy_&=27              !Can't lock the DSP (Error)
+LET dsploderror_&=28          !Can't find .LOD File (Error)
+LET badsofnmarker_&=29        !Buggy SOFn marker (Error)
+LET badsosmarker_&=30         !Buggy SOS marker (Error)
+LET huffmanerror_&=31         !Buggy Huffman Stream (Error)
+LET badpixelformat_&=32       !Invalid Output Pixel Format (Error)
+LET diskfull_&=33             !Hard/Floppy Disk Full (Error)
+LET missingmarker_&=34        !Marker expected but not found (Error)
+LET imagetruncated_&=35       !More bytes Needed (Error)
+LET extrabytes_&=36           !Dummy Bytes after EOI Marker (Warning)
+LET baddnlmarker_&=37         !Unexpected or Invalid DNL found (Error)
+LET nodnlmarker_&=38          !No DNL Marker found (Error)
+LET userabort_&=39            !User Routine signaled 'Abort'
+LET dspmemoryerror_&=40       !Not Enough DSP RAM (Error)
+LET norstmmarker_&=41         !RSTm Marker expected but not found
+LET badrstmmarker_&=42        !Invalid RSTm Marker Number
+LET driverclosed_&=43         !Driver is Already Closed.
+LET endofimage_&=44           !Stop Decoding (Internal Message, Should Never Appear)
+' end of error codes

devtools/gbe/include/ldg.lst

@@ -0,0 +1,16 @@
+'
+' errors returned by ldg_error()
+LET ldg_lib_fulled&=-1
+LET ldg_app_fulled&=-2
+LET ldg_err_exec&=-3
+LET ldg_bad_format&=-4
+LET ldg_lib_locked&=-6
+LET ldg_no_manager&=-7
+LET ldg_not_found&=-8
+LET ldg_bad_lib&=ldg_bad_format&
+LET ldg_no_memory&=-9
+LET ldg_time_idle&=-10
+LET ldg_no_tsr&=-11
+LET ldg_bad_tsr&=-12
+LET ldg_no_func&=-13
+'

devtools/gbe/include/nvdi5.lst

@@ -0,0 +1,157 @@
+' color tables
+LET cspace_rgb%=&H1
+LET cspace_argb%=&H2
+LET cspace_cmyk%=&H4
+'
+LET cbitmap_magic%=&H6362746D    !'cbtm'
+LET color_tab_magic%=&H63746162  !'ctab'
+'
+' offsets for gcbitmap structure used by vr_transfer_bits()
+LET gc_magic&=0
+LET gc_length&=4
+LET gc_format&=8
+LET gc_reserved&=12
+LET gc_addr&=16
+LET gc_width&=20
+LET gc_bits&=24
+LET gc_px_format&=28
+LET gc_xmin&=32
+LET gc_ymin&=36
+LET gc_xmax&=40
+LET gc_ymax&=44
+LET gc_ctab&=48
+LET gc_itab&=52
+LET gc_reserved0&=56
+LET gc_reserved1&=60
+'
+' offsets for color table structure
+LET ct_magic&=0
+LET ct_length&=4
+LET ct_format&=8
+LET ct_reserved&=12
+LET ct_map_id&=16
+LET ct_color_space&=20
+LET ct_flags&=24
+LET ct_no_colors&=28
+LET ct_reserved1&=32
+LET ct_reserved2&=36
+LET ct_reserved3&=40
+LET ct_reserved4&=44
+LET ct_colors&=48
+'
+' modes for vr_transfer_bits()
+LET t_not&=4            !constant for inversion in logical transfer modes
+LET t_colorize&=16      !constant for coloring
+'
+LET t_logic_mode&=0
+LET t_draw_mode&=32
+LET t_arith_mode&=64    !constants for arithmetic transfer modes
+LET t_dither_mode&=128  !constant for dithering
+'
+' logical transfer modes
+LET t_logic_copy&=t_logic_mode&+0
+LET t_logic_or&=t_logic_mode&+1
+LET t_logic_xor&=t_logic_mode&+2
+LET t_logic_and&=t_logic_mode&+3
+LET t_logic_not_copy&=t_logic_mode&+4
+LET t_logic_not_or&=t_logic_mode&+5
+LET t_logic_not_xor&=t_logic_mode&+6
+LET t_logic_not_and&=t_logic_mode&+7
+'
+' drawing modes
+LET t_replace&=t_draw_mode&+0
+LET t_transparent&=t_draw_mode&+1
+LET t_hilite&=t_draw_mode&+2
+LET t_revers_transparent&=t_draw_mode&+3
+'
+' arithmetic transfer modes
+LET t_blend&=t_arith_mode&+0
+LET t_add&=t_arith_mode&+1
+LET t_add_over&=t_arith_mode&+2
+LET t_sub&=t_arith_mode&+3
+LET t_max&=t_arith_mode&+5
+LET t_sub_over&=t_arith_mode&+6
+LET t_min&=t_arith_mode&+7
+'
+' Constants for pixel formats
+LET px_1comp%=&H1000000    !Pixel consists of one used component: color index
+LET px_3comp%=&H3000000    !Pixel consists of three components used, e.g. RGB
+LET px_4comp%=&H4000000    !Pixel consists of four components used, e.g. CMYK
+'
+LET px_reversed%=&H800000  !Pixel is output in reverse byte order
+LET px_xfirst%=&H400000    !unused bits precede the used bits (viewed in Motorola format)
+LET px_kfirst%=&H200000    !K is in front of CMY (viewed in Motorola format)
+LET px_afirst%=&H100000    !Alpha channels are in front of the color bits (viewed in Motorola format)
+'
+LET px_packed%=&H20000     !Bits are stored consecutively
+LET px_planes%=&H10000     !Bits are distributed over several levels (order: 0, 1, ..., n)
+LET px_iplanes%=&H0        !Bits are distributed over several words (order: 0, 1, ..., n)
+'
+LET px_uses1%=&H100        !1 bits of the pixel are used
+LET px_uses2%=&H200        !2 bits of the pixel are used
+LET px_uses3%=&H300        !3 bits of the pixel are used
+LET px_uses4%=&H400        !4 bits of the pixel are used
+LET px_uses8%=&H800        !8 bits of the pixel are used
+LET px_uses15%=&HF00       !15 bits of the pixel are used
+LET px_uses16%=&H1000      !16 bits of the pixel are used
+LET px_uses24%=&H1800      !24 bits of the pixel are used
+LET px_uses32%=&H2000      !32 bits of the pixel are used
+LET px_uses48%=&H3000      !48 bits of the pixel are used
+'
+LET px_1bit%=&H1           !Pixel consists of 1 Bit
+LET px_2bit%=&H2           !Pixel consists of 2 Bit
+LET px_3bit%=&H3           !Pixel consists of 3 Bit
+LET px_4bit%=&H4           !Pixel consists of 4 Bit
+LET px_8bit%=&H8           !Pixel consists of 8 Bit
+LET px_16bit%=&H10         !Pixel consists of 16 Bit
+LET px_24bit%=&H18         !Pixel consists of 24 Bit
+LET px_32bit%=&H20         !Pixel consists of 32 Bit
+LET px_48bit%=&H30         !Pixel consists of 48 Bit
+'
+LET px_cmpnts%=&HF000000   !Mask for number of pixel components
+LET px_flags%=&HF00000     !Mask for various flags
+LET px_packing%=&H30000    !Mask for pixel format
+LET px_used%=&H3F00        !Mask for the number of bits used
+LET px_bits%=&H3F          !Mask for the number of bits per pixel
+'
+' Pixel formats for ATARI graphics
+LET px_atari1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
+LET px_atari2%=(px_iplanes%+px_1comp%+px_uses2%+px_2bit%)
+LET px_atari4%=(px_iplanes%+px_1comp%+px_uses4%+px_4bit%)
+LET px_atari8%=(px_iplanes%+px_1comp%+px_uses8%+px_8bit%)
+LET px_falcon15%=(px_packed%+px_3comp%+px_uses16%+px_16bit%)
+'
+' Pixel formats for Macintosh
+LET px_mac1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
+LET px_mac4%=(px_packed%+px_1comp%+px_uses4%+px_4bit%)
+LET px_mac8%=(px_packed%+px_1comp%+px_uses8%+px_8bit%)
+LET px_mac15%=(px_xfirst%+px_packed%+px_3comp%+px_uses15%+px_16bit%)
+LET px_mac32%=(px_xfirst%+px_packed%+px_3comp%+px_uses24%+px_32bit%)
+'
+' Pixel formats for graphics cards
+LET px_vga1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
+LET px_vga4%=(px_planes%+px_1comp%+px_uses4%+px_4bit%)
+LET px_vga8%=(px_packed%+px_1comp%+px_uses8%+px_8bit%)
+LET px_vga15%=(px_reversed%+px_xfirst%+px_packed%+px_3comp%+px_uses15%+px_16bit%)
+LET px_vga16%=(px_reversed%+px_packed%+px_3comp%+px_uses16%+px_16bit%)
+LET px_vga24%=(px_reversed%+px_packed%+px_3comp%+px_uses24%+px_24bit%)
+LET px_vga32%=(px_reversed%+px_xfirst%+px_packed%+px_3comp%+px_uses24%+px_32bit%)
+'
+LET px_matrix16%=(px_packed%+px_3comp%+px_uses16%+px_16bit%)
+'
+LET px_nova32%=(px_packed%+px_3comp%+px_uses24%+px_32bit%)
+'
+' Pixel formats for printers
+LET px_prn1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
+LET px_prn8%=(px_packed%+px_1comp%+px_uses8%+px_8bit%)
+LET px_prn32%=(px_xfirst%+px_packed%+px_3comp%+px_uses24%+px_32bit%)
+'
+' preferred (fast) pixel formats for bitmaps
+LET px_pref1%=(px_packed%+px_1comp%+px_uses1%+px_1bit%)
+LET px_pref2%=(px_packed%+px_1comp%+px_uses2%+px_2bit%)
+LET px_pref4%=(px_packed%+px_1comp%+px_uses4%+px_4bit%)
+LET px_pref8%=(px_packed%+px_1comp%+px_uses8%+px_8bit%)
+LET px_pref15%=(px_xfirst%+px_packed%+px_3comp%+px_uses15%+px_16bit%)
+LET px_pref32%=(px_xfirst%+px_packed%+px_3comp%+px_uses24%+px_32bit%)
+'
+LET px_pref24%=(px_packed%+px_3comp%+px_uses24%+px_24bit%)  !added by lp, was missing?

devtools/gbe/include/ob_flags.lst

@@ -0,0 +1,13 @@
+' ob_flags / special case fl3dbak -> bits 9 & 10
+LET ob_selectable&=0
+LET ob_default&=1
+LET ob_exit&=2
+LET ob_editable&=3
+LET ob_rbutton&=4
+LET ob_lastob&=5
+LET ob_touchexit&=6
+LET ob_hidetree&=7
+LET ob_indirect&=8
+LET ob_fl3dind&=9
+LET ob_fl3dact&=10
+LET ob_submenu&=11

devtools/gbe/include/ob_state.lst

@@ -0,0 +1,7 @@
+' ob_state bits
+LET ob_selected&=0
+LET ob_crossed&=1
+LET ob_checked&=2
+LET ob_disabled&=3
+LET ob_outlined&=4
+LET ob_shadowed&=5

devtools/gbe/include/ob_type.lst

@@ -0,0 +1,15 @@
+' ob_type
+LET g_box&=20
+LET g_text&=21
+LET g_boxtext&=22
+LET g_image&=23
+LET g_userdef&=24  !g_progdef
+LET g_ibox&=25
+LET g_button&=26
+LET g_boxchar&=27
+LET g_string&=28
+LET g_ftext&=29
+LET g_fboxtext&=30
+LET g_icon&=31
+LET g_title&=32
+LET g_cicon&=33

devtools/gbe/include/stik.lst

@@ -0,0 +1,51 @@
+'
+' tcp connection states
+LET tclosed&=FALSE
+LET tlisten&=1
+LET tsyn_sent&=2
+LET tsyn_recv&=3
+LET testablish&=4
+LET tfin_wait1&=5
+LET tfin_wait2&=6
+LET tclose_wait&=7
+LET tclosing&=8
+LET tlast_ack&=9
+LET ttime_wait&=10
+'
+' tcp and connection error states
+LET e_normal&=FALSE
+LET e_obuffull&=-1
+LET e_nodata&=-2
+LET e_eof&=-3
+LET e_rreset&=-4
+LET e_ua&=-5
+LET e_nomem&=-6
+LET e_refuse&=-7
+LET e_badsyn&=-8
+LET e_badhandle&=-9
+LET e_listen&=-10
+LET e_noccb&=-11
+LET e_noconnection&=-12
+LET e_connectfail&=-13
+LET e_badclose&=-14
+LET e_usertimeout&=-15
+LET e_cntimeout&=-16
+LET e_cantresolve&=-17
+LET e_baddname&=-18
+LET e_lostcarrier&=-19
+LET e_nohostname&=-20
+LET e_dnsworklimit&=-21
+LET e_nonameserver&=-22
+LET e_dnsbadformat&=-23
+LET e_unreachable&=-24
+LET e_dnsnoaddr&=-25
+LET e_noroutine&=-26
+LET e_locked&=-27
+LET e_fragment&=-28
+LET e_ttlexceed&=-29
+LET e_parameter&=-30
+LET e_bigbuf&=-31
+LET e_badroutine&=-32
+LET e_deffered&=-33
+LET e_lasterror&=33
+'

devtools/gbe/include/str0.lst

@@ -0,0 +1,24 @@
+PRINT
+PRINT @str0$(1,4)
+PRINT @str0$(-1,2)
+PRINT @str0$(-1,3)
+'
+EDIT
+'
+FUNCTION str0$(n%,l&) !v1.00 correctly prints padded negative numbers
+  ' works just like str$(num,len) but pads with '0' instread of white space
+  LOCAL p&
+  LOCAL r$
+  '
+  r$=REPLACE$(STR$(n%,l&),32,48) !-> '00-1' (needs fixed)
+  '
+  IF n%<0                 !is it negative?
+    p&=INSTR(r$,"-")      !position in padded string
+    IF p&>1               !not already at 1st char in padded string?
+      MID$(r$,p&,1)="0"   !then move negative sign
+      MID$(r$,1,1)="-"    !  to 1st char of padded string
+    ENDIF
+  ENDIF
+  '
+  RETURN r$
+ENDFUNC

devtools/gbe/include/tedinfo.lst

@@ -0,0 +1,18 @@
+' tedinfo
+LET te_ptext&=0
+LET te_ptmplt&=1
+LET te_pvalid&=2
+LET te_font&=3
+LET te_fontid&=4
+LET te_just&=5
+LET te_color&=6
+LET te_fontsize&=7
+LET te_thickness&=8
+LET te_txtlen&=9
+LET te_tmplen&=10
+' te_color
+LET te_framecol&=11
+LET te_textcol&=12
+LET te_textmode&=13
+LET te_fillpattern&=14
+LET te_interiorcol&=15

devtools/gbe/include/userblk.lst

@@ -0,0 +1,3 @@
+' userblk
+LET ub_code&=0
+LET ub_parm&=1