Digital Research
This commit is contained in:
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions

View File

@@ -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