mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 08:54:17 +00:00
Upload
Digital Research
This commit is contained in:
@@ -0,0 +1,96 @@
|
||||
title 'MP/M II V2.0 Skeleton Ldrbios'
|
||||
|
||||
|
||||
; Copyright (C) 1978, 1979, 1980, 1981
|
||||
; Digital Research
|
||||
; Box 579, Pacific Grove
|
||||
; California, 93950
|
||||
|
||||
; Revised:
|
||||
; 14 Sept 81 by Thomas Rolander
|
||||
|
||||
false equ 0
|
||||
true equ not false
|
||||
|
||||
|
||||
org 1700h
|
||||
|
||||
|
||||
buff equ 0080h ;default buffer address
|
||||
|
||||
; jump vector for indiviual routines
|
||||
|
||||
jmp boot
|
||||
wboote: jmp wboot
|
||||
jmp const
|
||||
jmp conin
|
||||
jmp conout
|
||||
jmp list
|
||||
jmp punch
|
||||
jmp reader
|
||||
jmp home
|
||||
jmp seldsk
|
||||
jmp settrk
|
||||
jmp setsec
|
||||
jmp setdma
|
||||
jmp read
|
||||
jmp write
|
||||
jmp list$st ; list status poll
|
||||
jmp sect$tran ; sector translation
|
||||
|
||||
|
||||
boot:
|
||||
wboot:
|
||||
gocpm:
|
||||
ret
|
||||
|
||||
crtin: ; crt: input
|
||||
ret
|
||||
crtout: ; crt: output
|
||||
ret
|
||||
crtst: ; crt: status
|
||||
ret
|
||||
ttyin: ; tty: input
|
||||
ret
|
||||
ttyout: ; tty: output
|
||||
ret
|
||||
lptout: ; lpt: output
|
||||
ret
|
||||
lpt$st:
|
||||
ret
|
||||
|
||||
conin equ crtin
|
||||
const equ crtst
|
||||
conout equ crtout
|
||||
reader equ ttyin
|
||||
punch equ ttyout
|
||||
list equ lptout
|
||||
listst equ lptst
|
||||
|
||||
seldsk: ;select disk given by register c
|
||||
ret
|
||||
;
|
||||
home: ;move to home position
|
||||
ret
|
||||
;
|
||||
settrk: ;set track number given by c
|
||||
ret
|
||||
;
|
||||
setsec: ;set sector number given by c
|
||||
ret
|
||||
;
|
||||
setdma: ;set dma address given by regs b,c
|
||||
ret
|
||||
;
|
||||
sect$tran: ; translate the sector # in <c> if needed
|
||||
ret
|
||||
;
|
||||
read: ;read next disk record (assuming disk/trk/sec/dma set)
|
||||
ret
|
||||
;
|
||||
write: ;disk write function
|
||||
ret
|
||||
;
|
||||
end
|
||||
|
||||
|
||||
Reference in New Issue
Block a user