home *** CD-ROM | disk | FTP | other *** search
- ShellEquates
- PRG formatted GEOS file V1.0
- CONVERTED WITH GEOSHELL V2.2
- Write Image V2.1
- geoWrite V2.1
- ;****************************************************************
- ; ShellEquates
- ; Copyright 1994 by Maurice Randall
- ; Charlotte, Mich. 48813
- ; For Use Only By Registered Owners Of The
- ; geoSHELL Programmer's Development Package
- ;****************************************************************
- ;.included in GSVariables
- TRANSCOMM = 21 ;the GEOS filetype assigned to
- ;geoSHELL commands.
- ;The fol
- TRANSCOMM = 21 ;the GEOS filetype assigned to
- ;geoSHELL commands.
- ;The following define colors that may be used on the 128's 80 column screen.
- BLACK80 = 0
- DK80GREY = 1
- DK80BLUE = 2
- LT80BLUE = 3
- DK80GREEN = 4
- LT80GREEN = 5
- DK80CYAN = 6
- LT80CYAN = 7
- DK80RED = 8
- LT80RED = 9
- DK80PURPLE = 10
- LT80PURPLE = 11
- DK80YELLOW = 12
- LT80YELLOW = 13
- LT80GREY = 14
- WHITE80 = 15
- ;Miscellaneous equates:
- maxlines = 12 ;number of lines in the window.
- ;Miscellaneous equates:
- maxlines = 12 ;number of lines in the window.
- buff_size = 81 ;size of certain buffers.
- wind_left = $08 ;pixels from left of screen.
- wind_top = $20 ;pixels from top of screen.
- firstrow = wind_top+30 ;first text row.
- shell_height = 136 ;pixels.
- shell_width = 37 ;bytes.
- top_window = wind_top+16 ;top of pad area.
- bot_window = wind_top+shell_height-9 ;bottom of pad area.
- row0 = firstrow
- Quit_X = (wind_left+$ff)/8 ;x position for icon (bytes from left
- ;of screen)
- Quit_Y = wind_top+2 ;y position for icon (pixels from top)
- Quit_Wide = 3 ;icon width
- Quit_Height = 14 ;and height.
- ActHLeft = 5
- ActHHeight = 16
- LODRIVE = 8 ;drive A.
- HIDRIVE = 11 ;drive D. (highest number allowed)
- TComCk = $6700 ;used when searching for a transient.
- EnOfShell = $6700 ;error channels are transferred here.
- HotKeyArea = $6c00 ;this is where the hotkeys are loaded
- ;in from disk whenever the user types
- ;a two-letter command. geoSHELL then
- ;checks this area for a matching
- ;hotkey definition. Whenever this is
- ;done, if a transient command is
- ;present, it is flushed from memory
- ;since it would corrupt the area.
- STOP_KEY = 63
- CTRL_KEY = 58
- PAUSE_KEY = 87
- XSCAN = $d02f
- Y_KEY = 25
- N_KEY = 39
- SEQfile = 0 ;equates used to identify the type
- SCRAPfile = 1 ;of file for use with the 'type'
- WRITEfile = 2 ;command.
- VLIRfile = 3
- ALBUMfile = 4
- drv64path = $c3e9 ;specifies the drive to use for the
- ;path when searching for a
- ;transient command.
- drv128path = $c9d7
- part64string = $c3ea ;and this is the partition to use.
- ;It is in the form of a 3 byte ascii string.
- part128string = $c9d8
- ;these are equates used for message displaying.
- ;lda with any of these values before ca
- ;these are equates used for message displaying.
- ;lda with any of these values before calling 'Message' and 'OtherMessage'.
- ;A routine would look like this:
- ; ...
- ; LoadW r0,#texttodisplay ;point to the text.
- ; lda #(IN_TWO|TR_CR) ;insert 2 spaces, add a carriage return.
- ; jsr OtherMessage ;go display it.
- ; ...
- texttodisplay:
- ; .byte "This Text Will Be Displayed!",0
- ; ...
- IN_CR = %10000000 ;initial carriage return.
- ;otherwise begin at present cursor
- ;location.
- TR_CR = %01000000 ;carriage return after text.
- ;otherwise leave cursor at next
- ;character past text.
- IN_ONE = %00000001 ;one leading space
- IN_TWO = %00000010 ;two leading spaces...
- IN_THREE = %00000011 ;etc...
- IN_FOUR = %00000100
- IN_FIVE = %00000101
- IN_SIX = %00000110
- IN_SEVEN = %00000111
- TR_ONE = %00001000 ;one trailing space
- TR_TWO = %00010000 ;two trailing spaces...
- TR_THREE = %00011000 ;etc...
- TR_FOUR = %00100000
- TR_FIVE = %00101000
- TR_SIX = %00110000
- TR_SEVEN = %00111000
- The Jump Table:
- InitgeoSHELL = $1700
- Only128 = $1703
- OpenGS = $1706
- NoMoreCmds = $1709
- ResetScreen = $170c
- ClearScreen = $170f
- ClearWindow = $1712
- EraseWindow = $1715
- The Jump Table:
- InitgeoSHELL = $1700
- Only128 = $1703
- OpenGS = $1706
- NoMoreCmds = $1709
- ResetScreen = $170c
- ClearScreen = $170f
- ClearWindow = $1712
- EraseWindow = $1715
- Asc_3_Byte = $1718
- ReDoWindow = $171b
- R_Icons = $171e
- OpenWrFile = $1721
- PushStuff = $1724
- PopStuff = $1727
- ResetFromPath = $172a
- CkForDisk = $172d
- ParamName = $1730
- DoRun = $1733
- IncCmdPointer = $1736
- CkPath = $1739
- DriveLetter = $173c
- DispLetter = $173f
- OpenPathPartition = $1742
- Switch = $1745
- ;$1748 is currently unused
- ClrKeyData = $174b
- YesKeypress = $174e
- NoKeypress = $1751
- nogood = $1754
- yesgood = $1757
- DsplyLine = $175a
- DsplyString = $175d
- CarrReturn = $1760
- set_XY_pos = $1763
- save_XY_pos = $1766
- ClearLine = $1769
- ClearBoth = $176c
- ClearRemainder = $176f
- StripRulers = $1772
- AdjTxtPointer = $1775
- ReDisplayWindow = $1778
- Message = $177b
- OtherMessage = $177e
- GetMessage = $1781
- Asc_Byte = $1784
- ByteWZ_Ascii = $1787
- ByteNZ_Ascii = $178a
- ConvertK = $178d
- Asc_BCD = $1790
- CkESC_RULER = $1793
- DispText = $1796
- GetMess = $1799
- execStartup = $179c
- CkPathOrder = $179f
- FindParName = $17a2
- Wait = $17a5
- ExitCommand = $17a8
- unsetPrompt = $17ab
- ColorScreen = $17ae
- SetBrdrColor = $17b1
- SetThisDevice = $17b4
- SetDrName = $17b7
- Wait = $17a5
- ExitCommand = $17a8
- unsetPrompt = $17ab
- ColorScreen = $17ae
- SetBrdrColor = $17b1
- SetThisDevice = $17b4
- SetDrName = $17b7
- FileNotAvail = $17ba
- Searching = $17bd
- MissgFilename = $17c0
- NotFound = $17c3
- Dir = $17c6
- CkTerminators = $17c9
- CkTermNoSpace = $17cc
- MissDisk = $17cf
- CkAllDrives = $17d2
- ;this spot is currently unused ($17d5)
- CkKeyboard = $17d8
- CkPresdrive = $17db
- CkThisDrive = $17de
- PurgeAllTurbos = $17e1
- CkOtherDrives = $17e4
- DateDisplay = $17e7
- Byte_Time = $17ea
- ;$17ed is currently unused
- FixColors = $17f0
- MskCtrlCodes = $17f3
- ConvToAscii = $17f6
- GetHeader = $17f9
- LoadProblem = $17fc
- OpenGSIndex = $17ff
- RdFnKeyDefs = $1802
- Open_GC_Channel = $1805
- Send_GC_Byte = $1808
- SaveToREU = $180b
- ClrTrnsName = $180e
- CkDrvLetter = $1811
- Status = $1814
- SendCmd = $1817
- ReadChannel = $181a
- SendListen = $181d
- SendTalk = $1820
- FindRamLink = $1823
- GetCMDType = $1826
- FindCMDType = $1829
- OpenPartition = $182c
- SetPartParams = $182f
- InitCurPartition = $1832
- OpenCurPartition = $1835
- CkModeFlag = $1838
- GetRealDriveNum = $183b
- ;room for 3 more jump addresses for future use.
-