home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
cpm
/
basic
/
setup.asm
< prev
next >
Wrap
Assembly Source File
|
1984-04-08
|
1KB
|
43 lines
;
; TITLE SETUP
;
address equ 20h ;why not?
org 0100h
begin: mvi a,0c5h ;push b to save char for 1st:
sta address
lhld 1
lxi d,10 ;offset to console routine addr.
dad d
push h
mvi a,call
sta address + 1
mov a,m ; con: here
sta address + 2
inx h
mov a,m
sta address + 3
mvi a,0c1h ;pop b for 1st:
sta address + 4
mvi a,ret ; soon to go...
sta address + 5
inx h
inx h
mov a,m
sta address + 6 ;lst: addr. here
inx h
mov a,m
sta address + 7
pop h ; restore bios' console addr.
lxi d,address
mov m,e
inx h
mov m,d
ret
end begin
;*****************************************************
;****** DON'T RUN THIS PROGRAM MORE THAN ONCE *********
;****** UNLESS YOU COLD BOOT BETWEEN RUNS. *********
;******************************************************