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

More documents

Recommendations

Info

EX DE,HL ;Move new HIGH$ to HL LD A,@HIGH$ ;Set new HIGH$ into the system RST 40 INC HL ;Bump to filter entry LD (IX+0),40H.OR.7 ;Stuff TYPE byte LD (IX+1),L LD (IX+2),H ;Install addr into dcb LD HL,0 ;Successful... RET ; VIASET LD HL,VIASET$ DB 0DDH NOMEM LD HL,NOMEM$ @@LOGOT LD HL,-1 RET ; HELLO$ DB LF,'SLASH0 Filter' NOMEM$ DB 'High memory is not available!',CR VIASET$ DB 'Must install via SET!',CR ; ;*=*=* ; The SLASH-0 filter ;*=*=* SLASH JR START OLDHI DW $-$ ;HIGH$ before filtering DB MODDCB-SLASH-5 DB 'SLASH0' MODDCB DW $-$ ;Loaded with DCB pointer DW 0 ; START JR NZ,OUTP1 ;Go if not PUT LD A,C CP '0' ;ASCII zero? JR Z,OUTCF ;Go if so OUTP1 PUSH IX ;Save current pointer PUSH BC ;Save in case affected downstream LD IX,(MODDCB) ;P/u this module's DCB RX01 EQU $-2 LD A,@CHNIO ;Chain to the next RST 40 POP BC POP IX RET ;*=*=* ; Do the slashing ;*=*=* OUTCF CALL OUTP1 ;Put the zero RX02 EQU $-2 LD C,08H ;Backspace CALL Z,OUTP1 RX03 EQU $-2 LD C,'/' ;Now put the slash JR Z,OUTP1 ; unless an error MODEND RET ; LENGTH EQU $-SLASH RELTAB DW RX01,RX02,RX03,0 ; END BEGIN 8-39
8.16 DMP-500 BOLDFACE Filter Illustrated ;BOLDFACE/ASM - FILTER to invoke boldfacing on DMP-500 - 03/20/83 TITLE '' ;***** ; This filter uses two trigger toggle characters to turn ; on and off the boldface mode of the DMP-500 printer. ; One character called TOGGLE (defaults to tilde) will ; toggle on/off boldface and output a space in lieu of ; the toggle character. This is useful to maintain right ; justification. The other character called NULL (defaults ; to DELETE, X'7F') toggles the boldface mode but causes ; no character to be sent in lieu of the toggle character. ; The boldface mode is automatically turned off when a ; carriage return (X'0D') is sensed. ;*=*=* COM '' ;*=*=* LF EQU 10 CR EQU 13 ESCAPE EQU 27 BOLDON EQU 31 BOLDOFF EQU 32 @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 into IX LD (MODDCB),DE ;Stuff DCB pointer PUSH HL ;Save INBUF$ pointer LD HL,HELLO$ LD A,@DSPLY RST 40 POP HL ;Rcvr INBUF$ pointer ;*=*=* ; Check if entry from SET command ;*=*=* LD A,@FLAGS$ ;Get flags pointer into IY RST 40 BIT 3,(IY+'C'-'A') ;System request? JP Z,VIASET ; LD DE,PRMTBL$ ;Grab any user parms LD A,@PARAM RST 40 JP NZ,PRMERR ;*=*=* ; Transfer requested TOGGLE e/w space to filter ;*=*=* LD A,(TRESP) ;Ck if any entry LD B,A TOGGLE LD HL,7EH ;Set default to TILDE LD A,(HL) ;P/u assumed string BIT 5,B ;String entry? JR NZ,TSTUF LD A,L ;P/u hex or dec entry BIT 6,B ;Error if switch entry JP NZ,PRMERR TSTUF LD (TILDE1+1),A ;Stuff it in there LD (TILDE2+1),A ;*=*=* ; Transfer requested toggle w/o space to filter ;*=*=* LD A,(NRESP) ;Ck if any entry LD B,A NULL LD HL,7FH ;Set default to DELETE LD A,(HL) ;P/u assumed string BIT 5,B ;String entry? JR NZ,NSTUF 8-40
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 and 154: ;*=*=* PPARM LD BC,0 ;Zero because
Page 155 and 156: 8.14 TRAP Filter Illustrated ;TRAP/
Page 157: 8.15 SLASH0 Filter Illustrated ;SLA
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 ...

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?