![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to psas.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / PS2_KERNEL / io.286 / hld|
Return to psas.s CVS log | Up to [MW Coherent from dump] / coherent / d / PS2_KERNEL / io.286 / hld |
1.1 ! root 1: / (lgl- ! 2: / COHERENT Driver Kit Version 1.1.0 ! 3: / Copyright (c) 1982, 1990 by Mark Williams Company. ! 4: / All rights reserved. May not be copied without permission. ! 5: / -lgl) ! 6: //////// ! 7: / ! 8: / PS Hard Disk Assembler Support ! 9: ! 10: ! 11: .globl com_data_, fcn_trn0_, fcn_trn1_,fcn_trn2_,fcn_trn7_,fcn_trn15_ ! 12: .globl i0_, i1_, i2_, i7_, i15_, end_table_ ! 13: ! 14: .shri ! 15: ! 16: .globl iresult_, mlkh_ ! 17: iresult_: ! 18: mov ax,cs:mlkh_ ! 19: ret ! 20: ! 21: mlkh_: .word 0x1234 ! 22: ! 23: .blkb 15 ! 24: extram: .blkb 15 ! 25: .blkb 15 ! 26: com_data_:.blkb 0x80 ! 27: fcn_trn0_: ! 28: .blkb 0x10 ! 29: dev_blk0_: ! 30: .blkb 0x10 ! 31: fcn_trn1_: ! 32: .blkb 0x50 ! 33: dev_blk1_: ! 34: .blkb 0x56 ! 35: fcn_trn2_: ! 36: .blkb 0x40 ! 37: dev_blk2_: ! 38: .blkb 0x96 ! 39: fcn_trn7_: ! 40: .blkb 0x50 ! 41: dev_blk7_: ! 42: .blkb 0x56 ! 43: fcn_trn15_: ! 44: .blkb 0x58 ! 45: dev_blk15_: ! 46: .blkb 0x2e ! 47: end_table_: ! 48: ! 49: i0_: .word 0 ! 50: i1_: .word 0 ! 51: i2_: .word 0 ! 52: i7_: .word 0 ! 53: i15_: .word 0 ! 54: ! 55: sp_: .blkw 0x24 ! 56: it_: .blkw 432 /This gives room for 18 items ! 57: ! 58: ! 59: .globl iabios_r_ ! 60: iabios_r_: ! 61: mov ax,cs ! 62: mov ds,ax ! 63: mov es,ax ! 64: ! 65: mov di,$sp_ / Destination for the system parameter table ! 66: call build_sys_p ! 67: mov di,$it_ / Destination for the Initialization tables ! 68: call build_itab ! 69: ! 70: ! 71: mov si,0 ! 72: movb cl,$24 ! 73: 0: ! 74: mov ax, si ! 75: cmp ax, sp_+30 ! 76: jge 2f ! 77: ! 78: imulb cl ! 79: mov di, ax ! 80: add di,$it_ ! 81: ! 82: cmp (di), $0 ! 83: jne 1f ! 84: mov i0_, di ! 85: 1: ! 86: cmp (di), $1 ! 87: jne 1f ! 88: mov i1_, di ! 89: 1: ! 90: cmp (di), $2 ! 91: jne 1f ! 92: mov i2_, di ! 93: 1: ! 94: cmp (di), $7 ! 95: jne 1f ! 96: mov i7_, di ! 97: 1: ! 98: cmp (di), $15 ! 99: jne 1f ! 100: mov i15_, di ! 101: 1: ! 102: inc si ! 103: jmp 0b ! 104: 2: ! 105: call init_dev ! 106: mov cs:mlkh_, ax ! 107: ret ! 108: ! 109: ! 110: build_sys_p: ! 111: push ds ! 112: ! 113: xor ax,ax / Set Ds to 0, meaning that there are no Ram ! 114: mov ds,ax / extentions to be loaded ! 115: movb ah,$4 ! 116: int 0x15 / Bios call to build the System parameter table ! 117: ! 118: jc 1f / Error? ! 119: ! 120: xor ax,ax / No error ! 121: ! 122: 0: pop ds / Restore registers and return ! 123: ret ! 124: ! 125: 1: mov ax,$0xffff / Return that an error has occured ! 126: jmp 0b ! 127: ! 128: ! 129: ! 130: build_itab: ! 131: push ds ! 132: ! 133: mov ax,$extram / Set up extram so that it starts at the ! 134: shr ax,$4 / begining of a segment. This is becuase ! 135: mov bx,ds / the Cbios is expecting a pointer of the ! 136: add ax,bx / sort DS:0 ! 137: mov ds,ax ! 138: mov 0,$0xaa55 / Extram header value. ! 139: movb ah,$5 ! 140: int 0x15 / Cbios call to build init table ! 141: ! 142: jc 1f / Error? ! 143: ! 144: xor ax,ax / No error ! 145: ! 146: 0: pop ds / Restore registers and return ! 147: ret ! 148: ! 149: 1: mov ax,$0xffff / Return that an error has occured ! 150: jmp 0b ! 151: ! 152: ! 153: init_dev: ! 154: mov ax,$com_data_/ Set up com_data so that it starts at the ! 155: shr ax,$4 / begining of a segment. This is becuase ! 156: mov dx,ds / the Cbios is expecting a pointer of the ! 157: add ax,dx / sort DS:0 for the Common data table ! 158: mov ds,ax ! 159: ! 160: mov 0,$72 / Pointer to pointer 0. Note that as we add ! 161: / devices to the system, this will move ! 162: / farther down by 8 for every db/ftt pair ! 163: / and 6 for every data pointer. ! 164: ! 165: mov 2,$6 / Number of pointer pairs in the table ! 166: mov 8,$0 / Dummy dev blk and fcn tbl pntr for Id 1 ! 167: mov 10,$0 / This is required for initialization ! 168: mov 12,$0 / Remember only to have one for Id 1. This ! 169: mov 14,$0 / Fails if you also have one for Id 0. ! 170: mov 16,$dev_blk0_ /\ ! 171: mov 18,dx / \ ! 172: mov 20,$fcn_trn0_ / \ ! 173: mov 22,dx / | ! 174: mov 24,$dev_blk1_ / | ! 175: mov 26,dx / | ! 176: mov 28,$fcn_trn1_ / | long ptrs to the device blocks and ! 177: mov 30,dx / | the function transfer tables for ! 178: mov 32,$dev_blk7_ / | devs 0, 1, 7, 15, 2 ! 179: mov 34,dx / | ! 180: mov 36,$fcn_trn7_ / | ! 181: mov 38,dx / | ! 182: mov 40,$dev_blk15_ / | ! 183: mov 42,dx / | ! 184: mov 44,$fcn_trn15_ / | ! 185: mov 46,dx / | ! 186: mov 48,$dev_blk2_ / | ! 187: mov 50,dx / / ! 188: mov 52,$fcn_trn2_ / / ! 189: mov 54,dx // ! 190: ! 191: / At this point we should initialize the pointer ! 192: / part of the table, but since these values ! 193: / are already 0, we can skip it. ! 194: ! 195: ! 196: mov bx, cs:i0_ / Initialize the internal functions ! 197: mov cx,$1 ! 198: mov dx,$0x2 / Logical device 2 ! 199: ! 200: .word 0xff26, 0x065f / calll es:(bx+6) ! 201: ! 202: cmpb al,$0 / Was there an error? ! 203: jne 0f ! 204: ! 205: mov bx, cs:i1_ / Initialize the diskette ! 206: mov cx,$1 ! 207: mov dx,$3 / Logical device 3 ! 208: ! 209: .word 0xff26, 0x065f / calll es:(bx+6) ! 210: ! 211: cmpb al,$0 / Was there an error? ! 212: jne 0f ! 213: ! 214: mov bx, cs:i7_ / Initialize the system timer ! 215: mov cx,$1 ! 216: mov dx,$4 / Logical device 4 ! 217: ! 218: .word 0xff26, 0x065f / calll es:(bx+6) ! 219: ! 220: cmpb al,$0 / Was there an error? ! 221: jne 0f ! 222: ! 223: mov bx, cs:i15_ / Initialize the DMA ! 224: mov cx,$1 ! 225: mov dx,$5 / Logical device 5 ! 226: ! 227: .word 0xff26, 0x065f / calll es:(bx+6) ! 228: ! 229: cmpb al,$0 / Was there an error? ! 230: jne 0f ! 231: ! 232: mov bx, cs:i2_ / Initialize the hard disk ! 233: mov cx,$1 ! 234: mov dx,$6 / Logical device 6 ! 235: ! 236: .word 0xff26, 0x065f / calll es:(bx+6) ! 237: ! 238: cmpb al,$0 / Was there an Error? ! 239: je 1f ! 240: ! 241: 0: mov ax,$0xffff / Inform caller that we could not init ! 242: 1: ret ! 243: ! 244: ! 245: .globl d2_func_, com_data_p_, fcn2_, fcn2p_, dev2p_ ! 246: d2_func_: ! 247: push bp ! 248: mov bp,sp ! 249: ! 250: push com_data_p_+2 / save the anchor pointer segment ! 251: ! 252: push sds_ / Save the request block segment ! 253: push 4(bp) / Save the request block offset ! 254: ! 255: push fcn2p_+2 / Save the Function transfer table Segment ! 256: push fcn2p_ / Save the Function transfer table Offset ! 257: ! 258: push dev2p_+2 / Save the device block Segment ! 259: push dev2p_ / Save the device block Offset ! 260: ! 261: mov bx,6(bp) / Bx points to start, interrupt or time-out ! 262: .word 0x9fff,fcn2_ / Call far (bx + fcn2_) ! 263: 1: ! 264: add sp,$0xe / Clean up the stack ! 265: ! 266: pop bp ! 267: ret ! 268: ! 269: ! 270: ! 271: .globl d1_func_, fcn1_, fcn1p_, dev1p_ ! 272: d1_func_: ! 273: push bp ! 274: mov bp,sp ! 275: ! 276: push com_data_p_+2 / save the anchor pointer segment ! 277: ! 278: push sds_ / Save the request block segment ! 279: push 4(bp) / Save the request block offset ! 280: ! 281: push fcn1p_+2 / Save the Function transfer table Segment ! 282: push fcn1p_ / Save the Function transfer table Offset ! 283: ! 284: push dev1p_+2 / Save the device block Segment ! 285: push dev1p_ / Save the device block Offset ! 286: ! 287: mov bx,6(bp) / Bx points to start, interrupt or time-out ! 288: .globl aaazq ! 289: aaazq: ! 290: .word 0x9fff,fcn1_ / Call far (bx + fcn2_) ! 291: 1: ! 292: add sp,$0xe / Clean up the stack ! 293: ! 294: pop bp ! 295: ret ! 296: ! 297: ! 298: ! 299: ! 300: .globl pip_ ! 301: pip_: ! 302: pop ax ! 303: push ax ! 304: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.