(ommands/shell.asm):00001 ******************************************************************** (ommands/shell.asm):00002 * shell - command line interpreter (ommands/shell.asm):00003 * (ommands/shell.asm):00004 * Edt/Rev YYYY/MM/DD Modified by (ommands/shell.asm):00005 * Comment (ommands/shell.asm):00006 * ------------------------------------------------------------------ (ommands/shell.asm):00007 * 17 1983/01/20 Kim Kempf (ommands/shell.asm):00008 * Fix RESET to properly DUP paths on errors (ommands/shell.asm):00009 * (ommands/shell.asm):00010 * 18 1983/02/10 Robert F. Doggett (ommands/shell.asm):00011 * Clear Mem size (#K) parameter between pipes (ommands/shell.asm):00012 * (ommands/shell.asm):00013 * 19 1983/03/28 Robert F. Doggett (ommands/shell.asm):00014 * Clean up signal processing; fix #201 error. (ommands/shell.asm):00015 * (ommands/shell.asm):00016 * 20 1983/03/29 Robert F. Doggett (ommands/shell.asm):00017 * Fix bug generated in edition 19. (wait) (ommands/shell.asm):00018 * (ommands/shell.asm):00019 * 21 1985/??/?? (ommands/shell.asm):00020 * Original Tandy/Microware version. (ommands/shell.asm):00021 * (ommands/shell.asm):00022 * 21/2 2003/01/22 Boisy Pitre (ommands/shell.asm):00023 * CHD no longer requires WRITE. permission. (ommands/shell.asm):00024 * (ommands/shell.asm):00025 * 22 2010/01/19 Boisy Pitre (ommands/shell.asm):00026 * Added code to honor S$HUP signal and exit when received to support (ommands/shell.asm):00027 * networking. (ommands/shell.asm):00028 * (ommands/shell.asm):00029 * 22 2025/05/04 Boisy G. Pitre (ommands/shell.asm):00030 * Added Microware comments from original sources at https://www.roug.org/retrocomputing/os/os9. (ommands/shell.asm):00031 (ommands/shell.asm):00032 nam Shell (ommands/shell.asm):00033 ttl command line interpreter (ommands/shell.asm):00034 (ommands/shell.asm):00035 use turbos.d ( turbos.d):00001 ******************************************************************************* ( turbos.d):00002 * TurbOS ( turbos.d):00003 ******************************************************************************* ( turbos.d):00004 * See LICENSE.txt for licensing information. ( turbos.d):00005 ******************************************************************************* ( turbos.d):00006 * ( turbos.d):00007 * Edt/Rev YYYY/MM/DD Modified by ( turbos.d):00008 * Comment ( turbos.d):00009 * ---------------------------------------------------------------------------- ( turbos.d):00010 * 2023/08/11 Boisy Pitre ( turbos.d):00011 * Initial creation. ( turbos.d):00012 * ( turbos.d):00013 ******************************************************************************* ( turbos.d):00014 ( turbos.d):00015 ifne TURBOS.D-1 ( turbos.d):00016 0001 ( turbos.d):00017 TURBOS.D set 1 ( turbos.d):00018 ( turbos.d):00019 nam turbos.d ( turbos.d):00020 ttl TurbOS system definitions ( turbos.d):00021 ( turbos.d):00022 * Common definitions 0001 ( turbos.d):00023 true equ 1 0000 ( turbos.d):00024 false equ 0 ( turbos.d):00025 ( turbos.d):00026 pag ( turbos.d):00027 ***************************************** ( turbos.d):00028 * System service request code definitions ( turbos.d):00029 * ( turbos.d):00030 org 0 ( turbos.d):00031 * User and system state calls 0000 ( turbos.d):00032 F$Link rmb 1 link to module 0001 ( turbos.d):00033 F$Load rmb 1 load module from file 0002 ( turbos.d):00034 F$UnLink rmb 1 unlink module 0003 ( turbos.d):00035 F$Fork rmb 1 start new process 0004 ( turbos.d):00036 F$Wait rmb 1 wait for child process to die 0005 ( turbos.d):00037 F$Chain rmb 1 chain process to new module 0006 ( turbos.d):00038 F$Exit rmb 1 terminate process 0007 ( turbos.d):00039 F$Mem rmb 1 set memory size 0008 ( turbos.d):00040 F$Send rmb 1 send signal to process 0009 ( turbos.d):00041 F$Icpt rmb 1 set signal intercept 000A ( turbos.d):00042 F$Sleep rmb 1 suspend process 000B ( turbos.d):00043 F$ID rmb 1 return process ID 000C ( turbos.d):00044 F$SPrior rmb 1 set process priority 000D ( turbos.d):00045 F$SSWI rmb 1 set software interrupt 000E ( turbos.d):00046 F$PErr rmb 1 print Error 000F ( turbos.d):00047 F$PrsNam rmb 1 parse pathlist name 0010 ( turbos.d):00048 F$CmpNam rmb 1 compare two names 0011 ( turbos.d):00049 F$SchBit rmb 1 search bit map 0012 ( turbos.d):00050 F$AllBit rmb 1 allocate in bit map 0013 ( turbos.d):00051 F$DelBit rmb 1 deallocate in bit map 0014 ( turbos.d):00052 F$Time rmb 1 get current time 0015 ( turbos.d):00053 F$STime rmb 1 set current time 0016 ( turbos.d):00054 F$CRC rmb 1 generate CRC ( turbos.d):00055 ( turbos.d):00056 org $27 beginning of system reserved calls ( turbos.d):00057 * System state (privileged) calls 0027 ( turbos.d):00058 F$VIRQ rmb 1 install/delete virtual IRQ 0028 ( turbos.d):00059 F$SRqMem rmb 1 system memory request 0029 ( turbos.d):00060 F$SRtMem rmb 1 system memory return 002A ( turbos.d):00061 F$IRQ rmb 1 enter IRQ polling table 002B ( turbos.d):00062 F$IOQu rmb 1 enter I/O queue 002C ( turbos.d):00063 F$AProc rmb 1 enter active process queue 002D ( turbos.d):00064 F$NProc rmb 1 start next process 002E ( turbos.d):00065 F$VModul rmb 1 validate module 002F ( turbos.d):00066 F$Find64 rmb 1 find process/path descriptor 0030 ( turbos.d):00067 F$All64 rmb 1 allocate process/path descriptor 0031 ( turbos.d):00068 F$Ret64 rmb 1 return process/path descriptor 0032 ( turbos.d):00069 F$SSvc rmb 1 service request table initialization 0033 ( turbos.d):00070 F$IODel rmb 1 delete I/O module ( turbos.d):00071 ( turbos.d):00072 * ( turbos.d):00073 * System calls $70 through $7F are reserved for user definitions ( turbos.d):00074 * ( turbos.d):00075 org $70 0070 ( turbos.d):00076 rmb 16 reserved for user definition ( turbos.d):00077 ( turbos.d):00078 pag ( turbos.d):00079 ************************************** ( turbos.d):00080 * I/O service request code definitions ( turbos.d):00081 * ( turbos.d):00082 org $80 0080 ( turbos.d):00083 I$Attach rmb 1 attach I/O device 0081 ( turbos.d):00084 I$Detach rmb 1 detach I/O device 0082 ( turbos.d):00085 I$Dup rmb 1 duplicate path 0083 ( turbos.d):00086 I$Create rmb 1 create new file 0084 ( turbos.d):00087 I$Open rmb 1 open existing file 0085 ( turbos.d):00088 I$MakDir rmb 1 make directory file 0086 ( turbos.d):00089 I$ChgDir rmb 1 change default directory 0087 ( turbos.d):00090 I$Delete rmb 1 delete file 0088 ( turbos.d):00091 I$Seek rmb 1 change current position 0089 ( turbos.d):00092 I$Read rmb 1 read data 008A ( turbos.d):00093 I$Write rmb 1 write data 008B ( turbos.d):00094 I$ReadLn rmb 1 read line of ASCII data 008C ( turbos.d):00095 I$WritLn rmb 1 write line of ASCII data 008D ( turbos.d):00096 I$GetStt rmb 1 get path status 008E ( turbos.d):00097 I$SetStt rmb 1 set path status 008F ( turbos.d):00098 I$Close rmb 1 close path 0090 ( turbos.d):00099 I$DeletX rmb 1 delete from current exec dir ( turbos.d):00100 ( turbos.d):00101 ******************* ( turbos.d):00102 * File access modes ( turbos.d):00103 * 0001 ( turbos.d):00104 READ. equ %00000001 0002 ( turbos.d):00105 WRITE. equ %00000010 0003 ( turbos.d):00106 UPDAT. equ READ.+WRITE. 0004 ( turbos.d):00107 EXEC. equ %00000100 0008 ( turbos.d):00108 PREAD. equ %00001000 0010 ( turbos.d):00109 PWRIT. equ %00010000 0020 ( turbos.d):00110 PEXEC. equ %00100000 0040 ( turbos.d):00111 SHARE. equ %01000000 0080 ( turbos.d):00112 DIR. equ %10000000 0020 ( turbos.d):00113 ISIZ. equ %00100000 ( turbos.d):00114 ( turbos.d):00115 ************** ( turbos.d):00116 * Signal codes ( turbos.d):00117 * ( turbos.d):00118 org 0 0000 ( turbos.d):00119 S$Kill rmb 1 non-interceptable abort 0001 ( turbos.d):00120 S$Wake rmb 1 wake-up sleeping process 0002 ( turbos.d):00121 S$Abort rmb 1 keyboard abort 0003 ( turbos.d):00122 S$Intrpt rmb 1 keyboard interrupt ( turbos.d):00123 ( turbos.d):00124 pag ( turbos.d):00125 ********************************** ( turbos.d):00126 * Status codes for GetStat/SetStat ( turbos.d):00127 * ( turbos.d):00128 org 0 0000 ( turbos.d):00129 SS.Opt rmb 1 read/Write path descriptor options 0001 ( turbos.d):00130 SS.Ready rmb 1 check for device ready 0002 ( turbos.d):00131 SS.Size rmb 1 read/write file size 0003 ( turbos.d):00132 SS.Reset rmb 1 device restore 0004 ( turbos.d):00133 rmb 1 0005 ( turbos.d):00134 SS.Pos rmb 1 get file's current position 0006 ( turbos.d):00135 SS.EOF rmb 1 test for end of file 0007 ( turbos.d):00136 SS.Link rmb 1 link to status routines 0008 ( turbos.d):00137 SS.ULink rmb 1 unlink status routines 0009 ( turbos.d):00138 rmb 1 000A ( turbos.d):00139 SS.Frz rmb 1 freeze DD. information 000B ( turbos.d):00140 SS.SPT rmb 1 set DD.TKS to given value 000C ( turbos.d):00141 rmb 1 000D ( turbos.d):00142 SS.DCmd rmb 1 send direct command to disk 000E ( turbos.d):00143 SS.DevNm rmb 1 return device name (32-bytes at [X]) 000F ( turbos.d):00144 SS.FD rmb 1 return file descriptor (Y-bytes at [X]) 0010 ( turbos.d):00145 SS.Ticks rmb 1 set lockout honor duration 0011 ( turbos.d):00146 SS.Lock rmb 1 lock/release record 0012 ( turbos.d):00147 rmb 1 0013 ( turbos.d):00148 rmb 1 0014 ( turbos.d):00149 SS.BlkRd rmb 1 block read 0015 ( turbos.d):00150 SS.BlkWr rmb 1 block write 0016 ( turbos.d):00151 SS.Reten rmb 1 retension cycle 0017 ( turbos.d):00152 SS.WFM rmb 1 write file mark 0018 ( turbos.d):00153 SS.RFM rmb 1 read past file mark 0019 ( turbos.d):00154 SS.ELog rmb 1 read error log 001A ( turbos.d):00155 SS.SSig rmb 1 send signal on data ready 001B ( turbos.d):00156 SS.Relea rmb 1 release device 001C ( turbos.d):00157 rmb 1 001D ( turbos.d):00158 rmb 1 001E ( turbos.d):00159 SS.RsBit rmb 1 reserve bitmap sector (do not allocate in) LSB(X)=sct# 001F ( turbos.d):00160 rmb 1 reserved 0020 ( turbos.d):00161 rmb 1 0021 ( turbos.d):00162 rmb 3 0024 ( turbos.d):00163 rmb 1 0025 ( turbos.d):00164 rmb 1 0026 ( turbos.d):00165 rmb 1 0027 ( turbos.d):00166 rmb 1 0028 ( turbos.d):00167 SS.ComSt rmb 1 Getstat/SetStat for baud/parity 0029 ( turbos.d):00168 SS.Open rmb 1 SetStat to tell driver a path was opened 002A ( turbos.d):00169 SS.Close rmb 1 SetStat to tell driver a path was closed 002B ( turbos.d):00170 SS.HngUp rmb 1 SetStat to tell driver to hangup phone 002C ( turbos.d):00171 SS.FSig rmb 1 new signal for temp locked files 002D ( turbos.d):00172 rmb 19 ( turbos.d):00173 ( turbos.d):00174 org $A0 00A0 ( turbos.d):00175 rmb 1 00A1 ( turbos.d):00176 SS.Fill rmb 1 enable command-line history erase (scf) ( turbos.d):00177 ttl Direct Page Definitions ( turbos.d):00178 pag ( turbos.d):00179 ( turbos.d):00180 ********************************** ( turbos.d):00181 * Direct page variable definitions ( turbos.d):00182 * ( turbos.d):00183 org $00 ( turbos.d):00184 org $20 0020 ( turbos.d):00185 D.FMBM rmb 4 free memory bit map pointers 0024 ( turbos.d):00186 D.MLIM rmb 2 upper RAM memory limit 0026 ( turbos.d):00187 D.ModDir rmb 4 module directory pointers (start and end) 002A ( turbos.d):00188 D.Init rmb 2 configuration module base address 002C ( turbos.d):00189 D.SWI3 rmb 2 SWI3 vector 002E ( turbos.d):00190 D.SWI2 rmb 2 SWI2 vector 0030 ( turbos.d):00191 D.FIRQ rmb 2 FIRQ vector 0032 ( turbos.d):00192 D.IRQ rmb 2 IRQ vector 0034 ( turbos.d):00193 D.SWI rmb 2 SWI vector 0036 ( turbos.d):00194 D.NMI rmb 2 NMI vector 0038 ( turbos.d):00195 D.SvcIRQ rmb 2 interrupt service entry 003A ( turbos.d):00196 D.Poll rmb 2 interrupt polling routine 003C ( turbos.d):00197 D.UsrIRQ rmb 2 user interrupt routine 003E ( turbos.d):00198 D.SysIRQ rmb 2 system interrupt routine 0040 ( turbos.d):00199 D.UsrSvc rmb 2 user service request routine 0042 ( turbos.d):00200 D.SysSvc rmb 2 system service request routine 0044 ( turbos.d):00201 D.UsrDis rmb 2 user service request dispatch table 0046 ( turbos.d):00202 D.SysDis rmb 2 system service reuest dispatch table 0048 ( turbos.d):00203 D.Slice rmb 1 process time slice count 0049 ( turbos.d):00204 D.PrcDBT rmb 2 process descriptor block table 004B ( turbos.d):00205 D.Proc rmb 2 process descriptor address 004D ( turbos.d):00206 D.AProcQ rmb 2 active process queue 004F ( turbos.d):00207 D.WProcQ rmb 2 waiting process queue 0051 ( turbos.d):00208 D.SProcQ rmb 2 sleeping process queue 0053 ( turbos.d):00209 D.Time equ . time 0053 ( turbos.d):00210 D.Year rmb 1 current year 0054 ( turbos.d):00211 D.Month rmb 1 current month 0055 ( turbos.d):00212 D.Day rmb 1 current da 0056 ( turbos.d):00213 D.Hour rmb 1 current hour 0057 ( turbos.d):00214 D.Min rmb 1 current minute 0058 ( turbos.d):00215 D.Sec rmb 1 current second 0059 ( turbos.d):00216 D.Ticks rmb 4 number of ticks since boot 005D ( turbos.d):00217 D.Tick rmb 1 current tick 005E ( turbos.d):00218 D.TSec rmb 1 ticks per second 005F ( turbos.d):00219 D.TSlice rmb 1 ticks per time-slice 0060 ( turbos.d):00220 D.IOML rmb 2 I/O manager free memory low bound 0062 ( turbos.d):00221 D.IOMH rmb 2 I/O manager free memory hi bound 0064 ( turbos.d):00222 D.DevTbl rmb 2 device driver table address 0066 ( turbos.d):00223 D.PolTbl rmb 2 interrupt polling table address 0068 ( turbos.d):00224 D.PthDBT rmb 2 path descriptor block table addrress 006A ( turbos.d):00225 D.BTLO rmb 2 bootstrap low address 006C ( turbos.d):00226 D.BTHI rmb 2 bootstrap hi address 006E ( turbos.d):00227 D.Clock rmb 2 address of clock tick routine 0070 ( turbos.d):00228 D.Boot rmb 1 bootstrap attempted flag 0071 ( turbos.d):00229 D.URtoSs rmb 2 address of user to system routine (VIRQ) 0073 ( turbos.d):00230 D.VIRQTable rmb 2 pointer to virtual IRQ table 0075 ( turbos.d):00231 D.CRC rmb 1 CRC checking mode flag ( turbos.d):00232 ( turbos.d):00233 org $100 0100 ( turbos.d):00234 D.XSWI3 rmb 3 0103 ( turbos.d):00235 D.XSWI2 rmb 3 0106 ( turbos.d):00236 D.XSWI rmb 3 0109 ( turbos.d):00237 D.XNMI rmb 3 010C ( turbos.d):00238 D.XIRQ rmb 3 010F ( turbos.d):00239 D.XFIRQ rmb 3 ( turbos.d):00240 ( turbos.d):00241 * Table Sizes 0020 ( turbos.d):00242 BMAPSZ equ 65536/256/8 memory allocation bitmap table size 0002 ( turbos.d):00243 SVCTNM equ 2 number of service request tables 006E ( turbos.d):00244 SVCTSZ equ (256-BMAPSZ)/SVCTNM-2 service request table size ( turbos.d):00245 ( turbos.d):00246 ttl Structure Formats ( turbos.d):00247 pag ( turbos.d):00248 ************************************ ( turbos.d):00249 * Module directory entry definitions ( turbos.d):00250 * ( turbos.d):00251 org 0 0000 ( turbos.d):00252 MD$MPtr rmb 2 module pointer 0002 ( turbos.d):00253 MD$Link rmb 1 module link count 0003 ( turbos.d):00254 rmb 1 0004 ( turbos.d):00255 MD$ESize equ . module directory entry size ( turbos.d):00256 ( turbos.d):00257 ************************************ ( turbos.d):00258 * Module definitions ( turbos.d):00259 * ( turbos.d):00260 * Universal module offsets ( turbos.d):00261 * ( turbos.d):00262 org 0 0000 ( turbos.d):00263 M$ID rmb 2 ID code 0002 ( turbos.d):00264 M$Size rmb 2 module size 0004 ( turbos.d):00265 M$Name rmb 2 module name 0006 ( turbos.d):00266 M$Type rmb 1 type / language 0007 ( turbos.d):00267 M$Revs rmb 1 attributes / revision level 0008 ( turbos.d):00268 M$Parity rmb 1 header parity 0009 ( turbos.d):00269 M$IDSize equ . Mmdule ID size ( turbos.d):00270 ( turbos.d):00271 * ( turbos.d):00272 * Type-dependent module offsets ( turbos.d):00273 * ( turbos.d):00274 * System, file manager, device driver, program module ( turbos.d):00275 * 0009 ( turbos.d):00276 M$Exec rmb 2 execution entry offset ( turbos.d):00277 * ( turbos.d):00278 * Device driver, program module ( turbos.d):00279 * 000B ( turbos.d):00280 M$Mem rmb 2 stack requirement ( turbos.d):00281 * ( turbos.d):00282 * Device driver, device descriptor module ( turbos.d):00283 * 000D ( turbos.d):00284 M$Mode rmb 1 device driver mode capabilities ( turbos.d):00285 * ( turbos.d):00286 * Device descriptor module ( turbos.d):00287 * ( turbos.d):00288 org M$IDSize 0009 ( turbos.d):00289 M$FMgr rmb 2 file manager name offset 000B ( turbos.d):00290 M$PDev rmb 2 device driver name offset 000D ( turbos.d):00291 rmb 1 M$Mode (defined above) 000E ( turbos.d):00292 M$Port rmb 3 port address 0011 ( turbos.d):00293 M$Opt rmb 1 device default options 0012 ( turbos.d):00294 M$DTyp rmb 1 device type 0012 ( turbos.d):00295 IT.DTP equ M$DTyp descriptor type offset ( turbos.d):00296 ( turbos.d):00297 * ( turbos.d):00298 * Configuration module entry offsets ( turbos.d):00299 * ( turbos.d):00300 org M$IDSize 0009 ( turbos.d):00301 CM$MaxMem rmb 3 maximum free memory 000C ( turbos.d):00302 CM$PollCnt rmb 1 entries in interrupt polling table 000D ( turbos.d):00303 CM$DevCnt rmb 1 entries in device table 000E ( turbos.d):00304 CM$TickMod rmb 2 tick generator module name 0010 ( turbos.d):00305 CM$GoMod rmb 2 startup module name ( turbos.d):00306 ifne _FF_UNIFIED_IO 0012 ( turbos.d):00307 CM$StoreMod rmb 2 initial storage device name 0012 ( turbos.d):00308 CM$ConsoleMod rmb 2 initial console device name ( turbos.d):00309 endc ( turbos.d):00310 ifne _FF_BOOTING 0012 ( turbos.d):00311 CM$BootMod rmb 2 boot module name ( turbos.d):00312 endc 0012 ( turbos.d):00313 CM$OSLevel rmb 1 operating system level 0013 ( turbos.d):00314 CM$OSVer rmb 1 operating system version 0014 ( turbos.d):00315 CM$OSMajor rmb 1 operating system major 0015 ( turbos.d):00316 CM$OSMinor rmb 1 operating system minor 0016 ( turbos.d):00317 CM$Feature1 rmb 1 feature byte 1 0017 ( turbos.d):00318 CM$Feature2 rmb 1 feature byte 2 0018 ( turbos.d):00319 rmb 4 reserved for future use ( turbos.d):00320 ( turbos.d):00321 * Feature1 byte definitions 0001 ( turbos.d):00322 CRCOn equ %00000001 CRC checking on 0000 ( turbos.d):00323 CRCOff equ %00000000 CRC checking off ( turbos.d):00324 ( turbos.d):00325 pag ( turbos.d):00326 ************************** ( turbos.d):00327 * Module field definitions ( turbos.d):00328 * ( turbos.d):00329 * ID field - first two bytes of a module ( turbos.d):00330 * 0087 ( turbos.d):00331 M$ID1 equ $87 module ID code byte one 00CD ( turbos.d):00332 M$ID2 equ $CD module ID code byte two 87CD ( turbos.d):00333 M$ID12 equ M$ID1*256+M$ID2 ( turbos.d):00334 ( turbos.d):00335 * ( turbos.d):00336 * Module type/language field masks ( turbos.d):00337 * 00F0 ( turbos.d):00338 TypeMask equ %11110000 type field 000F ( turbos.d):00339 LangMask equ %00001111 language field ( turbos.d):00340 ( turbos.d):00341 * ( turbos.d):00342 * Module type values ( turbos.d):00343 * 00F0 ( turbos.d):00344 Devic equ $F0 device descriptor module 00E0 ( turbos.d):00345 Drivr equ $E0 physical device driver 00D0 ( turbos.d):00346 FlMgr equ $D0 file manager 00C0 ( turbos.d):00347 Systm equ $C0 system module 0040 ( turbos.d):00348 Data equ $40 data module 0020 ( turbos.d):00349 Sbrtn equ $20 subroutine module 0010 ( turbos.d):00350 Prgrm equ $10 program module ( turbos.d):00351 ( turbos.d):00352 * ( turbos.d):00353 * Module language values ( turbos.d):00354 * 0001 ( turbos.d):00355 Objct equ 1 object code module ( turbos.d):00356 ( turbos.d):00357 * ( turbos.d):00358 * Module attributes / revision byte ( turbos.d):00359 * ( turbos.d):00360 * Field masks ( turbos.d):00361 * 00F0 ( turbos.d):00362 AttrMask equ %11110000 attributes field 000F ( turbos.d):00363 RevsMask equ %00001111 revision level field ( turbos.d):00364 ( turbos.d):00365 * ( turbos.d):00366 * Attribute flags ( turbos.d):00367 * 0080 ( turbos.d):00368 ReEnt equ %10000000 re-entrant module ( turbos.d):00369 ( turbos.d):00370 ******************** ( turbos.d):00371 * Device type values ( turbos.d):00372 * ( turbos.d):00373 * These values define various classes of devices, which are ( turbos.d):00374 * managed by a file manager module. The device type is embedded ( turbos.d):00375 * in a device descriptor. ( turbos.d):00376 * 0000 ( turbos.d):00377 DT.SCF equ 0 sequential character file manager 0001 ( turbos.d):00378 DT.RBF equ 1 random block file manager 0002 ( turbos.d):00379 DT.Pipe equ 2 pipe file manager ( turbos.d):00380 ( turbos.d):00381 ********************* ( turbos.d):00382 * CRC result constant ( turbos.d):00383 * 0080 ( turbos.d):00384 CRCCon1 equ $80 0FE3 ( turbos.d):00385 CRCCon23 equ $0FE3 ( turbos.d):00386 ( turbos.d):00387 ttl Process Information ( turbos.d):00388 pag ( turbos.d):00389 ******************************** ( turbos.d):00390 * Process descriptor definitions ( turbos.d):00391 * 000C ( turbos.d):00392 DefIOSiz equ 12 0010 ( turbos.d):00393 NumPaths equ 16 number of local paths ( turbos.d):00394 ( turbos.d):00395 org 0 0000 ( turbos.d):00396 P$ID rmb 1 process ID 0001 ( turbos.d):00397 P$PID rmb 1 parent's ID 0002 ( turbos.d):00398 P$SID rmb 1 sibling's ID 0003 ( turbos.d):00399 P$CID rmb 1 child's ID 0004 ( turbos.d):00400 P$SP rmb 2 stack pointer 0006 ( turbos.d):00401 P$CHAP rmb 1 process chapter number 0007 ( turbos.d):00402 P$ADDR rmb 1 user address beginning page number 0008 ( turbos.d):00403 P$PagCnt rmb 1 memory page count 0009 ( turbos.d):00404 P$User rmb 2 user index 000B ( turbos.d):00405 P$Prior rmb 1 priority 000C ( turbos.d):00406 P$Age rmb 1 age 000D ( turbos.d):00407 P$State rmb 1 status 000E ( turbos.d):00408 P$Queue rmb 2 queue link (process pointer) 0010 ( turbos.d):00409 P$IOQP rmb 1 previous I/O queue link (process ID) 0011 ( turbos.d):00410 P$IOQN rmb 1 next I/O queue link (process ID) 0012 ( turbos.d):00411 P$PModul rmb 2 primary module 0014 ( turbos.d):00412 P$SWI rmb 2 SWI entry point 0016 ( turbos.d):00413 P$SWI2 rmb 2 SWI2 entry point 0018 ( turbos.d):00414 P$SWI3 rmb 2 SWI3 entry point 001A ( turbos.d):00415 P$DIO rmb DefIOSiz default I/O pointers 0026 ( turbos.d):00416 P$PATH rmb NumPaths I/O path table 0036 ( turbos.d):00417 P$Signal rmb 1 signal code 0037 ( turbos.d):00418 P$SigVec rmb 2 signal intercept vector 0039 ( turbos.d):00419 P$SigDat rmb 2 signal intercept data address 003B ( turbos.d):00420 P$NIO rmb 4 003F ( turbos.d):00421 rmb $40-. unused 0040 ( turbos.d):00422 P$Size equ . size of process descriptor ( turbos.d):00423 ( turbos.d):00424 * ( turbos.d):00425 * Process state flags ( turbos.d):00426 * 0080 ( turbos.d):00427 SysState equ %10000000 0040 ( turbos.d):00428 TimSleep equ %01000000 0020 ( turbos.d):00429 TimOut equ %00100000 0010 ( turbos.d):00430 ImgChg equ %00010000 0002 ( turbos.d):00431 Condem equ %00000010 0001 ( turbos.d):00432 Dead equ %00000001 ( turbos.d):00433 ( turbos.d):00434 ttl I/O Definitions ( turbos.d):00435 pag ( turbos.d):00436 ************************* ( turbos.d):00437 * Path descriptor offsets ( turbos.d):00438 * ( turbos.d):00439 org 0 0000 ( turbos.d):00440 PD.PD rmb 1 path number 0001 ( turbos.d):00441 PD.MOD rmb 1 mode (read/write/update) 0002 ( turbos.d):00442 PD.CNT rmb 1 number of open images 0003 ( turbos.d):00443 PD.DEV rmb 2 device table entry address 0005 ( turbos.d):00444 PD.CPR rmb 1 current process 0006 ( turbos.d):00445 PD.RGS rmb 2 caller's register stack 0008 ( turbos.d):00446 PD.BUF rmb 2 buffer address 000A ( turbos.d):00447 PD.FST rmb 32-. file manager's storage 0020 ( turbos.d):00448 PD.OPT equ . path descriptor options 0020 ( turbos.d):00449 PD.DTP rmb 1 device type 0021 ( turbos.d):00450 rmb 64-. path options end 0040 ( turbos.d):00451 PDSIZE equ . ( turbos.d):00452 ( turbos.d):00453 * ( turbos.d):00454 * Pathlist special symbols ( turbos.d):00455 * 002F ( turbos.d):00456 PDELIM equ '/ pathlist name separator 002E ( turbos.d):00457 PDIR equ '. directory 0040 ( turbos.d):00458 PENTIR equ '@ entire device ( turbos.d):00459 ( turbos.d):00460 pag ( turbos.d):00461 **************************** ( turbos.d):00462 * File manager entry offsets ( turbos.d):00463 * ( turbos.d):00464 org 0 0000 ( turbos.d):00465 FMCREA rmb 3 create (open new) file 0003 ( turbos.d):00466 FMOPEN rmb 3 open file 0006 ( turbos.d):00467 FMMDIR rmb 3 make directory 0009 ( turbos.d):00468 FMCDIR rmb 3 change directory 000C ( turbos.d):00469 FMDLET rmb 3 delete file 000F ( turbos.d):00470 FMSEEK rmb 3 position file 0012 ( turbos.d):00471 FMREAD rmb 3 read from file 0015 ( turbos.d):00472 FMWRIT rmb 3 write to file 0018 ( turbos.d):00473 FMRDLN rmb 3 read line 001B ( turbos.d):00474 FMWRLN rmb 3 write line 001E ( turbos.d):00475 FMGSTA rmb 3 get file status 0021 ( turbos.d):00476 FMSSTA rmb 3 set file status 0024 ( turbos.d):00477 FMCLOS rmb 3 close file ( turbos.d):00478 ( turbos.d):00479 ***************************** ( turbos.d):00480 * Device driver entry offsets ( turbos.d):00481 * ( turbos.d):00482 org 0 0000 ( turbos.d):00483 D$INIT rmb 3 device initialization 0003 ( turbos.d):00484 D$READ rmb 3 read from device 0006 ( turbos.d):00485 D$WRIT rmb 3 write to device 0009 ( turbos.d):00486 D$GSTA rmb 3 get device status 000C ( turbos.d):00487 D$PSTA rmb 3 put device status 000F ( turbos.d):00488 D$TERM rmb 3 device termination ( turbos.d):00489 ( turbos.d):00490 ********************* ( turbos.d):00491 * Device table format ( turbos.d):00492 * ( turbos.d):00493 org 0 0000 ( turbos.d):00494 V$DRIV rmb 2 device driver module 0002 ( turbos.d):00495 V$STAT rmb 2 device driver static storage 0004 ( turbos.d):00496 V$DESC rmb 2 device descriptor module 0006 ( turbos.d):00497 V$FMGR rmb 2 file manager module 0008 ( turbos.d):00498 V$USRS rmb 1 use count 0009 ( turbos.d):00499 DEVSIZ equ . ( turbos.d):00500 ( turbos.d):00501 ******************************* ( turbos.d):00502 * Device static storage offsets ( turbos.d):00503 * ( turbos.d):00504 org 0 0000 ( turbos.d):00505 V.PAGE rmb 1 port extended address 0001 ( turbos.d):00506 V.PORT rmb 2 device 'base' port address 0003 ( turbos.d):00507 V.LPRC rmb 1 last active process ID 0004 ( turbos.d):00508 V.BUSY rmb 1 active process ID (0=not busy) 0005 ( turbos.d):00509 V.WAKE rmb 1 active process descriptor if driver MUST wake-up 0006 ( turbos.d):00510 V.USER equ . driver allocation origin ( turbos.d):00511 ( turbos.d):00512 ******************************** ( turbos.d):00513 * Interrupt polling table format ( turbos.d):00514 * ( turbos.d):00515 org 0 0000 ( turbos.d):00516 Q$Poll rmb 2 absolute polling address 0002 ( turbos.d):00517 Q$Flip rmb 1 flip (EOR) byte; normally zero 0003 ( turbos.d):00518 Q$Mask rmb 1 polling mask (after flip) 0004 ( turbos.d):00519 Q$Serv rmb 2 absolute service routine Address 0006 ( turbos.d):00520 Q$Stat rmb 2 static storage address 0008 ( turbos.d):00521 Q$Prty rmb 1 priority (low numbers=top priority) 0009 ( turbos.d):00522 POLSIZ equ . ( turbos.d):00523 ( turbos.d):00524 ******************** ( turbos.d):00525 * VIRQ packet format ( turbos.d):00526 * ( turbos.d):00527 org 0 0000 ( turbos.d):00528 Vi.Cnt rmb 2 count down counter 0002 ( turbos.d):00529 Vi.Rst rmb 2 reset value for counter 0004 ( turbos.d):00530 Vi.Stat rmb 1 status byte 0005 ( turbos.d):00531 Vi.PkSz equ . ( turbos.d):00532 0001 ( turbos.d):00533 Vi.IFlag equ %00000001 status byte virq flag ( turbos.d):00534 ( turbos.d):00535 pag ( turbos.d):00536 ************************************* ( turbos.d):00537 * Machine characteristics definitions ( turbos.d):00538 * 0000 ( turbos.d):00539 R$CC equ 0 condition codes register 0001 ( turbos.d):00540 R$A equ 1 A accumulator 0002 ( turbos.d):00541 R$B equ 2 B accumulator 0001 ( turbos.d):00542 R$D equ R$A combined A:B accumulator 0003 ( turbos.d):00543 R$DP equ 3 direct page register 0004 ( turbos.d):00544 R$X equ 4 X index register 0006 ( turbos.d):00545 R$Y equ 6 Y index register 0008 ( turbos.d):00546 R$U equ 8 user stack register 000A ( turbos.d):00547 R$PC equ 10 program counter register 000C ( turbos.d):00548 R$Size equ 12 total register package size ( turbos.d):00549 0080 ( turbos.d):00550 Entire equ %10000000 full register stack flag 0040 ( turbos.d):00551 FIRQMask equ %01000000 fast interrupt mask bit 0020 ( turbos.d):00552 HalfCrry equ %00100000 half carry flag 0010 ( turbos.d):00553 IRQMask equ %00010000 interrupt mask bit 0008 ( turbos.d):00554 Negative equ %00001000 negative flag 0004 ( turbos.d):00555 Zero equ %00000100 zero flag 0002 ( turbos.d):00556 TwosOvfl equ %00000010 two's complement overflow flag 0001 ( turbos.d):00557 Carry equ %00000001 carry bit 0050 ( turbos.d):00558 IntMasks equ IRQMask+FIRQMask 0080 ( turbos.d):00559 Sign equ %10000000 sign bit ( turbos.d):00560 ( turbos.d):00561 ttl Error code definitions ( turbos.d):00562 pag ( turbos.d):00563 ************************ ( turbos.d):00564 * Error code definitions ( turbos.d):00565 * ( turbos.d):00566 org 200 00C8 ( turbos.d):00567 E$PthFul rmb 1 path table full 00C9 ( turbos.d):00568 E$BPNum rmb 1 bad path number 00CA ( turbos.d):00569 E$Poll rmb 1 polling table Full 00CB ( turbos.d):00570 E$BMode rmb 1 bad Mode 00CC ( turbos.d):00571 E$DevOvf rmb 1 device table overflow 00CD ( turbos.d):00572 E$BMID rmb 1 bad module ID 00CE ( turbos.d):00573 E$DirFul rmb 1 module directory full 00CF ( turbos.d):00574 E$MemFul rmb 1 process memory full 00D0 ( turbos.d):00575 E$UnkSvc rmb 1 unknown service code 00D1 ( turbos.d):00576 E$ModBsy rmb 1 module busy 00D2 ( turbos.d):00577 E$BPAddr rmb 1 bad page address 00D3 ( turbos.d):00578 E$EOF rmb 1 end of file 00D4 ( turbos.d):00579 rmb 1 00D5 ( turbos.d):00580 E$NES rmb 1 non-existent segment 00D6 ( turbos.d):00581 E$FNA rmb 1 file not accesible 00D7 ( turbos.d):00582 E$BPNam rmb 1 bad path name 00D8 ( turbos.d):00583 E$PNNF rmb 1 path name Not Found 00D9 ( turbos.d):00584 E$SLF rmb 1 segment list full 00DA ( turbos.d):00585 E$CEF rmb 1 creating existing file 00DB ( turbos.d):00586 E$IBA rmb 1 illegal block address 00DC ( turbos.d):00587 E$HangUp rmb 1 carrier detect lost 00DD ( turbos.d):00588 E$MNF rmb 1 module not found 00DE ( turbos.d):00589 rmb 1 00DF ( turbos.d):00590 E$DelSP rmb 1 deleting stack pointer memory 00E0 ( turbos.d):00591 E$IPrcID rmb 1 illegal process ID 00E0 ( turbos.d):00592 E$BPrcID equ E$IPrcID bad process ID 00E1 ( turbos.d):00593 rmb 1 00E2 ( turbos.d):00594 E$NoChld rmb 1 no children 00E3 ( turbos.d):00595 E$ISWI rmb 1 illegal SWI code 00E4 ( turbos.d):00596 E$PrcAbt rmb 1 process aborted 00E5 ( turbos.d):00597 E$PrcFul rmb 1 process table full 00E6 ( turbos.d):00598 E$IForkP rmb 1 illegal fork parameter 00E7 ( turbos.d):00599 E$KwnMod rmb 1 known module 00E8 ( turbos.d):00600 E$BMCRC rmb 1 bad module CRC 00E9 ( turbos.d):00601 E$USigP rmb 1 unprocessed signal pending 00EA ( turbos.d):00602 E$NEMod rmb 1 non-existent module 00EB ( turbos.d):00603 E$BNam rmb 1 bad name 00EC ( turbos.d):00604 E$BMHP rmb 1 bad module header parity 00ED ( turbos.d):00605 E$NoRAM rmb 1 no system RAM available 00EE ( turbos.d):00606 E$DNE rmb 1 directory not empty 00EF ( turbos.d):00607 E$NoTask rmb 1 no available task number ( turbos.d):00608 rmb $F0-. reserved 00F0 ( turbos.d):00609 E$Unit rmb 1 illegal media unit 00F1 ( turbos.d):00610 E$Sect rmb 1 bad sector number 00F2 ( turbos.d):00611 E$WP rmb 1 write protect 00F3 ( turbos.d):00612 E$CRC rmb 1 bad checksum 00F4 ( turbos.d):00613 E$Read rmb 1 read error 00F5 ( turbos.d):00614 E$Write rmb 1 write error 00F6 ( turbos.d):00615 E$NotRdy rmb 1 device not ready 00F7 ( turbos.d):00616 E$Seek rmb 1 seek error 00F8 ( turbos.d):00617 E$Full rmb 1 media full 00F9 ( turbos.d):00618 E$BTyp rmb 1 bad type (incompatible) media 00FA ( turbos.d):00619 E$DevBsy rmb 1 device busy 00FB ( turbos.d):00620 E$DIDC rmb 1 media ID change 00FC ( turbos.d):00621 E$Lock rmb 1 record is busy (locked out) 00FD ( turbos.d):00622 E$Share rmb 1 non-sharable file busy 00FE ( turbos.d):00623 E$DeadLk rmb 1 I/O deadlock error ( turbos.d):00624 ( turbos.d):00625 * Character definitions 0020 ( turbos.d):00626 C$Space set $20 002E ( turbos.d):00627 C$Period set '. 002C ( turbos.d):00628 C$Comma set ', 000D ( turbos.d):00629 C$CR set $0D 000A ( turbos.d):00630 C$LF set $0A ( turbos.d):00631 ( turbos.d):00632 endc (ommands/shell.asm):00036 use scf.d ( scf.d):00001 IFNE SCF.D-1 ( scf.d):00002 0001 ( scf.d):00003 SCF.D SET 1 ( scf.d):00004 ( scf.d):00005 ******************************************************************** ( scf.d):00006 * scf.d - Sequential Character File Manager Definitions ( scf.d):00007 * ( scf.d):00008 * $Id$ ( scf.d):00009 * ( scf.d):00010 * SCF stands for 'Sequential Character Filemanager' and is a package of subroutines ( scf.d):00011 * that define the logical structure of a serial device. ( scf.d):00012 * ( scf.d):00013 * The data structures in this file give SCF its 'personality' and are used ( scf.d):00014 * by SCF itself, as well as applications that will require disk I/O. ( scf.d):00015 * ( scf.d):00016 * Edt/Rev YYYY/MM/DD Modified by ( scf.d):00017 * Comment ( scf.d):00018 * ------------------------------------------------------------------ ( scf.d):00019 * 1984/01/11 YO ( scf.d):00020 * Added V.KANJI, V.KBUF, V.MODADR for new kanji input process. ( scf.d):00021 * ( scf.d):00022 * 1985/04/20 Mark G. Hawkins ( scf.d):00023 * Added V.PDLHd Path Descriptor List Head. ( scf.d):00024 * ( scf.d):00025 * 1985/04/21 Mark G. Hawkins ( scf.d):00026 * Added PD.PLP and PD.PST for modem handling. ( scf.d):00027 * ( scf.d):00028 * 1987/06/23 Kevin K. Darling ( scf.d):00029 * Updated with Dev Desc info. ( scf.d):00030 * ( scf.d):00031 * 1998/10/03 Boisy G. Pitre ( scf.d):00032 * Consolidated L1/L2 scfdefs. ( scf.d):00033 * ( scf.d):00034 * 2003/01/21 Boisy G. Pitre ( scf.d):00035 * Added symbolics for enhanced SCF line editing. ( scf.d):00036 * ( scf.d):00037 * 2003/06/02 Boisy G. Pitre ( scf.d):00038 * Updated comments for clarity. ( scf.d):00039 * ( scf.d):00040 * 2004/05/17 Boisy G. Pitre ( scf.d):00041 * Added higher baud rates. ( scf.d):00042 ( scf.d):00043 NAM scf.d ( scf.d):00044 TTL Sequential File Manager Definitions ( scf.d):00045 ( scf.d):00046 PAG ( scf.d):00047 ******************************* ( scf.d):00048 * SCF Device Descriptor Offsets ( scf.d):00049 * ( scf.d):00050 * These definitions are for SCF device descriptors. ( scf.d):00051 ( scf.d):00052 ORG M$DTyp 0012 ( scf.d):00053 IT.DVC RMB 1 Device type (DT.SCF) 0013 ( scf.d):00054 IT.UPC RMB 1 Uppercase flag 0014 ( scf.d):00055 IT.BSO RMB 1 Backspace behavior 0015 ( scf.d):00056 IT.DLO RMB 1 Delete behavior 0016 ( scf.d):00057 IT.EKO RMB 1 Echo flag 0017 ( scf.d):00058 IT.ALF RMB 1 Auto linefeed flag 0018 ( scf.d):00059 IT.NUL RMB 1 End-of-line null count 0019 ( scf.d):00060 IT.PAU RMB 1 Page pause flag 001A ( scf.d):00061 IT.PAG RMB 1 Number of lines per page 001B ( scf.d):00062 IT.BSP RMB 1 Backspace character 001C ( scf.d):00063 IT.DEL RMB 1 Delete-line character 001D ( scf.d):00064 IT.EOR RMB 1 End-of-record character 001E ( scf.d):00065 IT.EOF RMB 1 End-of-file character 001F ( scf.d):00066 IT.RPR RMB 1 Reprint-line character 0020 ( scf.d):00067 IT.DUP RMB 1 Duplicate-last-line character 0021 ( scf.d):00068 IT.PSC RMB 1 Pause character 0022 ( scf.d):00069 IT.INT RMB 1 Interrupt character 0023 ( scf.d):00070 IT.QUT RMB 1 Quit character 0024 ( scf.d):00071 IT.BSE RMB 1 Backspace echo character 0025 ( scf.d):00072 IT.OVF RMB 1 Bell character 0026 ( scf.d):00073 IT.PAR RMB 1 Parity 0027 ( scf.d):00074 IT.BAU RMB 1 Baud rate 0028 ( scf.d):00075 IT.D2P RMB 2 Attached device name string offset 002A ( scf.d):00076 IT.XON RMB 1 X-ON character 002B ( scf.d):00077 IT.XOFF RMB 1 X-OFF character 002C ( scf.d):00078 IT.COL RMB 1 Number of columns for display 002D ( scf.d):00079 IT.ROW RMB 1 Number of rows for display 002E ( scf.d):00080 IT.XTYP RMB 1 Extended type (added by BRI) ( scf.d):00081 ( scf.d):00082 IFGT Level-1 ( scf.d):00083 * Window Descriptor Additions ( scf.d):00084 * For CoCo window, where IT.PAR = $80 ( scf.d):00085 ORG IT.ROW+1 002F ( scf.d):00086 IT.WND RMB 1 Window number (matches device name) ($2E) 002F ( scf.d):00087 IT.VAL RMB 1 Use defaults on Init (0=no, 1=yes) 002F ( scf.d):00088 IT.STY RMB 1 Screen type default 002F ( scf.d):00089 IT.CPX RMB 1 Column start default 002F ( scf.d):00090 IT.CPY RMB 1 Row start default 002F ( scf.d):00091 IT.FGC RMB 1 Foreground color default 002F ( scf.d):00092 IT.BGC RMB 1 Background color default 002F ( scf.d):00093 IT.BDC RMB 1 Border color default ( scf.d):00094 ENDC ( scf.d):00095 ( scf.d):00096 ( scf.d):00097 PAG ( scf.d):00098 ******************** ( scf.d):00099 * SCF Static Storage ( scf.d):00100 * ( scf.d):00101 * SCF devices must reserve this space for SCF ( scf.d):00102 * ( scf.d):00103 ORG V.USER 0006 ( scf.d):00104 V.TYPE RMB 1 Device type or parity 0007 ( scf.d):00105 V.LINE RMB 1 Lines left until end of page 0008 ( scf.d):00106 V.PAUS RMB 1 Immediate Pause request 0009 ( scf.d):00107 V.DEV2 RMB 2 Attached device's static 000B ( scf.d):00108 V.INTR RMB 1 Interrupt char 000C ( scf.d):00109 V.QUIT RMB 1 Quit char 000D ( scf.d):00110 V.PCHR RMB 1 Pause char 000E ( scf.d):00111 V.ERR RMB 1 Accumulated errors 000F ( scf.d):00112 V.XON RMB 1 X-On char 0010 ( scf.d):00113 V.XOFF RMB 1 X-Off char 0011 ( scf.d):00114 V.KANJI RMB 1 Kanji mode flag 0012 ( scf.d):00115 V.KBUF RMB 2 Kana - Kanji convert routine work address 0014 ( scf.d):00116 V.MODADR RMB 2 Kana - Kanji convert module address 0016 ( scf.d):00117 V.PDLHd RMB 2 Open path descriptor list head pointer 0018 ( scf.d):00118 V.RSV RMB 5 Reserve bytes for future expansion 001D ( scf.d):00119 V.SCF EQU . Total SCF manager static overhead ( scf.d):00120 ( scf.d):00121 ( scf.d):00122 PAG ( scf.d):00123 *********************** ( scf.d):00124 * Character Definitions ( scf.d):00125 * 0000 ( scf.d):00126 C$NULL SET 0 Null char 0001 ( scf.d):00127 C$RPET SET $01 (CTRL-A - SOH) Repeat last input line 0003 ( scf.d):00128 C$INTR SET $03 (CTRL-C - ETX) Keyboard interrupt 0004 ( scf.d):00129 C$RPRT SET $04 (CTRL-D - EOT) Reprint current input line 0005 ( scf.d):00130 C$QUIT SET $05 (CTRL-E - ENQ) Keyboard Abort 0007 ( scf.d):00131 C$BELL SET $07 (CTRL-G - BEL) Line overflow warning 0008 ( scf.d):00132 C$BSP SET $08 (CTRL-H - BS ) Back space 0009 ( scf.d):00133 C$RARR SET $09 Right Arrow 0005 ( scf.d):00134 C$EL SET $05 Erase Line 000A ( scf.d):00135 C$LF SET $0A Line feed 000B ( scf.d):00136 C$HOME SET $0B Home position Code 0015 ( scf.d):00137 C$Clsgr SET $15 Graphic screen clear (use FM-11) 0016 ( scf.d):00138 C$Clsall SET $16 Graphic & character clear (use FM-11) 000D ( scf.d):00139 C$CR SET $0D Carriage return 000C ( scf.d):00140 C$FORM SET $0C (CTRL-L - FF ) Form Feed ... screen clear 000F ( scf.d):00141 C$SI SET $0F Shift IN Code 000E ( scf.d):00142 C$SO SET $0E Shift OUT Code 0010 ( scf.d):00143 C$DELETE SET $10 Delete char (for SCF enhanced line editing) 0011 ( scf.d):00144 C$XON SET $11 (CTRL-Q - DC1) Transmit Enable 0011 ( scf.d):00145 C$INSERT SET C$XON Insert char (for SCF enhanced line editing) 0013 ( scf.d):00146 C$XOFF SET $13 (CTRL-S - DC3) Transmit Disable 0013 ( scf.d):00147 C$PLINE SET C$XOFF Print remaining line (for SCF enhanced line editing) 0017 ( scf.d):00148 C$PAUS SET $17 (CTRL-W - ETB) Pause character 0018 ( scf.d):00149 C$DEL SET $18 (CTRL-X - CAN) Delete line 0019 ( scf.d):00150 C$SHRARR SET $19 Shift Right-Arrow 001B ( scf.d):00151 C$EOF SET $1B (CTRL-[ - ESC) END of file 001C ( scf.d):00152 C$RGT SET $1C Cursor right 001D ( scf.d):00153 C$LFT SET $1D Cursor left 001E ( scf.d):00154 C$UP SET $1E Cursor up 001F ( scf.d):00155 C$DWN SET $1F Cursor down 0020 ( scf.d):00156 C$SPAC SET $20 Space 002E ( scf.d):00157 C$PERD SET '. 002C ( scf.d):00158 C$COMA SET ', ( scf.d):00159 ( scf.d):00160 ( scf.d):00161 PAG ( scf.d):00162 ********************************************* ( scf.d):00163 * Sequential Character Path Descriptor Format ( scf.d):00164 * ( scf.d):00165 * A path descriptor is created for every new path that is open ( scf.d):00166 * via the I$Open system call (processed by IOMan). Process ( scf.d):00167 * descriptors track state information of a path. ( scf.d):00168 * ( scf.d):00169 ORG PD.FST 000A ( scf.d):00170 PD.DV2 RMB 2 Output device table pointer 000C ( scf.d):00171 PD.RAW RMB 1 Read/Write or ReadLn/WritLn mode 000D ( scf.d):00172 PD.MAX RMB 2 ReadLn high byte count 000F ( scf.d):00173 PD.MIN RMB 1 Devices are "mine" if clear 0010 ( scf.d):00174 PD.STS RMB 2 Status routine module addr 0012 ( scf.d):00175 PD.STM RMB 2 Reserved for status routine ( scf.d):00176 ORG PD.OPT 0020 ( scf.d):00177 RMB 1 Device type 0021 ( scf.d):00178 PD.UPC RMB 1 Case (0=both, 1=upper only) 0022 ( scf.d):00179 PD.BSO RMB 1 Backspace (0=BSE, 1=BSE,SP,BSE) 0023 ( scf.d):00180 PD.DLO RMB 1 Delete (0=BSE over line, 1=CRLF) 0024 ( scf.d):00181 PD.EKO RMB 1 Echo (0=No Echo) 0025 ( scf.d):00182 PD.ALF RMB 1 Auto linefeed (0=No auto LF) 0026 ( scf.d):00183 PD.NUL RMB 1 End of Line null count 0027 ( scf.d):00184 PD.PAU RMB 1 Page pause (0=No end of page pause) 0028 ( scf.d):00185 PD.PAG RMB 1 Lines per page 0029 ( scf.d):00186 PD.BSP RMB 1 Backspace character 002A ( scf.d):00187 PD.DEL RMB 1 Delete Line character 002B ( scf.d):00188 PD.EOR RMB 1 End of Record character (read only) 002C ( scf.d):00189 PD.EOF RMB 1 End of File character 002D ( scf.d):00190 PD.RPR RMB 1 Repront Line character 002E ( scf.d):00191 PD.DUP RMB 1 Dup Last Line character 002F ( scf.d):00192 PD.PSC RMB 1 Pause character 0030 ( scf.d):00193 PD.INT RMB 1 Keyboard interrupt character (CTRL-C) 0031 ( scf.d):00194 PD.QUT RMB 1 Keyboard quit character (CTRL-E) 0032 ( scf.d):00195 PD.BSE RMB 1 Backspace echo character 0033 ( scf.d):00196 PD.OVF RMB 1 Line overflow character (BELL) 0034 ( scf.d):00197 PD.PAR RMB 1 Parity code 0035 ( scf.d):00198 PD.BAU RMB 1 ACIA baud rate (Color Computer) 0036 ( scf.d):00199 PD.D2P RMB 2 Offset of DEV2 name 0038 ( scf.d):00200 PD.XON RMB 1 ACIA X-ON character 0039 ( scf.d):00201 PD.XOFF RMB 1 ACIA X-OFF character 001A ( scf.d):00202 OPTCNT EQU .-PD.OPT Total user settable options 003A ( scf.d):00203 PD.ERR RMB 1 Most recent I/O error status 003B ( scf.d):00204 PD.TBL RMB 2 Device table addr (copy) 003D ( scf.d):00205 PD.PLP RMB 2 Path Descriptor List Pointer 003F ( scf.d):00206 PD.PST RMB 1 Current path status ( scf.d):00207 ( scf.d):00208 ( scf.d):00209 * PD.PST values Path Descriptor Status byte ( scf.d):00210 * 0001 ( scf.d):00211 PST.DCD EQU %00000001 Set if DCD is lost on Serial port ( scf.d):00212 ( scf.d):00213 ( scf.d):00214 * PD.PAR definitions ( scf.d):00215 * ( scf.d):00216 * Parity 0000 ( scf.d):00217 PARNONE EQU %00000000 0020 ( scf.d):00218 PARODD EQU %00100000 0060 ( scf.d):00219 PAREVEN EQU %01100000 00A0 ( scf.d):00220 PARMARK EQU %10100000 00E0 ( scf.d):00221 PARSPACE EQU %11100000 00E0 ( scf.d):00222 PARMASK EQU %11100000 ( scf.d):00223 ( scf.d):00224 * PD.BAU definitions ( scf.d):00225 * ( scf.d):00226 * Baud rate 0000 ( scf.d):00227 B110 EQU %00000000 0001 ( scf.d):00228 B300 EQU %00000001 0002 ( scf.d):00229 B600 EQU %00000010 0003 ( scf.d):00230 B1200 EQU %00000011 0004 ( scf.d):00231 B2400 EQU %00000100 0005 ( scf.d):00232 B4800 EQU %00000101 0006 ( scf.d):00233 B9600 EQU %00000110 0007 ( scf.d):00234 B19200 EQU %00000111 0008 ( scf.d):00235 B38400 EQU %00001000 0009 ( scf.d):00236 B57600 EQU %00001001 000A ( scf.d):00237 B115200 EQU %00001010 ( scf.d):00238 * Word size 0000 ( scf.d):00239 WORD8 EQU %00000000 0020 ( scf.d):00240 WORD7 EQU %00100000 ( scf.d):00241 * Stop bits 0000 ( scf.d):00242 STOP1 EQU %00000000 0010 ( scf.d):00243 STOP2 EQU %00010000 ( scf.d):00244 ( scf.d):00245 ENDC (ommands/shell.asm):00037 0011 (ommands/shell.asm):00038 tylg set Prgrm+Objct 0080 (ommands/shell.asm):00039 atrv set ReEnt+rev 0000 (ommands/shell.asm):00040 rev set $00 0016 (ommands/shell.asm):00041 edition set 22 (ommands/shell.asm):00042 0000 87CD060F000D1180 (ommands/shell.asm):00043 mod eom,name,tylg,atrv,start,size 20002B0300 (ommands/shell.asm):00044 0001 (ommands/shell.asm):00045 Yes set 1 0000 (ommands/shell.asm):00046 NO set 0 0001 (ommands/shell.asm):00047 PIPES set YES (ommands/shell.asm):00048 00C8 (ommands/shell.asm):00049 BUFSIZ set 200 Input line buffer size 0023 (ommands/shell.asm):00050 C$MEM set '# set memory size char 002A (ommands/shell.asm):00051 C$COMT set '* Comment parameter 000A (ommands/shell.asm):00052 C$LF set $0A 0020 (ommands/shell.asm):00053 C$SPAC set $20 002C (ommands/shell.asm):00054 C$COMA set ', 002D (ommands/shell.asm):00055 C$DEAD set '- 0028 (ommands/shell.asm):00056 C$LPAR set '( Shell recursion start 0029 (ommands/shell.asm):00057 C$RPAR set ') ..end recursion 000D (ommands/shell.asm):00058 C$CR set $0D Carriage return 0021 (ommands/shell.asm):00059 C$PIPE set '! pipeline separator 0026 (ommands/shell.asm):00060 C$CURR set '& Concurrent execution separator 003B (ommands/shell.asm):00061 C$SEQ set '; Sequential execution separator 003C (ommands/shell.asm):00062 C$RINP set '< Redirect input char 003E (ommands/shell.asm):00063 C$ROUT equ '> Redirect output request (ommands/shell.asm):00064 (ommands/shell.asm):00065 *********** Static Storage Offsets* (ommands/shell.asm):00066 org 0 0000. (ommands/shell.asm):00067 rmb 1 Std input temp for redirection 0001. (ommands/shell.asm):00068 rmb 2 Std output temp for redirection 0003. (ommands/shell.asm):00069 memsiz rmb 1 Std error temp for redirection 0004. (ommands/shell.asm):00070 modnam rmb 2 0006. (ommands/shell.asm):00071 prmsiz rmb 2 0008. (ommands/shell.asm):00072 prmptr rmb 2 000A. (ommands/shell.asm):00073 modstk rmb 2 000C. (ommands/shell.asm):00074 useful rmb 1 000D. (ommands/shell.asm):00075 prncnt rmb 1 000E. (ommands/shell.asm):00076 kbdsignl rmb 1 000F (ommands/shell.asm):00077 OPTS equ . Above bytes are cleared each SHLINE 000F. (ommands/shell.asm):00078 immort rmb 1 immortal flag 0010. (ommands/shell.asm):00079 u0010 rmb 1 0011. (ommands/shell.asm):00080 maxpth rmb 1 0012. (ommands/shell.asm):00081 print rmb 1 0013. (ommands/shell.asm):00082 INPTEE rmb 1 0014. (ommands/shell.asm):00083 errxit rmb 1 0015. (ommands/shell.asm):00084 temp rmb 1 0016. (ommands/shell.asm):00085 devnam rmb 72 005E. (ommands/shell.asm):00086 modbuf rmb 18 0070. (ommands/shell.asm):00087 shlbuf rmb 400 0200. (ommands/shell.asm):00088 stack rmb 256 0300 (ommands/shell.asm):00089 size equ . (ommands/shell.asm):00090 000D (ommands/shell.asm):00091 name equ * 000D 7368656CEC (ommands/shell.asm):00092 shlnam fcs /shell/ 0012 16 (ommands/shell.asm):00093 fcb edition (ommands/shell.asm):00094 0013 (ommands/shell.asm):00095 lantbl (ommands/shell.asm):00096 * fcb Prgrm+PCode (ommands/shell.asm):00097 * fcs "PascalS" (ommands/shell.asm):00098 * fcb Sbrtn+CblCode (ommands/shell.asm):00099 * fcs "RunC" (ommands/shell.asm):00100 * fcb Sbrtn+ICode (ommands/shell.asm):00101 * fcs "RunB" 0013 00 (ommands/shell.asm):00102 fcb $00 signals end of table 0014 00 (ommands/shell.asm):00103 fcb $00 room for expansion 0015 00 (ommands/shell.asm):00104 fcb $00 0016 00 (ommands/shell.asm):00105 fcb $00 0017 00 (ommands/shell.asm):00106 fcb $00 0018 00 (ommands/shell.asm):00107 fcb $00 0019 00 (ommands/shell.asm):00108 fcb $00 001A 00 (ommands/shell.asm):00109 fcb $00 001B 00 (ommands/shell.asm):00110 fcb $00 (ommands/shell.asm):00111 001C 0A (ommands/shell.asm):00112 Intro fcb C$LF 001D 5368656C6C (ommands/shell.asm):00113 fcc "Shell" 0022 0D (ommands/shell.asm):00114 fcb C$CR (ommands/shell.asm):00115 0023 0A (ommands/shell.asm):00116 DefPrmpt fcb C$LF 0024 544F533A (ommands/shell.asm):00117 SHLPrmpt fcc "TOS:" 0004 (ommands/shell.asm):00118 SHLPrmL equ *-SHLPrmpt 0005 (ommands/shell.asm):00119 DefPrmL equ *-DefPrmpt (ommands/shell.asm):00120 (ommands/shell.asm):00121 ttl Main Routines (ommands/shell.asm):00122 pag (ommands/shell.asm):00123 ********** (ommands/shell.asm):00124 * Intercept routine 0028 D70E (ommands/shell.asm):00125 IcptRtn stb SHLPrmpt,pcr print new prompt 008C 108E0004 (ommands/shell.asm):00174 ldy #SHLPrmL 0090 20CC (ommands/shell.asm):00175 bra shel25 ..repeat (ommands/shell.asm):00176 0092 0D13 (ommands/shell.asm):00177 shel45 tst >>" 013A 0279 (ommands/shell.asm):00274 fdb IERedir-* 013C 3C3EBE (ommands/shell.asm):00275 fcs "<>>" 013F 0267 (ommands/shell.asm):00276 fdb IORedir-* 0141 3CBE (ommands/shell.asm):00277 fcs "<>" 0143 027D (ommands/shell.asm):00278 fdb OERedir-* 0145 3E3EBE (ommands/shell.asm):00279 fcs ">>>" 0148 01FB (ommands/shell.asm):00280 fdb ErrRedir-* 014A 3EBE (ommands/shell.asm):00281 fcs ">>" 014C 01F2 (ommands/shell.asm):00282 fdb InRedir-* 014E BC (ommands/shell.asm):00283 fcs "<" 014F 01FB (ommands/shell.asm):00284 fdb OutRedir-* 0151 BE (ommands/shell.asm):00285 fcs ">" 0152 02AB (ommands/shell.asm):00286 fdb StkSize-* 0154 A3 (ommands/shell.asm):00287 fcs "#" 0155 0000 (ommands/shell.asm):00288 fdb $0000 (ommands/shell.asm):00289 (ommands/shell.asm):00290 * Lists Are Terminated By Negative Byte (ommands/shell.asm):00291 * 0157 0D (ommands/shell.asm):00292 prnlst fcb C$CR 0158 2829 (ommands/shell.asm):00293 fcc "()" 015A FF (ommands/shell.asm):00294 fcb $ff 015B 0D (ommands/shell.asm):00295 trmlst fcb $0d 015C 2123263B3C3E (ommands/shell.asm):00296 fcc "!#&;<>" 0162 FF (ommands/shell.asm):00297 fcb $ff (ommands/shell.asm):00298 * (ommands/shell.asm):00299 * trmlst Must be in Ascending Sequence (ommands/shell.asm):00300 0163 6FC5 (ommands/shell.asm):00301 clrmem clr b,u 0165 5A (ommands/shell.asm):00302 decb 0166 2AFB (ommands/shell.asm):00303 bpl clrmem 0168 39 (ommands/shell.asm):00304 rts (ommands/shell.asm):00305 (ommands/shell.asm):00306 ttl Line Processing routines (ommands/shell.asm):00307 pag (ommands/shell.asm):00308 ********** (ommands/shell.asm):00309 * shline (ommands/shell.asm):00310 * process one Shell command line (ommands/shell.asm):00311 * (Will Never return if Chain is Requested) (ommands/shell.asm):00312 * (ommands/shell.asm):00313 * Passed: (X)=Shell command; Cr Terminated (ommands/shell.asm):00314 * (U)=Static Storage ptr (ommands/shell.asm):00315 * Destroys: D,X,Y (ommands/shell.asm):00316 * Error: CC=Set (ommands/shell.asm):00317 * 0169 C60E (ommands/shell.asm):00318 shline ldb #OPTS-1 016B 8DF6 (ommands/shell.asm):00319 bsr clrmem clear option defaults 016D 0F03 (ommands/shell.asm):00320 shli10 clr ParamTable,pcr shell parameter table 0175 170085 (ommands/shell.asm):00323 lbsr shfunc ..process shell parameters 0178 2552 (ommands/shell.asm):00324 bcs shli90 ..error; return it 017A 810D (ommands/shell.asm):00325 cmpa #C$CR end of line? 017C 274E (ommands/shell.asm):00326 beq shli90 ..yes; return 017E 970C (ommands/shell.asm):00327 sta shlnam,pcr get name of self 0188 109F04 (ommands/shell.asm):00331 sty TermTable,pcr post-param function tbl 01BD 8D3E (ommands/shell.asm):00356 bsr shfunc process command 01BF 250B (ommands/shell.asm):00357 bcs shli90 ..error; exit 01C1 109E04 (ommands/shell.asm):00358 ldy PreTable,pcr pre-param function tbl 01DD 8D1E (ommands/shell.asm):00381 bsr shfunc process pre-param options 01DF 9F08 (ommands/shell.asm):00382 stx trmlst,pcr 023F A180 (ommands/shell.asm):00466 skps10 cmpa ,x+ ..accepted terminator? 0241 22FC (ommands/shell.asm):00467 bhi skps10 ..not this one 0243 3590 (ommands/shell.asm):00468 puls pc,x ..return carry set if not (ommands/shell.asm):00469 0245 3262 (ommands/shell.asm):00470 skps20 leas $02,s throw away saved command ptr 0247 8620 (ommands/shell.asm):00471 lda #C$SPAC 0249 A180 (ommands/shell.asm):00472 skps30 cmpa ,x+ skip spaces 024B 27FC (ommands/shell.asm):00473 beq skps30 024D 301F (ommands/shell.asm):00474 leax -$01,x (note: comma returns space) 024F 1CFE (ommands/shell.asm):00475 clrrts andcc #^Carry return carry clear 0251 39 (ommands/shell.asm):00476 rts (ommands/shell.asm):00477 (ommands/shell.asm):00478 ********** (ommands/shell.asm):00479 * shsrch (ommands/shell.asm):00480 * Search for Shell "Keyword" (ommands/shell.asm):00481 * (ommands/shell.asm):00482 * Passed: (X)=command line ptr (ommands/shell.asm):00483 * (Y)=Function Tbl (ommands/shell.asm):00484 * Returns: (X)=updated, if found (ommands/shell.asm):00485 * (Y)=Ptr to Entry found (ommands/shell.asm):00486 * Destroys: D (ommands/shell.asm):00487 * Error: CC=set if not found (ommands/shell.asm):00488 * 0252 3430 (ommands/shell.asm):00489 shsrch pshs y,x save regs 0254 3122 (ommands/shell.asm):00490 leay $02,y 0256 AEE4 (ommands/shell.asm):00491 shsr10 ldx ,s reset command line ptr 0258 A680 (ommands/shell.asm):00492 shsr20 lda ,x+ 025A 8161 (ommands/shell.asm):00493 cmpa #'a lower case? 025C 2502 (ommands/shell.asm):00494 bcs shsr30 ..no; continue 025E 8020 (ommands/shell.asm):00495 suba #'a-'A convert to upper case 0260 A8A0 (ommands/shell.asm):00496 shsr30 eora ,y+ 0262 48 (ommands/shell.asm):00497 lsla MATCH? 0263 260F (ommands/shell.asm):00498 bne shsr40 ..no; skip to next tbl entry 0265 24F1 (ommands/shell.asm):00499 bcc shsr20 repeat until end of tbl string 0267 A63F (ommands/shell.asm):00500 lda -$01,y get last tbl char 0269 81C1 (ommands/shell.asm):00501 cmpa #'A+$80 symbol (not letter)? 026B 2504 (ommands/shell.asm):00502 bcs shsr35 ..yes; don't require separator 026D 8DC0 (ommands/shell.asm):00503 bsr skpsep must be followed by separator 026F 2503 (ommands/shell.asm):00504 bcs shsr40 ..not; no match 0271 4F (ommands/shell.asm):00505 shsr35 clra CLEAR Carry 0272 35A6 (ommands/shell.asm):00506 puls pc,y,b,a return; found (ommands/shell.asm):00507 0274 313F (ommands/shell.asm):00508 shsr40 leay -$01,y 0276 A6A0 (ommands/shell.asm):00509 shsr45 lda ,y+ 0278 2AFC (ommands/shell.asm):00510 bpl shsr45 skip to end of tbl entry 027A 10AF62 (ommands/shell.asm):00511 sty $02,s ipdate current table position 027D ECA1 (ommands/shell.asm):00512 ldd ,y++ end of table? 027F 26D5 (ommands/shell.asm):00513 bne shsr10 ..no; check next entry 0281 53 (ommands/shell.asm):00514 comb 0282 35B0 (ommands/shell.asm):00515 puls pc,y,x return not found (ommands/shell.asm):00516 (ommands/shell.asm):00517 ttl Parameters (ommands/shell.asm):00518 pag (ommands/shell.asm):00519 ********** (ommands/shell.asm):00520 * Ex (ommands/shell.asm):00521 * Chain to a process (ommands/shell.asm):00522 * 0284 17FF48 (ommands/shell.asm):00523 Ex lbsr shopts process pre-param options 0287 4F (ommands/shell.asm):00524 clra 0288 8D1C (ommands/shell.asm):00525 bsr clspth close std input if redirected 028A 8D19 (ommands/shell.asm):00526 bsr clsp00 close std out if redirected 028C 8D17 (ommands/shell.asm):00527 bsr clsp00 close std error if redirected 028E 8D3C (ommands/shell.asm):00528 bsr Comment skip to end of line 0290 3001 (ommands/shell.asm):00529 leax $01,x 0292 1F10 (ommands/shell.asm):00530 tfr x,d 0294 9308 (ommands/shell.asm):00531 subd > 03B3 860D (ommands/shell.asm):00761 IERedir lda #C$CR 03B5 A71D (ommands/shell.asm):00762 sta -$03,x back up over <>> 03B7 8DDF (ommands/shell.asm):00763 bsr L03AA 03B9 25EA (ommands/shell.asm):00764 bcs L03B7 03BB CC0280 (ommands/shell.asm):00765 ldd #$0280 03BE 2090 (ommands/shell.asm):00766 bra shrdr0 (ommands/shell.asm):00767 (ommands/shell.asm):00768 * >>> 03C0 860D (ommands/shell.asm):00769 OERedir lda #C$CR 03C2 A71D (ommands/shell.asm):00770 sta -$03,x back up over >>> 03C4 8601 (ommands/shell.asm):00771 lda #$01 03C6 8DD1 (ommands/shell.asm):00772 bsr L03AB 03C8 25DB (ommands/shell.asm):00773 bcs L03B7 (ommands/shell.asm):00774 03CA CC0281 (ommands/shell.asm):00775 L03DC ldd #$0281 stderr in A, ?? in B 03CD 2081 (ommands/shell.asm):00776 bra shrdr0 (ommands/shell.asm):00777 (ommands/shell.asm):00778 * Handle /0 and /2 special names 03CF 3416 (ommands/shell.asm):00779 spcnam pshs x,b,a save regs 03D1 EC81 (ommands/shell.asm):00780 ldd ,x++ get next two chars 03D3 10832F30 (ommands/shell.asm):00781 cmpd #'/*256+'0 /0? 03D7 2522 (ommands/shell.asm):00782 bcs spcex ..no 03D9 10832F32 (ommands/shell.asm):00783 cmpd #'/*256+'2 /2? 03DD 221C (ommands/shell.asm):00784 bhi spcex ..no 03DF 3416 (ommands/shell.asm):00785 pshs x,b,a save regs 03E1 17FE4B (ommands/shell.asm):00786 lbsr skpsep skip separator 03E4 3516 (ommands/shell.asm):00787 puls x,b,a restore regs 03E6 2513 (ommands/shell.asm):00788 bcs spcex branch if error 03E8 C403 (ommands/shell.asm):00789 andb #$03 mask out all but lower 2 bits 03EA E161 (ommands/shell.asm):00790 cmpb $01,s 03EC 2604 (ommands/shell.asm):00791 bne L0404 03EE E661 (ommands/shell.asm):00792 ldb $01,s 03F0 E6C5 (ommands/shell.asm):00793 ldb b,u 03F2 CA80 (ommands/shell.asm):00794 L0404 orb #$80 03F4 E7E4 (ommands/shell.asm):00795 stb ,s store in A on stack 03F6 3506 (ommands/shell.asm):00796 puls b,a 03F8 3262 (ommands/shell.asm):00797 leas $02,s eat X on stack 03FA 39 (ommands/shell.asm):00798 rts 03FB 3596 (ommands/shell.asm):00799 spcex puls pc,x,b,a (ommands/shell.asm):00800 (ommands/shell.asm):00801 ********** (ommands/shell.asm):00802 * StkSize (ommands/shell.asm):00803 * Change Default Memory Requirement (ommands/shell.asm):00804 * (ommands/shell.asm):00805 * Passed: (X)=Comand line ptr (ommands/shell.asm):00806 * Returns: (X)=updated (ommands/shell.asm):00807 * Error: CC=Set (ommands/shell.asm):00808 * 03FD C60D (ommands/shell.asm):00809 StkSize ldb #C$CR 03FF E71F (ommands/shell.asm):00810 stb -$01,x 0401 D603 (ommands/shell.asm):00811 ldb lantbl,pcr 04E0 6D84 (ommands/shell.asm):00946 shfork07 tst ,x end of table? (ommands/shell.asm):00947 ifgt Level-1 (ommands/shell.asm):00948 beq shfork90 ..yes; non-executable module (ommands/shell.asm):00949 else 04E2 1027008C (ommands/shell.asm):00950 lbeq shfork90 ..yes; non-executable module (ommands/shell.asm):00951 endc 04E6 A180 (ommands/shell.asm):00952 cmpa ,x+ search table for language type 04E8 2706 (ommands/shell.asm):00953 beq shfork10 ..found 04EA 6D80 (ommands/shell.asm):00954 shfork08 tst ,x+ skip language name 04EC 2AFC (ommands/shell.asm):00955 bpl shfork08 04EE 20F0 (ommands/shell.asm):00956 bra shfork07 (ommands/shell.asm):00957 04F0 DC08 (ommands/shell.asm):00958 shfork10 ldd shlnam,pcr process "BATCH" FILE (ommands/shell.asm):00982 0523 9F04 (ommands/shell.asm):00983 shfork25 stx process number (dec) to kill (ommands/shell.asm):01104 * Returns: (X)=updated (ommands/shell.asm):01105 * CC=set if Error (ommands/shell.asm):01106 * 05D1 8D0C (ommands/shell.asm):01107 Kill bsr ASC2Int get number 05D3 C102 (ommands/shell.asm):01108 cmpb #$02 trying to kill process #1 (sysgo)? 05D5 2323 (ommands/shell.asm):01109 bls L05E7 ..yes; syntax error 05D7 1F98 (ommands/shell.asm):01110 tfr b,a process number to kill 05D9 C600 (ommands/shell.asm):01111 ldb #S$Kill kill code 05DB 103F08 (ommands/shell.asm):01112 os9 F$Send 05DE 39 (ommands/shell.asm):01113 shki90 rts (ommands/shell.asm):01114 (ommands/shell.asm):01115 ********** (ommands/shell.asm):01116 * ASC2Int (ommands/shell.asm):01117 * Convert Ascii Number (0-255) to Binary (ommands/shell.asm):01118 * (ommands/shell.asm):01119 * Passed: (X)=Ascii String ptr (ommands/shell.asm):01120 * Returns: (A)=next char After Number (ommands/shell.asm):01121 * (B)=Number (ommands/shell.asm):01122 * (X)=updated Past Number (ommands/shell.asm):01123 * CC=set if Error (ommands/shell.asm):01124 * 05DF 5F (ommands/shell.asm):01125 ASC2Int clrb 05E0 A680 (ommands/shell.asm):01126 shgn10 lda ,x+ 05E2 8030 (ommands/shell.asm):01127 suba #'0 convert ascii to binary 05E4 8109 (ommands/shell.asm):01128 cmpa #9 valid decimal digit? 05E6 2209 (ommands/shell.asm):01129 bhi shgn20 ..no; end of number 05E8 3402 (ommands/shell.asm):01130 pshs a save digit 05EA 860A (ommands/shell.asm):01131 lda #10 05EC 3D (ommands/shell.asm):01132 mul MULTIPLY Partial result times 10 05ED EBE0 (ommands/shell.asm):01133 addb ,s+ add in next digit 05EF 24EF (ommands/shell.asm):01134 bcc shgn10 get next digit if no overflow 05F1 A682 (ommands/shell.asm):01135 shgn20 lda ,-x 05F3 2503 (ommands/shell.asm):01136 bcs shgn90 ..no; syntax error 05F5 5D (ommands/shell.asm):01137 tstb non-zero? 05F6 26E6 (ommands/shell.asm):01138 bne shki90 ..good; return 05F8 3262 (ommands/shell.asm):01139 shgn90 leas $02,s discard return addr 05FA 16FD17 (ommands/shell.asm):01140 L05E7 lbra shlstx syntax error (ommands/shell.asm):01141 05FD 8DE0 (ommands/shell.asm):01142 SetPr bsr ASC2Int get process number 05FF D715 (ommands/shell.asm):01143 stb