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

More documents

Recommendations

Info

LD A,L ;P/u hex or dec entry BIT 6,B ;Error if switch entry JP NZ,PRMERR NSTUF LD (NULL1+1),A ;Stuff it in there LD (NULL2+1),A ;*=*=* ; 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 ;*=*=* ; Relocate internal references in driver ;*=*=* LD IY,RELTAB ;Point to relocation tbl LD DE,MODEND XOR A ;Clear carry flag SBC HL,DE LD B,H ;Move to BC LD C,L RLOOP LD L,(IY) ;Get address to change LD H,(IY+1) LD A,H OR L JR Z,RXEND LD E,(HL) ;P/U address INC HL LD D,(HL) EX DE,HL ;Offset it ADD HL,BC EX DE,HL LD (HL),D ;And put back DEC HL LD (HL),E INC IY INC IY JR RLOOP ;Loop till done ;*=*=* ; Move driver ;*=*=* RXEND LD DE,(OLDHI) ;Destination address LD HL,MODEND ;Last byte of module LD BC,LENGTH ;length of filter LDDR 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.6 ;Stuff TYPE byte LD (IX+1),L LD (IX+2),H ;install addr into dcb LD HL,0 ;Successful... RET ;*=*=* ; Error message handling ;*=*=* VIASET LD HL,VIASET$ ;'Must install... DB 0DDH NOMEM LD HL,NOMEM$ ;'No memory' DB 0DDH PRMERR LD HL,PRMERR$ ;'Parameter error' LD A,@LOGOT RST 40 LD HL,-1 RET ;*=*=* ; Data area ;*=*=* HELLO$ DB 'DMP-500 BOLDFACE Filter Version 6.0a - ' DB 'Copyright 1983 by Roy Soltoff',LF,CR PRMERR$ DB 'Parameter error!',CR 8-41
NOMEM$ DB 'High memory is not available!',CR VIASET$ DB 'Must install via SET',CR ;*=*=* ; Parameter table ;*=*=* PRMTBL$ DB 80H!'R' ; DB 0F6H,'TOGGLE' ;Toggle on/off char TRESP DB 0 DW TOGGLE+1 ; DB 0F4H,'NULL' ;Toggle on/off w/o space NRESP DB 0 DW NULL+1 ; NOP ;End of table ;*=*=* ; Entry point ;*=*=* ; BOLD JR START ;Branch around linkage OLDHI DW $-$ ;Last byte used ; DB 7,'DMPBOLD' ; MODDCB DW $-$ ;Loaded with DCB pointer DW 0 ; START JR Z,FILTER ;Go if @PUT PUTOUT 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 FILTER EQU $ SWITCH LD A,0 ;P/u switch OR A ;Is flag on? JR NZ,SWISON ;Go if switch is on LD A,C ;Is char a tilde? TILDE1 CP 7EH JR Z,TONSPA ;Go if got to turn on NULL1 CP 7FH ;Turn on w/o space? JR Z,TURNON JR PUTOUT ;Send the char ;*=*=* ; Got a flag to turn switch on/off ;*=*=* TURNON LD C,BOLDON JR TURNA TURNOFF XOR A LD C,BOLDOFF TURNA LD (SWITCH+1),A ;Turn off the switch RX02 EQU $-2 ; PUSH BC ;Save toggle control code LD C,ESCAPE CALL PUTOUT ;Put the ESCAPE RX03 EQU $-2 POP BC ;Restore and PUT JR PUTOUT ; the toggle code TOFFSPA CALL TURNOFF RX04 EQU $-2 JR PUT_SPA TONSPA CALL TURNON RX05 EQU $-2 PUT_SPA LD C,' ' ;Put space for tilde JR PUTOUT ; and stuff a space ;*=*=* ; Flag is on - what should we do? ;*=*=* 8-42
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 and 158: 8.15 SLASH0 Filter Illustrated ;SLA
Page 159: 8.16 DMP-500 BOLDFACE Filter Illust
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?