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 if needed ret ; read: ;read next disk record (assuming disk/trk/sec/dma set) ret ; write: ;disk write function ret ; end