Mercurial > hg > Members > kono > nitros9-code
annotate level1/modules/term_hr.asm @ 2940:824019cd8744
rb1773: Make 48 TPI floppy disks readonly in 96 TPI drives
Deny the disk destroying write with the narrower heads of the 96 tpi drive
when the user has placed a 48 tpi disk in the 96 tpi drive so he can read
it. Double stepping the drive is then done automatically so as to stay in
mechanical synch with the tracks on a 48 tpi disk. But that, until now, did
not make the disk read-only, this patch does that.
Patch by Gene Heskett and Robert Gault.
| author | Robert Gault <robert.gault@att.net> |
|---|---|
| date | Sat, 25 Jan 2014 23:20:06 +0100 |
| parents | 6e40b043d3e0 |
| children |
| rev | line source |
|---|---|
| 1741 | 1 ******************************************************************** |
| 1933 | 2 * TERM - Hi-Res 51x24 Device Descriptor |
| 1741 | 3 * |
| 4 * $Id$ | |
| 5 * | |
| 6 * Edt/Rev YYYY/MM/DD Modified by | |
| 7 * Comment | |
| 8 * ------------------------------------------------------------------ | |
| 9 * ????/??/?? | |
| 10 * From Tandy OS-9 Level One VR 02.00.00 | |
| 11 * | |
| 12 * Modified from 80 col driver to suit 51 column software | |
| 13 * driver from Dragon Data OS-9, 2004-12-02 P.Harvey-Smith. | |
| 14 * | |
| 15 | |
| 16 | |
| 17 | |
| 18 nam TERM | |
| 1933 | 19 ttl Hi-Res 51x24 Device Descriptor |
| 1741 | 20 |
| 21 * Disassembled 98/08/23 17:19:25 by Disasm v1.6 (C) 1988 by RML | |
| 22 | |
| 23 ifp1 | |
| 24 use defsfile | |
|
2682
f91dc5c378f6
Remove references to include scfdefs
William Astle <lost@l-w.ca>
parents:
2624
diff
changeset
|
25 ; use scfdefs |
| 2624 | 26 use cocovtio.d |
| 1741 | 27 endc |
| 28 | |
| 29 tylg set Devic+Objct | |
| 30 atrv set ReEnt+rev | |
| 31 rev set $00 | |
| 32 | |
| 33 mod eom,name,tylg,atrv,mgrnam,drvnam | |
| 34 | |
| 35 fcb UPDAT. mode byte | |
| 36 fcb HW.Page extended controller address | |
| 37 fdb $C000 physical controller address | |
| 38 fcb initsize-*-1 initilization table size | |
| 39 fcb DT.SCF device type:0=scf,1=rbf,2=pipe,3=scf | |
| 40 fcb $00 case:0=up&lower,1=upper only | |
| 41 fcb $01 backspace:0=bsp,1=bsp then sp & bsp | |
| 42 fcb $00 delete:0=bsp over line,1=return | |
| 43 fcb $01 echo:0=no echo | |
| 44 fcb $01 auto line feed:0=off | |
| 45 fcb $00 end of line null count | |
| 46 fcb $01 pause:0=no end of page pause | |
| 47 fcb 24 lines per page | |
| 48 fcb C$BSP backspace character | |
| 49 fcb C$DEL delete line character | |
| 50 fcb C$CR end of record character | |
| 51 fcb C$EOF end of file character | |
| 52 fcb C$RPRT reprint line character | |
| 53 fcb C$RPET duplicate last line character | |
| 54 fcb C$PAUS pause character | |
| 55 fcb C$INTR interrupt character | |
| 56 fcb C$QUIT quit character | |
| 57 fcb C$BSP backspace echo character | |
| 58 fcb C$BELL line overflow character (bell) | |
| 1933 | 59 fcb ModCoHR init value for dev ctl reg |
| 1741 | 60 fcb $00 baud rate |
| 61 fdb name copy of descriptor name address | |
| 62 fcb $00 acia xon char | |
| 63 fcb $00 acia xoff char | |
| 64 fcb 51 (szx) number of columns for display | |
| 65 fcb 24 (szy) number of rows for display | |
| 66 initsize equ * | |
| 67 | |
| 68 name fcs /TERM/ | |
| 69 mgrnam fcs /SCF/ | |
| 1933 | 70 drvnam fcs /VTIO/ |
| 1741 | 71 |
| 72 emod | |
| 73 eom equ * | |
| 74 end |