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