home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
ELEP2F.ZIP
/
elepx437.asm
< prev
next >
Wrap
Assembly Source File
|
1991-05-14
|
2KB
|
79 lines
PAGE 60,132
;***********************************************************************
;* *
;* NAME: *
;* *
;* ELEPX437 *
;* *
;* FUNCTION: *
;* *
;* Creates ELEPX437.BIN for use with ELEP2. This file contains *
;* a 3270 Generator code to ASCII translate table used when *
;* refreshing the LVB from the DCA buffer. *
;* *
;***********************************************************************
; .286p pseudo operand enables 286 instructions
.286p
;
extrn DOSWRITE:far
extrn DOSREAD:far
extrn DOSOPEN:far
extrn DOSCLOSE:far
code segment byte public 'CODE'
code ends
data segment word public 'DATA'
data ends
stack segment word stack 'STACK'
stack ends
;
; Set up data in a group prior to assume statement
;
dgroup group data
assume cs:code,ds:dgroup, es:dgroup, ss:stack
;
; Data Segment begins here:
;
data SEGMENT
.XLIST
INCLUDE E:\TOOLKT12\masm\include\doscalls.inc
INCLUDE F:\ELEP2\INCLUDE\ELEPX437.INC
.LIST
keybtbnm DB 'F:\ELEP2\KEYBTBS\ELEPX437.BIN',0
kbhandle DW ?
kbaction DW ?
zero DW 0,0
bytesin DW ?
db '(C) Copyright IBM Corporation 1991 '
db 'IBM INTERNAL USE ONLY'
data ENDS
;
stack SEGMENT
dw 512 dup (?)
stack ENDS
page
code SEGMENT
main proc near
MOV DX,dgroup ; Move start of data segment into dx
MOV DS,DX ; ... in order to set up ds
;
; Open the ELEPX###.BIN for output
;
@DosOpen keybtbnm,kbhandle,kbaction,zero,0,12h,41H,zero
MOV CX,256
@DosWrite kbhandle,xlattbl,CX,bytesin
@DosClose kbhandle
@DosExit 0,0
main ENDP
code ends
END main