101 lines
2.3 KiB
Plaintext
101 lines
2.3 KiB
Plaintext
|
; Generated by Ctran from polytext.cl
|
||
|
|
POLYTEXT_ING equ 1
|
||
|
|
IFNDEF P_STD_INC
|
||
|
|
INCLUDE ..\inc\P_STD.INC
|
||
|
|
ENDIF
|
||
|
|
IFNDEF P_OBJECT_INC
|
||
|
|
INCLUDE ..\inc\P_OBJECT.INC
|
||
|
|
ENDIF
|
||
|
|
IFNDEF VARRAY_ING
|
||
|
|
INCLUDE ..\inc\VARRAY.ING
|
||
|
|
ENDIF
|
||
|
|
; Class Numbers
|
||
|
|
C_PTROOT equ 12
|
||
|
|
C_PTSEG equ 13
|
||
|
|
C_PTFLAT equ 14
|
||
|
|
; Method Numbers
|
||
|
|
O_PT_RESET equ 2
|
||
|
|
O_PT_MOD_BY_ATTRIB equ 11
|
||
|
|
O_PT_ADD_PHRASE equ 6
|
||
|
|
O_PT_DISPLAY_LINE equ 8
|
||
|
|
O_PT_INIT equ 1
|
||
|
|
O_PT_PUT_LINTAB equ 4
|
||
|
|
O_PT_INQUIRE equ 13
|
||
|
|
O_PT_WRAP equ 7
|
||
|
|
O_PT_MOD_BY_NUM equ 10
|
||
|
|
O_PT_PBUF equ 5
|
||
|
|
O_PT_FIND equ 12
|
||
|
|
O_PT_APPEND equ 3
|
||
|
|
O_PT_SET_FONTS equ 9
|
||
|
|
; Constants for ptroot
|
||
|
|
PT_FIND_DEFAULT equ (00000h)
|
||
|
|
PT_FIND_BACKWARDS equ (00001h)
|
||
|
|
PT_FIND_CAN_STAY equ (00002h)
|
||
|
|
PT_STY_DEFAULT equ (000h)
|
||
|
|
PT_STY_BREAK_AT_START equ (001h)
|
||
|
|
PT_STY_BREAK_AT_END equ (002h)
|
||
|
|
PT_STY_OSTRIKE_XLEFT equ (020h)
|
||
|
|
PT_STY_OSTRIKE_XRIGHT equ (040h)
|
||
|
|
PT_STY_OVERSTRIKE equ (080h)
|
||
|
|
PT_MAX_PHRASE_LEN equ (236)
|
||
|
|
PT_DESCR_MOD_FONT equ (00001h)
|
||
|
|
PT_DESCR_MOD_WS_STYLE equ (00002h)
|
||
|
|
PT_DESCR_MOD_PT_STYLE equ (00004h)
|
||
|
|
PT_DESCR_MOD_ATTRIB equ (00008h)
|
||
|
|
PT_DESCR_MOD_TLEN equ (00010h)
|
||
|
|
; Types for ptroot
|
||
|
|
PT_FONT_SPEC struc
|
||
|
|
PT_FONT_SPECFont_id dw ?
|
||
|
|
PT_FONT_SPECAttrib db ?
|
||
|
|
PT_FONT_SPEC ends
|
||
|
|
PT_PHRASE_INFO struc
|
||
|
|
PT_PHRASE_INFOLine dw ?
|
||
|
|
PT_PHRASE_INFOOffset dw ?
|
||
|
|
PT_PHRASE_INFOWidth dw ?
|
||
|
|
PT_PHRASE_INFO ends
|
||
|
|
PT_PHRASE_DESCR struc
|
||
|
|
PT_PHRASE_DESCRFont_id dw ?
|
||
|
|
PT_PHRASE_DESCRWs_style db ?
|
||
|
|
PT_PHRASE_DESCRPt_style db ?
|
||
|
|
PT_PHRASE_DESCRAttrib db ?
|
||
|
|
PT_PHRASE_DESCRTlen db ?
|
||
|
|
PT_PHRASE_DESCR ends
|
||
|
|
PT_PHRASE struc
|
||
|
|
PT_PHRASEDescr PT_PHRASE_DESCR <>
|
||
|
|
PT_PHRASETxt db (1) * 1 dup (?)
|
||
|
|
PT_PHRASE ends
|
||
|
|
; Property of ptroot
|
||
|
|
PRS_PTROOT struc
|
||
|
|
PtrootNphrases dw ?
|
||
|
|
PtrootNchars dw ?
|
||
|
|
PtrootNlines dw ?
|
||
|
|
PtrootWwidth dw ?
|
||
|
|
PtrootLmargin dw ?
|
||
|
|
PtrootAscent dw ?
|
||
|
|
PRS_PTROOT ends
|
||
|
|
PR_PTROOT struc
|
||
|
|
PtrootRoot PRS_ROOT <>
|
||
|
|
PtrootPtroot PRS_PTROOT <>
|
||
|
|
PR_PTROOT ends
|
||
|
|
; Property of ptseg
|
||
|
|
PRS_PTSEG struc
|
||
|
|
PtsegPhrases dw ?
|
||
|
|
PRS_PTSEG ends
|
||
|
|
PR_PTSEG struc
|
||
|
|
PtsegRoot PRS_ROOT <>
|
||
|
|
PtsegPtroot PRS_PTROOT <>
|
||
|
|
PtsegPtseg PRS_PTSEG <>
|
||
|
|
PR_PTSEG ends
|
||
|
|
; Property of ptflat
|
||
|
|
PRS_PTFLAT struc
|
||
|
|
PtflatBuffer dw ?
|
||
|
|
PtflatBufsize dw ?
|
||
|
|
PtflatGranularity dw ?
|
||
|
|
PtflatNextoff dw ?
|
||
|
|
PRS_PTFLAT ends
|
||
|
|
PR_PTFLAT struc
|
||
|
|
PtflatRoot PRS_ROOT <>
|
||
|
|
PtflatPtroot PRS_PTROOT <>
|
||
|
|
PtflatPtflat PRS_PTFLAT <>
|
||
|
|
PR_PTFLAT ends
|