|
0
|
1 nam SCFDefs
|
|
|
2 ttl Sequential File Manager (SCF) Definitions
|
|
|
3
|
|
|
4 *****************
|
|
|
5 * Edition History
|
|
|
6 *
|
|
|
7 * Date Changes Made by
|
|
|
8 * -------- ------------------------------------------------------------ ---
|
|
|
9 * 84/01/11 Added V.KANJI, V.KBUF, V.MODADR for new kanji input process Y.O
|
|
|
10 * 85/04/20 Added V.PDLHd Path Descriptor List Head MGH
|
|
|
11 * 85/04/21 Added PD.PLP and PD.PST for modem handling MGH
|
|
|
12 * 87/06/23 Updated with Dev Desc info KKD
|
|
|
13 * 98/10/03 Consolidated L1/L2 scfdefs BGP
|
|
|
14
|
|
|
15
|
|
|
16 *******************************
|
|
|
17 * SCF Device Descriptor Offsets
|
|
|
18 *
|
|
|
19 org M$DTyp
|
|
|
20 IT.DVC rmb 1 Device class
|
|
|
21 IT.UPC rmb 1 Uppercase flag
|
|
|
22 IT.BSO rmb 1 Backspace behavior
|
|
|
23 IT.DLO rmb 1 Delete behavior
|
|
|
24 IT.EKO rmb 1 Echo flag
|
|
|
25 IT.ALF rmb 1 Auto linefeed flag
|
|
|
26 IT.NUL rmb 1 End-of-line null count
|
|
|
27 IT.PAU rmb 1 Page pause flag
|
|
|
28 IT.PAG rmb 1 Number of lines per page
|
|
|
29 IT.BSP rmb 1 Backspace character
|
|
|
30 IT.DEL rmb 1 Delete-line character
|
|
|
31 IT.EOR rmb 1 End-of-record character
|
|
|
32 IT.EOF rmb 1 End-of-file character
|
|
|
33 IT.RPR rmb 1 Reprint-line character
|
|
|
34 IT.DUP rmb 1 Duplicate-last-line character
|
|
|
35 IT.PSC rmb 1 Pause character
|
|
|
36 IT.INT rmb 1 Interrupt character
|
|
|
37 IT.QUT rmb 1 Quit character
|
|
|
38 IT.BSE rmb 1 Backspace echo character
|
|
|
39 IT.OVF rmb 1 Bell character
|
|
|
40 IT.PAR rmb 1 Parity
|
|
|
41 IT.BAU rmb 1 Baud rate
|
|
|
42 IT.D2P rmb 2 Attached device name string offset
|
|
|
43 IT.XON rmb 1 X-ON character
|
|
|
44 IT.XOFF rmb 1 X-OFF character
|
|
|
45 IT.COL rmb 1 Number of columns for display
|
|
|
46 IT.ROW rmb 1 Number of rows for display
|
|
|
47 IT.XTYP rmb 1 Extended type (added by BRI)
|
|
|
48
|
|
|
49 ifgt Level-1
|
|
|
50 * Window Descriptor Additions
|
|
|
51 * For CoCo window, where IT.PAR = $80
|
|
|
52 org IT.ROW+1
|
|
|
53 IT.WND rmb 1 Window number (matches device name) ($2E)
|
|
|
54 IT.VAL rmb 1 Use defaults on Init (0=no, 1=yes)
|
|
|
55 IT.STY rmb 1 Screen type default
|
|
|
56 IT.CPX rmb 1 Column start default
|
|
|
57 IT.CPY rmb 1 Row start default
|
|
|
58 IT.FGC rmb 1 Foreground color default
|
|
|
59 IT.BGC rmb 1 Background color default
|
|
|
60 IT.BDC rmb 1 Border color default
|
|
|
61 endc
|
|
|
62
|
|
|
63 pag
|
|
|
64 ************************************************************
|
|
|
65 * Static storage requirements
|
|
|
66 * SCF Devices must reserve this space for SCF
|
|
|
67 *
|
|
|
68 org V.USER
|
|
|
69 V.TYPE rmb 1 Device type or parity
|
|
|
70 V.LINE rmb 1 Lines left until end of page
|
|
|
71 V.PAUS rmb 1 Immediate Pause request
|
|
|
72 V.DEV2 rmb 2 Attached device's static
|
|
|
73 V.INTR rmb 1 Interrupt char
|
|
|
74 V.QUIT rmb 1 Quit char
|
|
|
75 V.PCHR rmb 1 Pause char
|
|
|
76 V.ERR rmb 1 Accumulated errors
|
|
|
77 V.XON rmb 1 X-On char
|
|
|
78 V.XOFF rmb 1 X-Off char
|
|
|
79 V.KANJI rmb 1 Kanji mode flag
|
|
|
80 V.KBUF rmb 2 Kana - Kanji convert routine work address
|
|
|
81 V.MODADR rmb 2 Kana - Kanji convert module address
|
|
|
82 V.PDLHd rmb 2 Open path descriptor list head pointer
|
|
|
83 V.RSV rmb 5 Reserve bytes for future expansion
|
|
|
84 V.SCF equ . Total SCF manager static overhead
|
|
|
85
|
|
|
86 ***********************
|
|
|
87 * Character Definitions
|
|
|
88 *
|
|
|
89 C$NULL set 0 Null char
|
|
|
90 C$RPET set $01 (ctl A - SOH) Repeat last input line
|
|
|
91 C$INTR set $03 (ctl C - ETX) Keyboard interrupt
|
|
|
92 C$RPRT set $04 (ctl D - EOT) Reprint current input line
|
|
|
93 C$QUIT set $05 (ctl E - ENQ) Keyboard Abort
|
|
|
94 C$BELL set $07 (ctl G - BEL) Line overflow warning
|
|
|
95 C$BSP set $08 (ctl H - BS ) Back space
|
|
|
96 C$EL set $05 Erase Line
|
|
|
97 C$LF set $0A Line feed
|
|
|
98 C$HOME set $0B Home position Code
|
|
|
99 C$Clsgr set $15 Graphic screen clear (use FM-11)
|
|
|
100 C$Clsall set $16 Graphic & character clear (use FM-11)
|
|
|
101 C$CR set $0D Carriage return
|
|
|
102 C$FORM set $0C (ctl L - FF ) Form Feed ... screen clear
|
|
|
103 C$SI set $0F Shift IN Code
|
|
|
104 C$SO set $0E Shift OUT Code
|
|
|
105 C$XON set $11 (ctl Q - DC1) Transmit Enable
|
|
|
106 C$XOFF set $13 (ctl S - DC3) Transmit Disable
|
|
|
107 C$PAUS set $17 (ctl W - ETB) Pause character
|
|
|
108 C$DEL set $18 (ctl X - CAN) Delete line
|
|
|
109 C$EOF set $1B (ctl [ - ESC) END of file
|
|
|
110 C$RGT set $1C Cursor right
|
|
|
111 C$LFT set $1D Cursor left
|
|
|
112 C$UP set $1E Cursor up
|
|
|
113 C$DWN set $1F Cursor down
|
|
|
114 C$SPAC set $20 Space
|
|
|
115 C$PERD set '.
|
|
|
116 C$COMA set ',
|
|
|
117
|
|
|
118 pag
|
|
|
119 *************************
|
|
|
120 * FILE DESCRIPTOR OFFSETS
|
|
|
121 *
|
|
|
122 org PD.FST
|
|
|
123 PD.DV2 rmb 2 OUTPUT DEV TBL PTR
|
|
|
124 PD.RAW rmb 1 READ/WRITE OR RDLIN/WRLIN MODE
|
|
|
125 PD.MAX rmb 2 READLINE HIGH BYTE COUNT
|
|
|
126 PD.MIN rmb 1 DEVICES ARE "MINE" IF CLEAR
|
|
|
127 PD.STS rmb 2 Status routine module addr
|
|
|
128 PD.STM rmb 2 Reserved for Status routine
|
|
|
129 org PD.OPT
|
|
|
130 rmb 1 DEVICE TYPE
|
|
|
131 PD.UPC rmb 1 CASE (0=BOTH, 1=UPPER ONLY)
|
|
|
132 PD.BSO rmb 1 BACKSP (0=BSE, 1=BSE,SP,BSE)
|
|
|
133 PD.DLO rmb 1 DELETE (0=BSE OVER LINE, 1=CRLF)
|
|
|
134 PD.EKO rmb 1 ECHO (0=NO ECHO)
|
|
|
135 PD.ALF rmb 1 AUTOLF (0=NO AUTO LF)
|
|
|
136 PD.NUL rmb 1 END of LINE NULL COUNT
|
|
|
137 PD.PAU rmb 1 PAUSE (0=NO END of PAGE PAUSE)
|
|
|
138 PD.PAG rmb 1 LINES PER PAGE
|
|
|
139 PD.BSP rmb 1 BACKSPACE charACTER
|
|
|
140 PD.DEL rmb 1 DELETE LINE charACTER
|
|
|
141 PD.EOR rmb 1 END of RECORD char (READ ONLY)
|
|
|
142 PD.EOF rmb 1 END of FILE char
|
|
|
143 PD.RPR rmb 1 REPRINT LINE char
|
|
|
144 PD.DUP rmb 1 DUP LAST LINE char
|
|
|
145 PD.PSC rmb 1 PAUSE char
|
|
|
146 PD.INT rmb 1 KBD INTR char (ctl c)
|
|
|
147 PD.QUT rmb 1 KBD QUIT char (ctl q)
|
|
|
148 PD.BSE rmb 1 BACKSPACE ECHO charACTER
|
|
|
149 PD.OVF rmb 1 LINE OVERFLOW char (BELL)
|
|
|
150 PD.PAR rmb 1 PARITY CODE
|
|
|
151 PD.BAU rmb 1 ACIA BAUD RATE (Color Computer)
|
|
|
152 PD.D2P rmb 2 OFFSET of DEV2 name
|
|
|
153 PD.XON rmb 1 ACIA X-ON char
|
|
|
154 PD.XOFF rmb 1 ACIA X-OFF char
|
|
|
155 OPTCNT equ .-PD.OPT Total user settable options
|
|
|
156 PD.ERR rmb 1 Most recent I/O error status
|
|
|
157 PD.TBL rmb 2 Device Table addr (copy)
|
|
|
158 PD.PLP rmb 2 Path Descriptor List Pointer
|
|
|
159 PD.PST rmb 1 Current Path Status
|
|
|
160
|
|
|
161 ********************************************
|
|
|
162 * PD.PST values Path Descriptor Status byte
|
|
|
163 *
|
|
|
164 PST.DCD equ %00000001 Set if DCD is lost on Serial port
|
|
|
165
|
|
|
166 pag
|
|
|
167 ************************************************************
|
|
|
168 *
|
|
|
169 * SCF PD.PAR definitions
|
|
|
170 *
|
|
|
171 * Baud rate
|
|
|
172 B110 equ 0
|
|
|
173 B300 equ 1
|
|
|
174 B600 equ 2
|
|
|
175 B1200 equ 3
|
|
|
176 B2400 equ 4
|
|
|
177 B4800 equ 5
|
|
|
178 B9600 equ 6
|
|
|
179 B19200 equ 7
|
|
|
180 * Word size
|
|
|
181 WORD8 equ %00000000
|
|
|
182 WORD7 equ %00100000
|
|
|
183 * Parity
|
|
|
184 PARNONE equ %00000000
|
|
|
185 PARODD equ %00100000
|
|
|
186 PAREVEN equ %01100000
|
|
|
187 PARMARK equ %10100000
|
|
|
188 PARSPACE equ %11100000
|
|
|
189 * Stop bits
|
|
|
190 STOP1 equ %00000000
|
|
|
191 STOP2 equ %00010000
|
|
|
192
|
