The Programmer's Guide to TRSDOS Version 6 - Tim Mann's Home ...

More documents

Recommendations

Info

VAL EQU 80H ;Set value bit SW EQU 40H ;Set switch bit STR EQU 20H ;Set string bit ABR EQU 10H ;Set abbreviation bit ; PRMTBL$ DB 80H ;Indicate format 2 ; DB VAL.OR.ABR.OR.6 DB 'LENGTH' ;Length parameter LRESP DB 0 DW LPARM+1 ; DB SW.OR.ABR.OR.4 DB 'FEED' ;Line feed parameter FRESP DB 0 DW FPARM+1 ; DB STR.OR.ABR.OR.5 DB 'TITLE' ;Title parameter TRESP DB 0 DW TPARM+1 ; DB SW.OR.ABR.OR.6 DB 'PROMPT' ;Prompt parameter PRESP DB 0 DW PPARM+1 ; DB VAL.OR.STR.OR.5 DB 'XLATE' ;Translate parameter XRESP DB 0 DW XPARM+1 NOP ;This is the ending zero byte When the @PARAM service function completes its parsing and interpreting of the parameter command string, the response byte corresponding to parameter entries will be altered according to any entry parsed. Thus, your program can incorporate code to test the response byte to determine the exact type of entry made in the parameter line. By comparing the response byte to the control byte, the program can ascertain the validity of the entry. It is left for the reader to adjust the decoding routines according to table format 2. 8-35
8.14 TRAP Filter Illustrated ;TRAP/ASM - Filter to trap a single character - 07/31/83 ; COM '' ;*=*=* ; This FILTER will trap a single character ; as specified by the command line entry. ; ; A single byte to trap can be passed in the ; command line as a parameter. If not entered, ; it will default to X'0E', the infamous cursor ; on character which if sent to a printer, will ; cause expanded character mode on a lot of dot ; matrix printers if CURSOR ON is sent to *PR. ; ; To filter the printer output, issue: ; SET *TP to TRAP (CHAR=dd) ; FILTER *PR using *TP ; ;*=*=* LF EQU 10 ;Line feed CR EQU 13 ;Carriage return @CHNIO EQU 20 @HIGH$ EQU 100 @DSPLY EQU 10 @FLAGS$ EQU 101 @PARAM EQU 17 @LOGOT EQU 12 ; ORG 3000H BEGIN PUSH DE POP IX ;Get DCB pointer into IX LD (MODDCB),DE ;Stuff DCB pointer PUSH HL ;Save command line ptr LD HL,HELLO$ LD A,@DSPLY ;Display hello RST 40 POP HL ;Rcvr command line ptr ;*=*=* ; Check if entry from SET command ;*=*=* LD A,@FLAGS$ ;Get flag pointer RST 40 BIT 3,(IY+'C'-'A') ;System request? JP Z,VIASET LD DE,PRMTBL$ ;Point to parameter table LD A,@PARAM ;Get parms if any RST 40 JR NZ,PRMERR CPARM LD BC,14 ;Init to X'0E' LD A,(CRESP) ;P/u the response OR A ; & see if any entry JR Z,CDEFLT ;Default if none BIT 7,A ;Value entry? JR NZ,CDEFLT ;Value is in reg C BIT 5,A ;String value? JP NZ,PRMERR ;Error if anything else LD A,(BC) ;BC contains a pointer LD C,A ;Shorter than a jump CDEFLT LD A,C ;Xfer the value to reg A LD (TRAPBYT+1),A ; & stuff in filter ;*=*=* ; install new HIGH$ and move filter code ;*=*=* LD HL,0 ;Get current HIGH$ LD B,L LD A,@HIGH$ RST 40 JR NZ,NOMEM LD (OLDHI),HL ;Put in filter header ;*=*=* ; Move module into memory ;*=*=* 8-36
Page 1 and 2:
MISOSYS, INC. The Programmer's Guid
Page 3 and 4:
1. Introduction Many thousands of u
Page 5 and 6:
language (i.e. BASIC, C, PASCAL, ..
Page 7 and 8:
NAME START END DESCRIPTION LOWCORE
Page 9 and 10:
ackup utility provides exceptional
Page 11 and 12:
3. Device Input/Output Interfacing
Page 13 and 14:
3.2.2 VECTOR Field - This field in
Page 15 and 16:
FILTER *PR USING *S0 the operating
Page 17 and 18:
===================================
Page 19 and 20:
===================================
Page 21 and 22:
ENTRY JR BEGIN ;Branch around linka
Page 23 and 24:
DATA1 EQU $-DATA$ DB 0 ;Data storag
Page 25 and 26:
Offset Contents +0 Contains the las
Page 27 and 28:
image of the serial port UART statu
Page 29 and 30:
called TRACKs. Each track is then d
Page 31 and 32:
The DCT contains the information re
Page 33 and 34:
accessed a single-sided diskette, t
Page 35 and 36:
containing the disk's directory. Th
Page 37 and 38:
Command Purpose RESTORE Recalibrate
Page 39 and 40:
available from Logical Systems, Inc
Page 41 and 42:
exceeds this capacity, then it must
Page 43 and 44:
is two physical cylinders. Although
Page 45 and 46:
5. The DOS Directory Structure 5.1
Page 47 and 48:
===================================
Page 49 and 50:
5.2.8 PACK NAME - This field conta
Page 51 and 52:
The position of a file's hash code
Page 53 and 54:
5.4 THE DIRECTORY RECORD STRUCTURE
Page 55 and 56:
Bit 3 Specifies the visibility; if
Page 57 and 58:
the first granule in use is the sec
Page 59 and 60:
travels the turnpike. In this manne
Page 61 and 62:
The @FSPEC SVC will transfer the fi
Page 63 and 64:
A high level language permits you t
Page 65 and 66:
does exist, @RENAME should return e
Page 67 and 68:
Next, it would be very useful if th
Page 69 and 70:
LD HL,FCBX+9 ;Point to the LRL fiel
Page 71 and 72:
operating system for such a purpose
Page 73 and 74:
position where the last character i
Page 75 and 76:
ecord. If a file has more than four
Page 77 and 78:
DE Contains a pointer to the File C
Page 79 and 80:
@RENAM SVC-56 Rename a file on disk
Page 81 and 82:
@FNAME SVC-80 Obtain filespec given
Page 83 and 84:
@WRSEC SVC-53 Write a disk sector @
Page 85 and 86:
7.6 SUPERVISOR CALL DETAILS 7.6.1 @
Page 87 and 88:
Note: @EXIT in SYS1 automatically r
Page 89 and 90:
7.6.10 @CLOSE SVC-60 This SVC will
Page 91 and 92:
7.6.18 @DCSTAT SVC-40 This SVC pass
Page 93 and 94:
Directory to Buffer Entry: B 1; Fun
Page 95 and 96:
7.6.31 @FLAGS$ SVC-101 This SVC wil
Page 97 and 98:
NFLAG$ This "network" flag is used
Page 99 and 100:
7.6.32 @FNAME SVC-80 This SVC will
Page 101 and 102:
7.6.40 @HEX8 SVC-98 This SVC will c
Page 103 and 104: 7.6.48 @KLTSK SVC-32 This SVC will
Page 105 and 106: 7.6.57 @OPEN SVC-59 This SVC will o
Page 107 and 108: Registers Affected: AF, BC. Entry:
Page 109 and 110: 0-14 FILENAME/EXT:D - left justifie
Page 111 and 112: 7.6.71 @REMOV SVC-57 This SVC will
Page 113 and 114: Entry: DE A pointer to the FCB cont
Page 115 and 116: Exit: A Error return code, if any.
Page 117 and 118: CURSOR CHARACTER Registers Affected
Page 119 and 120: Exit: A Will contain the error code
Page 121 and 122: esident routine into its execution
Page 123 and 124: CKPAWS LD A,@FLAGS$ ;Get Flags poin
Page 125 and 126: ===================================
Page 127 and 128: The TYPE=0A indicates that it is th
Page 129 and 130: Error 08: Device not available A re
Page 131 and 132: Error 28: End of file encountered T
Page 133 and 134: 8.5 HEADER PROTOCOL OF MEMORY MODUL
Page 135 and 136: This is obviously an extremely usel
Page 137 and 138: LD (IX+2),15 JR TASKA By firmly und
Page 139 and 140: 8.7.3 Details of Low Memory Page 2
Page 141 and 142: actual bank switching. As previousl
Page 143 and 144: set. Thus, the Z-flag will be indic
Page 145 and 146: 8.10 SYSTEM DISK BOOT TRACK The ope
Page 147 and 148: 14 DEBUG 72 PURGE 1B VERIFY 71 DUMP
Page 149 and 150: 8.13 USING @PARAM The @PARAM SuperV
Page 151 and 152: DW LPARM+1 DB 'FEED ' ;Line feed pa
Page 153: ;*=*=* PPARM LD BC,0 ;Zero because
Page 157 and 158: 8.15 SLASH0 Filter Illustrated ;SLA
Page 159 and 160: 8.16 DMP-500 BOLDFACE Filter Illust
Page 161 and 162: NOMEM$ DB 'High memory is not avail
Page 163 and 164: @ @ABORT..........7-2, 7-4, 7-8, 7-
show all

The Programmer's Guide to TRSDOS Version 6 - Tim Mann's Home ...

Create successful ePaper yourself

Delete template?

Save as template?