· Text 285 · w8 · inlagg
Jag har en massa källkoder som kom med ett CP/M till ABC80
Äfter som man inte kan använda dem utan tillsatskort undrar
jag om man kan sprida dem. Ett smakprov följer.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SYSTEM EQUATES
;
; Version 3.3 BIOS for ABC80 - UNI80
;
; This file is assembled together with the three sourcefiles
; BOOTXX.ASM,BIOSXXA.ASM and BIOSXXB.ASM. The equates in this
; file selects different features by conditional assembly.
;
msize equ 64 ;cp/m version memory size in kilobytes
biosver equ 33 ;BIOS version number
;
abc80 equ 1 ;BIOS for ABC80
abc800 equ 0 ;BIOS for ABC800
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; device addresses
;
keybrd equ 16 ;keyboard i/o-port
v24 equ 58 ;i/o-port
sound equ 6 ;soundgenerator
vram40 equ 07c00h ;standard videoram address
vram80 equ 05800h ;TKN80 videoram address
stdram equ 0c000h ;start of ram in standard ABC80
map equ 0efh ;mapping i/o-port
;
; constants
;
delay1 equ 10000 ;delay for repeat for 1:st char
delay2 equ 500 ;delay for repeat for following char.
bellen equ 30000 ;length of bel
idelay equ 23 ;gives 2400 baud
usrmap equ 1 ;normal cp/m-mode
sysmap equ 2 ;system mode
maxram equ 31 ;
;
; Z80-instructions
;
ldir equ 0b0edh
lddr equ 0b8edh
djnz equ 10h
outi equ 0a3edh
otir equ 0b3edh
ini equ 0a2edh
jrnc equ 030h
jrc equ 038h
jrnz equ 020h
jrz equ 028h
jr equ 018h
slae equ 023cbh ;sla e
rre equ 01bcbh ;rr e
;
;equates for databoard-bus
;
data equ 0 ;data in and out
sel equ 1 ;card select
stat equ 1 ;status from card
c1 equ 2 ;command 1
c2 equ 3
c3 equ 4
c4 equ 5
;
;
; control characters for screen
rs equ 1eh ;home
clear equ 1ah ;clear screen
esc equ 1bh ;escape
bs equ 08h ;backspace
vt equ 0bh ;cursor up
ff equ 0ch ;forward space
lf equ 0ah ;linefeed
rtn equ 0dh ;return
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
bias equ (msize-20)*1024
ccp equ 3400h+bias
bdos equ ccp+806h ;base of bdos
bios equ ccp+1600h ;base of bios
cdisk equ 4 ;current disk
iobyte equ 3 ;device assignment
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Om jag brytit mot något ta bort inlägget