; >Defns

        TTL     "Definition of constants"


EscapeBit       bit 6           ;escape if this bit set in ESC_Status

MaxWinnies       * 2

Single          * 1
Double          * 2
Quad            * 4
Octal           * 8

K       * 1024
M       * K*K

;Register allocation

SB      RN 12

bit0    bit 0
bit1    bit 1
bit2    bit 2
bit3    bit 3
bit4    bit 4
bit5    bit 5
bit6    bit 6
bit7    bit 7
bit8    bit 8
bit9    bit 9
bit10   bit 10
bit11   bit 11
bit12   bit 12
bit13   bit 13
bit14   bit 14
bit15   bit 15
bit16   bit 16
bit17   bit 17
bit18   bit 18
bit19   bit 19
bit20   bit 20
bit21   bit 21
bit22   bit 22
bit23   bit 23
bit24   bit 24
bit25   bit 25
bit26   bit 26
bit27   bit 27
bit28   bit 28
bit29   bit 29
bit30   bit 30
bit31   bit 31

LF      * 10
CR      * 13
DeleteChar      * 127

SzOldFs         * &200
        [ NewFs
SzNewFloppyFs   * &400
        ]

;Disc Operation Reason Codes

;Param4Op       * VerifyOp
;VerifyOp        * 0
;ReadSecsOp      * 1
;WriteSecsOp     * 2
;
;Param3Op       * 3
;ReadTrkOp       * 3
;WriteTrkOp      * 4
;
;Param2Op       * 5
;SeekOp          * 5
;
;RestoreOp       * 6
;StepInOp        * 7     ;floppy only
;StepOutOp       * 8     ;floppy only
;
; [ Version >= 205
;CachedReadSecsOp * 9
; ]
;
;SpecifyOp       * 15    ;winnie only

        ASSERT EscapeBit=&40
AltDefectBit    bit 4   ;use alternative defect map, winnies only
ScatterBit      bit 5
NoEscape        bit 6
NoTimeOut       bit 7
 [ FileCache
BackgroundBitNo * 8
BackgroundOp    bit BackgroundBitNo     ;internal use only
 ]
Atomic          * NoEscape :OR: NoTimeOut
OpMask          * 2_1111 ;ops 0-15

DiscBits        * 2_111 :SHL: (32-3)    ;In all disc addresses
VerifyRetries   * 5

; osbyte numbers

OsbyteAckEscape         * &7E
OsbyteReadVdu           * &A0
OsbyteReadResetType     * &FD
OsbyteBreakAction       * &F7
; osword numbers

OswordReadClock * 14

; load/exec file types

DataType        * &FFFFFD00

FirstUnknown_fsfile     *       fsfile_ReadBlockSize+1  ;load mapped internally to this
FirstUnknown_fsargs     *       fsargs_ImageStampIs+1
 [ BigDisc
FirstUnknown_fsfunc     *       fsfunc_AddDefect64+1
 |
FirstUnknown_fsfunc     *       fsfunc_DirIs+1
 ]

UnsharedCreate          *       fsfile_CreateDir

;internal SaveCreate reason codes
CloseSmall              *       FirstUnknown_fsfile+1
CloseContig             *       FirstUnknown_fsfile+2
RandomAccessCreate      *       FirstUnknown_fsfile+3
RandomAccessExtend      *       FirstUnknown_fsfile+4
        ASSERT RandomAccessExtend <= fsfile_Load

; Vdu workspace
 [ T
WindowWidth     * &100
 |
LeftColumn      * 8
RightColumn     * &A
 ]

; reason codes for SWI ClaimScreenMemory

                        ^ 0
ReleaseSpareScreen      # 1
ClaimSpareScreen        # 1

ApplicStart     * 32*K

        END
