mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 09:24:19 +00:00
47 lines
1.5 KiB
Modula-2
47 lines
1.5 KiB
Modula-2
;*****************************************************
|
|
;*
|
|
;* Console Control Block Definition
|
|
;*
|
|
;* +---------+---------+---------+---------+
|
|
;* 00 | attach | queue |
|
|
;* +---------+---------+---------+---------+
|
|
;* 04 | flag | startcol| column | nchar |
|
|
;* +---------+---------+---------+---------+
|
|
;* 08 | mimic | msource | type | btmp |
|
|
;* +---------+---------+---------+---------+
|
|
;*
|
|
;* attach - current owner of device
|
|
;* if 0, no owner
|
|
;* if 0ffffh, a mimic device
|
|
;* queue - linked list of PDs waiting to attach
|
|
;* flag - run-time flags
|
|
;* startcol - used for line editing
|
|
;* column - used for line editing
|
|
;* nchar - 1 character read ahead for CTRL chars.
|
|
;* mimic - cio dev that mimics us.
|
|
;* 0ffh means no mimic device
|
|
;* msource - if attach = 0ffffh, we are a
|
|
;* mimic device and msource is the
|
|
;* device we are mimicing.
|
|
;* type - type of device
|
|
;* btmp - Temporary console variable
|
|
;*
|
|
;*****************************************************
|
|
|
|
c_attach equ word ptr 0
|
|
c_queue equ word ptr c_attach + word
|
|
c_flag equ byte ptr c_queue + word
|
|
c_strtcol equ byte ptr c_flag + byte
|
|
c_column equ byte ptr c_strtcol + byte
|
|
c_nchar equ byte ptr c_column + byte
|
|
c_mimic equ byte ptr c_nchar + byte
|
|
c_msource equ byte ptr c_mimic + byte
|
|
c_type equ byte ptr c_msource + byte
|
|
c_btmp equ byte ptr c_type + byte
|
|
ccblen equ byte ptr c_btmp + byte
|
|
|
|
; Flags for c_flag
|
|
|
|
cf_listcp equ 001h ;control P toggle
|
|
cf_compc equ 002h ;suppress output
|