Mercurial > hg > Members > kono > nitros9-code

comparison 3rdparty/booters/boot_rampak.asm @ 279:20e8c354b914

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added support for Level One Rampak Boot
author boisy
date Sun, 21 Jul 2002 07:13:05 +0000
parents 2ce754e62499
children df43967d6a46
comparison
equal deleted inserted replaced
278:3960e63fd9f7 279:20e8c354b914
63 pshs x save the starting sector number 63 pshs x save the starting sector number
64 ldd #$0100 one page of memory 64 ldd #$0100 one page of memory
65 os9 F$SRtMem return the copy of LSN0 to free memory 65 os9 F$SRtMem return the copy of LSN0 to free memory
66 66
67 ldd R.X,s get size of boot memory to request 67 ldd R.X,s get size of boot memory to request
68 ifgt Level-1
68 os9 F$BtMem ask for the boot memory 69 os9 F$BtMem ask for the boot memory
70 else
71 os9 F$SRqMem ask for the boot memory
72 endc
69 puls x restore the starting sector number 73 puls x restore the starting sector number
70 bcs L00AE no memory: exit with error 74 bcs L00AE no memory: exit with error
71 75
72 stu R.X,s save start address of memory allocated 76 stu R.X,s save start address of memory allocated
73 std R.D,s and the size of the boot memory 77 std R.D,s and the size of the boot memory
94 sta >MPI.Slct 98 sta >MPI.Slct
95 leas $02,s kill D off of the stack 99 leas $02,s kill D off of the stack
96 100
97 L00B0 puls x restore start address of memory allocated 101 L00B0 puls x restore start address of memory allocated
98 * leas size,s remove the on-stack buffer 102 * leas size,s remove the on-stack buffer
99 clr >$FF40 stop the disk 103 clr >DPort stop the disk
100 L00BA rts 104 L00BA rts
101 105
102 * GetSect: read a sector off of the disk 106 * GetSect: read a sector off of the disk
103 * Entry: X = sector number to read 107 * Entry: X = sector number to read
104 GetSect pshs d,x,y 108 GetSect pshs d,x,y
115 incb go to the enxt byte 119 incb go to the enxt byte
116 bne ReadLp 120 bne ReadLp
117 clrb no errors 121 clrb no errors
118 puls d,x,y,pc restore registers and return 122 puls d,x,y,pc restore registers and return
119 123
124 ifgt Level-1
120 fcc / JABBERWOCKY. / 125 fcc / JABBERWOCKY. /
121 fcb $0D 126 fcb C$CR
122 fcc /'Twas brillig, and the slithy toves/ 127 fcc /'Twas brillig, and the slithy toves/
123 fcb $0D 128 fcb C$CR
124 fcc / Did gyre and gimble in the wabe:/ 129 fcc / Did gyre and gimble in the wabe:/
125 fcb $0D 130 fcb C$CR
126 fcc /All mimsy were the borogroves,/ 131 fcc /All mimsy were the borogroves,/
127 fcb $0D 132 fcb C$CR
128 fcc / And the mome raths outgrabe./ 133 fcc / And the mome raths outgrabe./
129 fcb $0D 134 fcb C$CR
130 fcb $0D 135 fcb C$CR
131 fcc /"Beware the Jabberwock, my son!/ 136 fcc /"Beware the Jabberwock, my son!/
132 fcb $0D 137 fcb C$CR
133 fcc / The jaws that bite, the claws that catch!/ 138 fcc / The jaws that bite, the claws that catch!/
134 fcb $0D 139 fcb C$CR
135 fcc /Beware the Jubjub bird, and shun/ 140 fcc /Beware the Jubjub bird, and shun/
136 fcb $0D 141 fcb C$CR
137 fcc / The frumious Bandersnatch"/ 142 fcc / The frumious Bandersnatch"/
138 fcb $0D 143 fcb C$CR
144 endc
139 145
140 Address fdb $FF40 address of the device to boot from 146 Address fdb $FF40 address of the device to boot from
141 PakSlot fcb $01 multipak slot number 147 PakSlot fcb $01 multipak slot number
142 148
143 emod 149 emod