home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
microcrn
/
issue_43.arc
/
KAYPRO43.ARC
/
KAYPRO.4
< prev
next >
Wrap
Text File
|
1988-07-21
|
1KB
|
46 lines
; Micro Cornucopia issue #43
; Kaypro Column - Figure 4 UNMAP.ASM
;***********************************************
;* *
;*THIS SMALL PROGRAM RESTORES THE CHARACTER *
;*TRANSLATION TABLE FOR THE KAYPRO CURSOR *
;*KEYS AND THE NUMERIC KEYPAD TO THE STANDARD *
;*VALUES. *
;* *
;***********************************************
; *** CHANGE THIS TO MATCH THE CP/M SIZE ***
SIZE EQU 63 ;CPM SIZE IN K
CBASE EQU SIZE*1024-1C00H;BEGINNING OF CCP
FBASE EQU CBASE + 800H ;BEGINNING OF BDOS
; *** OR CHANGE THIS TO MATCH YOUR BIOS ***
BIOS EQU CBASE + 1600H;BEGINNING OF BIOS
VTAB EQU BIOS+35H;BEGINNING OF PARAMETERS
ORG 100H
UNMAP: LXI H, MAP;ADDRESS TRANSLATION TABLE
LXI D, VTAB ;ADDRESS CP/M BIOS TABLE
MVI B, 18 ;SET BYTE COUNT
LOOP: MOV A, M ;COPY TABLE INTO BIOS
STAX D
INX H
INX D
DCR B
JNZ LOOP
RET ;RETURN TO CCP
;
; TRANSLATION TABLE TO BE LOADED
;
MAP: DB 11,10,8,12,'0123456789-,',0DH,'.'
END