|
31
|
1 *********************************************
|
|
|
2 * Rdisk
|
|
|
3 * A driver for a Ram disk!
|
|
|
4 * Modified for os9l1 emulator by Soren Roug 2001
|
|
|
5 *
|
|
|
6
|
|
|
7 nam Pdisk
|
|
|
8 ttl A Device Driver for a RAM Disk
|
|
|
9
|
|
|
10 ifp1
|
|
33
|
11 use defsfile
|
|
31
|
12 endc
|
|
|
13
|
|
|
14 ***********************
|
|
|
15 * Edition History
|
|
|
16
|
|
|
17 * # date Comments
|
|
|
18 * -- -------- ----------------------------------------------
|
|
|
19
|
|
|
20 Revision equ 1
|
|
|
21 NumDrvs set 2 Number of drives
|
|
|
22
|
|
|
23 org Drvbeg
|
|
|
24 rmb NumDrvs*DrvMem
|
|
|
25 RAMSTA equ .
|
|
|
26
|
|
|
27 mod RAMEND,RAMNAM,Drivr+Objct,Reent+Revision,RAMENT,RAMSTA
|
|
|
28 fcb $FF mode byte
|
|
|
29
|
|
|
30 RAMNAM fcs /Pdisk/
|
|
|
31
|
|
|
32 RAMENT lbra INIT
|
|
|
33 lbra READ
|
|
|
34 lbra WRITE
|
|
|
35 lbra GETSTA
|
|
|
36 lbra PUTSTA
|
|
|
37 lbra TERM
|
|
|
38
|
|
|
39 *****************************
|
|
|
40 * INIT
|
|
|
41 * Set up the v09 disk
|
|
|
42
|
|
|
43 INIT ldb #NumDrvs Set no drives to 2
|
|
|
44 * Setup drive tables
|
|
|
45 stb V.NDRV,u save it
|
|
|
46 lda #$FF
|
|
|
47 leax DRVBEG,u point to drive table start
|
|
|
48 L0111 sta DD.TOT+1,x
|
|
|
49 sta <V.TRAK,x
|
|
|
50 leax <DRVMEM,x
|
|
|
51 decb
|
|
|
52 bne L0111
|
|
|
53 clrb
|
|
|
54 INITXIT rts
|
|
|
55
|
|
|
56 SETUPDT lda <PD.DRV,y Get the drive number
|
|
|
57 ldu V.PORT,u
|
|
|
58 sta 1,u drive number
|
|
|
59 stb 2,u msb of lsn
|
|
|
60 tfr x,d
|
|
|
61 sta 3,u
|
|
|
62 stb 4,u
|
|
|
63 ldd PD.BUF,y
|
|
|
64 sta 5,u buffer address
|
|
|
65 stb 6,u
|
|
|
66 rts
|
|
|
67
|
|
|
68 *****************************
|
|
|
69 * READ
|
|
|
70 * read a sector from disk
|
|
|
71 * Entry: U = Static Storage
|
|
|
72 * Y = Path Descriptor
|
|
|
73 * B = MSB of LSN
|
|
|
74 * X = LSB's of LSN
|
|
|
75 * Exit: 256 byte sector in PD.BUF buffer
|
|
|
76 *
|
|
|
77 READ bsr SETUPDT
|
|
|
78 lda #$81
|
|
|
79 sta ,u // perform io
|
|
|
80 ldb ,u // return status
|
|
|
81 rts
|
|
|
82
|
|
|
83 *****************************
|
|
|
84 * WRITE
|
|
|
85 * Write a sector to disk
|
|
|
86 * Entry: U = Static Storage
|
|
|
87 * Y = Path Descriptor
|
|
|
88 * B = MSB of LSN
|
|
|
89 * X = LSB's of LSN
|
|
|
90 * PD.Buf = Sector to write
|
|
|
91 *
|
|
|
92 WRITE bsr SETUPDT
|
|
|
93 lda #$55
|
|
|
94 sta ,u // perform io
|
|
|
95 ldb ,u // return status
|
|
|
96 WRIT99 rts
|
|
|
97
|
|
|
98 **************************
|
|
|
99 * GETSTA
|
|
|
100 * get device status
|
|
|
101 *
|
|
|
102 GETSTA
|
|
|
103 Unknown comb
|
|
|
104 clrb
|
|
|
105 rts
|
|
|
106
|
|
|
107 **************************
|
|
|
108 * PUTSTA
|
|
|
109 * Set device Status
|
|
|
110 *
|
|
|
111 PUTSTA
|
|
|
112 PUTSTA90 clrb
|
|
|
113 rts
|
|
|
114
|
|
|
115 *****************************
|
|
|
116 * TERM
|
|
|
117 * terminate Driver
|
|
|
118 *
|
|
|
119 TERM clrb
|
|
|
120 rts
|
|
|
121
|
|
|
122 emod
|
|
|
123 RAMEND equ *
|
|
|
124
|
