54 lines
1.2 KiB
PHP
54 lines
1.2 KiB
PHP
title PROGRAM
|
|
subttl Copyright (c) Psion PLC 1993
|
|
name PROGRAM
|
|
;
|
|
; VER DATE BY DESCRIPTION
|
|
; ----- -------- ---- -----------
|
|
; 00.1A 03/03/93 HP First release
|
|
;
|
|
PROGRAM_INC equ 1
|
|
|
|
IFNDEF P_STD_INC
|
|
INCLUDE ..\inc\P_STD.INC
|
|
ENDIF
|
|
IFNDEF P_FILE_INC
|
|
INCLUDE ..\inc\P_FILE.INC
|
|
ENDIF
|
|
|
|
; Constants for progexec
|
|
PROGEXEC_SIGNAL equ (001h)
|
|
PROGEXEC_NOTIFY equ (002h)
|
|
H_COMMAND_TRANSLATE_FILE equ ('T')
|
|
H_COMMAND_RUN_FILE equ ('R')
|
|
|
|
; Constants for progtran
|
|
PT_PROGTRAN_LINE equ (010h)
|
|
PT_PROGTRAN_DEATH equ (011h)
|
|
|
|
; Types for progtran
|
|
PROGTRAN_STATUS struc
|
|
PROGTRAN_STATUSStat dw ?
|
|
PROGTRAN_STATUSMode dw ?
|
|
PROGTRAN_STATUSLine dw ?
|
|
PROGTRAN_STATUSOffset dw ?
|
|
PROGTRAN_STATUS ends
|
|
;
|
|
PROGTRAN_SOURCE struc
|
|
PROGTRAN_SOURCEPid dw ?
|
|
PROGTRAN_SOURCEBuffer_offset dw ?
|
|
PROGTRAN_SOURCEStatus_offset dw ?
|
|
PROGTRAN_SOURCE ends
|
|
;
|
|
PROGEXEC_RESBUF struc
|
|
PROGEXEC_RESBUFError dw ?
|
|
PROGEXEC_RESBUFLine dw ?
|
|
PROGEXEC_RESBUFOffset dw ?
|
|
PROGEXEC_RESBUFErr db (1) * 40 dup (?)
|
|
PROGEXEC_RESBUFSrc db (1) * P_FNAMESIZE dup (?)
|
|
PROGEXEC_RESBUF ends
|
|
PROGEXEC_PAR struc
|
|
PROGEXEC_PARFlags dw ?
|
|
PROGEXEC_PARPid dw ?
|
|
PROGEXEC_PARResult_offset dw ?
|
|
PROGEXEC_PAR ends
|